Routine: SDM0

Information

SDM0 ;SF/GFT - MAKE APPOINTMENT ; 11 Jun 2001 5:20 PM

Source Information

Source file <SDM0.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Scheduling	6	$$CPAIR^SCRPW71 (,ADT)^SDM1 $$TXRT^SDM1A RD^SDMULT (END,OVR)^SDMULT0 DTS^SDUTL
VA Fileman	4	^%DT (,C)^%DTC DT^DIQ ^DIR
Kernel	2	^%ZIS ($$DOW,$$FMADD,$$FMTE)^XLFDT
IHS Changes To ADT	1	PAUSE^BDGF
IHS Changes To Scheduling	1	EN^BSDM0
Registration	1	(FULL,PAUSE)^VALM1

Caller Graph

Caller Graph Total: 30

Package	Total	Caller Graph
Scheduling	24	SCMSPX1 SCMSPX2 SDAMWI SDASO SDB SDB1 SDC SDCNP0 SDCNP1 SDD0 SDDPA SDDSO SDM SDM1 SDM4 SDMM SDMM1 SDMULT0 SDMULT1 SDNACT SDNACT1 SDREACT SDST SDUNC
IHS Changes To Scheduling	6	ASDI ASDM ASDMON ASDOI BSDC BSDMON

Entry Points

External References

Name	Field # of Occurrence
^%DT	EN+3, DASK+32, DT1, LIM+2
^%DTC	DIFF
C^%DTC	DISP+2, L+3, MORDIS+1
^%ZIS	SUP+2
PAUSE^BDGF	NEXT+7
EN^BSDM0	D+1
DT^DIQ	LIM
^DIR	SRTY+11, DASK+24
$$CPAIR^SCRPW71	PTFU+10, PTFU+19
^SDM1	M+11, DISP+2
ADT^SDM1	MORDIS, MORD2
$$TXRT^SDM1A	SRTY+12
RD^SDMULT	1
END^SDMULT0	DT1, LIM
OVR^SDMULT0	M+16, LIM, LIM+3
DTS^SDUTL	DISP+1, L+2, L+4, MORD2, MNTH, LIM+1
FULL^VALM1	D+1
PAUSE^VALM1	DISP+1
$$DOW^XLFDT	M+6, DOW, DOWCHK+3
$$FMADD^XLFDT	M+7
$$FMTE^XLFDT	NEXT+4, DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: M+11
Function Call: WRITE	Prompt: !!,"Unable to evaluate date value """_X_""".",! Line Location: EN+4
Function Call: WRITE	Prompt: @IOF Line Location: DISP+0
Function Call: WRITE	Prompt: #!?36,$P(SC,U,2) Line Location: D+2
Function Call: WRITE	Prompt: !,$E(^SC(+SC,"ST",X,1),1,80) Line Location: W+3
Function Call: WRITE	Prompt: ! Line Location: W+4
Function Call: WRITE	Prompt: !,"No availability found between date chosen and inactivate date!" Line Location: NOAV+0
Function Call: WRITE	Prompt: !?36 Line Location: WM+0
Function Call: WRITE	Prompt: !," DATE",?SI+SI-1,"\|" Line Location: WMH+2
Function Call: WRITE	Prompt: $J("\|",SI+SI) Line Location: WMH+3
Function Call: WRITE	Prompt: $$FMTE^XLFDT(Y) Line Location: DT+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: !," *** No availability found for one full calendar month",!," Search stopped at " Line Location: MNTH+0
Function Call: WRITE	Prompt: Y," ***",! Line Location: MNTH+0
Function Call: WRITE	Prompt: ! Line Location: SRTY+11
Function Call: WRITE	Prompt: !!,"Calculating follow-up status" Line Location: PTFU+12
Function Call: WRITE	Prompt: !!?2,"Select one of the following:",! Line Location: DDATE+7
Function Call: WRITE	Prompt: !?5,"'F'",?20,"for First available following a specified date" Line Location: DDATE+8
Function Call: WRITE	Prompt: !?5,"Date",?20,"(or date computation such as 'T+2M') for a desired date" Line Location: DDATE+9
Function Call: WRITE	Prompt: !?5,"Date/time",?20,"to schedule a specific appointment - Note: PAST dates",!?20,"must include the Year in the input." Line Location: DDATE+10
Function Call: WRITE	Prompt: !?5,"'?'",?20,"for detailed help" Line Location: DDATE+11
Function Call: WRITE	Prompt: ! Line Location: DASK+24
Function Call: WRITE	Prompt: *7,!!,"That date is prior to the date ",DY," was added to the" Line Location: DWWRT+2
Function Call: WRITE	Prompt: !,"availability pattern for this clinic.",!! Line Location: DWWRT+3
Function Call: READ	Prompt: "// " Timeout: DTIME Variable: X Line Location: LIM+0
Function Call: WRITE	Prompt: !," ENTER LATEST DATE TO CHECK FOR 1ST AVAILABLE SLOT: " Line Location: LIM+0
Function Call: WRITE	Prompt: !," The latest date for future bookings for ",$P(SDC(1),"^",2)," is: " Line Location: LIM+1
Function Call: WRITE	Prompt: Y,!," If you enter a date here, it must be less than this date to further limit the",!," search" Line Location: LIM+1
Routine Call	DIR Line Location: SRTY+11 DASK+24
Routine Call	%ZIS Line Location: SUP+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	I1
^DGPM("ATID1"	INPAT, I1
^DISV(	EN+6*, NEXT+1!, DASK+25
^HOLIDAY - [#40.5]	W+1, W+3
^SC - [#44]	M+5, DISP, NEXT+2, D+2, W, W+1, W+3, H, WM+2, WMH+2 , PTFU+10, PTFU+18, DOWCHK+2, DOWCHK+6, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11
^SCE - [#409.68]	PTFU+15
^SCE("ADFN"	PTFU+13, PTFU+14

Label References

Name	Line Occurrences
$$DDATE	M+9
$$PTFU	M+3
$$SRTY	M+1
1	DT1
D	DISP+2
DASK	DASK+33, DASK+35
DAY	W+1
DIFF	L+2
DISP	NEXT+10
DOW	D+2
DOWCHK	W
DT	WM+4, DT1
DT1	M+14
DWWRT	DOWCHK+2
EN	NEXT, MORD2+1
H	W+1
I1	INPAT
L	W, W+1
LIM	LIM+1, LIM+2
MNTH	L+5
NEXT	M+14, M+16
NOAV	L+2, L+4
SAVE	SUP+2
SET	NEXT
SUP	M+14, M+16
W	L+3, H
WM	D+2, W+2
WMH	D+2, W+2
X1	L+5

Name	Field # of Occurrence
^(	W+1, H
^("SL"	DISP
^(0	D+2, W+1, H, I1
^(1	W+1, W+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+2~, EN+3, DASK+30~, DASK+32, DT1!, LIM+2!
%DT("A"	DT1*
%DT(0	DT1, LIM+2
CT	DOWCHK+5, DOWCHK+6, DOWCHK+7, DOWCHK+13!, DWWRT+4!
>> D	D+2, W+1, L+1, L+5, DIFF*
DFN	M+3, INPAT, I1, SRTY+5, PTFU~, PTFU+6, PTFU+13, PTFU+14, DDATE+10, DASK+13 , DASK+14, DASK+34, DASK+35
DIR	SRTY+7~, DASK~
DIR("?"	SRTY+10, DASK+6, DASK+7, DASK+8, DASK+9, DASK+10, DASK+11, DASK+12, DASK+13, DASK+15 , DASK+16, DASK+17, DASK+18*
DIR("A"	SRTY+9, DASK+5, DASK+22*
DIR("B"	DASK+22*
DIR(0	SRTY+8, DASK+4
DT	M+1, M+6, M+7, PTFU+9, DASK+35
DTIME	LIM
DTOUT	SRTY+7~, SRTY+11, DASK~, DASK+24
DUOUT	SRTY+7~, SRTY+11, DASK~, DASK+24
DUZ	EN+6, NEXT+1, DASK+25
DWFLG	W!, DOWCHK+1, DOWCHK+2
DY	DOWCHK+1, DOWCHK+3, DOWCHK+4, DOWCHK+13!, DWWRT+1*, DWWRT+2, DWWRT+4!
DYW	DOWCHK+1, DOWCHK+4, DOWCHK+10, DOWCHK+11, DOWCHK+13!, DWWRT+4!
>> FND	NEXT, SUP+1, DT1
>> G1	SUP+1*
>> I	D+2, L+5, SET, SAVE*
>> I1	SET*
IOF	DISP*
ION	SUP+2
IOP	SUP+2*!
J	WMH+2!
J(	W+1, WMH+2*
PCDT	DOWCHK+5, DOWCHK+6, DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11, DOWCHK+13!, DWWRT+4!
POP	W, L!, DOWCHK+2, DOWCHK+5, DOWCHK+6, DOWCHK+11*
SC	M+3, M+5, EN+6, DISP, NEXT+1, NEXT+2, D+2, W, W+1, W+3 , H, WM+2, WMH+2, SUP+1, PTFU~, PTFU+6, PTFU+10, DASK+25, DOWCHK+2, DOWCHK+6 , DOWCHK+8, DOWCHK+9, DOWCHK+10, DOWCHK+11
SC0	PTFU+7~, PTFU+10, PTFU+18, PTFU+19
>> SDAPP	NEXT+10
>> SDAV	DISP, DISP+2, W+2, W+3, L+2, L+4, L+5, SUP+1
SDBDT	PTFU+7~, PTFU+9*, PTFU+13
>> SDC(1	SUP+1*, LIM+1
SDC1	SUP+1!
SDCP	PTFU+7~, PTFU+10, PTFU+20
SDCP1	PTFU+7~, PTFU+19, PTFU+20
SDCT	SUP+1, PTFU+7~, PTFU+9, PTFU+21, 1
SDDATE	SDM0+10~, M+1, M+9, M+11, M+12, M+16, NEXT+2, NEXT+4, NEXT+7, DDATE~ , DASK+28, DASK+33, DASK+34, DT1
SDDMAX	SDM0+10~, M+7, NEXT+4, LIM+2
SDENC	PTFU+7~, PTFU+14*, PTFU+15
>> SDENC0	PTFU+15*, PTFU+16, PTFU+17
SDHX	M~, M+12!, W+2*, MORDIS, MORDIS+1
SDHY	DISP+1!, L+2!, L+4!, MORD2!
SDI	INPAT, INPAT+1!, I1, DASK+30~, DASK+31
SDI1	INPAT+1!, I1*
>> SDINA	DISP+1, L+2, L+4, MORD2
>> SDINP	INPAT+1, I1
SDMAX	M+7, M+9, DDATE~, DASK+35, DT1, LIM, LIM+1, LIM+2
SDMAX(1	M+5, M+6, M+7, DASK+37
>> SDMM	SRTY+6
>> SDNEXT	SUP+1, 1, DT1
>> SDOK	SDM0+9*
SDONCE	SDM0+10~
>> SDRE	DISP+1, L+2, L+4, MORD2, DIFF
SDSDATE	SDM0+10~, M+11*
>> SDSOH	DISP*, W+1
SDSRFU	SDM0+10~, M+3*
SDSRTY	SDM0+10~, M+1, M+9, M+16, SRTY~, SRTY+1, SRTY+5, SRTY+6, SRTY+12, DDATE~ , DDATE+6, DASK+28*
SDSRTY(0	SRTY+12*
>> SDSTRTDT	M+16, DT1, LIM+2
SDT	PTFU+7~, PTFU+9, PTFU+13, PTFU+14
SDX	DISP+2!, I1, PTFU+7~, PTFU+10, PTFU+17, PTFU+18, PTFU+19, DASK~, DASK+25, DASK+30~ , DASK+31*
SDXD	M~, WM+2*, WM+3
SDXF	M~, D+2, W+2, WM+1, WM+3, WM+4, WMH+4, MORDIS+1*
SDXXX	SDM0+9, NEXT+10!
SDY	PTFU+7~, PTFU+9, PTFU+13, PTFU+14, PTFU+20, PTFU+24
SDZ	SET+1!, SAVE!, PTFU+7~
SDZ(	SET
>> SI	W+1, WMH+1, WMH+2, WMH+3
>> SM	W+2, WM*
>> SS	W+1*
>> STARTDAY	WMH+1
U	M+5, EN+6, NEXT+1, D+2, X1, W+1, H, I1, PTFU+16, PTFU+17 , DASK+25, DASK+31
X	M+12, M+14, EN, EN+4, DISP+2, NEXT+2, NEXT+7, NEXT+10, D+1, D+2* , X1, W, W+1, W+2, W+3, L+1, L+2, L+3, L+4, H , WM, WM+1, WM+2, WM+3, DOW, MORD2, INPAT, I1, MNTH, DIFF , DASK~, DASK+25, DASK+31, DT1, LIM*, LIM+1
>> X1	DISP+2, X1, L+3, MORDIS+1, DIFF
>> X2	DISP+2, L+3, MORDIS+1, DIFF
XDT	W*!, DOWCHK+2, DOWCHK+3, DOWCHK+5
Y	M+12, EN+1, EN+4, EN+6, DISP+1, DISP+2, NEXT+2, NEXT+7, NEXT+10, D+2 , W+1, L+2, L+4, WM, WMH+1, WMH+2, WMH+3, DT, DOW, MORD2* , MNTH, SRTY+12, DASK~, DASK+25, DASK+26, DASK+28, DASK+33, DASK+35, DT1, LIM* , LIM+1*, LIM+2
>> Z	SAVE*

Customize PDF page

Package: Scheduling

Routine: SDM0

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 30

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
MNTH
LIM
WM
DDATE(SDDATE,SDSRTY,SDMAX)	;Desired date selection
PTFU(DFN,SC)
SUP	;Set up variables for availability search
NOAV
DIFF
DT
DOW
SET
I1
NEXT
1
INPAT
X1
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
EN
DOWCHK	;SD5.3547 check if date is prior to date DOW was added to pattern
D	;IHS/ANMC/LJF 6/29/2000 separated line to add code
H
M
L
DWWRT	;added SD5.3547
WMH	;Write month heading lines
W
MORD2
SRTY(SDSRTY)	;Prompt for scheduling request type
MORDIS
DASK
DT1
SAVE