Routine: SCRPW1

Package	Total	Call Graph
VA Fileman	6	^%DT NOW^%DTC ^DIC FILE^DID EN^DIQ ^DIR
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ
Scheduling	2	DISP0^SCRPW23 ($$XY,END,TITL)^SCRPW50
Registration	1	(DEM,KVA)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
DISP
H1
HDR
TOENC
TOEHX
MVSIT
STOP	;Check for stop task request
DT
OENC
APPT
ASK	;Ask for patient
MVFP1
TERR
VSIT
END
TOERR
START
OENC1(SDOENC,SDTY)
OENCC
MVFP
OEPR
EXIT
VSIT1(SDVSIT,SDTY)

External References

Name	Field # of Occurrence
^%DT	DT
NOW^%DTC	START+1
$$S^%ZTLOAD	STOP+1
^DIC	ASK+2
FILE^DID	MVSIT+2
EN^DIQ	OEPR+9, DISP, APPT, APPT+2, OENC1, OENCC, VSIT1, MVFP1, TOENC, TOENC+1 , TOEHX+1
^DIR	DT+4, END, HDR
DISP0^SCRPW23	START
$$XY^SCRPW50	START+2, H1
END^SCRPW50	EXIT
TITL^SCRPW50	ASK+1
DEM^VADPT	START+1
KVA^VADPT	EXIT+1
EN^XUTMDEVQ	DT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DT+1
Function Call: WRITE	Prompt: ! Line Location: DT+6
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Condition for execution: $E(IOST)="C" Line Location: START+2
Function Call: WRITE	Prompt: !,"------------------------- * SCHEDULING DATABASE * --------------------------",!,"==> REGISTRATION/DISPOSITION DATA -- " Line Location: START+2
Function Call: WRITE	Prompt: !,"==> APPOINTMENT DATA -- " Line Location: START+4
Function Call: WRITE	Prompt: !,"-------------------- * OUTPATIENT ENCOUNTER DATABASE * ---------------------",!,"==> OUTPATIENT ENCOUNTER DATA -- " Line Location: OEPR+1
Function Call: WRITE	Prompt: !,"----------------------- * VISIT TRACKING DATABASE * ------------------------",!,"==> VISIT DATA -- " Line Location: OEPR+4
Function Call: WRITE	Prompt: !,"------------------------- * PATIENT PROBLEM LIST * -------------------------",! Line Location: OEPR+8
Function Call: WRITE	Prompt: ! Line Location: OEPR+9
Function Call: WRITE	Prompt: "REVIEW OF SCHEDULING/PCE/PROBLEM LIST DATA",!,"Patient: ",SDPNAM,?44,"SSN: ",SDSSN Line Location: H1+1
Function Call: WRITE	Prompt: !,"Encounter date: ",SDENC,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"PAGE: ",SDPAGE,!,SDLINE Line Location: H1+2
Function Call: WRITE	Prompt: !,"PATIENT file info:",! Line Location: DISP+0
Function Call: WRITE	Prompt: !,"PATIENT file info:",! Line Location: APPT+0
Function Call: WRITE	Prompt: !,"HOSPITAL LOCATION file info:",! Line Location: APPT+2
Function Call: WRITE	Prompt: !,"OUTPATIENT ENCOUNTER file """_SDTY_""" record #"_SDOENC_":",! Line Location: OENC1+0
Function Call: WRITE	Prompt: !,"OUTPATIENT CLASSIFICATION file info:",! Line Location: OENCC+0
Function Call: WRITE	Prompt: !,"VISIT file """_SDTY_""" record #"_SDVSIT_":",! Line Location: VSIT1+0
Function Call: WRITE	Prompt: !,SDFNAM," file info:",! Line Location: MVFP1+0
Function Call: WRITE	Prompt: !,"TRANSMITTED OUTPATIENT ENCOUNTER info:",! Line Location: TOENC+0
Function Call: WRITE	Prompt: !,"DELETED OUTPATIENT ENCOUNTER info:",! Line Location: TOENC+1
Function Call: WRITE	Prompt: !,"TRANSMITTED OUTPATIENT ENCOUNTER ERROR info:",! Line Location: TOERR+0
Function Call: WRITE	Prompt: !,"ACRP TRANSMISSION HISTORY info:",! Line Location: TOEHX+0
Function Call: WRITE	Prompt: !?4,"Error Code: ",$P($G(^SD(409.76,SDERR,0)),U)," ",$P($G(^SD(409.76,SDERR,1)),U) Line Location: TERR+0
Routine Call	DIC Line Location: ASK+2
Routine Call	DIR Line Location: DT+4 END HDR

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SDD(409.42 - [#409.42]	Classic Fileman Calls
^SCE - [#409.68]	Classic Fileman Calls
^SD(409.73 - [#409.73]	Classic Fileman Calls
^SD(409.74 - [#409.74]	Classic Fileman Calls
^SD(409.77 - [#409.77]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNPROB - [#9000011]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB("AC"	OEPR+9
^AUPNVSIT - [#9000010]	VSIT
^AUPNVSIT("AA"	OEPR+6
^AUPNVSIT("AD"	VSIT+2
^DD("DD"	DT, START+1
^DPT - [#2]	START+3, START+5
^SC - [#44]	APPT+1
^SCE - [#409.68]	OENC
^SCE("ADFN"	OEPR+2
^SCE("APAR"	OENC+2
^SD(409.73 - [#409.73]	TOENC, TOENC+1
^SD(409.75 - [#409.75]	TOERR, TOERR+1
^SD(409.76 - [#409.76]	TERR
^SD(409.77 - [#409.77]	TOEHX, TOEHX+1
^SDD(409.42 - [#409.42]	OENCC

Label References

Name	Line Occurrences
APPT	START+5
ASK	DT+6
DISP	START+3
DT	DT
END	OEPR+3
EXIT	ASK+2, DT, DT+4, DT+6, START+4, START+6, OEPR, OEPR+3, OEPR+7, OEPR+9 , OEPR+10
H1	START+2
HDR	START+4, OEPR, OEPR+3, OEPR+7, OEPR+9, DISP, APPT, APPT+2, OENC1, OENCC , VSIT1, MVFP1, TOENC, TOENC+1, TOERR, TOEHX, TOEHX+1, TERR
MVFP	MVSIT+2
MVFP1	MVFP
MVSIT	VSIT1
OENC	OEPR+2
OENC1	OENC+1, OENC+2
OENCC	OENC1
STOP	H1
TERR	TOERR+1
TOEHX	TOENC+2
TOENC	OENC1
TOERR	TOENC+2
VSIT	OEPR+6
VSIT1	VSIT+1, VSIT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1, EXIT+1!
%DT	DT!*, EXIT+1!
%DT("A"	DT*
DA	OEPR+9, EXIT!, DISP, APPT, APPT+2, OENC1, OENCC, VSIT1, MVFP1, TOENC* , TOENC+1, TOEHX+1
DFN	ASK+2*, START+3, START+5, OEPR+2, OEPR+6, OEPR+9, EXIT!, DISP, APPT, APPT+1
DIC	ASK+2, OEPR+9, EXIT!, DISP, APPT, APPT+2, OENC1, OENCC, VSIT1, MVFP1* , TOENC, TOENC+1, TOEHX+1*
DIC(0	ASK+2*
DIR	DT+1!, END~, EXIT+1!, HDR~
DIR("?"	DT+1, DT+2, DT+3*
DIR("A"	DT+1*
DIR("B"	DT+1*
DIR(0	DT+1, END, HDR*
DR	OEPR+9, EXIT!, DISP, APPT, APPT+2, OENC1, OENCC, VSIT1, MVFP1, TOENC* , TOENC+1, TOEHX+1
DTOUT	ASK+2, DT, DT+4, EXIT!
DUOUT	ASK+2, DT+4, EXIT!
IOF	START+2, H1
IOSL	START+4, OEPR, OEPR+3, OEPR+7, OEPR+9, DISP, APPT, APPT+2, OENC1, OENCC , VSIT1, MVFP1, TOENC, TOENC+1, TOERR, TOEHX, TOEHX+1, TERR
IOST	START, START+2, END, HDR, H1
SDBDT	DT*, START+1, START+3, START+5, OEPR+2, OEPR+6, EXIT!
SDCHI	EXIT+1!, OENC+2, VSIT+2
SDCLP	EXIT!, APPT+1*, APPT+2
SDDAY	START+1, START+3, START+5, OEPR+2, OEPR+5, OEPR+6, EXIT!, DISP, APPT, APPT+1 , APPT+2
SDDOENC	EXIT+1!, TOENC+1*
SDEDT	DT*, START+3, START+5, OEPR+2, OEPR+5, EXIT!
SDENC	DT*, EXIT+1!, H1+2
SDEOENC	EXIT+1!, TOERR+1*
SDERR	EXIT+1!, TOERR+1*, TERR
SDFMT	DT+4*, OEPR+3, EXIT+1!
SDFNAM	EXIT!, MVSIT~, MVSIT+2*, MVFP1
SDFOUND	START+1, START+3, START+4, START+5, START+6, OEPR, OEPR+2, OEPR+3, OEPR+6, OEPR+7* , OEPR+9*, OEPR+10, EXIT!
SDID	MVSIT~, MVSIT+2!
SDID("GLOBAL	NAME" , MVSIT+2
SDID("NAME"	MVSIT+2
SDLINE	START+1*, EXIT!, H1+2
SDLOC	START+5*, EXIT!, APPT+1, APPT+2
SDOEHX	EXIT+1!, TOEHX+1*
SDOENC	OEPR+2*, EXIT!, OENC, OENC+1, OENC+2, OENC1~, OENCC, TOENC
SDOENCC	EXIT+1!, OENCC*
SDOUT	START+1, START+3, START+4, START+5, START+6, OEPR, OEPR+2, OEPR+3, OEPR+6, OEPR+7 , OEPR+9, OEPR+10, END, EXIT+1!, HDR, H1, DISP, STOP+1*, APPT, APPT+2 , OENC+2, OENC1, OENCC, VSIT+2, VSIT1, MVSIT+2, MVFP, MVFP1, TOENC, TOENC+1 , TOERR, TOERR+1, TOEHX, TOEHX+1, TERR
SDPAGE	START+1, EXIT+1!, HDR, H1, H1+2
SDPAR	EXIT+1!, OENC, OENC+1, VSIT, VSIT+1
SDPNAM	ASK+2*, EXIT!, H1+1
SDPNOW	START+1*, EXIT!, H1+2
SDSSN	START+1*, EXIT!, H1+1
SDTOENC	EXIT+1!, TOENC*, TOENC+1, TOERR, TOERR+1, TOEHX, TOEHX+1
SDTY	EXIT+1!, OENC+1, OENC1~, VSIT+1, VSIT1~
SDVBASE	MVSIT~, MVSIT+1*, MVSIT+2
SDVFGL	EXIT!, MVSIT~, MVSIT+2*, MVFP, MVFP1
SDVFR	EXIT!, MVFP*, MVFP1
SDVN	MVSIT~, MVSIT+2*
SDVSIT	OEPR+6*, EXIT!, VSIT, VSIT+1, VSIT+2, VSIT1~, MVFP
U	ASK+2, DT, START+1, START+5, APPT+1, OENC, VSIT, TOENC+1, TOERR+1, TERR
>> VADM(2	START+1
X	DT, EXIT+1!
Y	ASK+2, DT, DT+4, DT+5, START+1, EXIT!, HDR
ZTDESC	DT+6*, EXIT+1!
>> ZTQUEUED	STOP+1
ZTRTN	DT+6*, EXIT+1!
ZTSAVE	DT+6, EXIT+1!
ZTSAVE(	DT+5*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: