Routine: SDNEXT

Information

SDNEXT ;ALB/TMP - FIND NEXT AVAILABLE APPOINTMENT FOR A CLINIC ; 18 APR 86

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Scheduling	7	$$TPTM^SCAPMC24 (CLINIC,PRMTT)^SCRPU1 $$DTRANG^SCRPU2 ^SDM RD^SDMULT (END,OVR)^SDMULT0 DTS^SDUTL
VA FileMan	3	^%DT DT^DIQ ^DIR
Kernel	1	^%ZIS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SDMULT SDNEXT

Entry Points

Name	Comments	DBIA/ICR reference
1
DT
LIM
NEW	;entry point to be use for next available appt. 3/29/96
EXIT	;
LENGTH()	;
ST
EX
GETCLN(TEAM,CLINIC)	;add assoc. clinics for teams to clinic array
ADDCL(CLINIC,PTLIST)	;add team's associated clinics to clinic list
DRIVE(CLINICA,LEN,BEGEND)	;driver
CLEAN	;
ONE(CLNA)	;one clinic selected? 1 or 0
CONMA(CIEN,CONT)	;continue to view, exit or make appointment
PRT	;
EX2

External References

Name	Field # of Occurrence
^%DT	DT, LIM+2
^%ZIS	SDNEXT+3, NEW+4
DT^DIQ	LIM
^DIR	ST+2
$$TPTM^SCAPMC24	GETCLN+8
CLINIC^SCRPU1	NEW+9
PRMTT^SCRPU1	NEW+11
$$DTRANG^SCRPU2	NEW+18
^SDM	DRIVE+18
RD^SDMULT	1
END^SDMULT0	DT, LIM, CLEAN+1
OVR^SDMULT0	LIM, LIM+3, DRIVE+14
DTS^SDUTL	LIM+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "// " Variable: X Timeout: DTIME 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: ST+2
Routine Call	%ZIS Line Location: SDNEXT+3 NEW+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	ADDCL+16
^SCTM(404.57 - [#404.57]	ADDCL+8, ADDCL+10, ADDCL+12, ADDCL+13, ADDCL+14

Label References

Name	Line Occurrences
$$CONMA	DRIVE+14
$$LENGTH	NEW+14
$$ONE	DRIVE+18
1	DT
ADDCL	GETCLN+10
CLEAN	NEW+19, NEW+23, DRIVE+18
DRIVE	NEW+22
DT	DT
EX	ST+3
EX2	PRT+4
EXIT	NEW+19, NEW+23
GETCLN	NEW+20
LIM	LIM+1, LIM+2
PRT	PRT+5, PRT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT!, LIM+2!
%DT("A"	DT*
%DT(0	DT, LIM+2
APPTL	NEW+14*, NEW+15, NEW+22, EXIT+1!
BEGEND	DRIVE~, DRIVE+10, DRIVE+11
CIEN	ADDCL+3~, ADDCL+14, ADDCL+15, ADDCL+16, ADDCL+17, DRIVE+5~, DRIVE+7, DRIVE+8*, DRIVE+12, DRIVE+13 , DRIVE+14, DRIVE+15, CONMA~, PRT+2
CLINIC	GETCLN~, GETCLN+10, ADDCL~
CLINIC(	ADDCL+17*
CLINICA	DRIVE~, DRIVE+18
CLINICA(	DRIVE+8, DRIVE+12, DRIVE+14
CLINICA(0	DRIVE+18
CLNA	ONE~
CLNA(	ONE+3
CNAME	ADDCL+3~, ADDCL+16*, ADDCL+17
CNT	ONE+1~, ONE+2, ONE+3
CONT	DRIVE+5~, DRIVE+14, DRIVE+18, CONMA~, PRT+1, PRT+2, PRT+3, PRT+6
COUNT	DRIVE+5~, DRIVE+7*, DRIVE+12, DRIVE+13, DRIVE+15
DIR	EX!
DIR("A"	ST+1*
DIR(0	ST*
DTIME	LIM, PRT+3
EN	ADDCL+3~, ADDCL+4, ADDCL+5, ADDCL+6
ERR	GETCLN+4~, GETCLN+5*, GETCLN+7, GETCLN+8
FIRST	NEW+16, NEW+18, EXIT+1!, ONE+1~, ONE+4, ONE+5
FND	DT, DRIVE+5~, DRIVE+13, CLEAN+2!
ION	SDNEXT+3, NEW+4
IOP	SDNEXT+3!, NEW+4!
LEN	LENGTH+2~, ST+3, ST+4, EX+1, DRIVE~, DRIVE+12
LIST	GETCLN+4~, GETCLN+5*, GETCLN+7, GETCLN+8, GETCLN+10
NODE	ADDCL+3~, ADDCL+6*, ADDCL+7
OKAY	GETCLN+4~, GETCLN+8*
PTLIST	ADDCL~, ADDCL+5, ADDCL+6
RANG	NEW+18*, NEW+19, NEW+22, EXIT+1!
RET	ONE+1~, ONE+2, ONE+4, ONE+6
SC	DRIVE+13*, CLEAN+3!
SCOKNULL	NEW+2~, NEW+3*
SCPCC	CLEAN+3!
SCPCMM	EXIT+1!
SCUP	NEW+1!, NEW+10, NEW+13, EXIT+2!
SDA	ADDCL+11, ADDCL+12, ADDCL+13, ADDCL+14, ADDCL+18!
SDAPP	CLEAN+2!
SDC	CLEAN+2!
SDC(	DRIVE+12*, DRIVE+15!
SDC(1	LIM+1
SDC1	CLEAN+2!
SDC1(	DRIVE+12*, DRIVE+15!
SDCLN	DRIVE+18*, CLEAN+2!
SDCT	1, NEW+5, EXIT+1!, DRIVE+6, DRIVE+13, CLEAN+2!
SDL	CLEAN+2!
SDMAX	DT, LIM, LIM+1, LIM+2, DRIVE+11, CLEAN+2!
SDNEXT	1, DT, NEW+5, EXIT+1!, DRIVE+6, DRIVE+9, CLEAN+2!
SDPCM1	CLEAN+3!
SDPCMM	CLEAN+2!
SDPCMM(	PRT+2
SDSTRTDT	DT, LIM+2, DRIVE+10, CLEAN+2!
SECOND	NEW+17*, NEW+18, EXIT+1!
STOP	DRIVE+7, DRIVE+8, DRIVE+17, CLEAN+2!, ONE+4, PRT+4, PRT+7
STP	ONE+1~, ONE+2*, ONE+3
TEAM	GETCLN~
TEAM(	GETCLN+6
TM	GETCLN+4~, GETCLN+5, GETCLN+6, GETCLN+8
TPIEN	ADDCL+3~, ADDCL+7*, ADDCL+8, ADDCL+10, ADDCL+12, ADDCL+13, ADDCL+14
TPNODE	ADDCL+3~, ADDCL+8*, ADDCL+9
VAUTC	NEW+1!, NEW+12, NEW+20, NEW+22, EXIT+1!
VAUTCA	NEW+7*, EXIT+2!
VAUTD	NEW+8*, EXIT+1!
VAUTNA	NEW+6*, EXIT+1!
VAUTT	NEW+1!, NEW+12, NEW+20, EXIT+1!
X	DT, LIM, LIM+1, ST+3, ST+4, EX!, PRT+3, PRT+4, PRT+5, PRT+6 , PRT+7, PRT+8, EX2
Y	DT, LIM, LIM+1, LIM+2, ST+3, EX!

Customize PDF page

Package: Scheduling