Routine: SDDPA

Name	Field # of Occurrence
^%DT	1+1
CLOSE^DGUTQ	END
ZIS^DGUTQ	RD1+2
^DIC	RD+1
YN^DICN	RD1
^DIE	RESET+10
DT^SDM0	EN1+1
DATE^SDUTL	RANGE
DT^SDUTL	SDDPA+2
DTS^SDUTL	ARCH+1
OUT^SDUTL	MORE, MORE+4
$$FMTE^XLFDT	1+4, ARCH+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RD+1
Function Call: WRITE	Prompt: !,7,7,"PATIENT NOT FOUND",7,7 Line Location: RD+1
Function Call: WRITE	Prompt: !,"Respond YES or NO" Line Location: RD1+0
Function Call: WRITE	Prompt: !,"APPOINTMENTS FOR: ",$E(SDN,1,22) Line Location: 1+2
Function Call: WRITE	Prompt: ?42,$E(SDSSN,1,3),"-",$E(SDSSN,4,5),"-",$E(SDSSN,6,9) Line Location: 1+3
Function Call: WRITE	Prompt: ?54,"PRINTED: ",$$FMTE^XLFDT(Y,"5") Line Location: 1+4
Function Call: WRITE	Prompt: !! Line Location: EN1+1
Function Call: WRITE	Prompt: " ",$J(X,8) Line Location: EN1+1
Function Call: WRITE	Prompt: @IOF,!!,"This patient has archived appts during this time period:",! Line Location: ARCH+0
Function Call: WRITE	Prompt: !,?3,"ARCHIVED DATE RANGE # APPOINTMENTS TAPE # DATE ARCHIVED",! Line Location: ARCH+0
Function Call: WRITE	Prompt: !,?3,$S(B:$$FMTE^XLFDT(B,"5D"),1:""),"-",$S(C:$$FMTE^XLFDT(C,"5D"),1:""),?32,+D,?45,E Line Location: ARCH+1
Function Call: WRITE	Prompt: ?59,Y Line Location: ARCH+1
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: ?36,$P(^UTILITY($J,ZZ),"^",2) Line Location: MORE+0
Function Call: WRITE	Prompt: @IOF Line Location: MORE+0
Function Call: WRITE	Prompt: " (",$P(^UTILITY($J,ZZ),"^",4)," MINUTES) ",$S($D(^SC(+$P(^UTILITY($J,ZZ),"^",2),0)):$P(^SC(+$P(^UTILITY($J,ZZ),"^",2),0),"^"),1:"Deleted Clinic"),$P(^UTILITY($J,ZZ),"^",3)," ",$P(^(ZZ),"^",5) Line Location: MORE+2
Function Call: WRITE	Prompt: !,$S($P(^(ZZ),"^",6)["NT":" * ACTION REQUIRED ",$P(^(ZZ),"^",6)["N":" NO-SHOW ",$P(^(ZZ),"^",6)["C":" CANCELLED BY "_$P(^(ZZ),"^",7)_" *",1:"") Line Location: MORE+3
Routine Call	DIE Line Location: RESET+10
Routine Call	DIC Line Location: RD+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("FUNC" - [#.5]	EN1+1
^DPT - [#2]	1, 1+5, EN1, RANGE+1, FLEN+1, RESET+2, RESET+3, RESET+4, RESET+5, RESET+7 , CHKSO, CHKSO+1
^SC - [#44]	FLEN+1, FLEN+3, FLEN+4, RESET+5!, RESET+7, RESET+12, RESET+13, RESET+14*, MORE+2
^UTILITY($J	RD+1!, EN1, EN1+1, CHKSO+1, END!, MORE, MORE+2
^VA(200 - [#200]	CHKSO

Name	Line Occurrences
1	RD1+2
ARCH	RANGE+1
CHKSO	EN1
END	RD+1, EN1+2, NO+1
FLEN	EN1
MORE	EN1+1
NO	1+5, EN1+1
RANGE	RD1+1
RD	RD+1, RD1, RD1+1
RD1	RD1
RESET	FLEN+3
SDDPA	RD1+2

Name	Field # of Occurrence
^(	EN1, EN1+1, RANGE+1, MORE+2, MORE+3
^("S"	RANGE+1
^(0	1, EN1, RESET+5, CHKSO, CHKSO+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RD1*, RD1+1
%DT	1+1*, END!
A	RANGE+1*, END!
APL	RD, EN1, FLEN+3, FLEN+4*, END!
APLEN	FLEN+3, FLEN+5!, RESET+5, RESET+6, RESET+7*, RESET+15!
AT	EN1+1*, END!, MORE, MORE+1
B	RANGE+1*, ARCH+1, ARCH+2!
BEGDATE	RANGE, END!
C	RANGE+1*, ARCH+1, ARCH+2!, END!
COV	EN1, FLEN+1*, END!
D	RANGE+1*, ARCH+1, ARCH+2!
DA	RD+2, RESET+8, RESET+15!, END!
DA(1	RESET+8*, RESET+9
DA(2	RESET+8*, RESET+9, RESET+11
DFN	RD+2*, 1, 1+5, EN1, RANGE+1, FLEN+1, FLEN+4, RESET+1, RESET+2, RESET+3 , RESET+4, RESET+5, RESET+7, CHKSO, CHKSO+1, END!
DGPGM	RD1+2*, END!
DGVAR	RD1+2*, END!
DIC	RD+1*, END!
DIC(0	RD+1*
DIE	RESET+9*, RESET+15!
DIPGM	END!
DR	RESET+10*, RESET+15!
DT	SDDPA+2, RD
>> DTOUT	RD1*
E	RANGE+1*, ARCH+1, ARCH+2!
ENDDATE	RANGE, END!
HDT	RD, 1+5, RANGE, RANGE+1, END!
IO	1
IOF	ARCH, MORE, MORE+4
IOSL	MORE, MORE+4
IOST	MORE, MORE+4
J	EN1*, END!
L	1+5, EN1, EN1+1, FLEN+1, CHKSO+1*, END!
NAME	RD+2*, END!
NDT	1+5, EN1, FLEN+1, FLEN+3, FLEN+4, RESET+2, RESET+3, RESET+4, RESET+5, RESET+7 , RESET+8, RESET+12, RESET+13, RESET+14, CHKSO, CHKSO+1, END!
NODE	RESET+6, RESET+7, RESET+12, RESET+13, RESET+15!
POP	RD1+1, RD1+2, RANGE, FLEN+2~, FLEN+3, FLEN+5!, RESET+1, RESET+2, RESET+3, RESET+4 , RESET+5*, END!
SC	EN1, FLEN+1, FLEN+3, FLEN+4, RESET+5, RESET+7, RESET+8, RESET+11, RESET+12, RESET+13 , RESET+14, END!
SDACS	SDDPA+2!, RD
SDBD	END!
SDBY	EN1, CHKSO*, END!
SDED	END!
SDEDT	RD, EN1, RANGE, RANGE+1, END!
SDEND	RD+1*, EN1+1, END!, MORE, MORE+4
SDJ	CHKSO+1*, END!
SDN	1*, 1+2, END!
SDNS	EN1, CHKSO*, END!
SDONE	RD1+1, RANGE, ARCH, ARCH+2*, END!
SDRG	RD, EN1, NO, RANGE, END!
SDSSN	1+1*, 1+3, END!
SDSTR	1*, 1+1, END!
SDU	CHKSO*!
SDYN	RD1+1*, END!
STAT1	RESET+6, RESET+7, RESET+14, RESET+15!
U	1, 1+1, FLEN+1, FLEN+4, RESET+5, RESET+7, RESET+12, RESET+13, RESET+14
X	RD+1, 1+1, EN1+1, RANGE+1*, END!
Y	RD+1, RD+2, 1+4, EN1+1, ARCH+1, END!
Z	RANGE+1*, ARCH+1, ARCH+2!
ZL	FLEN+1*, FLEN+3, FLEN+4, RESET+5, RESET+8, RESET+12, RESET+13, RESET+14, END!
ZX	END!
ZZ	EN1+1*, END!, MORE, MORE+2, MORE+3

Customize PDF page

Package: Scheduling

Routine: SDDPA

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

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
RESET	;reset zero node of appt multiple in file #44 if values are known SD/545
1
RD1
NO
CHKSO
RD
EN1
RANGE
FLEN	;following code changed with SD/545
END
ARCH
MORE