Routine: SDMM1

Information

SDMM1 ;ALB/GRR - MULTIPLE BOOKINGS ; 2/7/05 8:16am

Source file <SDMM1.m>

Package	Total	Call Graph
Scheduling	7	$$INP^SDAM2 MAKE^SDAMEVT DOW^SDM0 SC^SDM1 SDFT^SDMM RT^SDUTL (APPT,EN)^SDWLEVAL
IHS Changes To Scheduling	3	XREFC^BSDDAM SDM^BSDMMU $$MOVBKUSR^BSDU
VA Fileman	3	EN1^DIK DT^DIQ ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Scheduling	1	SDMM

Name	Comments	DBIA/ICR reference
XRDT(DFN,X)	;cross reference DATE APPT. MADE field
DIR(TEXT,DEF)	; reader processor ; Input: TEXT as text of read ; DEF as default response (if any)
OK
NOOB
MAKE
OB	; check for overbook keys
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
S
WRTER
SC
X
DT
EVT	; -- separate tag if need to NEW vars
S1	;L ^SC(SC,"S",X,1):5 G:'$T S1 F Y=1:1 I '$D(^SC(SC,"S",X,1,Y)) S:'$D(^(0)) ^(0)="^44.003PA^^" S ^(Y,0)=DFN_U_(+SL)_U_U_D_U_U_$S($D(DUZ):DUZ,1:"")_U_DT_U_U_U_$S(+SDEMP:+SDEMP,1:"") S SDY=Y L Q
OBQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PATIENT ALREADY HAS APPOINTMENT ON ",$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7)," AT THAT TIME" Line Location: MAKE+0
Function Call: WRITE	Prompt: !,7,"EXCEEDS MAXIMUM DAYS FOR FUTURE APPOINTMENT!!",7 Line Location: MAKE+1
Function Call: WRITE	Prompt: ! Line Location: SC+0
Function Call: WRITE	Prompt: " HAS BEEN LOCKED BY ANOTHER USER - APPT NOT BOOKED" Line Location: SC+0
Function Call: WRITE	Prompt: !,"Error making appointment in file 2.98" Line Location: S1+10
Function Call: WRITE	Prompt: !,"APPOINTMENT MADE ON " Line Location: S1+15
Function Call: WRITE	Prompt: !,SDMES Line Location: WRTER+0
Function Call: WRITE	Prompt: " AT THAT TIME" Condition for execution: SDNOT Line Location: WRTER+0
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",$E(X,4,5))," ",$E(X,6,7) Line Location: DT+0
Function Call: WRITE	Prompt: !,*7,"CLINIC DOES NOT MEET THEN!!" Line Location: X+0
Function Call: WRITE	Prompt: !,*7,"ONLY "_S_" OVERBOOK"_$E("S",S>1)_" ALLOWED PER DAY!!" Line Location: OB+7
Function Call: WRITE	Prompt: !,*7,"ONLY "_S_" OVERBOOK"_$E("S",S>1)_" ALLOWED PER DAY!!" Line Location: OB+8
Routine Call	DIR Line Location: DIR+7

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAKE, OK, S1+13
^DPT("ASDCN"	S1+13
^SC - [#44]	S, OK, S1+1, S1+4, OB+5, OB+11
^SC("ARAD"	S1+4*
^XUSEC("SDMOB"	OB+3
^XUSEC("SDOB"	OB+3, OB+12

Name	Field # of Occurrence
%	OB+1~, OB+5*
>> BSDER	S1+9, S1+10
COLLAT	S1+8, EVT+1~
>> COV	S1+8*, S1+9
D	S1+1, EVT+1~, OB+1~, OB+5*
DA	XRDT+3~*
DA(1	XRDT+3*
DEF	DIR~, DIR+6
DFN	MAKE, OK, S1+1, S1+4, S1+5, S1+9, S1+13, S1+17, XRDT~, XRDT+3 , EVT+1
DIK	XRDT+3~, XRDT+4*
DIK(1	XRDT+4*
DIR	DIR+4~
DIR("A"	DIR+5*
DIR("B"	DIR+6*
DIR(0	DIR+5*
DIROUT	DIR+4~
DIRUT	DIR+4~
DIV	XRDT+3~
DTOUT	DIR+4~
DUOUT	DIR+4~
DUZ	S1+1, OB+3, OB+8, OB+12
I	MAKE, OB+1~, OB+4, OB+5, OB+11
>> MXOK	OB+9, OB+10, OB+11
>> POP	SC*, SC+1
S	OK, OB+1~, OB+4, OB+8, OB+11
SC	S, OK, S1+1, S1+4, S1+9, S1+13, S1+14, S1+17, EVT+1~, OB+5 , OB+8, OB+11
SD	MAKE, SC, S1+17~*, OB+4
>> SDAPTYP	S1+9
>> SDEDT	MAKE+1
>> SDEMP	S1+1
>> SDERRFT	X*
SDEV	S1+17~
>> SDINP	S1+5*, S1+9
>> SDLOCK	SC
>> SDMADE	S1+12*
>> SDMES	NOOB, WRTER, X+1
>> SDNOT	S, SC+3, WRTER, OB+2, OB+10, OB+13*
>> SDPL	S1+14*, EVT+1
>> SDRT	S1+14*
>> SDSC	S1+14*, EVT+1
>> SDTTM	S1+14*, EVT+1
>> SDX3	MAKE*, MAKE+1
>> SDX7	MAKE+1*
>> SDY	SC+1, S1+1, S1+14
>> SDYC	S1+8*, S1+9
>> SDZ	X
SI	S, EVT+1~
SL	S1+1, EVT+1~, OB+4
>> SM	MAKE, SC+1, SC+4, S1+3, OB+10, OB+11, OB+13*
>> SS	S*
ST	OB+1~, OB+4, OB+5, OB+6
TEXT	DIR~, DIR+5
U	S, S1+1, OB+4
X	MAKE, MAKE+1, S, SC, SC+1, OK, S1+1, S1+4, S1+5, S1+9 , S1+13, S1+14, S1+15, S1+17, XRDT~, XRDT+3, DT, DIR+4~
Y	MAKE, S, SC+1, S1+1, S1+15*, OB+9, OB+13, DIR+4~, DIR+8, DIR+9