Routine: DGRPECE2

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC $$GET1^DIQ ^DIR
Registration	3	$$DATE4^DGRPECE1 START^DGRPECE2 (CLOSE,ZIS)^DGUTQ
Kernel	2	$$FMTE^XLFDT ALERTDAT^XQALBUTL
Uncategorized	1	$$GETICN^MPIF001

Package	Total	Caller Graph
Registration	2	DG PATIENT CE REPORT DGRPECE2

Entry Points

External References

Name	Field # of Occurrence
^%DT	FDT1, LDT
NOW^%DTC	START+2
$$DATE4^DGRPECE1	DETAIL+14, DETAIL+22
START^DGRPECE2	LDT+4
CLOSE^DGUTQ	LDT+5, QUIT
ZIS^DGUTQ	LDT+4
$$GET1^DIQ	START+11, START+13, DETAIL+7, DETAIL+27
^DIR	FMT+5, FMT+13, SUMMARY+5, RET
$$GETICN^MPIF001	START+16
$$FMTE^XLFDT	START+2, HEAD+2
ALERTDAT^XQALBUTL	DETAIL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"*CATASTROPHIC EDIT ALERTS ARE ONLY RETAINED FOR 365 DAYS.*" Line Location: FDT+0
Function Call: WRITE	Prompt: ! Line Location: LDT+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending date must be after beginning date!" Line Location: LDT+1
Function Call: WRITE	Prompt: !!,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS POSTED: ",DGTA Line Location: SUMMARY+1
Function Call: WRITE	Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS REVIEWED: ",DGTR Line Location: SUMMARY+2
Function Call: WRITE	Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS DETERMINED TO BE CATASTROPHIC: ",DGTC Line Location: SUMMARY+3
Function Call: WRITE	Prompt: !!,$TR($J("",IOM)," ","*") Line Location: DETAIL+1
Function Call: WRITE	Prompt: !?(IOM-$L(HDRS)/2),HDRS,! Line Location: DETAIL+3
Function Call: WRITE	Prompt: ! Line Location: DETAIL+9
Function Call: WRITE	Prompt: !,"Patient: "_$P($P(DGA(2),U,8),";")_" (ICN: "_DGICN_")",?60,"Station: ",$P(DGA(2),U,13) Line Location: DETAIL+10
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: DETAIL+11
Function Call: WRITE	Prompt: !?3,"Patient Identification (before edit)" Line Location: DETAIL+12
Function Call: WRITE	Prompt: !?4,"Name: ",$P(DGA(2),U),?45,"Soc. Security Number: ",$P(DGA(2),U,2) Line Location: DETAIL+13
Function Call: WRITE	Prompt: !?4,"Date of Birth: ",$$DATE4^DGRPECE1($P(DGA(2),U,3)),?45,"Gender: ",$S($P(DGA(2),U,4)="M":"MALE",$P(DGA(2),U,4)="F":"FEMALE",1:$P(DGA(2),U,4)) Line Location: DETAIL+14
Function Call: WRITE	Prompt: !?4,"Mother's Maiden Name: ",$P(DGA(2),U,5) Line Location: DETAIL+15
Function Call: WRITE	Prompt: !?4,"Place of Birth [city]: ",$P(DGA(2),U,6) Line Location: DETAIL+16
Function Call: WRITE	Prompt: !?4,"Place of Birth [state]: " Line Location: DETAIL+17
Function Call: WRITE	Prompt: $P(^DIC(5,$P(DGA(2),U,7),0),U) Line Location: DETAIL+17
Function Call: WRITE	Prompt: ! Line Location: DETAIL+18
Function Call: WRITE	Prompt: !?3,"Patient Identification fields (after edit)" Line Location: DETAIL+19
Function Call: WRITE	Prompt: !?3 Line Location: DETAIL+20
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(DGA(2),U,8),";",2)="" Line Location: DETAIL+20
Function Call: WRITE	Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";") Line Location: DETAIL+20
Function Call: WRITE	Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";") Line Location: DETAIL+20
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(DGA(2),U,9),";",2)="" Line Location: DETAIL+20
Function Call: WRITE	Prompt: ?45,"Soc. Security Number: ",$P($P(DGA(2),U,9),";") Line Location: DETAIL+20
Function Call: WRITE	Prompt: !?3 Line Location: DETAIL+22
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(DGA(2),U,10),";",2)="" Line Location: DETAIL+22
Function Call: WRITE	Prompt: ?4,"Date of Birth: ",$$DATE4^DGRPECE1($P($P(DGA(2),U,10),";")) Line Location: DETAIL+22
Function Call: WRITE	Prompt: ?44 Line Location: DETAIL+23
Function Call: WRITE	Prompt: "" Condition for execution: $P($P(DGA(2),U,11),";",2)="" Line Location: DETAIL+23
Function Call: WRITE	Prompt: ?45,"Gender: ",$S($P($P(DGA(2),U,11),";")="M":"MALE",$P($P(DGA(2),U,11),";")="F":"FEMALE",1:"") Line Location: DETAIL+23
Function Call: WRITE	Prompt: ! Line Location: DETAIL+25
Function Call: WRITE	Prompt: !?3,"Edited by: ",$P(DGA(.05),U,2),?45,"Generated: ",$P(DGA(.02),U,2) Line Location: DETAIL+26
Function Call: WRITE	Prompt: !?3,"With Option: ",$$GET1^DIQ(19,+$P(DGA(2),U,14)_",",.01) Line Location: DETAIL+27
Function Call: WRITE	Prompt: !?3,"Reviewed by: " Line Location: DETAIL+28
Function Call: WRITE	Prompt: $P(^VA(200,$P(DGA(2),U,15),0),U) Condition for execution: $P(DGA(2),U,15) Line Location: DETAIL+28
Function Call: WRITE	Prompt: ! Line Location: DETAIL+31
Function Call: WRITE	Prompt: @IOF,?(IOM-($L(DGDT)+7+$L(DGPG))),DGDT," PAGE ",DGPG,! Line Location: HEAD+0
Function Call: WRITE	Prompt: ?(IOM-$L(HDR)/2),HDR,! Line Location: HEAD+1
Function Call: WRITE	Prompt: ?(IOM-$L(DGT)/2),DGT Line Location: HEAD+3
Function Call: WRITE	Prompt: !?(IOM-$L(HDR2)/2),HDR2 Line Location: HEAD+4
Function Call: WRITE	Prompt: !,$TR($J("",IOM-$X)," ","*") Line Location: HEAD+5
Routine Call	DIR Line Location: FMT+5 FMT+13 SUMMARY+5 RET

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)
^DD("DD"	FDT1+1, LDT+2
^DIC(5 - [#5]	DETAIL+17
^TMP($J	START+9!, START+18, START+20, START+22*, SUMMARY+4, DETAIL+4, DETAIL+5, DETAIL+6
^VA(200 - [#200]	DETAIL+28
^XTV(8992.1 - [#8992.1]	START+10

Label References

Name	Line Occurrences
CHKL	DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18 , DETAIL+19, DETAIL+21, DETAIL+24, DETAIL+25, DETAIL+26, DETAIL+27, DETAIL+30, DETAIL+31
FDT1	FDT1+1
HEAD	START+24, CHKL
LDT	LDT+1
QUIT	SUMMARY+4
RET	CHKL

Naked Globals

Name	Field # of Occurrence
^(	START+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+2
%DT	FDT1*, LDT+5!
%DT("A"	FDT1, LDT
DGA	START+1~
DGA(	DETAIL+26
DGA(2	DETAIL+10, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+22, DETAIL+23, DETAIL+27 , DETAIL+28, DETAIL+29
DGADT	START+1~, DETAIL+5*, DETAIL+6
DGBEG	FDT1+1*, LDT+1, LDT+5!, START+8, HEAD+2
DGDATA	START+1~, START+13*, START+14, START+15, START+16, START+19, START+21
DGDT	START+1~, START+2*, HEAD
DGEDT	START+1~, START+8*, START+10
DGEND	LDT+2*, LDT+5!, START+8, HEAD+2
DGFMT	DGRPECE2+3~, FMT+6*, FMT+7, LDT+3, LDT+5!, START+4, START+5, START+6, SUMMARY+4
DGFMTD	DGRPECE2+3~, FMT+6, FMT+14, LDT+5!, START+6, START+17, START+19, START+21
DGICN	START+1~, START+16, START+18, START+20, START+22, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+10
DGIEN	START+1~, START+10, START+11, START+13, START+18, START+20, START+22, DETAIL+6, DETAIL+7
DGPG	START+1~, START+9, HEAD
DGPGM	LDT+4*, LDT+5!
DGQUIT	START+1~, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14 , DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+21, DETAIL+24, DETAIL+25, DETAIL+26, DETAIL+27 , DETAIL+30, DETAIL+31, CHKL, RET
DGS1	FDT1+1, LDT+2, LDT+5!
DGSDT	START+1~, START+8, START+10, START+18, START+20, START+22
DGT	START+1~, HEAD+2*, HEAD+3
DGTA	START+1~, START+9, START+12, SUMMARY+1
DGTAG	LDT+3*, LDT+5!
DGTC	START+1~, START+9, START+15, SUMMARY+3
DGTR	START+1~, START+9, START+14, SUMMARY+2
DGVAR	LDT+4*, LDT+5!
DIR	DGRPECE2+3~, FMT!, FMT+8!, LDT+5!, START+1~, SUMMARY+5!, RET!
DIR("?"	FMT+1, FMT+2, FMT+3, FMT+4, FMT+9, FMT+10, FMT+11, FMT+12
DIR("A"	FMT, FMT+8
DIR("B"	FMT+5, FMT+13
DIR(0	FMT, FMT+8, SUMMARY+5!, RET!
DIRUT	FMT+5, QUIT!, RET
DTOUT	FDT1, LDT, QUIT!
HDR	START+1~, START+3, START+4, START+5*, HEAD+1
HDR2	START+1~, START+6*, HEAD+4
HDRS	START+1~, DETAIL+2*, DETAIL+3
IO	LDT+4
IOF	HEAD
IOM	DETAIL+1, DETAIL+3, DETAIL+11, HEAD, HEAD+1, HEAD+3, HEAD+4, HEAD+5
IOSL	CHKL
IOST	SUMMARY+5, CHKL
POP	LDT+4, LDT+5!
U	FDT1, FDT1+1, LDT, LDT+1, LDT+2, START+14, START+15, START+16, START+19, START+21 , DETAIL+10, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+22, DETAIL+23, DETAIL+26 , DETAIL+27, DETAIL+28, DETAIL+29
X	FDT1, LDT, LDT+5!
XQAID	START+1~, DETAIL+7*, DETAIL+8
Y	FMT+6, FMT+14, FDT1+1, LDT+1, LDT+2, LDT+5!, START+2*

Customize PDF page

Package: Registration

Routine: DGRPECE2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
QUIT
HEAD
FMT
FDT1
DETAIL	;Print detail
RET
SUMMARY	;print summary
CHKL
START	;
FDT
LDT