Routine: SDUNC

Package	Total	Call Graph
Scheduling	4	DOW^SDM0 ERRM^SDUNC1 DTS^SDUTL $$CLNCK^SDUTL2
VA Fileman	3	^%DT ^DIC DT^DICRW
IHS Changes To ADT	1	MSG^BDGF
IHS Changes To Scheduling	1	($$INACTMSG,$$OWNER)^BSDU

Package

Total

Call Graph

Scheduling

DOW^SDM0 ERRM^SDUNC1 DTS^SDUTL $$CLNCK^SDUTL2

VA Fileman

^%DT ^DIC DT^DICRW

IHS Changes To ADT

MSG^BDGF

IHS Changes To Scheduling

($$INACTMSG,$$OWNER)^BSDU

Package	Total	Caller Graph
IHS Changes To Scheduling	2	ASDAVAIL BSDAVAIL
Scheduling	1	SDRESTORE

Package

Total

Caller Graph

IHS Changes To Scheduling

ASDAVAIL BSDAVAIL

Scheduling

SDRESTORE

Name	Field # of Occurrence
^%DT	SDUNC+16
MSG^BDGF	SDUNC+11
$$INACTMSG^BSDU	SDUNC+9
$$OWNER^BSDU	SDUNC+11
^DIC	SDUNC+9
DT^DICRW	SDUNC+9
DOW^SDM0	B
ERRM^SDUNC1	SDUNC+23
DTS^SDUTL	SDUNC+18
$$CLNCK^SDUTL2	SDUNC+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"Clinic MUST be corrected before continuing." Line Location: SDUNC+15
Function Call: WRITE	Prompt: !,*7,"Clinic is inactive ",$S(SDRE:"from ",1:"as of "),SDIN1,$S(SDRE:" to "_SDRE1,1:"") Line Location: SDUNC+19
Function Call: WRITE	Prompt: !,"RESTORED!",*7 Line Location: SDUNC+22
Function Call: WRITE	Prompt: !!,"** This date CANNOT be RESTORED. **",!,"Clinic has been INACTIVATED and default slots have been removed.",!,"You must enter the AVAILABILITY again under Set Up A Clinic." Line Location: SDUNC+28
Function Call: WRITE	Prompt: !,7,"CLINIC HAS NOT BEEN CANCELLED FOR THAT DATE, SO IT CANNOT BE RESTORED",7 Line Location: NOWAY+0
Function Call: WRITE	Prompt: !,7,"NO UPCOMING OR INDEFINITE APPOINTMENT PATTERN EXISTS FOR DAY OF WEEK,",!,"CREATE 'AVAILABILITY' PATTERN THRU 'CLINIC SETUP', THEN RESTORE AGAIN",7 Line Location: NOPAT+0
Function Call: WRITE	Prompt: !,*7,"CLINIC DOES NOT MEET ON THAT DAY" Line Location: N+0
Function Call: WRITE	Prompt: !,"RESTORED!",*7 Line Location: N+1
Function Call: WRITE	Prompt: !,"Clinic has been cancelled for the following periods:",! Line Location: SEL+1
Function Call: WRITE	Prompt: !,?9,"(",$J(I1,2),") ","From: ",$J($P(I,"^",1),8)," To: ",$J($P(I,"^",2),8) Line Location: SEL+8
Function Call: WRITE	Prompt: !,?9,"(",$J(I1,2),") ","From: ",$J($P(I,"^",1),8)," To: ",$J($P(I,"^",2),8) Line Location: SEL+9
Function Call: READ	Prompt: "RESTORE WHICH PERIOD?: " Formatting: !! Timeout: DTIME Variable: X Line Location: A+0
Function Call: WRITE	Prompt: !,"Enter the # that precedes the time period you want to restore." Line Location: A+1
Function Call: WRITE	Prompt: " ",$P(SDTEMP(SDZZ(SDR)),"^",1)," - ",$P(SDTEMP(SDZZ(SDR)),"^",2) Line Location: A+2
Function Call: WRITE	Prompt: !,*7,"INVALID CHOICE, TRY AGAIN" Line Location: A+3
Routine Call	DIC Line Location: SDUNC+9

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	SDUNC+9, SDUNC+12, SDUNC+18, SDUNC+20, SDUNC+21, SDUNC+22!, SDUNC+23, SDUNC+27, SDUNC+29, SDUNC+32* , B, N!, N+1!, FIX, FIX+1, CHK, FIX2, SEL, SEL+5, SEL+7 , ROK+3!

Name	Line Occurrences
A	A+1, A+3
B	SDUNC+27
CHK	SDUNC+22, N+1
FIX	SDUNC+22
FIX2	B
KMES	CHK
N	SDUNC+29, SDUNC+32
NOWAY	SDUNC+20, SDUNC+21
ROK	A+2
SDUNC	SDUNC+9, SDUNC+11, SDUNC+15, SDUNC+19, NOWAY, NOPAT, N
SEL	FIX, FIX2+1
TC	ROK
TM	SEL+5, SEL+7

Name	Field # of Occurrence
^(	B, SEL+5
^("I"	SDUNC+18
^("MES"	CHK, KMES!, KMES+1!
^("SL"	SDUNC+13, SEL
^(0	ROK+3*
^(1	SDUNC+21, SDUNC+22, B

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SDUNC+17, SEL, ROK, TC, TM
%DT	SDUNC+16*!
%DT("A"	SDUNC+16*
>> CDATE	SDUNC+17*, SDUNC+19, ROK+1
CNT	ROK+3*!
>> DA(1	B*
>> DH	SDUNC+28, SDUNC+29, SDUNC+32, B, FIX2+1
>> DIC	SDUNC+9*
>> DIC("A"	SDUNC+9*!
>> DIC("S"	SDUNC+9*!
>> DIC("W"	SDUNC+9*
>> DIC(0	SDUNC+9*
>> DO	B*
>> DOW	B*
DTIME	A
DUZ	SDUNC+11
FR	ROK*, ROK+1, ROK+5!
>> HOLD	SDUNC+22, B, FIX+1, FIX2+1, ROK+3, ROK+4
>> I	SEL+5, SEL+7, SEL+9*
>> I1	SEL+9*
I5	ROK+4*!
>> N1	CHK*, KMES+1
>> SC	SDUNC+13*, SDUNC+14, SDUNC+18, SDUNC+20, SDUNC+21, SDUNC+22, SDUNC+23, SDUNC+27, SDUNC+29, SDUNC+32 , B, N, N+1, FIX, FIX+1, CHK, FIX2, SEL, SEL+5, SEL+7 , ROK+3
>> SD	SDUNC+17*, SDUNC+20, SDUNC+21, SDUNC+22, SDUNC+23, SDUNC+27, SDUNC+29, SDUNC+32, B, N , N+1, FIX, FIX+1, CHK, FIX2, SEL+5, SEL+7, ROK+3
SDANS	ROK+5!
SDBEG	ROK*, ROK+3, ROK+5!
SDEND	ROK*, ROK+3, ROK+5!
SDFR	SEL+5, SEL+7, A!
SDFR1	SDUNC+22, SDUNC+27, SDUNC+32, CHK, FIX2+1, SEL!, ROK+1*, ROK+3, KMES, KMES+1
SDFRX	SEL+5, SEL+7, A!
SDIN	SDUNC+18!*, SDUNC+19, SDUNC+20!
SDIN1	SDUNC+18!*, SDUNC+19, SDUNC+20!
SDR	A+2*, ROK, ROK+1!
SDRE	SDUNC+18!*, SDUNC+19, SDUNC+20!
SDRE1	SDUNC+18!*, SDUNC+19, SDUNC+20!
SDRES	SDUNC+14~*, SDUNC+15
>> SDREST	FIX, FIX2+1, ROK+3
SDTEMP	SEL+5!, ROK+1!
SDTEMP(	SEL+5, SEL+7, SEL+9, A+2
SDTO	SEL+5*, A!
SDZZ	SEL+5!, SEL+7, ROK+1!
SDZZ(	SEL+5, SEL+7, SEL+9, A+2, ROK
SI	SDUNC+17, B, SEL, ROK, ROK+5!, TC
>> SL	SDUNC+13, SDUNC+17, SEL
>> SS	B*
STARTDAY	SDUNC+17, SEL, ROK+5!, TC
TO	ROK*, ROK+5!
U	SDUNC+16, SDUNC+17, SEL, ROK+3
>> X	SDUNC+9, B, SEL+5, SEL+7, A, A+1, A+2, ROK, TC, TM
X1	SEL+5, SEL+7, A!, TM*
>> Y	SDUNC+9, SDUNC+11, SDUNC+12, SDUNC+13, SDUNC+16, SDUNC+17, SDUNC+18*, B

Customize PDF page

Package: Scheduling

Routine: SDUNC

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: