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

Package: Registration

Routine: DGPTR4


Information

DGPTR4 ;ALB/JDS/MJK/MTC/ADL - ALB/BOK PTF TRANSMISSION ; 11 JUL 05 @0800

Source Information

Source file <DGPTR4.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTF4  DGPTR2  

Entry Points

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

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All