Routine: SDM1

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Scheduling	8	(DOWCHK,MORD2,MORDIS)^SDM0 OK^SDM1A ^SDM2 ^SDM3 RDTY^SDMM (AT,DTS)^SDUTL OPT^SDWLE EN^SDWLKIL
VA Fileman	3	^%DT C^%DTC YN^DICN
IHS Changes To Scheduling	1	$$OVRBKUSR^BSDU
Kernel	1	($$DOW,$$FMDIFF)^XLFDT

Package

Total

Call Graph

Scheduling

(DOWCHK,MORD2,MORDIS)^SDM0 OK^SDM1A ^SDM2 ^SDM3 RDTY^SDMM (AT,DTS)^SDUTL OPT^SDWLE EN^SDWLKIL

VA Fileman

^%DT C^%DTC YN^DICN

IHS Changes To Scheduling

$$OVRBKUSR^BSDU

Kernel

($$DOW,$$FMDIFF)^XLFDT

Package	Total	Caller Graph
Scheduling	8	SDAMWI SDM0 SDM2 SDM3 SDMM SDMM1 SDMULT SDMULT1

Package

Total

Caller Graph

Scheduling

SDAMWI SDM0 SDM2 SDM3 SDMM SDMM1 SDMULT SDMULT1

Entry Points

External References

Name	Field # of Occurrence
^%DT	ADT+35, ADT+36, REDDT+4
C^%DTC	1+6, ADT+35, ADT+40
$$OVRBKUSR^BSDU	E+1
YN^DICN	PRECAN, E+2, SPIN+1
DOWCHK^SDM0	S+5
MORD2^SDM0	ADT+28
MORDIS^SDM0	ADT+27
OK^SDM1A	SP+7, X+3
^SDM2	EN1+1
^SDM3	SP+7, X+3
RDTY^SDMM	1+15
AT^SDUTL	ADT+34
DTS^SDUTL	IN, IN+1
OPT^SDWLE	WL+10
EN^SDWLKIL	WL+10
$$DOW^XLFDT	OVR+5
$$FMDIFF^XLFDT	OVR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,?8,"* SPECIAL INSTRUCTIONS **",! Line Location: 1+9
Function Call: WRITE	Prompt: ^(%I,0),! Line Location: 1+10
Function Call: WRITE	Prompt: !,7,?8,"* SPECIAL INSTRUCTIONS **",! Line Location: 1+13
Function Call: WRITE	Prompt: !,?8,@SDMSG Line Location: 1+14
Function Call: READ	Prompt: "DATE/TIME: " Formatting: ! Timeout: DTIME Variable: X Line Location: ADT+24
Function Call: READ	Prompt: "DATE/TIME: " Formatting: ! Timeout: DTIME Variable: X Line Location: ADT+25
Function Call: WRITE	Prompt: " ??",! Line Location: ADT+28
Function Call: WRITE	Prompt: Y Line Location: ADT+34
Function Call: WRITE	Prompt: *7,?50,$P(^(0),U,2),"??" Line Location: OVR+0
Function Call: WRITE	Prompt: !,*7,@SDMSG Line Location: OVR+1
Function Call: WRITE	Prompt: !,7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",7 Line Location: OVR+6
Function Call: WRITE	Prompt: ! Line Location: PRECAN+1
Function Call: READ	Timeout: DTIME Variable: S Line Location: LEN+0
Function Call: WRITE	Prompt: *7,!,$E($T(@SM),5,99),"...OK" Line Location: E+2
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: E+3
Function Call: WRITE	Prompt: !,*7,"ANOTHER USER HAS LOCKED THIS DATE - TRY AGAIN LATER" Line Location: LOCK+0
Function Call: WRITE	Prompt: !,*7,"CAN'T BOOK WITHIN A CANCELLED TIME PERIOD!",! Line Location: C+0
Function Call: WRITE	Prompt: *7," WHEN??" Line Location: XW+0
Function Call: WRITE	Prompt: *7,!!,"That date is prior to the patient's date of birth.",!! Line Location: AVCHK+3
Function Call: WRITE	Prompt: *7,!!,"That date is prior to the clinic's availability date.",!! Line Location: AVCHK1+2
Function Call: WRITE	Prompt: !,"NO OPEN SLOTS THEN",*7 Line Location: NOOB+0
Function Call: WRITE	Prompt: !,+SL," MINUTE APPOINTMENTS " Line Location: WRT+0
Function Call: WRITE	Prompt: $S($P(SL,U,2)["V":"(VARIABLE LENGTH)",1:"") Line Location: WRT+1
Function Call: WRITE	Prompt: *7,!,"Appt. length must = or be a multiple of the increment minutes per hour (",SDSL,")",! Line Location: L+1
Function Call: WRITE	Prompt: !,"There are more special instructions. Do you want to display them" Line Location: SPIN+0
Function Call: WRITE	Prompt: !,"Enter Y to see the remaining special instructions, or N if you don't wish to see them" Line Location: SPIN+2
Function Call: WRITE	Prompt: !,^SC(SC,"SI",%I,0),! Line Location: SPIN+4
Function Call: WRITE	Prompt: ! Line Location: REDDT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN1+1, PRECAN, AVCHK+1
^HOLIDAY - [#40.5]	OVR
^SC - [#44]	1+1, 1+10, 1+13, ADT+1, ADT+38, S+3, S+10*, SC+1, SC+2, SP+2 , SP+4, AVCHK1+1, SPIN+4, WL+2, WL+5
^SDWL(409.31 - [#409.31]	WL+5, WL+7
^SDWL(409.32 - [#409.32]	WL+4, WL+6

Label References

Name	Line Occurrences
$$REDDT	ADT+28
1	OVR+2, S, S+1, S+8, E+4, C+1, XW, NOOB
ADT	ADT+28, ADT+29, ADT+35, ADT+38, OVR, OVR+1, OVR+6, PRECAN
AVCHK	S
AVCHK1	S+1
C	SP+2
DAY	S+10
DOW	EN1
E	E+3
EN1	OVR+5
IN	1+14, OVR+1
L	LEN
LEN	LEN
LOCK	SC
NOOB	E+1
OVR	ADT+34
S	LEN
SC	SC+1, E+4
SP	SP
SPIN	1+13, SPIN+2
WL	ADT+26
WRT	1+6
X	SC+4, SP+2
XW	S+10, X+1

Name	Field # of Occurrence
^(	1+10, 1+13, EN1+1, S+10
^("SI"	1+10, 1+13
^("SL"	ADT+1
^(0	OVR, EN1+1, PRECAN, S+10*, WL+7
^(1	S+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	1+13, PRECAN, SC+5, E+2, E+3, E+4, DOW, DOW+1, SPIN+1*, SPIN+2 , SPIN+3
%DT	ADT+35!, ADT+36!, REDDT+1~, REDDT+2*
%DT("A"	REDDT+3*
>> %I	1+10, 1+13, SPIN+4
AVDT	AVCHK1+1*, AVCHK1+2!
BSDMAX	1+4~*, OVR+5
>> CCX	ADT+1*
>> CCXN	1*
COV	1!
>> DFN	1, EN1+1, PRECAN, AVCHK+1
>> DILOCKTM	SC+1
DT	1+1, 1+14, OVR+5
DTIME	ADT+25, LEN
DUZ	E+1
DUZ(2	WL+7
>> HSI	SC+3
>> I	EN1+1, SC+3, SC+4, SP+2*, X+1
MXOK	1!, SP+7, X+3
POP	1+13, S, S+1, S+4, S+7, S+8, S+9!, LEN, C, X* , AVCHK+3, AVCHK1+2, L+1, SPIN+3
>> S	EN1+1, LEN, SC+2, SC+4, SC+5, SP, SP+2*, L+1
>> SB	SC+3
SC	1*, 1+1, 1+10, 1+13, ADT+1, ADT+26, ADT+38, S+3, S+10, SC+1 , SC+2, SP+2, SP+4, E+1, AVCHK1+1, SPIN+4, WL~, WL+1, WL+2, WL+3 , WL+4, WL+5, WL+6
>> SD	ADT+31, ADT+34, EN1*, EN1+1, PRECAN, S+3, S+10, SC+1, SC+2, SC+3 , SP+2
>> SDDIF	SC+3, SC+5, SP+2
>> SDEDT	1+1, 1+4, 1+6, OVR+6
SDHY	IN*, IN+2!
>> SDINA	1+14, OVR+1, IN
>> SDLOCK	SC, SC+2
>> SDMM	1+15, SP+7, LOCK, C+1, X
SDMSG	1+14!, OVR+1!, IN+2*
>> SDNOT	SP+1*
>> SDONCE	ADT+2*, ADT+23
SDPROT	1!
>> SDRE	OVR+1, IN, IN+2
SDSDATE	ADT+23, OVR!, OVR+1!, OVR+2!, OVR+6!, PRECAN!, S+7!, E+4!, C+1!, XW! , AVCHK+3!, AVCHK1+2!, NOOB!
>> SDSL	L*, L+1
>> SDSOH	ADT+1*, OVR
>> SDW	ADT*
SDWLDS	WL+7*, WL+9!
SDWLDSS	WL+5*, WL+7, WL+9!
>> SDWLERR	WL+10*
SDWLFLG	WL+3, WL+4, WL+5, WL+6, WL+7*, WL+8, WL+9!
>> SDWLOPT	WL+10*
SDWLSC	WL+6*, WL+9!
>> SDXXX	1
>> SI	S+10, SC+3
>> SL	LEN*, SC+3, SC+5, SP+4, SP+7, X+3, WRT, WRT+1, L
>> SM	EN1, SC+5, SP+2, SP+7, E+4, X+2*, X+3
>> SS	S+10, SC+3, SC+5, SP+2
>> ST	SC+3, SC+5, SP, SP+2, SP+3, SP+5*
>> STR	SP+2
>> TMPD	EN1*
U	OVR, EN1+1, PRECAN, S+10, LEN, SP+7, X+3, AVCHK+1, AVCHK+2, AVCHK+3 , WRT+1, WL+5, WL+6, WL+7
>> VADM	AVCHK+1
>> VADM(3	AVCHK+1*, AVCHK+2, AVCHK+3
X	1+6, ADT+23, ADT+25, ADT+26, ADT+27, ADT+28, ADT+29, ADT+34, ADT+35, ADT+40 , EN1*, S+4, DOW, DOW+2, AVCHK+2, AVCHK+3, AVCHK1+2, REDDT+1~
>> X1	1+1, ADT+35, ADT+40*
>> X2	1+6, ADT+35, ADT+40*
XDT	S+4*, S+6!
Y	ADT+34, ADT+35, ADT+38, ADT+40, OVR, OVR+1, OVR+2, OVR+5, OVR+6, EN1 , S+10, SP+2, DOW, DOW+1, DOW+2, X+2, IN, IN+1, IN+2, REDDT+1~ , REDDT+5
Y1	IN*, IN+2!

Customize PDF page

Package: Scheduling

Routine: SDM1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
AVCHK1	;added SD5.3490
C
DOW
1
EN1
7	;;THAT TIME IS NOT WITHIN SCHEDULED PERIOD!
6	;;OVERBOOK!
WL(SC)	;Wait List Hook/teh patch 263 ;SD/327 passed 'SC'
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
ADT
E	;G:'$D(^XUSEC("SDOB",DUZ)) NOOB ;IHS/ANMC/LJF 12/13/2000
LOCK
L
S
IN
X
SPIN
XW
OVR
REDDT()	;Prompt for availability redisplay date
NOOB
SP
WRT
LEN
PRECAN
SC
AVCHK	;added SD5.3490