Routine: SDMULT

Package	Total	Call Graph
Scheduling	6	(EN,EN2)^SDM L^SDM1 (END,START)^SDMULT0 DT^SDNEXT DT^SDUTL $$CLNCK^SDUTL2
VA Fileman	2	C^%DTC ^DIC
IHS Changes To Scheduling	1	($$INACTMSG,$$PC)^BSDU
Kernel	1	^%ZIS
Registration	1	2^VADPT

Package

Total

Call Graph

Scheduling

(EN,EN2)^SDM L^SDM1 (END,START)^SDMULT0 DT^SDNEXT DT^SDUTL $$CLNCK^SDUTL2

VA Fileman

C^%DTC ^DIC

IHS Changes To Scheduling

($$INACTMSG,$$PC)^BSDU

Kernel

^%ZIS

Registration

2^VADPT

Package	Total	Caller Graph
Scheduling	5	SD IHS MULT CLINIC SDM0 SDMULT0 SDMULTICLINIC SDNEXT

Package

Total

Caller Graph

Scheduling

SD IHS MULT CLINIC SDM0 SDMULT0 SDMULTICLINIC SDNEXT

Entry Points

Name	Comments	DBIA/ICR reference
1
RD	;S DIC="^SC(",DIC(0)="AEMQZ",DIC("S")="I $P(^(0),""^"",3)=""C"",'$G(^(""OOS""))",DIC("A")="Select CLINIC: " D ^DIC K DIC("S"),DIC("A") I X="",SDCT>1 G START^SDMULT0 ;IHS/ANMC/LJF 8/18/2000
C	;I $D(^SC(+Y,"SDPROT")),$P(^("SDPROT"),"^",1)="Y",'$D(^SC(+Y,"SDPRIV",DUZ)) W !,7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",7 G RD
CNAM(SDCL)	;Return clinic name
LEN

External References

Name	Field # of Occurrence
C^%DTC	LEN+1, LEN+3
^%ZIS	SDMULT+6
$$INACTMSG^BSDU	RD+1
$$PC^BSDU	C+1
^DIC	1, RD+1
EN^SDM	1+3
EN2^SDM	C+2
L^SDM1	LEN
END^SDMULT0	1, 1+3, RD+2, RD+3, LEN
START^SDMULT0	RD+1, LEN+4
DT^SDNEXT	LEN+4
DT^SDUTL	SDMULT+5, 1+4
$$CLNCK^SDUTL2	RD+5
2^VADPT	1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,*7,"PATIENT HAS DIED." Line Location: 1+1
Function Call: WRITE	Prompt: !!,"YOU MAY SELECT FROM 2-4 CLINICS",! Line Location: 1+4
Function Call: WRITE	Prompt: !,*7,"MUST HAVE MORE THAN 1 CLINIC" Line Location: RD+4
Function Call: WRITE	Prompt: !,?5,"Clinic MUST be corrected before continuing." Line Location: RD+6
Function Call: WRITE	Prompt: !,*7,"This clinic has already been selected" Line Location: RD+7
Function Call: WRITE	Prompt: !,*7,"This is a PRINCIPLE clinic, please select one of its subordinate clinics" Line Location: RD+10
Function Call: WRITE	Prompt: !,7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",7 Line Location: C+0
Function Call: WRITE	Prompt: !,7,"Access to ",$$CNAM(+Y)," is prohibited!",!,"Only users with a special code may access this clinic.",7 Line Location: C+1
Function Call: WRITE	Prompt: !,"CLINIC IGNORED!!" Line Location: C+2
Function Call: WRITE	Prompt: !,"No appt length specified - cannot book appts" Line Location: C+3
Function Call: READ	Prompt: "// " Timeout: DTIME Variable: X Line Location: LEN+0
Function Call: WRITE	Prompt: !," APPOINTMENT LENGTH DESIRED: ",+SL Line Location: LEN+0
Function Call: WRITE	Prompt: !,*7,$P(Y,"^",2)," has max # of days for future booking undef or = 0" Line Location: LEN+2
Routine Call	DIC Line Location: 1 RD+1
Routine Call	%ZIS Line Location: SDMULT+6

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	1+2
^SC - [#44]	C+1, C+2, C+3, LEN+1, LEN+3, CNAM+3
^SC("AIHSPC"	RD+10

Name	Line Occurrences
$$CNAM	C+1
1	1+1
C	RD+3
LEN	LEN
RD	RD+4, RD+6, RD+7, RD+10, C+1, C+2, C+3, LEN+2, LEN+4

Name	Field # of Occurrence
^(	1+2
^("SDP"	LEN+1, LEN+3
^("SDPROT"	C+1
^("SL"	C+2, C+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> COLLAT	1+2*
>> DFN	1*, 1+2
>> DIC	1, RD+1
>> DIC("A"	RD+1*!
>> DIC("S"	RD+1*!
>> DIC("W"	RD+1*
>> DIC(0	1, RD+1
DT	SDMULT+5, 1+4, RD+3, LEN+1, LEN+2, LEN+3
DTIME	LEN
>> DTOUT	RD+2
DUZ	C+1
FND	1!, 1+3!, RD+2!
ION	SDMULT+6
IOP	SDMULT+6*!
>> POP	LEN*
>> S	LEN*
>> SC	C+2*
SD	C+2!
SDAPTYP	1!
SDC	1+4!
SDC(	LEN+3*
SDC1	SDMULT+6!
SDC1(	RD+7, LEN+3*
SDCL	CNAM~, CNAM+3
>> SDCT	1+4, RD+1, LEN+3, LEN+4
SDHY	C+2*!
>> SDL	C+4, LEN, LEN+3
>> SDMAX	1+4, RD+3, LEN+1, LEN+2, LEN+3
SDMLT	1*!
>> SDMLT1	1+3
>> SDMM	1+2*
>> SDMULT	C+2*
SDNEXT	SDMULT+6!, 1*, RD+3, C+2, LEN+4
SDOK	C+2*, C+3!
SDRES	RD+5~*, RD+6
>> SDW	1+2*
SDX	CNAM+2~, CNAM+3*, CNAM+4
>> SDXXX	1+3*
>> SL	C+4*, LEN
U	LEN+3, CNAM+3
>> VADM(6	1+1
>> X	1, RD+1, RD+2, RD+3, RD+4, LEN*, LEN+1, LEN+3
>> X1	LEN+1, LEN+3
>> X2	LEN+1, LEN+3
>> Y	1, 1+1, RD+5, RD+7, RD+10, C+1, C+2*, C+3, LEN+1, LEN+2 , LEN+3

Customize PDF page

Package: Scheduling

Routine: SDMULT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: