Routine: SDMM

Package	Total	Call Graph
Scheduling	8	^SDM (D,DOW)^SDM0 ($$REDDT,L)^SDM1 SDMM^SDM1A MAKE^SDMM1 (AT,DTS)^SDUTL (ANSW,ASKREM,EN)^SDWLEVAL (INIT,LIST)^SDWLPL
VA Fileman	3	^%DT C^%DTC YN^DICN
IHS Changes To ADT	1	$$READ^BDGF

Package	Total	Caller Graph
Scheduling	5	SD IHS MULT BOOK SDM1 SDM1A SDMM1 SDMULTIBOOK
IHS Changes To Scheduling	1	BSDMM

Entry Points

External References

Name	Field # of Occurrence
^%DT	ADT+8, ADT+9, EN+3
C^%DTC	ADT+8, ADT+10, GETNEX+1, GETNXD+1, SDFT, MORDIS+1, DISP+2
$$READ^BDGF	RDTY+2
YN^DICN	RD22
^SDM	SDMM+5
D^SDM0	DISP+2
DOW^SDM0	LEN+1, GETNXD, GETNXD+1
$$REDDT^SDM1	ADT+5
L^SDM1	LEN
SDMM^SDM1A	BEGIN
MAKE^SDMM1	BEGIN+3
AT^SDUTL	ADT+7
DTS^SDUTL	OVR+1, MORD2, DISP+1
ANSW^SDWLEVAL	END+7, END+8
ASKREM^SDWLEVAL	END+16
EN^SDWLEVAL	END+2, END+9
INIT^SDWLPL	END+4
LIST^SDWLPL	END+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTER 'D' FOR DAILY OR PRESS RETURN" Line Location: RDTY+1
Function Call: WRITE	Prompt: !,"WANT APPOINTMENTS MADE ON SATURDAYS AND SUNDAYS" Line Location: RD22+0
Function Call: READ	Prompt: "DATE/TIME: " Formatting: ! Timeout: DTIME Variable: X Line Location: ADT+3
Function Call: WRITE	Prompt: Y Line Location: ADT+7
Function Call: WRITE	Prompt: *7,?50,$P(^(0),U,2),"??" Line Location: OVR+0
Function Call: WRITE	Prompt: !,*7,"Clinic is scheduled to be inactivated on ",Y Line Location: OVR+1
Function Call: WRITE	Prompt: $S(SDRE:" and reactivated on "_Y,1:"") Line Location: OVR+1
Function Call: WRITE	Prompt: !,7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",7 Line Location: OVR+3
Function Call: READ	Timeout: DTIME Variable: S Line Location: LEN+0
Function Call: WRITE	Prompt: !,"LENGTH OF APPOINTMENTS (IN MINUTES): ",+SL,"// " Line Location: LEN+0
Function Call: WRITE	Prompt: X,"?: " Line Location: RDC+0
Function Call: WRITE	Prompt: !,"FOR HOW MANY CONSECUTIVE ",$S(SDTYP="M":"MONTHS",SDTYP="B":"EVERY OTHER "_$P($T(DAY),U,Y+2)_"DAY'S",SDTYP="W":$P($T(DAY),"^",Y+2)_"DAY'S",1:"DAYS")," DO YOU WANT APPOINTMENTS SCHEDULED",!," AT " Line Location: RDC+1
Function Call: WRITE	Prompt: X,"?: " Line Location: RDC+1
Function Call: READ	Timeout: DTIME Variable: SDCN Line Location: RDC+3
Function Call: READ	Prompt: " OTHER INFO: " Formatting: ! Timeout: DTIME Variable: D Line Location: OTHER+0
Function Call: WRITE	Prompt: !,*7,"'^' not allowed - hit return if no 'OTHER INFO' is to be entered" Line Location: OTHER+0
Function Call: WRITE	Prompt: " ENTER LAB, SCAN, ETC." Line Location: OTHER+2
Function Call: WRITE	Prompt: !,SDMCNT," APPOINTMENTS MADE",! Line Location: END+0
Function Call: WRITE	Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",! Line Location: END+8
Function Call: WRITE	Prompt: !,"Enter the number of appointments you want made (between 1 and 60)." Line Location: HLP+0
Function Call: WRITE	Prompt: !,"ENTER 'YES' IF YOU WANT THE SYSTEM TO TRY TO MAKE APPOINTMENTS ON SATURDAYS AND SUNDAYS" Line Location: HLP22+0
Function Call: WRITE	Prompt: !,*7,"Appointments can't be made while clinic is inactivated" Line Location: INACT+0
Function Call: WRITE	Prompt: !,"Enter a date/time for the appointment" Line Location: HLP1+0
Function Call: WRITE	Prompt: ".",!,"You may also select 'M' to display the next month's availability or" Line Location: HLP1+2
Function Call: WRITE	Prompt: !,"'D' to specify an earlier or later date to begin the availability display." Line Location: HLP1+3
Function Call: WRITE	Prompt: !!?5,"Text entered at OTHER INFO prompt was too long. Please re-enter.",! Line Location: MSG+0
Function Call: WRITE	Prompt: *7," ??" Line Location: MORDIS+0
Function Call: WRITE	Prompt: *7,!,"Clinic is inactivated as of ",Y Line Location: MORD2+0
Function Call: WRITE	Prompt: !!,"Unable to evaluate date value """_X_""".",! Line Location: EN+4
Function Call: WRITE	Prompt: @IOF Line Location: DISP+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	EN+6*
^HOLIDAY - [#40.5]	OVR, GETNEX, GETNEX+1, GETNXD, GETNXD+1
^SC - [#44]	ADT+11, SDFT, DISP
^TMP("SDWLPL"	END+3!
^TMP($J	RDTY!, END+2, END+3!, END+5, END+7, END+8, END+9, END+16

Label References

Name	Line Occurrences
@(	BEGIN+8
ADT	ADT+4, ADT+5, ADT+6, ADT+8, OVR, OVR+1, OVR+2, OVR+3, RDC+3, BEGIN+11 , MORDIS, MORD2
DAY	RDC+1
END	RDTY+2
GETNEX	GETNEX, GETNEX+1
GETNXD	GETNXD, GETNXD+1
HLP	RDC+3
HLP1	ADT+6
HLP22	RD22
INACT	GETNEX, GETNEX+1, GETNXD, GETNXD+1
LEN	LEN
MORD2	ADT+5
MORDIS	ADT+4
MSG	OTHER+1, OTHER+3
OTHER	OTHER, OTHER+1, OTHER+2, OTHER+3
OVR	ADT+7
RD22	HLP22
RDC	HLP
SDFT	OVR+3
TM	RDC+1

Naked Globals

Name	Field # of Occurrence
^("SDP"	SDFT
^("SL"	ADT+11, DISP
^(0	OVR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RD22, END+21!, TM
%DT	ADT+8!, ADT+9!, EN+2~, EN+3*
%H	END+21!
%T	END+21!
BSDMK	BEGIN+2*, BEGIN+4!
C	END+21!
CCX	ADT*, END+20!
COLLAT	END+20!
COV	END+20!
D	OTHER, OTHER+1, OTHER+2, OTHER+3, BEGIN, END+20!
>> DFN	END+2, END+4, END+7, END+9
DISYS	END+21!
DT	SDFT
DTIME	ADT+3, LEN, RDC+3, OTHER
DUZ	EN+6
I	END+20!
IOF	DISP*
POP	LEN, BEGIN+3, BEGIN+8, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1, INACT*
S	LEN*, END+20!
SC	ADT+11, END+20!, SDFT, EN+6, DISP
SD	ADT+3!, BEGIN+5, END+20!, HLP1+1
SDALLE	END+21!
SDAPDT	SDMM+5~, ADT+7, BEGIN+5*
SDAPTYP	END+20!
SDATD	END+21!
SDAV	END+21!, DISP*
SDCN	RDC+3*, BEGIN+3, BEGIN+4, END+20!
>> SDCTN	END+16*
SDDAT	LEN+1, RDC+4, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1*, INACT
SDDECOD	END+21!
SDEC	END+21!
SDEDT	OVR+3, END+20!, SDFT*
SDEMP	END+20!
SDERRFT	ADT!, BEGIN+3, BEGIN+11
SDEV	END+2~, END+9~
SDEV(1	END+2, END+9
SDHX	SDMM+5~, ADT+1*, END+21!, MORDIS, MORDIS+1
SDHY	MORD2!, DISP+1!
SDIN	END+21!
SDINA	OVR+1, END+20!, INACT, MORD2, DISP+1
SDINP	END+21!
SDLOCK	END+20!
SDM9	BEGIN*, END+20!
SDMADE	RDC+4, BEGIN+5, BEGIN+8, END+20!
SDMCNT	RDTY+2, RDC+4, BEGIN+5*, END, END+20!
SDMES	END+20!
SDMM	SDMM+5*!
SDNOT	END+20!
SDOEL	END+21!
SDOT	LEN+1*, RDC+1, RDC+4, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1
SDPL	END+20!
SDR	END+7~, END+8~
SDRE	OVR+1, END+20!, INACT, MORD2, DISP+1
SDRT	END+20!
SDSC	END+20!
SDSDATE	ADT+1!
SDSOH	ADT+11, OVR, END+20!, GETNEX, GETNEX+1, GETNXD, GETNXD+1, DISP
SDT	END+21!
SDTTM	END+20!
SDTYP	RDTY+2*, RD22, RDC+1, BEGIN+8, END+20!
SDW	OTHER+3, END+20!, END+21!
SDWE	RD22*, END+21!, GETNXD, GETNXD+1
SDWEE	END+20!
SDX	DISP+2*!
SDX3	END+20!, END+21!
SDX7	END+20!, END+21!
SDX9	BEGIN*, END+20!, END+21!
SDXF	END+21!, MORDIS+1*
SDY	OVR+1*!, END+21!
SDY1	OVR*, OVR+1, END+20!, END+21!
SDYC	END+20!, END+21!
SDZ	BEGIN+3*, BEGIN+4, BEGIN+5, END+20!
SDZM	BEGIN*!
SDZY	BEGIN*, END+20!, END+21!
SI	END+21!
SL	LEN*, END+21!
SM	END+21!
SS	END+21!
U	OVR, LEN, RDC+1, SDFT, EN+6
X	ADT+1, ADT+2, ADT+3!, ADT+4, ADT+5, ADT+6, ADT+7, ADT+8, ADT+10, LEN+1* , RDC+1, BEGIN, BEGIN+8, GETNEX+1, GETNXD, GETNXD+1, TM, SDFT, MORD2, EN* , EN+4, DISP+2*
X1	ADT+8, ADT+10, END+21!, GETNEX+1, GETNXD+1, SDFT, MORDIS+1, DISP+2*
X2	ADT+8, ADT+10, END+21!, GETNEX+1, GETNXD+1, SDFT, MORDIS+1, DISP+2*
Y	ADT+7, ADT+8, ADT+10, OVR, OVR+1, OVR+2, OVR+3, LEN+1, RDC+1, RDC+4 , BEGIN, END+21!, GETNEX, GETNEX+1, GETNXD, GETNXD+1, MORD2, EN+1, EN+4, EN+6 , DISP+1, DISP+2

Customize PDF page

Package: Scheduling

Routine: SDMM

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
DISP
EN
MSG
RDTY
BEGIN
TM
INACT
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
MORDIS
ADT
SDFT
END
OTHER
HLP22
RDC	;W !,"FOR HOW MANY CONSECUTIVE ",$S(SDTYP["W":$P($T(DAY),"^",Y+2)_"DAY'S",1:"DAYS")," DO YOU WANT APPOINTMENTS SCHEDULED",!," AT " S X=SDOT D TM W X,"?: "
MORD2
RD22
OVR
LEN
HLP
HLP1
GETNEX
GETNXD