Routine: SDC0

Information

SDC0 ;MAN/GRR,ALB/TMP/LDB - Continuation of SDC (cancel a clinic) ; 16 JUL 2003 1:27 pm

Source Information

Source file <SDC0.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Scheduling	7	^SDAUT1 ^SDAUT2 DELETE^SDC1 (,PR)^SDC3 ^SDCCP (,BADADD,REST,WRAPP)^SDLT (DISREB,MESS,OPENEWL,REBOOK)^SDWLREB
Registration	2	$$BADADR^DGUTL3 (CLOSE,ZIS)^DGUTQ
VA Fileman	1	YN^DICN

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDC
Scheduling	1	SDC

Entry Points

External References

Name	Field # of Occurrence
$$BADADR^DGUTL3	CHECK
CLOSE^DGUTQ	END+5
ZIS^DGUTQ	AOR+3
YN^DICN	CHKEND+2, ASKL+1
^SDAUT1	BEG1+8
^SDAUT2	BEG1+11
DELETE^SDC1	BEG1+13, BEG1+14, RESOLVE+3, RESOLVE+4, DUP+3, DUP+4, APP+3, APP+4
^SDC3	DUP+7
PR^SDC3	BEG1+7
^SDCCP	BEG1+11
^SDLT	CHECK+6
BADADD^SDLT	APP+7
REST^SDLT	CHK1+1, CHK1+2, CHK1+4
WRAPP^SDLT	CHK1, CHK1+4
DISREB^SDWLREB	RESOLVE+8
MESS^SDWLREB	RESOLVE+10
OPENEWL^SDWLREB	RESOLVE+9
REBOOK^SDWLREB	RESOLVE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: CHKEND+1
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: CHKEND+2
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: ASKL+0
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: ASKL+1
Function Call: WRITE	Prompt: !,"NO LETTERS ARE ASSIGNED TO THE ",$P(^SC(SC,0),"^")," CLINIC" Line Location: EN+5
Function Call: WRITE	Prompt: !,"AUTO-REBOOKING NOT ALLOWED FOR THIS CLINIC" Line Location: BEG1+9
Function Call: WRITE	Prompt: @IOF Line Location: BEG1+16
Function Call: WRITE	Prompt: $P(^SC(SC,0),"^")," does not have an appointment length indicated." Line Location: CHK+0
Function Call: WRITE	Prompt: !!,"The cancelled appointment(s) were rescheduled as follows:",! Line Location: CHK1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	EN+1, EN+6
^DPT - [#2]	BEG1+11, CHK1+2, CHK1+4, CHECK, CHECK+6
^SC - [#44]	EN+1, EN+2, EN+3, EN+5, BEG1+4, BEG1+10, BEG1+11, BEG1+13, BEG1+14, CHK , RESOLVE+2, RESOLVE+3, RESOLVE+4, RESOLVE+5, DUP+1, DUP+2, DUP+3, DUP+4, DUP+5, DUP+6 , APP+1, APP+3, APP+4
^TMP("SDC0"	END+3!, DUP+7, CHECK+4, CHECK+5
^TMP("SDWLREB"	RESOLVE+1!, RESOLVE+10
^TMP($J	END+5!, RESOLVE+1!, RESOLVE+9!, APP+7!, CHECK*
^UTILITY("SD"	END+4!
^UTILITY("SDLT"	BEG1+7

Name	Line Occurrences
AOR	ASKL+2
APP	START, BEG1+9, BEG1+17
ASKL	ASKL+1
CHECK	APP+1
CHK	EN+7
CHK1	CHECK+6
CHKEND	CHKEND+2
DUP	BEG1+5
EN	BEG1+3
END	CHKEND, AOR, AOR+3, START, BEG1+7, BEG1+9
RESOLVE	END+1

Name	Field # of Occurrence
^("C"	BEG1+13, RESOLVE+3, DUP+3, APP+3
^("I"	EN+2
^("LTR"	EN+3, EN+6
^("SL"	CHK
^(0	BEG1+11, CHECK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHKEND+2, CHKEND+3, ASKL+1, ASKL+2, END+2!, CHK*!
%DT	END+2!
%H	END+2!
%I	END+2!
%IS	END+2!
%ZIS	END+2!
A	BEG1+11, END+2!, DUP+6, DUP+7, APP+1*, CHK1+2, CHK1+4, CHECK, CHECK+4, CHECK+5 , CHECK+6
ADDR	END+2!
ALS	ASKL+2, EN+3, EN+4, EN+5, EN+7, AOR, START, BEG1+1*, BEG1+9, BEG1+17 , END+2!
ANS	CHKEND+3, EN+4, AOR, START, BEG1+1, END+2!
B	END+2!
BY	END+2!
CDATE	BEG1+4*, BEG1+10, END+1, END+2!, RESOLVE+1, RESOLVE+2, APP+1
CHAR	END+2!
CLIN	END+2!
D	END+2!
DA	END+2!
DFN	END+2!, RESOLVE+5*, RESOLVE+6, RESOLVE+8, RESOLVE+9
DGPGM	AOR+1*, END+4!
DGVAR	AOR+1*, END+4!
DH	END+2!
DHD	END+2!
DIC	END+2!
DIS	END+2!
DIW	END+5!
DIWF	END+5!
DIWL	END+5!
DIWR	END+5!
DIWT	END+5!
DN	END+5!
DO	END+2!
DOW	END+2!
>> DTOUT	CHKEND+2*, CHKEND+3
DUPE	END+4!, END+5!
ENDATE	END+2!
FLDS	END+2!
FR	END+2!
FSW	END+2!
GDATE	BEG1+10, BEG1+11, BEG1+13, BEG1+14, END+2!, RESOLVE+1, RESOLVE+2, RESOLVE+3, RESOLVE+4, RESOLVE+5 , RESOLVE+6, RESOLVE+9, APP+1, APP+3, APP+4, CHK1, CHECK+4, CHECK+5, CHECK+6
HX	END+2!
I	END+2!
IO	START
IOF	BEG1+16
J	BEG1+13!, BEG1+14!, END+2!, RESOLVE+3!, RESOLVE+4!, DUP+3, DUP+4, APP+3!, APP+4!
J2	BEG1+13!, BEG1+14!, END+4!, END+5!, RESOLVE+3!, RESOLVE+4!, DUP+3, DUP+4, APP+3!, APP+4!
L	BEG1+11, BEG1+13, BEG1+14, END+2!, RESOLVE+2, RESOLVE+3, RESOLVE+4, RESOLVE+5, APP+1*, APP+3 , APP+4
L0	END+2!
L1	END+2!
L2	END+2!
LET	END+2!
LL	END+2!
MAX	BEG1+9, END+2!
MESS	END+4!, END+5!
NDATE	END+4!, END+5!
NOAP	CHKEND, END+2!
P	END+2!
PDAT	END+2!
POP	AOR+3, BEG1+11, BEG1+12, BEG1+13, BEG1+14, BEG1+15!, END+2!, APP+1, APP+2, APP+3* , APP+4*, APP+6!
RBFLG	RESOLVE+6~, RESOLVE+7, RESOLVE+8
S	END+2!, CHK1+1, CHK1+2, CHK1+4, CHECK+6
SC	EN+1, EN+2, EN+3, EN+5, BEG1+2*, BEG1+4, BEG1+10, BEG1+11, BEG1+13, BEG1+14 , END+1, END+4!, CHK, RESOLVE+2, RESOLVE+3, RESOLVE+4, RESOLVE+5, RESOLVE+6, RESOLVE+8, RESOLVE+9 , DUP+1, DUP+2, DUP+3, DUP+4, DUP+5, DUP+6, APP+1, APP+3, APP+4
SD	BEG1+4*, END+4!, DUP+1, DUP+2, DUP+3, DUP+4, DUP+5, DUP+6, DUP+7
SD1	END+4!
SD8	END+4!
SD81	END+4!
SD82	END+4!
SDADD	END+5!
SDANS	END+4!
SDAP	END+3!, DUP+1*, DUP+2, DUP+3, DUP+4, DUP+5, DUP+6
SDAPNUM	END+3!, DUP+2*, DUP+3, DUP+4, DUP+5, DUP+6
>> SDAR	BEG1+1*, BEG1+2
>> SDBD	EN+2, BEG1+4
SDC	END+5!
SDCAN	RESOLVE+6~
SDCL	END+5!
SDCNT	END+4!
SDDAT	END+5!
SDDIF	END+4!, END+5!
>> SDED	EN+2, BEG1+4
SDERR	END+4!
SDFFFF	EN+4*, BEG1+6, END+5!, APP
SDFIRST	BEG1~, BEG1+6, APP
SDFORM	ASKL+1, EN+6, END+4!, END+5!
SDHTO	END+4!
SDHX	END+5!
SDIN	EN+2!*, AOR+1, END+2!
SDINP	END+4!, END+5!
SDIV	EN+1*, EN+6, END+5!
SDJ	END+4!
SDLE	END+4!
SDLET	ASKL+1, EN+3, BEG1+3, END+4!, END+5!
>> SDLT	EN+1, EN+2, EN+5, EN+7, EN+8, AOR+1, AOR+3, START, BEG1+1, BEG1+7 , BEG1+8
SDLT1	ASKL+1*, EN+3, END+4!
SDNODE	END+4!, END+5!
SDOK	END+4!
SDOK1	BEG1+3!, END+4!, CHK!*
SDRE	EN+2!*, END+2!
SDRE1	END+2!
SDREB	RESOLVE+6~, RESOLVE+8, RESOLVE+9
SDRT	END+4!, END+5!
SDSOH	END+4!, END+5!
SDST	END+4!, END+5!
SDSTRTDT	END+2!
SDT0	END+5!
SDTIME	BEG1+11, END+4!, RESOLVE+6, CHECK+6
SDTRB	RESOLVE+6~, RESOLVE+8
SDV1	EN+1, END+4!, END+5!
>> SDVAUTC(	EN+1
>> SDX	CHK1, CHK1+2, CHK1+4
SDX1	END+2!
SDX2	END+2!
SDZ	END+4!
SI	END+2!, CHK*
SL	END+2!, CHK*!
SM	END+2!
SS	END+2!
ST	END+2!
STARTDAY	END+4!
STIME	END+2!
TIME	END+2!
TO	END+2!
TST	END+4!, END+5!
>> VAUTC	BEG1+1
W	END+4!
X	END+2!, CHK1*
X1	END+2!
X2	END+2!
Y	END+2!
Z	END+2!
Z0	END+4!
Z5	END+4!

Customize PDF page

Package: Scheduling

Routine: SDC0

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN	;Q:($P(^SC(SC,0),"^",3)'="C")!($D(SDVAUTC(+SC))) S SDIV=$P(^SC(SC,0),"^",15),SDIV=$S(SDIV:SDIV,1:$N(^DG(40.8,0))) I $D(SDLT),SDIV'=SDV1 Q ;IHS/ANMCLJF 8/18/2000
END	;
CHKEND
APP
CHK
CHK1
START
RESOLVE	;evaluate canceled and rebooked appointments with relation to EWL
AOR
DUP	;SCREEN FOR DUPLICATE PATIENTS - SD5.3379
ASKL	;S SDLT1="",%=1,(SDLET,SDFORM)="" W !,"WANT LETTERS PRINTED NOW" D YN^DICN I '% W !,"REPLY YES (Y) OR NO (N)" G ASKL ;IHS/ANMC/LJF 8/18/2000
CHECK
BEG1