Routine: DGRPECE1

Package	Total	Call Graph
VA Fileman	3	(,FILE)^DIE $$GET1^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT (DELETE,SETUP)^XQALERT
MailMan	1	^XMD
Registration	1	$$SITE^VASITE
Uncategorized	1	$$GETICN^MPIF001

Package	Total	Caller Graph
Registration	1	DGRPECE2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;display catastrophic alert information
DATE4(X)	;return date in DD/MM/YYYY format
REVIEW	;
XQADATA	;XQADATA =
REMOVE	;
ALERT	;setup alert, display
MSG	;

External References

Name	Field # of Occurrence
^DIE	MSG+13
FILE^DIE	REVIEW+11
$$GET1^DIQ	DISP+25, DISP+26, DISP+27, DISP+30
^DIR	REVIEW+3, REVIEW+6, REMOVE+5
$$GETICN^MPIF001	DISP+9
$$SITE^VASITE	ALERT+14, MSG+12
$$FMTE^XLFDT	DISP+26
^XMD	MSG+13
DELETE^XQALERT	REMOVE+6
SETUP^XQALERT	ALERT+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DISP+4
Function Call: WRITE	Prompt: !,HDR2 Line Location: DISP+7
Function Call: WRITE	Prompt: !,"Patient: ",DGNAME_" (ICN:"_$$GETICN^MPIF001($P(XQADATA,U,12))_")",?60,"Station: ",$P(XQADATA,U,13) Line Location: DISP+9
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+10
Function Call: WRITE	Prompt: !,"Patient Identification fields (before edit)" Line Location: DISP+11
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+12
Function Call: WRITE	Prompt: !?1,"Name: ",$P(XQADATA,U),?45,"Soc. Security Number: ",$P(XQADATA,U,2) Line Location: DISP+13
Function Call: WRITE	Prompt: !?1,"Date of Birth: ",$$DATE4($P(XQADATA,U,3)),?45,"Gender: ",$S($P(XQADATA,U,4)="M":"MALE",$P(XQADATA,U,4)="F":"FEMALE",1:$P(XQADATA,U,4)) Line Location: DISP+14
Function Call: WRITE	Prompt: !?1,"Mother's Maiden Name: ",$P(XQADATA,U,5) Line Location: DISP+15
Function Call: WRITE	Prompt: !?1,"Place of Birth [city]: ",$P(XQADATA,U,6) Line Location: DISP+16
Function Call: WRITE	Prompt: !?1,"Place of Birth [state]: " Line Location: DISP+17
Function Call: WRITE	Prompt: $P(^DIC(5,$P(XQADATA,U,7),0),U) Line Location: DISP+17
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+18
Function Call: WRITE	Prompt: !,"Patient Identification fields (after edit)" Line Location: DISP+19
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+20
Function Call: WRITE	Prompt: ! Line Location: DISP+21
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(XQADATA,U,8),";",2)="" Line Location: DISP+21
Function Call: WRITE	Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";") Line Location: DISP+21
Function Call: WRITE	Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";") Line Location: DISP+21
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(XQADATA,U,9),";",2)="" Line Location: DISP+21
Function Call: WRITE	Prompt: ?45,"Soc. Security Number: ",$P($P(XQADATA,U,9),";") Line Location: DISP+21
Function Call: WRITE	Prompt: ! Line Location: DISP+22
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(XQADATA,U,10),";",2)="" Line Location: DISP+22
Function Call: WRITE	Prompt: ?1,"Date of Birth: ",$$DATE4($P($P(XQADATA,U,10),";")) Line Location: DISP+22
Function Call: WRITE	Prompt: ?44 Line Location: DISP+23
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(XQADATA,U,11),";",2)="" Line Location: DISP+23
Function Call: WRITE	Prompt: ?45,"Gender: ",$S($P($P(XQADATA,U,11),";")="M":"MALE",$P($P(XQADATA,U,11),";")="F":"FEMALE",1:"") Line Location: DISP+23
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+24
Function Call: WRITE	Prompt: !,"Edited by: ",$$GET1^DIQ(8992.1,+DGIEN_",",.05),?45,"Generated: ",$$FMTE^XLFDT(DGDATA,"2P") Line Location: DISP+26
Function Call: WRITE	Prompt: !,"With Option: ",DGDATA Line Location: DISP+28
Function Call: WRITE	Prompt: !,"Reviewed by: " Line Location: DISP+31
Function Call: WRITE	Prompt: $P(^VA(200,$P(DGDATA,U,15),0),U) Condition for execution: $P(DGDATA,U,15) Line Location: DISP+31
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DISP+33
Routine Call	DIE Line Location: MSG+13
Routine Call	DIE Line Location: REVIEW+11
Routine Call	DIR Line Location: REVIEW+3 REVIEW+6 REMOVE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	GET1^DIQ
^XTV(8992.1 - [#8992.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	DISP+17
^TMP($J	MSG+1!, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9, MSG+10, MSG+11* , MSG+12*, MSG+14!
^VA(200 - [#200]	DISP+31
^XTV(8992.1 - [#8992.1]	DISP+3
^XUSEC("DG CATASTROPHIC EDIT"	ALERT+4
^XUSEC("DG SUPERVISOR"	ALERT+6

Label References

Name	Line Occurrences
$$DATE4	DISP+14, DISP+22
MSG	ALERT+8
REMOVE	DISP+38
REVIEW	DISP+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEFORE(	ALERT+12
>> BUFFER(	ALERT+13
CNT	ALERT+2~, ALERT+12, ALERT+13
DA	MSG+13*, MSG+14!
DGANS	REVIEW+1~, REVIEW+3*, REVIEW+4
DGCE	REVIEW+1~, REVIEW+6*, REVIEW+9
DGDATA	DISP+1~, DISP+25, DISP+26, DISP+27, DISP+28, DISP+30, DISP+31, DISP+32, DISP+36, DISP+38 , REVIEW+8, REVIEW+9*, REVIEW+10
DGDUZ	ALERT+2~, ALERT+4, ALERT+6
DGI	ALERT+2~, ALERT+12, ALERT+13
DGIEN	DISP+1~, DISP+3*, DISP+25, DISP+26, DISP+30, REVIEW+10
DGNAME	DISP+1~, DISP+8*, DISP+9
DGRFLG	DISP+1~, DISP+35, DISP+36, REMOVE+3, REMOVE+4
DGSITE	ALERT+2~, ALERT+14*, ALERT+15
DIE	MSG+13*, MSG+14!
DIR	REVIEW+1~, REVIEW+3!, REVIEW+6!, REMOVE+1~, REMOVE+5!
DIR("A"	REVIEW+2, REVIEW+5, REMOVE+3, REMOVE+4
DIR("B"	REVIEW+3, REVIEW+6, REMOVE+5*
DIR(0	REVIEW+2, REVIEW+5, REMOVE+2*
DR	MSG+13*, MSG+14!
DUZ	REVIEW+8
FDA	REVIEW+7~
FDA(	REVIEW+10*
HDR	DISP+1~, DISP+5*, DISP+6
HDR1	DISP+1~, DISP+6*
HDR2	DISP+1~, DISP+6*, DISP+7
>> IEN	ALERT+14, ALERT+17
IOF	DISP+4
IOM	DISP+6, DISP+10, DISP+12, DISP+18, DISP+20, DISP+24, DISP+33
>> SAVE(	ALERT+13
U	ALERT+12, ALERT+13, ALERT+14, ALERT+15, DISP+8, DISP+9, DISP+13, DISP+14, DISP+15, DISP+16 , DISP+17, DISP+21, DISP+22, DISP+23, DISP+27, DISP+31, DISP+32, DISP+36, DISP+38, REVIEW+8 , REVIEW+9, MSG+12
X	DATE4~, DATE4+1, DATE4+2*, DATE4+3
XMDUZ	MSG+2*, MSG+14!
XMSUB	MSG+2*, MSG+14!
XMTEXT	MSG+13*, MSG+14!
XMY	MSG+14!
XMY(	ALERT+6*
XMY("G.MPIF E	XCEPTIONS" , ALERT+7*
XMZ	MSG+13, MSG+14!
XQA	ALERT+1!
XQA(	ALERT+4, ALERT+6
XQA(""	ALERT+5, ALERT+9
XQAARCH	ALERT+1!, ALERT+16*
XQADATA	ALERT+1!, ALERT+12, ALERT+13, ALERT+14, ALERT+15, DISP+8, DISP+9, DISP+13, DISP+14, DISP+15 , DISP+16, DISP+17, DISP+21, DISP+22, DISP+23, DISP+27
XQAID	ALERT+1!, ALERT+17*, DISP+3
XQAKILL	DISP+2!, DISP+39!, REMOVE+6*
XQAMSG	ALERT+1!, ALERT+10*
XQAROU	ALERT+1!, ALERT+16*
>> XQY	ALERT+15
Y	DISP+1~, REVIEW+3, REVIEW+6, REMOVE+1~, REMOVE+6

Customize PDF page

Package: Registration

Routine: DGRPECE1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: