Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTTS2

Package: Registration

Routine: DGPTTS2


Information

DGPTTS2 ;ALB/JDS/PLT - FACILITY TREATING SPECIALTY AND 501 MOVEMENTS, cont. ;6/3/15 11:13am

Source Information

Source file <DGPTTS2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^%DTC  (,FILE)^DIE  
Registration 1 ASIH^DGUTL2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 1 IB20PT84  
Registration 1 DGPTTS1  

Entry Points

Name Comments DBIA/ICR reference
LOOP1
ADT1
ONE ;delete in one ien/save in another ien for 25 icd codes and node 300
TD5
LOL
LOL1
ASIH
O1 ;filing saved movement 25 codes with poa and 300-node data
Q
CK ; -- checks for PTF# in ^DGPM and $D of the PTF in ^DGPT; Y = ifn of adm

External References

Name Field # of Occurrence
^%DTC LOL1
ASIH^DGUTL2 ASIH
^DIE LOOP1+4, ADT1+8, TD5, ASIH+1
FILE^DIE DGPTTS2+8, ADT1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"warning: A PTF record does not exist for this admission - cannot edit",!?10,"Treating Specialty. MIS personnel and your supervisor should",!?10,"be notified."
  • Line Location: CK+2
Function Call: WRITE
  • Prompt: " The PTF option, 'Establish PTF record from Past",!?10,"Admission', may be used to create a PTF record."
  • Line Location: CK+3
Routine Call
  • DIE
  • Line Location:
    • LOOP1+4
    • ADT1+8
    • TD5
    • ASIH+1
Routine Call
  • DIE
  • Line Location:
    • DGPTTS2+8
    • ADT1+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] LOL+1, CK+1
^DGPM("APTT2" LOL+1, LOL1
^DGPT - [#45] DGPTTS2+5, LOOP1+3, ADT1, ADT1+1*, ADT1+2, ADT1+3, ONE+4, ONE+5, ONE+6, ONE+7
, CK+1
^UTILITY($J DGPTTS2+4, LOOP1, O1+1, O1+4, O1+5, O1+11, Q

Label References

Name Line Occurrences
ADT1 LOOP1+2
LOL LOOP1+2
LOL1 LOL+1
LOOP1 LOOP1+5
O1 ONE+4
ONE LOOP1+2, Q
Q LOOP1
TD5 LOOP1+3, ONE+8, O1+9, O1+12

Naked Globals

Name Field # of Occurrence
^( DGPTTS2+4, LOOP1, LOOP1+1, O1+4, O1+11
^(0 LOOP1+3, ADT1+3*, ONE+4, LOL+1
^(300 ONE+7
^(81 O1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A LOOP1+3*, O1+2~, O1+4*, O1+5*
B O1+2~, O1+4*, O1+5*
B(501 DGPTTS2+4*
C LOL+1*, LOL1!
DA LOOP1+4*, ADT1+8*, TD5*, ASIH+1*, ASIH+2!
DA(1 TD5*
DE ASIH+2!
>> DFN LOL+1, LOL1
>> DG1 LOL*, LOL+1
>> DG1( LOOP1+1*, LOOP1+3
DGA ONE+1~, ONE+3*, ONE+4, ONE+5*, ONE+6*, ONE+7*, O1+2~, O1+3*, O1+5*, O1+6
>> DGADM LOL+1, ASIH
DGB ONE+1~, ONE+3*, ONE+4, ONE+5*, ONE+6*, ONE+7*, O1+2~, O1+3*, O1+6, O1+7*
DGBDT ASIH*, ASIH+2!
DGC ONE+1~, ONE+3*, ONE+5*, ONE+6*, ONE+7*
>> DGDOC LOOP1+1*
DGDR DGPTTS2+4*, ONE+1~, ONE+4*, ONE+8
>> DGDT LOL, ASIH
DGEDT ASIH*, ASIH+2!
>> DGEX O1+11*
DGFDA DGPTTS2+6~, ADT1+4~
DGFDA( DGPTTS2+7*, ADT1+5*
DGMSG DGPTTS2+6~, ADT1+4~
DGMVTP ASIH+2!
>> DGPMCA LOL+1
>> DGREC ASIH+1
DIE LOOP1+4*, ADT1+8*, TD5*, ASIH+1*, ASIH+2!
>> DP TD5*
DQ ASIH+2!
DR LOOP1+3*, LOOP1+4*, ADT1+8*, ONE+1~, ONE+4*, ONE+8!*, ASIH+1*, ASIH+2!, O1+2~, O1+3*
, O1+9!, O1+11*, O1+12
DR(1 O1+7
DT LOL, ASIH
FLD DGPTTS2+6~, DGPTTS2+7*
>> I DGPTTS2+5*, DGPTTS2+7, LOOP1+1*, ADT1+2*, ONE+4*, ONE+5*, ONE+6*, ONE+7*, LOL+1*, LOL1
, O1+5*, O1+11*
>> I1 LOOP1+1*, LOOP1+2, LOOP1+3, LOOP1+4, ADT1+2*, ADT1+3*, ADT1+5, ADT1+7, ADT1+8, ONE+8*
, TD5, O1+9*
>> I2 DGPTTS2+4*, LOOP1+1*, ONE+2*, ONE+4, ONE+5, ONE+6, ONE+7, ONE+8, O1+1, O1+4
, O1+5, O1+11
J ADT1+3*, ONE+4*, ONE+5*, ONE+6*, ONE+7*, LOL+1*, O1+2~, O1+5*, O1+6
J82 O1+2~, O1+4*, O1+6
>> LOL LOOP1+3, LOL*
>> LOP LOOP1+3, LOL*
>> NX DGPTTS2+4*, LOOP1*, LOOP1+1, LOOP1+3, ADT1+7, ADT1+8, ONE+8, LOL1, O1+9, Q*
>> PR LOOP1*, LOOP1+1, LOOP1+2, LOOP1+3, LOOP1+4, ONE+2, LOL1, Q
>> PTF DGPTTS2+5, DGPTTS2+7, LOOP1+3, ADT1, ADT1+1, ADT1+2, ADT1+3, ADT1+5, ONE+4, ONE+5
, ONE+6, ONE+7, TD5, ASIH+1
>> T( DGPTTS2+4*, LOOP1!*, LOOP1+1, LOOP1+2, LOOP1+4, ADT1+7*, ADT1+8, ONE+2, ONE+8, O1+9
, Q*
>> T(1 Q*
U DGPTTS2+4, LOOP1+1, LOOP1+2, LOOP1+3, LOOP1+4, ADT1+3, ADT1+7, ONE+2, ONE+4, ONE+5
, ONE+6, ONE+7, ONE+8, O1+9, O1+11, Q
X LOL1!
X1 LOL1*!
X2 LOL1*!
Y LOL1*!, CK+1, CK+2*
>> Z LOL1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All