Routine: SDPBP

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT (,NOW)^%DTC $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	DEM^VADPT $$SITE^VASITE
Outpatient Pharmacy	1	SCH^PSOTPCAN

Name	Comments	DBIA/ICR reference
CPAIR(SDCL0)
DIV(SDCL0)	;Get facility division name and number
EN	;
END	;
DEV	;
SUMMARY	; ; In - INSTX, IOSL ; Out - TRSA, TDAYS
EN0	; Inquire date range.
RESCHED(DFN,SDAPDTT,SDCL,SDST,SDNAPDT)	; Search for a subsequent appointment at the same clinic. ; 0 - no rescheduled appointment ; 1 - cancelled by patient and rescheduled ; 2 - no-show and rescheduled
INIT(SDSS)	;
HEAD20	;
HEAD21	;
BUILD(NAME,SSN,SDCL,SDST,SDCAPDTT,SDNEAPT)	;
HEAD10	;

Name	Field # of Occurrence
^%DT	EN0+3, EN0+7
DD^%DT	EN+3, EN+29, EN+30, EN+54, BUILD+5, BUILD+7, HEAD10+7, HEAD10+9
^%DTC	EN+28, EN+49, EN+50, BUILD+4
NOW^%DTC	EN+5
^%ZIS	DEV+1, DEV+3
^%ZISC	END+1
^%ZTLOAD	DEV+9
$$GET1^DIQ	EN+24, EN+31, EN+55, BUILD+11
^DIR	EN0+10, EN+102, HEAD10+2
SCH^PSOTPCAN	EN+4
DEM^VADPT	EN+11
$$SITE^VASITE	DIV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?47,"******** NO DATA TO PRINT ********" Line Location: EN+66
Function Call: WRITE	Prompt: !?8,"Deferred Number of Days: ",$P(REC,U,6) Line Location: EN+83
Function Call: WRITE	Prompt: !!!?21,"******** NO DATA TO PRINT ********" Line Location: EN+96
Function Call: WRITE	Prompt: !!,"Overall average time between appointments : ",$S(TRSA=0:$J(TDAYS,2),1:$J(TDAYS/TRSA,2)) Line Location: EN+97
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+9
Function Call: WRITE	Prompt: ?41,+$G(^TMP($J,"SDOUT",INSTX,"CAN")) Line Location: SUMMARY+11
Function Call: WRITE	Prompt: ?52,RSA Line Location: SUMMARY+12
Function Call: WRITE	Prompt: ?62,+$G(^TMP($J,"SDOUT",INSTX,"RSP")) Line Location: SUMMARY+13
Function Call: WRITE	Prompt: ?71,$S(RSA=0:"0.00",1:$J(DAYS/RSA,"",2)) Line Location: SUMMARY+14
Function Call: WRITE	Prompt: @IOF,!?IOM-$L(SDTTL)\2,SDTTL Line Location: HEAD10+5
Function Call: WRITE	Prompt: ?122,"Page : "_PAGE Line Location: HEAD10+6
Function Call: WRITE	Prompt: !?IOM-$L(SDTTL)\2,SDTTL Line Location: HEAD10+11
Function Call: WRITE	Prompt: ! Line Location: HEAD10+12
Function Call: WRITE	Prompt: !?89,"Cancelled",?103,"Reason for",?120,"New/Closest" Line Location: HEAD20+1
Function Call: WRITE	Prompt: !,"Patient",?38,"SSN",?52,"Clinic",?89,"Appt. Date",?103,"Cancellation",?120,"Appt. Date" Line Location: HEAD20+2
Function Call: WRITE	Prompt: !,"=======",?38,"===",?52,"======",?89,"==========",?103,"============",?120,"===========" Line Location: HEAD20+3
Function Call: WRITE	Prompt: !! Line Location: HEAD21+1
Function Call: WRITE	Prompt: ?41,"Appts",?52,"Appts",?62,"Patients",?71,"Ave time" Line Location: HEAD21+3
Function Call: WRITE	Prompt: ! Line Location: HEAD21+4
Function Call: WRITE	Prompt: ?41,"Cancelled",?52,"Deferred",?62,"Deferred",?71,"/appts" Line Location: HEAD21+6
Function Call: WRITE	Prompt: ! Line Location: HEAD21+7
Function Call: WRITE	Prompt: ?41,"=========",?52,"========",?62,"========",?71,"========" Line Location: HEAD21+9
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: END+1
Routine Call	DIR Line Location: EN0+10 EN+102 HEAD10+2
Routine Call	%ZIS Line Location: DEV+1 DEV+3

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DIV+8
^DIC(40.7 - [#40.7]	CPAIR+3, CPAIR+4
^DPT - [#2]	EN+14, EN+15, EN+17, RESCHED+5, RESCHED+8
^SC - [#44]	EN+18
^TMP($J	EN+7, EN+9, EN+31, EN+34, EN+35, EN+36, EN+43, EN+55, EN+59, EN+66 , EN+69, EN+73, EN+75, EN+77, EN+79, EN+95, EN+100!, SUMMARY+6, SUMMARY+7, SUMMARY+11 , SUMMARY+13, BUILD+10, BUILD+11*, INIT+3!, END+2!

Name	Line Occurrences
$$CPAIR	EN+19
$$DIV	EN+22
$$RESCHED	EN+25
DEV	EN0+14
EN	DEV+11
END	DEV+3, DEV+4
HEAD10	EN+65, EN+70, EN+80, EN+87, EN+93, SUMMARY+8
HEAD20	EN+67, EN+70, EN+80
HEAD21	EN+88, EN+93, SUMMARY+8
INIT	EN+2
SUMMARY	EN+88, EN+95

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN0+1!, EN0+2, EN0+4!, EN0+6
%DT("A"	EN0+2, EN0+6
%DT(0	EN0+5*
%ZIS	DEV+1!*
CAN	EN+92~, EN+95*
CTR	EN+1~, EN+3, EN+69, EN+70, EN+73, EN+80, EN+95, EN+101, SUMMARY+8, HEAD10+2
DAYS	EN+16~, EN+28, EN+31, EN+36, SUMMARY+4~, SUMMARY+7, SUMMARY+14, BUILD+1~, BUILD+2, BUILD+4 , BUILD+11
DFN	EN+1~, EN+8, EN+9, EN+14, EN+15, EN+17, EN+25, EN+31, EN+43, EN+55 , EN+74, EN+75, EN+77, EN+79, RESCHED~, RESCHED+5, RESCHED+8
DIR	EN0+11!
DIR("?"	EN0+9*
DIR("A"	EN0+10*
DIR("B"	EN0+10*
DIR(0	EN0+10, EN+102, HEAD10+2*
>> DIRUT	HEAD10+2
>> EDT	EN0+8*, EN+15, HEAD10+9
INST	EN+1~, EN+22, EN+23, EN+24, EN+26, EN+27, EN+31, EN+33, EN+34, EN+35 , EN+36, EN+41, EN+43, EN+45, EN+46, EN+55, EN+58, EN+59*, SUMMARY+10, BUILD+1~ , BUILD+10, BUILD+11
INST(	EN+24*, EN+31, EN+34, EN+35, EN+36, EN+43, EN+55, EN+59
INST(0	EN+23*
INSTX	EN+68, EN+69, EN+71, EN+73, EN+75, EN+77, EN+79, EN+92~, EN+94, EN+95 , SUMMARY+5, SUMMARY+6, SUMMARY+7, SUMMARY+11, SUMMARY+13
IO("Q"	DEV+4!
IOF	HEAD10+5
IOM	HEAD10+5, HEAD10+11, DEV+2*
ION	DEV+1
IOP	DEV+1!, DEV+3*!
IOSL	EN+70, EN+80, EN+87, SUMMARY+8
IOST	EN+102, HEAD10+2
LINE	EN+1~, EN+70, EN+71, EN+80, EN+82, EN+83, EN+87, SUMMARY+8, SUMMARY+15, HEAD10+13* , HEAD20+4, HEAD21+10
MAXLEN	EN+1~
NAME	EN+1~, EN+6, EN+7, EN+9, EN+31, EN+43, EN+55, EN+72, EN+73, EN+75 , EN+77, EN+79, EN+81, BUILD~, BUILD+10, BUILD+11
PAGE	EN+1~, EN+63, HEAD10+1, HEAD10+2, HEAD10+6
POP	DEV+1!, DEV+3
REC	EN+78~, EN+79*, EN+80, EN+81, EN+83
RESCHED	EN+10~, EN+25*, EN+26, EN+32
RESCHED(	EN+27, EN+33, EN+59
RSA	SUMMARY+4~, SUMMARY+6*, SUMMARY+12, SUMMARY+14
SDAP0	EN+16~, EN+17*, EN+21
>> SDAPDT	EN+76, EN+77, EN+79
SDAPDTT	EN+10~, EN+14, EN+15, EN+17, EN+25, EN+26, EN+28, EN+29, EN+31, EN+32 , EN+44, EN+47, EN+48, EN+51, EN+53, EN+54, EN+55, BUILD+4, RESCHED~, RESCHED+5 , RESCHED+8*
>> SDAPDTT0	EN+29, EN+31, EN+46, EN+47, EN+48, EN+49, EN+51
>> SDAPDTT1	EN+45*, EN+47, EN+48, EN+50, EN+51
SDCAPDTT	BUILD~, BUILD+3, BUILD+5*, BUILD+11
>> SDCDTT	EN+21*
SDCL	EN+1~, EN+3, EN+17, EN+18, EN+25, EN+26, EN+31, BUILD~, BUILD+11, RESCHED~ , RESCHED+8
SDCL0	EN+16~, EN+18*, EN+19, EN+22, CPAIR~, CPAIR+3, CPAIR+4, DIV~, DIV+2, DIV+6
SDCP	EN+16~, EN+19*, EN+20
SDCUTOFD	EN+1~, EN+3*, HEAD21+2
SDCUTOFF	EN+1~, EN+3*, EN+32
SDDIO	DEV+1*, DEV+3!, DEV+4!
SDHOLD	DIV+2~, DIV+3, DIV+4, DIV+5, DIV+6, DIV+7, DIV+8, DIV+9
SDI	INIT+1~, INIT+2*
SDII	INIT+1~, INIT+2*
SDIVV	DIV+2~*, DIV+4
SDNAPDT	EN+16~, EN+25, EN+28, EN+30, EN+31, RESCHED~, RESCHED+5, RESCHED+7, RESCHED+8
SDNEAPT	EN+54, EN+55, BUILD~, BUILD+4, BUILD+7, BUILD+11
SDOK	RESCHED+4~, RESCHED+7, RESCHED+8, RESCHED+9
SDSS	EN+1~, EN+2, INIT~
SDSS(	EN+20, INIT+2*
SDST	EN+16~, EN+21*, EN+25, EN+31, BUILD~, BUILD+11, RESCHED~, RESCHED+5, RESCHED+6, RESCHED+9
>> SDSUMM	EN0+13*, EN+64, EN+91, SUMMARY+10, HEAD10+4, HEAD10+6, HEAD21+2, HEAD21+5, HEAD21+8, DEV+2
>> SDT	EN0+5*, EN+14, HEAD10+7
>> SDTTL	HEAD10+3, HEAD10+4, HEAD10+5, HEAD10+8, HEAD10+10, HEAD10+11
SDX	CPAIR+2~, CPAIR+3, CPAIR+4, CPAIR+5*, CPAIR+6
SEL	EN+10~
SEL(	EN+26*, EN+43, EN+45, EN+46, EN+55
SSN	EN+10~, EN+12, EN+13, EN+31, EN+42, EN+55, BUILD~, BUILD+11
SSNP	EN+10~, EN+12*, EN+42
TDAYS	EN+1~, EN+63, EN+97, SUMMARY+7
TODAY	EN+1~, EN+5*, EN+45, EN+46, EN+49, EN+50
TRSA	EN+1~, EN+63, EN+97, SUMMARY+6
U	EN+21, EN+31, EN+55, EN+80, EN+81, EN+83, BUILD+11, RESCHED+5, RESCHED+8, CPAIR+3 , CPAIR+4, DIV+2
>> UNQ	BUILD+10*, BUILD+11
>> VADM(2	EN+12
X	EN+5, EN+28, EN+49, EN+51, EN+92~, EN+94, EN+96, SUMMARY+5, SUMMARY+10, BUILD+4
>> X0	EN+49*, EN+51
>> X1	EN+28, EN+49, EN+50, BUILD+4
>> X2	EN+28, EN+49, EN+50, BUILD+4
Y	EN0+3, EN0+5!, EN0+7, EN0+8, EN0+12, EN0+13, EN+3, EN+29, EN+30, EN+54 , BUILD+5, BUILD+7, HEAD10+7, HEAD10+8, HEAD10+9, HEAD10+10
>> ZTDESC	DEV+5*
ZTDTH	DEV+4!, DEV+5*
ZTIO	DEV+4!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+5*
ZTSAVE	DEV+4!
ZTSAVE("EDT"	DEV+7*
ZTSAVE("SDSUMM"	DEV+8*
ZTSAVE("SDT"	DEV+6*
ZTSK	DEV+1!, DEV+4!, DEV+9!

Customize PDF page

Package: Scheduling

Routine: SDPBP

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: