Routine: DGPHIST

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Registration	2	^VADPT ($$NAME,$$SITE)^VASITE

Package	Total	Caller Graph
Registration	1	DG PH HIST

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	; page header
EN	;Entry point
PH(DGDFN1)	; does patient PH history exist
START	;
EXIT	;
DEVICE()	;select output device
DATA	;Build line data and print
GETDFN()	;Ask the user to select patient
GETPAT(DFN)	; get patient name and ssn

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+11
HOME^%ZIS	DEVICE+22, EXIT+4
^%ZISC	EXIT+4
^%ZTLOAD	DEVICE+20
$$S^%ZTLOAD	HEAD+2
^DIC	GETDFN+8
$$GET1^DIQ	DATA+10
^DIR	EN+10, DATA+32, HEAD+3
^VADPT	GETPAT+10
$$NAME^VASITE	START+5
$$SITE^VASITE	START+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is no Purple Heart history for patient "_$G(DGNAM)_"." Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),! Line Location: DEVICE+21
Function Call: WRITE	Prompt: !,$G(DGDATE),?10,$G(DGIND),?15,$G(DGSTAT),?27,$G(DGREM),?55,$E($G(DGUSER),1,24) Line Location: DATA+29
Function Call: WRITE	Prompt: !!?30,"End of Report." Line Location: DATA+30
Function Call: WRITE	Prompt: ! Line Location: DATA+31
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+5
Function Call: WRITE	Prompt: !!,"PURPLE HEART REQUEST HISTORY REPORT",?48,DGDT,?70,"Page: ",$G(DGPAGE) Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"STATION: "_$G(DGSTN) Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"DIVISION: ",DGDIV Line Location: HEAD+10
Function Call: WRITE	Prompt: !,"_____________________________________________________________________________" Line Location: HEAD+11
Function Call: WRITE	Prompt: !!,"Patient Name: "_$G(DGNAM),?55,"SSN: "_$G(DGSSN) Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"-----------------------------------------------------------------------------" Line Location: HEAD+13
Function Call: WRITE	Prompt: !!,"Date",?10,"PH?",?15,"Status",?27,"Remarks",?55,"Updated By" Line Location: HEAD+14
Function Call: WRITE	Prompt: !,"--------",?10,"---",?15,"----------",?27,"--------------------------",?55,"---------------" Line Location: HEAD+15
Routine Call	%ZIS Line Location: DEVICE+22 EXIT+4
Routine Call	DIC Line Location: GETDFN+8
Routine Call	DIR Line Location: EN+10 DATA+32 HEAD+3
Routine Call	%ZIS Line Location: DEVICE+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+6
^DPT - [#2]	PH+8, DATA+13, DATA+14

Label References

Name	Line Occurrences
$$DEVICE	EN+11
$$GETDFN	EN+2
$$GETPAT	EN+4
$$PH	EN+7
DATA	START+7
EXIT	EN+12, START+8
HEAD	DATA+11, DATA+17
START	EN+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+8~, DEVICE+10*, EXIT+3!
DFN	GETPAT~, GETPAT+9
DG1	DEVICE+20, DATA+8~, DATA+12, DATA+13*, DATA+14
DG2	DATA+8~, DATA+15, DATA+16, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
DGDATE	DATA+6~, DATA+18, DATA+19, DATA+29
DGDFN	EN+1~, EN+2*, EN+3, EN+4, EN+7, DATA+10, DATA+13, DATA+14
DGDFN1	PH~, PH+8
DGDIV	DATA+7~, DATA+10*, HEAD+10
DGDT	HEAD+1~, HEAD+6*, HEAD+8
DGDTN	START+2~, START+6*
DGIND	DATA+6~, DATA+20, DATA+21, DATA+29
DGLINE	DATA+6~
DGLINE(	DATA+14*, DATA+16, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
DGNAM	EN+1~, EN+6, EN+8, GETPAT+7~, GETPAT+8, GETPAT+11*, GETPAT+13, HEAD+12
DGPAGE	DATA+7~, DATA+9, HEAD+3, HEAD+7, HEAD+8
DGPAT	EN+1~, EN+4*, EN+5, EN+6
DGQUIT	DATA+7~, DATA+9, DATA+17, HEAD+2, HEAD+3*, HEAD+4
DGREM	DATA+6~, DATA+24, DATA+25, DATA+28, DATA+29
DGSITE	START+2~, START+3*, START+4
DGSSN	EN+1~, EN+6, GETPAT+7~, GETPAT+8, GETPAT+12*, GETPAT+13, HEAD+12
DGSTAT	DATA+6~, DATA+22, DATA+23, DATA+27, DATA+29
DGSTN	START+2~, START+4*, START+6, HEAD+9
DGSTNUM	START+2~, START+4*
DGSTTN	START+2~, START+5*, START+6
DGUSER	DATA+6~, DATA+26, DATA+27, DATA+28*, DATA+29
DIC	GETDFN+6~, GETDFN+7*
DIC(0	GETDFN+7*
DIR	EN+10!, DATA+32!, HEAD+3!
DIR(0	EN+10, DATA+32, HEAD+3*
DT	START+5, HEAD+6
IO	START+1
IO("Q"	DEVICE+13
IOF	HEAD+5
IOP	DEVICE+8~
IOSL	DATA+17
IOST	EN+10, DATA+32, HEAD+3
OK	DEVICE+8~, DEVICE+9, DEVICE+12, DEVICE+13, DEVICE+23*, DEVICE+24
POP	DEVICE+8~, DEVICE+12, EXIT+3!
U	EN+5, EN+6, GETPAT+12, PH+8, START+4, DATA+18, DATA+20, DATA+22, DATA+24, DATA+26
VADM	GETPAT+7~
VADM(1	GETPAT+11
VADM(2	GETPAT+12
X	GETDFN+6~
Y	GETDFN+6~, GETDFN+9, HEAD+3, HEAD+6*
ZTDESC	DEVICE+14~, DEVICE+16*
>> ZTQUEUED	HEAD+2, EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*
ZTRTN	DEVICE+14~, DEVICE+15*
ZTSAVE	DEVICE+14~
ZTSAVE("DGDFN"	DEVICE+17*
ZTSAVE("DGNAM"	DEVICE+18*
ZTSAVE("DGSSN"	DEVICE+19*
ZTSK	DEVICE+14~, DEVICE+20, DEVICE+21
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPHIST

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: