Routine: DPTDZFCH

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS Patient Registration	1	START^AGFACE
Kernel	1	^%ZIS
Patient Care Component	1	EN^APCHS

Entry Points

Name	Comments	DBIA/ICR reference
END	;END OF JOB
DEVICEX
GETOK	;
GETFROM	;get the from patient (DFN)
DEVICE	;
ASKX
FACE	;
START	;
CHGCHART	;change chart number
ASK	;
DISPLAY2	; print new chart info, face sheet and health summary
GETSITE	; GET the site for the chart number to be switched
HEALTH	;
DISPLAY	;DISPLAY CURRENT CHART NUMBERS

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+2
START^AGFACE	FACE+3
EN^APCHS	HEALTH+4
^DIC	GETSITE+2, ASK+9
^DIE	CHGCHART+2, CHGCHART+4
^DIR	GETFROM+3, GETOK+3, ASK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: START+1
Function Call: WRITE	Prompt: !,"This program will switch chart numbers for patients who have been merged ",!,"together and who have had the wrong chart number kept for the patient.",!! Line Location: START+1
Function Call: WRITE	Prompt: !,"Okay, Bye!!" Line Location: START+8
Function Call: WRITE	Prompt: ! Line Location: GETFROM+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"That patient does not exist!!" Line Location: GETFROM+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"That patient has NOT been merged away!!" Line Location: GETFROM+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The 'From' patient, ",$P(^DPT(DPTDZFCH("FROM"),0),U)," does not have a chart at that facility." Line Location: GETSITE+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The 'To' patient, ",$P(^DPT(DPTDZFCH("TO"),0),U)," does not have a chart at that facility." Line Location: GETSITE+5
Function Call: WRITE	Prompt: !!?28,"Current Chart Number Data" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!,"From DFN: ",DPTDZFCH("FROM"),?22,"Name: ",$P(^DPT(DPTDZFCH("FROM"),0),U),?59,"Chart No.: ",DPTDZFCH("FROM CHART") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !," To DFN: ",DPTDZFCH("TO"),?22,"Name: ",$P(^DPT(DPTDZFCH("TO"),0),U),?59,"Chart No.: ",DPTDZFCH("TO CHART") Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !!,"I will switch the chart numbers listed above.",! Line Location: GETOK+2
Function Call: WRITE	Prompt: !!,"Okay, I won't" Line Location: GETOK+5
Function Call: WRITE	Prompt: !!,"OOPS.. Changing the From patient chart number failed in DIE!" Line Location: CHGCHART+3
Function Call: WRITE	Prompt: !!,"OOPS.. Changing the To patient chart number failed in DIE!" Line Location: CHGCHART+5
Function Call: WRITE	Prompt: !!?30,"NEW Chart Number Data" Line Location: DISPLAY2+1
Function Call: WRITE	Prompt: !!,"From DFN: ",DPTDZFCH("FROM"),?22,"Name: ",$P(^DPT(DPTDZFCH("FROM"),0),U),?59,"Chart No.: ",$P(^AUPNPAT(DPTDZFCH("FROM"),41,DPTDZFCH("CHART SITE"),0),U,2) Line Location: DISPLAY2+2
Function Call: WRITE	Prompt: !," To DFN: ",DPTDZFCH("TO"),?22,"Name: ",$P(^DPT(DPTDZFCH("TO"),0),U),?59,"Chart No.: ",$P(^AUPNPAT(DPTDZFCH("TO"),41,DPTDZFCH("CHART SITE"),0),U,2) Line Location: DISPLAY2+3
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Routine Call	DIE Line Location: CHGCHART+2 CHGCHART+4
Routine Call	DIC Line Location: GETSITE+2 ASK+9
Routine Call	DIR Line Location: GETFROM+3 GETOK+3 ASK+5
Routine Call	%ZIS Line Location: DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	HEALTH+1, FACE+1
^APCHSCTL("B"	ASK+9
^AUPNPAT - [#9000001]	GETSITE+4, GETSITE+5, GETSITE+7, GETSITE+8, DISPLAY2+2, DISPLAY2+3
^AUTTSITE(1	ASK+4
^DPT - [#2]	GETFROM+5, GETFROM+6, GETFROM+7, GETSITE+4, GETSITE+5, DISPLAY+3, DISPLAY+4, DISPLAY2+2, DISPLAY2+3

Label References

Name	Line Occurrences
ASK	DISPLAY2+5
ASKX	ASK+6, ASK+7
CHGCHART	START+9
DEVICE	DISPLAY2+7
DEVICEX	DEVICE+3
DISPLAY	START+6
DISPLAY2	START+10
END	START+3, START+5, START+8, DISPLAY2+5, DISPLAY2+7
FACE	DISPLAY2+9
GETFROM	START+2, GETFROM+5, GETFROM+6
GETOK	START+7
GETSITE	START+4, GETSITE+4, GETSITE+5
HEALTH	DISPLAY2+8

Naked Globals

Name	Field # of Occurrence
^("XY"	HEALTH+1, FACE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICEX!
%ZIS(0	DEVICE+2*
AGOPT	DISPLAY2+9!, FACE+3!
AGQI	END+1!
AGQT	END+1!
AGTP	END+1!
APCHSPAT	END+1!, HEALTH+2!, HEALTH+3*
APCHSTYP	END+1!, HEALTH+2!, HEALTH+3*
AUPNDAYS	END+1!
AUPNDOB	END+1!
AUPNDOD	END+1!
AUPNPAT	END+1!
AUPNSEX	END+1!
C	END+2!
D	END+2!
D0	END+2!
DA	END+2!, CHGCHART+2, CHGCHART+4
DA(1	CHGCHART+2, CHGCHART+4
DFN	END+2!, FACE+2*
DI	END+2!
DIC	END+2!, GETSITE+2!, ASK+8!, ASK+9!
DIC("A"	GETSITE+2, ASK+8
DIC("B"	ASK+9*
DIC(0	GETSITE+2, ASK+8
DIE	END+2!, CHGCHART+2, CHGCHART+3!, CHGCHART+4, CHGCHART+5!
DIK	END+2!
DIR	GETFROM+3!, GETOK+3!, ASK+1!, ASK+5!
DIR("?"	GETFROM+3*
DIR("A"	GETFROM+3, GETOK+3, ASK+3, ASK+4
DIR("B"	GETOK+3, ASK+3
DIR(0	GETFROM+3, GETOK+3, ASK+3*
DIRUT	GETFROM+3, GETFROM+4, GETFROM+5!, GETFROM+6!, GETOK+3, GETOK+4
DIW	END+2!
DIWT	END+2!
DN	END+2!
DO	END+2!
DPTDZFCH	END+1!
DPTDZFCH("CHA	RT SITE" , START+5, GETSITE+1, GETSITE+6, GETSITE+7, GETSITE+8, CHGCHART+2, CHGCHART+4, DISPLAY2+2, DISPLAY2+3
DPTDZFCH("DEVICE"	DEVICE+1, DEVICE+4*
DPTDZFCH("FRO	M CHART" , GETSITE+7*, DISPLAY+3, CHGCHART+4
DPTDZFCH("FROM"	START+3, GETFROM+1, GETFROM+7, GETSITE+4, GETSITE+7, DISPLAY+3, CHGCHART+2, DISPLAY2+2
DPTDZFCH("OK"	START+8, GETOK+1, GETOK+6
DPTDZFCH("PAT"	DISPLAY2+6*, HEALTH+3, FACE+2
DPTDZFCH("PCC"	DISPLAY2+8, ASK+4*, ASK+8
DPTDZFCH("QFLG"	DISPLAY2+4, DISPLAY2+5, DISPLAY2+7, ASK+6, ASK+7, ASK+9, DEVICE+3*
DPTDZFCH("TO	CHART" , GETSITE+8*, DISPLAY+4, CHGCHART+2
DPTDZFCH("TO"	GETFROM+7*, GETSITE+5, GETSITE+8, DISPLAY+4, CHGCHART+4, DISPLAY2+3, DISPLAY2+6
DPTDZFCH("TYPE"	ASK+9*, HEALTH+3
DQ	END+2!
DR	END+2!, CHGCHART+2, CHGCHART+4
>> DTOUT	ASK+6
>> DUOUT	GETFROM+3, GETOK+3, ASK+6
DX	HEALTH+1!, FACE+1!
DY	HEALTH+1!, FACE+1!
E	END+2!
I	END+2!
IO	DEVICE+4
IOF	START+1, DISPLAY+1
IOM	DEVICE+4
>> IOP	DEVICE+1*
IOSL	DEVICE+4
IOST	DEVICE+4
POP	DEVICE+3, DEVICEX!
U	GETFROM+6, GETFROM+7, GETSITE+4, GETSITE+5, GETSITE+7, GETSITE+8, DISPLAY+3, DISPLAY+4, DISPLAY2+2, DISPLAY2+3 , ASK+4
X	END+2!, ASK+9*
XY	END+2!
Y	END+2!, GETFROM+5!, GETFROM+6!, GETFROM+7, GETSITE+3, GETSITE+4!, GETSITE+5!, GETSITE+6, GETOK+5, CHGCHART+3! , CHGCHART+5!, ASK+7, ASK+8!, ASK+9, ASKX!

Customize PDF page

Package: Registration

Routine: DPTDZFCH

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: