Routine: DGRP2

Package	Total	Call Graph
Registration	4	($$DISP,$$POINT)^DG1010P0 ^DGRPP H^DGRPU (WW,WW1)^DGRPV
VA FileMan	3	NOW^%DTC $$EXTERNAL^DILFD GETS^DIQ
Kernel	1	$$FMDIFF^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
NEWB	;-- check patient DOB, if DOB<365 days, set marital status to "never married"

External References

Name	Field # of Occurrence
NOW^%DTC	NEWB+3
$$DISP^DG1010P0	DGRP2+11
$$POINT^DG1010P0	DGRP2+11
^DGRPP	DGRP2+77
H^DGRPU	DGRP2+4
WW^DGRPV	DGRP2+9, DGRP2+19, DGRP2+21, DGRP2+60, DGRP2+64
WW1^DGRPV	DGRP2+9
$$EXTERNAL^DILFD	DGRP2+60
GETS^DIQ	DGRP2+49, DGRP2+66
$$FMDIFF^XLFDT	NEWB+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Marital: " Line Location: DGRP2+9
Function Call: WRITE	Prompt: " Sex: " Line Location: DGRP2+10
Function Call: WRITE	Prompt: ?41,"POB: ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,29) Line Location: DGRP2+12
Function Call: WRITE	Prompt: !?4,"Religion: ",$S($D(^DIC(13,+$P(DGRPX,"^",8),0)):$P(^(0),"^",1),1:DGRPU),?41,"Father: ",$S($P(DGRP(.24),"^",1)]"":$E($P(DGRP(.24),"^",1),1,29),1:DGRPU) Line Location: DGRP2+14
Function Call: WRITE	Prompt: !?9,"SCI: ",X Line Location: DGRP2+15
Function Call: WRITE	Prompt: ?41,"Mother: ",$S($P(DGRP(.24),"^",2)]"":$E($P(DGRP(.24),"^",2),1,29),1:DGRPU) Line Location: DGRP2+16
Function Call: WRITE	Prompt: !,?35,"Mom's Maiden: ",$S($P(DGRP(.24),"^",3)]"":$E($P(DGRP(.24),"^",3),1,29),1:DGRPU) Line Location: DGRP2+17
Function Call: WRITE	Prompt: !?4,X,?28,X Line Location: DGRP2+18
Function Call: WRITE	Prompt: !?4,X,?28,X Line Location: DGRP2+19
Function Call: WRITE	Prompt: ?28,$S($D(^DIC(4,+I1,0)):$P(^(0),"^",1),1:DGRPU) Line Location: DGRP2+20
Function Call: WRITE	Prompt: ! Line Location: DGRP2+21
Function Call: WRITE	Prompt: " Ethnicity: " Line Location: DGRP2+21
Function Call: WRITE	Prompt: "UNANSWERED" Line Location: DGRP2+22
Function Call: WRITE	Prompt: !?15 Line Location: DGRP2+32
Function Call: WRITE	Prompt: X Line Location: DGRP2+33
Function Call: WRITE	Prompt: !?9,"Race: " Line Location: DGRP2+35
Function Call: WRITE	Prompt: "UNANSWERED" Line Location: DGRP2+36
Function Call: WRITE	Prompt: !?15 Line Location: DGRP2+46
Function Call: WRITE	Prompt: X Line Location: DGRP2+47
Function Call: WRITE	Prompt: !! Line Location: DGRP2+50
Function Call: WRITE	Prompt: "<4> Date of Death Information" Line Location: DGRP2+51
Function Call: WRITE	Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E")) Line Location: DGRP2+52
Function Call: WRITE	Prompt: ?41,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E")) Line Location: DGRP2+53
Function Call: WRITE	Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E")) Line Location: DGRP2+54
Function Call: WRITE	Prompt: ?41,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),! Line Location: DGRP2+55
Function Call: WRITE	Prompt: " Emergency Response: "_$$EXTERNAL^DILFD(2,.181,,DGEMRES) Line Location: DGRP2+60
Function Call: WRITE	Prompt: ! Line Location: DGRP2+63
Function Call: WRITE	Prompt: ?10,"Indian: " Line Location: DGRP2+64
Function Call: WRITE	Prompt: "UNANSWERED" Line Location: DGRP2+71
Function Call: WRITE	Prompt: DGIND1 Line Location: DGRP2+72
Function Call: WRITE	Prompt: ! Line Location: DGRP2+76

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	EXTERNAL^DILFD, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(10 - [#10]	DGRP2+41
^DIC(10.2 - [#10.2]	DGRP2+27
^DIC(10.3 - [#10.3]	DGRP2+29, DGRP2+43
^DIC(11 - [#11]	DGRP2+9
^DIC(13 - [#13]	DGRP2+14
^DIC(4 - [#4]	DGRP2+20
^DPT - [#2]	DGRP2+4, DGRP2+22, DGRP2+25, DGRP2+26, DGRP2+36, DGRP2+39, DGRP2+40, DGRP2+59, NEWB+2, NEWB+5*

Label References

Name	Line Occurrences
NEWB	DGRP2+3

Naked Globals

Name	Field # of Occurrence
^(	DGRP2+4
^(0	DGRP2+9, DGRP2+14, DGRP2+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DGRP2+4, DGRP2+22, DGRP2+25, DGRP2+26, DGRP2+36, DGRP2+39, DGRP2+40, DGRP2+49, DGRP2+52, DGRP2+53 , DGRP2+54, DGRP2+55, DGRP2+59, DGRP2+66, DGRP2+67, DGRP2+68, DGRP2+69, DGRP2+70, NEWB+2, NEWB+5
>> DGD	DGRP2+11*, DGRP2+12
>> DGD1	DGRP2+11*, DGRP2+12
DGEMRES	DGRP2+59~*, DGRP2+60
DGIND1	DGRP2+65~, DGRP2+67*, DGRP2+71, DGRP2+72
DGIND2	DGRP2+65~, DGRP2+68*, DGRP2+73
DGIND3	DGRP2+65~, DGRP2+69*, DGRP2+74, DGRP2+75
DGIND4	DGRP2+65~, DGRP2+70*, DGRP2+75
DGINDARR	DGRP2+65~
DGINDARR(2	DGRP2+67, DGRP2+68, DGRP2+69, DGRP2+70
>> DGNOCITY	DGRP2+11*, DGRP2+12
>> DGRP(	DGRP2+4*, DGRP2+14, DGRP2+16, DGRP2+17, DGRP2+19
>> DGRP(0	DGRP2+5, DGRP2+11
>> DGRP(57	DGRP2+15
>> DGRPS	DGRP2+4*
>> DGRPU	DGRP2+9, DGRP2+14, DGRP2+15, DGRP2+16, DGRP2+17, DGRP2+20
>> DGRPW	DGRP2+9*
>> DGRPX	DGRP2+5, DGRP2+9, DGRP2+14, DGRP2+19, DGRP2+20
>> DGUNK	DGRP2+11, DGRP2+12
DOB	NEWB+1~, NEWB+2*, NEWB+4
ETHNIC	DGRP2+23~, DGRP2+28, DGRP2+30, DGRP2+31, DGRP2+32, DGRP2+33, DGRP2+34
>> I	DGRP2+4, DGRP2+20, DGRP2+24, DGRP2+25, DGRP2+26, DGRP2+38, DGRP2+39, DGRP2+40
>> I1	DGRP2+20*
IOM	DGRP2+32, DGRP2+33, DGRP2+46, DGRP2+47
NODE	DGRP2+23~, DGRP2+26, DGRP2+27, DGRP2+29, DGRP2+37~, DGRP2+40, DGRP2+41, DGRP2+43
NOW	NEWB+1~, NEWB+3*, NEWB+4
NUM	DGRP2+23~, DGRP2+25, DGRP2+31, DGRP2+37~, DGRP2+39, DGRP2+45
PDTHINFO	DGRP2+56!
PDTHINFO(2	DGRP2+52, DGRP2+53, DGRP2+54, DGRP2+55
RACE	DGRP2+37~, DGRP2+42, DGRP2+44, DGRP2+45, DGRP2+46, DGRP2+47, DGRP2+48
>> X	DGRP2+15, DGRP2+19, DGRP2+27, DGRP2+28, DGRP2+29, DGRP2+30, DGRP2+33, DGRP2+41, DGRP2+42, DGRP2+43* , DGRP2+44, DGRP2+47*, NEWB+3
>> Z	DGRP2+9, DGRP2+19, DGRP2+21, DGRP2+60, DGRP2+64*
>> Z1	DGRP2+9*

Customize PDF page

Package: Registration

Routine: DGRP2

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: