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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTR2

Package: Registration

Routine: DGPTR2


Information

DGPTR2 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,HIOFO/FT - PTF TRANSMISSION ;4/20/15 9:59am

Source Information

Source file <DGPTR2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 5 $$TSDATA^DGACT  EFFDATE^DGPTIC10  START^DGPTR1  535^DGPTR3  701^DGPTR4  
DRG Grouper 1 $$ICDDATA^ICDXCODE  

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: 3

Package Total Caller Graph
Registration 3 DGPTR0  DGPTR3  DGPTR4  

Entry Points

Name Comments DBIA/ICR reference
501 ; -- setup 501 transactions
; DG*636
MOV
535 ; -- do 535's
PROC ; -- setup 601 transactions
601
701 ; -- setup 701 transaction
ENTER
ENTER0
SAVE ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
Q
FILL ;pad with spaces to 125 characters (so DGPTR1 data checks work)
FILL384 ;pad out with spaces to 384 characters for AITC transmission
CDR
ADDQUES ;-- additional PTF questions load records for trans 501/701

External References

Name Field # of Occurrence
$$TSDATA^DGACT MOV+5, MOV+22, 601+6
EFFDATE^DGPTIC10 MOV+11, 601+11
START^DGPTR1 SAVE+3
535^DGPTR3 535+1
701^DGPTR4 701+1
$$ICDDATA^ICDXCODE MOV+12, 601+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"More than one procedure record on same date/time"
  • Line Location: 601+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] 501+3, 501+4, 501+5, MOV+17, MOV+18, MOV+29, 601, 601+1, ADDQUES+3
^DIC(45.61 - [#45.61] ADDQUES+4
^DIC(45.88 - [#45.88] ADDQUES+3
^TMP("AEDIT" SAVE+4*
^UTILITY($J PROC+1!, 601+1*, 601+2
^XMB(3.9 - [#3.9] SAVE+17*, SAVE+18*

Label References

Name Line Occurrences
535 501+5
601 601, 601+1, 601+16
701 601
ADDQUES MOV+30
CDR MOV+2, MOV+19
ENTER MOV+10, 601+9
ENTER0 MOV+7, MOV+9, MOV+24, 601+8, 601+10, ADDQUES+7, ADDQUES+9
FILL MOV+44, 601+16
FILL384 SAVE+8
MOV 501+8
SAVE MOV+44, 601+16

Naked Globals

Name Field # of Occurrence
^( 501+4, 501+5, MOV+17, MOV+18, 601, 601+1
^(0 501+4, 501+6, MOV+17, MOV+18, ADDQUES+4
^(300 MOV+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DG502 MOV+10*
>> DG57 MOV+10
>> DG70 MOV+26, MOV+27
>> DGACNT SAVE+4*
DGADDQ ADDQUES+1~, ADDQUES+2*, ADDQUES+3
DGAO 501+6*, MOV+34, MOV+43!
DGARRX MOV+4~, MOV+5*, MOV+21~, MOV+22*, 601+5~, 601+6*
DGARRY MOV+4~, MOV+5, MOV+21~, MOV+22, 601+5~, 601+6
DGARRY(7 MOV+6, MOV+23, 601+7
DGAUX MOV+29*, MOV+43!, ADDQUES+3*, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> DGCDR MOV*, MOV+2
DGCMVT 501+4!*, 501+7
>> DGCNT SAVE+17*, SAVE+18*
DGDRUG MOV+43!, ADDQUES+4*, ADDQUES+5
DGEC 501+6*, MOV+38, MOV+43!
>> DGERR 601+2*, SAVE+4, SAVE+7
>> DGHEAD MOV+1, 601+3
DGHNC 501+6*, MOV+42, MOV+43!
DGIR 501+6*, MOV+36, MOV+43!
>> DGM 501+6*, 501+8, MOV*, MOV+5, MOV+6*, MOV+7, MOV+12
DGMST 501+6*, MOV+40, MOV+43!
>> DGPROC 601*, 601+1, 601+12*, 601+13
>> DGPROCD 601+1*, 601+2, 601+3
DGPTDAT MOV+11~, 601+11~
DGPTEDT MOV+14!, 601+15!
DGPTMVDT 501+2~, 501+6*
>> DGPTTMP MOV+12*, MOV+13, 601+13*, 601+14
DGSC 501+6*, MOV+32, MOV+43!
>> DGT ADDQUES+7*, ADDQUES+8, ADDQUES+9*, ADDQUES+10
>> DGTD 501+6*, 501+7*, 501+8, MOV+1, MOV+17, MOV+18, MOV+26
>> DGXMZ SAVE+17, SAVE+18
DGY1 SAVE+1~, SAVE+2*, SAVE+9*, SAVE+10*, SAVE+11*, SAVE+12*, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16
, SAVE+17
DGY2 SAVE+1~, SAVE+2*, SAVE+9*, SAVE+10*, SAVE+11*, SAVE+12*, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16
, SAVE+18
EFFDATE MOV+11~, MOV+12, 601+11~, 601+13
>> F MOV+13*
>> I 501+5*, 501+7, MOV+10, MOV+17, MOV+26, MOV+27, MOV+29, PROC+1*, 601*, 601+1
IMPDATE MOV+11~, 601+11~
>> J 501+3, 501+4, 501+5, MOV+11, MOV+17, MOV+18, MOV+29, 601, 601+1, 601+11
, ADDQUES+3
>> K 601+12*, 601+13*, FILL+1*, FILL384+1*
>> L MOV*, MOV+7*, MOV+9*, MOV+10*, MOV+24*, 601+8*, 601+9*, 601+10*, 601+12*, ENTER
, ENTER0, ADDQUES+7*, ADDQUES+9*
>> T1 501+8, MOV+1, MOV+17, MOV+18, MOV+26, MOV+27, 601+1, 601+3
>> T2 501+4, 501+7, 501+8, MOV+26, 601+1
U 501+6, 501+8, MOV, MOV+5, MOV+6, MOV+9, MOV+12, MOV+13, MOV+19, MOV+22
, MOV+23, MOV+26, MOV+27, 601+6, 601+7, 601+9, 601+12, 601+13, 601+14, ENTER
, ENTER0, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> X MOV+1*, MOV+7*, MOV+9*, MOV+10*, MOV+16*, MOV+17*, MOV+18*, MOV+19, MOV+22, MOV+23*
, 601*, 601+3, 601+6, 601+7*, 601+9*, ENTER, ENTER0, ADDQUES+7*, ADDQUES+9*
>> Y MOV+1*, MOV+10, MOV+13*, MOV+15*, MOV+26*, MOV+27*, MOV+32*, MOV+34*, MOV+36*, MOV+38*
, MOV+40*, MOV+42*, 601+3*, 601+14*, ENTER*, ENTER0*, SAVE+4, SAVE+9, SAVE+10, SAVE+11
, SAVE+12, SAVE+13, SAVE+14, SAVE+15, FILL+1*, FILL384+1*, FILL384+2*, CDR*, ADDQUES+5*, ADDQUES+6*
, ADDQUES+8*, ADDQUES+10*
>> Z MOV*, MOV+2*, MOV+7*, MOV+9*, MOV+10*, MOV+12*, MOV+17*, MOV+18*, MOV+19*, MOV+24*
, 601+8*, 601+9*, 601+10*, ENTER, ENTER0, CDR, ADDQUES+7*, ADDQUES+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All