Routine: DGPTR4

Package	Total	Call Graph
Registration	3	$$TSDATA^DGACT (CEN,START)^DGPTR1 ($$INACTIVE,$$PTR2CODE)^DGUTL4
DRG Grouper	2	$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG

Package	Total	Caller Graph
Registration	2	DGPTF4 DGPTR2

Entry Points

External References

Name	Field # of Occurrence
$$TSDATA^DGACT	701+5, J+14
CEN^DGPTR1	J+44
START^DGPTR1	SAVE
$$INACTIVE^DGUTL4	ETHNIC+8, RACE+8
$$PTR2CODE^DGUTL4	ETHNIC+9, ETHNIC+11, RACE+9, RACE+11
$$ICDDX^ICDCODE	J+3, J+5
$$GETDATE^ICDGTDRG	J+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	J+8, J+19, ADDQUES+3
^DIC(10 - [#10]	RACE+7
^DIC(10.2 - [#10.2]	ETHNIC+7
^DIC(45.6 - [#45.6]	701+10
^DIC(45.61 - [#45.61]	ADDQUES+4
^DIC(45.88 - [#45.88]	ADDQUES+3
^TMP("AEDIT"	702+6, SAVE+1
^XMB(3.9 - [#3.9]	J+44, 702+5, SAVE*

Label References

Name	Line Occurrences
$$RTEN	J+17
ADDQUES	J+20
CDR	J+10
ENTER	701+9, 701+10
ENTER0	701+7, J, J+16, J+17, ADDQUES+7, ADDQUES+9
ETHNIC	J+36
FILL	J+42, 702+4
J	701+8
RACE	J+37
SAVE	J+45

Naked Globals

Name	Field # of Occurrence
^(	J+8
^(0	701+10, J+8, ADDQUES+4
^(300	J+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DG02(	RACE+5, RACE+6
>> DG06(	ETHNIC+5, ETHNIC+6
>> DG3	J+17
>> DG70	701+1, 701+2, 701+8, J+1, J+3, J+4, J+8, J+23, J+25, J+27 , J+29, J+31, J+33, J+35, J+39, J+41
>> DG702	J+4, J+5, J+6, 702+1, 702+3, 702+7*
>> DG71	J+4
>> DGACNT	702+6, SAVE+1
DGADDQ	ADDQUES+1~, ADDQUES+2*, ADDQUES+3
DGARRX	701+4~, 701+5, J+13~, J+14
DGARRY	701+4~, 701+5, J+13~, J+14
DGARRY(7	701+6, J+15
DGAUX	J+19, J+21!, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> DGCNT	J+44, 702+5, SAVE*
DGDDX	701+1*, 701+7!
DGDRUG	J+21!, ADDQUES+4*, ADDQUES+5
>> DGERR	J+44, 702+5, 702+6, SAVE, SAVE+1
>> DGHEAD	701+1
>> DGPTDAT	J+2*, J+3, J+5
>> DGPTTMP	J+3, J+5
>> DGT	ADDQUES+7, ADDQUES+8, ADDQUES+9, ADDQUES+10
>> DGXLS	J+3*
>> DGXMZ	J+44, 702+5, SAVE
ETHNIC	ETHNIC+1~, ETHNIC+2, ETHNIC+10, ETHNIC+12*, ETHNIC+14
>> F	702+3*
I	ETHNIC+1~, ETHNIC+3, ETHNIC+5, ETHNIC+6, RACE+1~, RACE+3, RACE+5, RACE+6
>> J	J+2, J+8, J+19, ADDQUES+3
>> K	J+5, J+43, 702+3, FILL
>> L	701+7, 701+9, 701+10, J, J+4, J+5, J+16, J+17, ENTER, ENTER0 , ADDQUES+7, ADDQUES+9*
NODE	ETHNIC+1~, ETHNIC+6, ETHNIC+7, ETHNIC+8, ETHNIC+9, ETHNIC+11, RACE+1~, RACE+6, RACE+7, RACE+8 , RACE+9, RACE+11
NUM	ETHNIC+1~, ETHNIC+4, ETHNIC+5, ETHNIC+13, RACE+1~, RACE+4, RACE+5, RACE+13
RACE	RACE+1~, RACE+2, RACE+10, RACE+12, RACE+15, RACE+16
>> T1	701+1, J+43, J+44, J+45
U	701+5, 701+6, 701+8, 701+10, J+1, J+3, J+4, J+5, J+10, J+14 , J+15, J+17, J+25, J+27, J+29, J+31, J+33, J+35, J+39, J+41 , 702+3, 702+7, ENTER, ENTER0, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
X	701+2, 701+5, 701+6, 701+8, 701+10, J+8, J+10, J+14, J+15, J+17 , J+23, ENTER, ENTER0, ADDQUES+7, ADDQUES+9, RTEN~, RTEN+2, ETHNIC+1~, ETHNIC+9, ETHNIC+10 , ETHNIC+11, ETHNIC+12, RACE+1~, RACE+9, RACE+10, RACE+11, RACE+12, RACE+14, RACE+15
>> Y	701+1, 701+8, 701+10, J+1, J+3, J+6, J+25, J+27, J+29, J+31 , J+33, J+35, J+39, J+41, J+43, J+44, 702+2, 702+3, 702+5, 702+6 , ENTER, ENTER0, SAVE, SAVE+1, FILL, CDR, ADDQUES+5, ADDQUES+6, ADDQUES+8, ADDQUES+10* , ETHNIC+14, RACE+16
>> Z	701+7, 701+9, 701+10, J, J+8, J+10, J+16, J+17, ENTER, ENTER0 , CDR, ADDQUES+7, ADDQUES+9

Customize PDF page

Package: Registration

Routine: DGPTR4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

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
RTEN(X)	; This function will round X to the nearest mulitple of ten. ; 0-4 ->DOWN; 5-9->UP
ETHNIC	;-- Ethnicity (use first active value)
J
701	; -- setup 701 transaction
702	;
Q
RACE	;-- Race (use first 6 active values)
CDR
ENTER
SAVE
FILL