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/TJ/BOK,HIOFO/FT - PTF TRANSMISSION ;5/11/15 4:52pm

Source Information

Source file <DGPTR4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 5 $$TSDATA^DGACT  EFFDATE^DGPTIC10  CEN^DGPTR1  (FILL,FILL384,SAVE)^DGPTR2  ($$INACTIVE,$$PTR2CODE)^DGUTL4  
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: 2

Package Total Caller Graph
Registration 2 DGPTF4  DGPTR2  

Entry Points

Name Comments DBIA/ICR reference
701 ; -- setup 701 transaction
J
702 ;
ENTER
ENTER0
SAVE ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
Q ;
SAVE70X ;pad with spaces, set 383rd character & save to MailMan message.
CDR
ADDQUES ;-- additional PTF questions load records for trans 501/701
RTEN(X) ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP
ETHNIC ;-- Ethnicity (use first active value)
RACE ;-- Race (use first 6 active values)

External References

Name Field # of Occurrence
$$TSDATA^DGACT 701+5, J+15
EFFDATE^DGPTIC10 J+2
CEN^DGPTR1 J+45
FILL^DGPTR2 J+43, 702+4
FILL384^DGPTR2 SAVE70X+2
SAVE^DGPTR2 SAVE+1
$$INACTIVE^DGUTL4 ETHNIC+8, RACE+8
$$PTR2CODE^DGUTL4 ETHNIC+9, ETHNIC+11, RACE+9, RACE+11
$$ICDDATA^ICDXCODE J+3, J+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] J+9, J+20, 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*
^XMB(3.9 - [#3.9] SAVE70X+4*, SAVE70X+5*

Label References

Name Line Occurrences
$$RTEN J+18
ADDQUES J+21
CDR J+11
ENTER 701+9, 701+10
ENTER0 701+7, J, J+17, J+18, ADDQUES+7, ADDQUES+9
ETHNIC J+37
J 701+8
RACE J+38
SAVE J+46
SAVE70X J+45, 702+5

Naked Globals

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

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+18
>> DG70 701+1, 701+2, 701+8, J+1, J+3, J+5, J+9, J+24, J+26, J+28
, J+30, J+32, J+34, J+36, J+40, J+42
>> DG702 J+5*, J+6*, J+7, 702+1, 702+3, 702+7*
>> DG71 J+5
>> DGACNT 702+6*
DGADDQ ADDQUES+1~, ADDQUES+2*, ADDQUES+3
DGARRX 701+4~, 701+5*, J+14~, J+15*
DGARRY 701+4~, 701+5, J+14~, J+15
DGARRY(7 701+6, J+16
DGAUX J+20*, J+22!, ADDQUES+3*, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9
>> DGCNT SAVE70X+4*, SAVE70X+5*
DGDDX 701+1*, 701+7!
DGDRUG J+22!, ADDQUES+4*, ADDQUES+5
>> DGERR J+45, 702+5, 702+6
>> DGHEAD 701+1
DGPTDAT J+2~
>> DGPTTMP J+3*, J+4, J+6*
>> DGT ADDQUES+7*, ADDQUES+8, ADDQUES+9*, ADDQUES+10
>> DGXLS J+4*
>> DGXMZ SAVE70X+4, SAVE70X+5
DGY1 SAVE70X+1~, SAVE70X+3*, SAVE70X+4
DGY2 SAVE70X+1~, SAVE70X+3*, SAVE70X+5
EFFDATE J+2~, J+3, J+6
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
IMPDATE J+2~
>> J J+2, J+9, J+20, ADDQUES+3
>> K J+6*, J+44*, 702+3*
>> L 701+7*, 701+9*, 701+10*, J*, J+5*, J+6, J+17*, J+18*, 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+44, J+45, J+46
U 701+5, 701+6, 701+8, 701+10, J+1, J+3, J+4, J+5, J+6, J+11
, J+15, J+16, J+18, J+26, J+28, J+30, J+32, J+34, J+36, J+40
, J+42, 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+9*, J+11, J+15, J+16*, J+18*
, J+24*, 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+4*, J+7*, J+26*, J+28*, J+30*, J+32*
, J+34*, J+36*, J+40*, J+42*, J+44*, 702+2*, 702+3*, 702+6, ENTER*, ENTER0*
, SAVE70X+3, CDR*, ADDQUES+5*, ADDQUES+6*, ADDQUES+8*, ADDQUES+10*, ETHNIC+14*, RACE+16*
>> Z 701+7*, 701+9*, 701+10*, J*, J+9*, J+11*, J+17*, J+18*, 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