Routine: DGPTR2

Package	Total	Call Graph
Registration	5	$$TSDATA^DGACT START^DGPTR1 FILL^DGPTR2 535^DGPTR3 701^DGPTR4
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG

Package	Total	Caller Graph
Registration	3	DGPTR0 DGPTR2 DGPTR3

Entry Points

External References

Name	Field # of Occurrence
$$TSDATA^DGACT	MOV+5, MOV+20, 601+6
START^DGPTR1	SAVE
FILL^DGPTR2	MOV+42
535^DGPTR3	535+1
701^DGPTR4	701+1
$$ICDDX^ICDCODE	MOV+11
$$ICDOP^ICDCODE	601+12
$$GETDATE^ICDGTDRG	601+12

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, MOV+15, MOV+16, MOV+27, 601, 601+1, ADDQUES+3
^DIC(45.61 - [#45.61]	ADDQUES+4
^DIC(45.88 - [#45.88]	ADDQUES+3
^TMP("AEDIT"	SAVE+1*
^UTILITY($J	PROC+1!, 601+1*, 601+2
^XMB(3.9 - [#3.9]	SAVE*

Label References

Name	Line Occurrences
535	501+4
601	601, 601+1, 601+14
701	601
ADDQUES	MOV+28
CDR	MOV+2, MOV+17
ENTER	MOV+10, 601+9
ENTER0	MOV+7, MOV+9, MOV+22, 601+8, 601+10, ADDQUES+7, ADDQUES+9
FILL	601+14
MOV	501+7
SAVE	MOV+42, 601+14

Naked Globals

Name	Field # of Occurrence
^(	501+3, 501+4, MOV+15, MOV+16, 601, 601+1, 601+3
^(0	501+3, 501+5, MOV+15, MOV+16, ADDQUES+4
^(300	MOV+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DG502	MOV+10*
>> DG57	MOV+10
>> DG70	MOV+24, MOV+25
>> DGACNT	SAVE+1*
DGADDQ	ADDQUES+1~, ADDQUES+2*, ADDQUES+3
DGAO	501+5*, MOV+32, MOV+41!
DGARRX	MOV+4~, MOV+5, MOV+19~, MOV+20, 601+5~, 601+6*
DGARRY	MOV+4~, MOV+5, MOV+19~, MOV+20, 601+5~, 601+6
DGARRY(7	MOV+6, MOV+21, 601+7
DGAUX	MOV+27, MOV+41!, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> DGCDR	MOV*, MOV+2
DGCMVT	501+3!*, 501+6
>> DGCNT	SAVE*
DGDRUG	MOV+41!, ADDQUES+4*, ADDQUES+5
DGEC	501+5*, MOV+36, MOV+41!
>> DGERR	601+2*, SAVE, SAVE+1
>> DGHEAD	MOV+1, 601+3
DGHNC	501+5*, MOV+40, MOV+41!
DGIR	501+5*, MOV+34, MOV+41!
>> DGM	501+5, 501+7, MOV, MOV+5, MOV+6*, MOV+7, MOV+11
DGMST	501+5*, MOV+38, MOV+41!
>> DGPROC	601, 601+1, 601+11, 601+12
>> DGPROCD	601+1*, 601+2, 601+3
DGPTMVDT	501+2~, 501+5*, MOV+11
>> DGPTTMP	MOV+11, MOV+12, 601+12, 601+13
DGSC	501+5*, MOV+30, MOV+41!
>> DGT	ADDQUES+7, ADDQUES+8, ADDQUES+9, ADDQUES+10
>> DGTD	501+5, 501+6, 501+7, MOV+1, MOV+15, MOV+16, MOV+24
>> DGXMZ	SAVE
>> F	MOV+12*
>> I	501+4, 501+6, MOV+10, MOV+15, MOV+24, MOV+25, MOV+27, PROC+1, 601*, 601+1
>> J	501+3, 501+4, MOV+15, MOV+16, MOV+27, 601, 601+1, 601+12, ADDQUES+3
>> K	601+11, 601+12, FILL*
>> L	MOV, MOV+7, MOV+9, MOV+10, MOV+22, 601+8, 601+9, 601+10, 601+11, ENTER , ENTER0, ADDQUES+7, ADDQUES+9*
>> T1	501+7, MOV+1, MOV+15, MOV+16, MOV+24, MOV+25, 601+1, 601+3
>> T2	501+3, 501+6, 501+7, MOV+24, 601+1
U	501+5, 501+7, MOV, MOV+5, MOV+6, MOV+9, MOV+11, MOV+12, MOV+17, MOV+20 , MOV+21, MOV+24, MOV+25, 601+6, 601+7, 601+9, 601+11, 601+12, 601+13, ENTER , ENTER0, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> X	MOV+1, MOV+7, MOV+9, MOV+10, MOV+14, MOV+15, MOV+16, MOV+17, MOV+20, MOV+21 , 601, 601+3, 601+6, 601+7, 601+9, ENTER, ENTER0, ADDQUES+7, ADDQUES+9*
>> Y	MOV+1, MOV+10, MOV+12, MOV+13, MOV+24, MOV+25, MOV+30, MOV+32, MOV+34, MOV+36* , MOV+38, MOV+40, 601+3, 601+13, ENTER, ENTER0, SAVE, SAVE+1, FILL, CDR , ADDQUES+5, ADDQUES+6, ADDQUES+8, ADDQUES+10
>> Z	MOV, MOV+2, MOV+7, MOV+9, MOV+10, MOV+11, MOV+15, MOV+16, MOV+17, MOV+22 , 601+8, 601+9, 601+10, ENTER, ENTER0, CDR, ADDQUES+7, ADDQUES+9*

Customize PDF page

Package: Registration

Routine: DGPTR2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ENTER0
ADDQUES	;-- additional PTF questions load records for trans 501/701
601
701	; -- setup 701 transaction
MOV
Q
535	; -- do 535's
CDR
ENTER
FILL
SAVE
PROC	; -- setup 601 transactions
501	; -- setup 501 transactions ; DG*636