Routine: SDM2A

Information

SDM2A ;ALB/OG - MAKE APPOINTMENT - overflow routine ;24 Jun 2008 11:57 AM

Source Information

Source file <SDM2A.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	8	^%DT (,H)^%DTC ^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Scheduling	2	(MESS,MESS2)^SDWL120 EN^SDWLE11

Entry Points

Name	Comments	DBIA/ICR reference
WLCL120A(SDWLAPDT,SDDATE1,SC)	;
WLCLASK()	; No appointment availability warning. ; sd/446
WLCL120(SC,DESDT)	; Is there clinic availability within 120 days of desired date ; sd/446
HASAVSL(SCSR)	; Has available slots ; sd/446 ; Look at CLINIC PATTERN CURRENT AVAILABILITY string (44.005/1) ; If there is 1-9,j-z within the [ ... ], there is availability for that day.
WL1	; SD*567 check for bad record and delete if applicable
WL(SC)	;Wait List Hook/teh patch 263 ;SD/327 passed 'SC'
DELETE	; SD*567 delete bad record

External References

Name	Field # of Occurrence
^%DT	WLCL120A+3
^%DTC	WLCL120A+5
H^%DTC	WLCL120+6, WLCL120+7
^DIC	HASAVSL+5, HASAVSL+6
FILE^DICN	WL+21, WL+29
^DIE	WL+24, WL+27, WL+48
^DIK	DELETE+3
$$GET1^DIQ	WL+6, WLCL120+2, WLCL120A+2
^DIR	WL+14, WLCL120A+9, WLCLASK+9
MESS^SDWL120	WL+50
MESS2^SDWL120	WL+9
EN^SDWLE11	WL+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to acquire a lock on the Wait List file" Line Location: WL+31
Function Call: WRITE	Prompt: ! Line Location: WLCL120A+9
Function Call: WRITE	Prompt: ! Line Location: WLCLASK+9
Routine Call	DIE Line Location: WL+24 WL+27 WL+48
Routine Call	DIC Line Location: HASAVSL+5 HASAVSL+6
Routine Call	DIR Line Location: WL+14 WLCL120A+9 WLCLASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^SDWL(409.3 - [#409.3]	Classic Fileman Calls
^SDWL(409.32 - [#409.32]	Classic Fileman Calls
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WL+42, WL+43
^SC - [#44]	WL+3, WLCL120+4, WL1+1
^SDWL(409.3 - [#409.3]	WL+31, WL+49
^SDWL(409.32 - [#409.32]	WL+18

Label References

Name	Line Occurrences
$$HASAVSL	WLCL120+4
DELETE	WL1+1
WL	WLCL120A+10
WL1	WLCL120+4

Naked Globals

Name	Field # of Occurrence
^(1	WLCL120+4
^(9	WL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	WLCL120A+1~, WLCL120A+3*
>> %H	WLCL120+6, WLCL120+7
DA	WL+1~, WL+20~, WL+22, WL+31, WL+33, WL+49, DELETE+1*, DELETE+4!
DA(1	DELETE+1*, DELETE+2
DESDT	WLCL120~, WLCL120+3, WLCL120+7
DESDTH	WLCL120+5~, WLCL120+7*, WLCL120+8
>> DFN	WL+29
DIC	WL+20~, WL+21, WL+29, HASAVSL+3~, HASAVSL+5*
DIC(0	WL+21, WL+29
DIE	WL+1~, WL+20~, WL+23, WL+34
DIK	DELETE+2*, DELETE+4!
DIR	WL+8~, WLCL120A+1~, WLCLASK+1~
DIR("A"	WLCL120A+8, WLCLASK+3, WLCLASK+4, WLCLASK+5, WLCLASK+6, WLCLASK+7, WLCLASK+8*
DIR("B"	WLCL120A+7*
DIR(0	WL+14, WLCL120A+7, WLCLASK+2*
DR	WL+1~, WL+20~, WL+24, WL+25, WL+26, WL+35, WL+36, WL+37, WL+38, WL+39 , WL+40, WL+41, WL+42, WL+43, WL+44, WL+45, WL+46, WL+47
DUZ	HASAVSL+5
F	HASAVSL+3~, HASAVSL+8, HASAVSL+9, HASAVSL+11
I	HASAVSL+10~, HASAVSL+12*
SBEG	WL+1~, WLCL120+1~, WLCL120+3, WLCL120+4, WLCL120+6*, WLCL120+8, WL1+1, DELETE+1
SC	WL~, WL+2, WL+3, WL+6, WL+9, WL+18, WL+21, WLCL120~, WLCL120+2, WLCL120+4 , WL1+1, DELETE+1, WLCL120A~, WLCL120A+2, WLCL120A+10
SCSR	WL+1~, HASAVSL~, HASAVSL+7, HASAVSL+8*, HASAVSL+9, HASAVSL+11
SCSR0	HASAVSL+10~, HASAVSL+11*, HASAVSL+12
SD120	WLCL120+1~, WLCL120+3, WLCL120+8, WLCL120+10, WL1+2
SDDATE1	WLCL120A~, WLCL120A+5
SDDIV	WL+1~, WL+6*
SDINST	WL+1~, WL+4, WL+6, WL+7
SDOK	HASAVSL+3~, HASAVSL+8, HASAVSL+9, HASAVSL+12, HASAVSL+14
SDPAR	WL+1~, WL+16, WL+27, WL+50
SDWLAPDT	WLCL120A~, WLCL120A+3
SDWLDA	WL+1~, WL+33*, WL+50
SDWLDFN	WL+1~, WL+29*, WL+42, WL+43, WL+50
>> SDWLFLG	WL+50*
SDWLSCL	WL+1~, WL+18, WL+22
SL	HASAVSL+10~, HASAVSL+12*
U	WL+42, WL+43
X	WL+20~, WL+21, WL+29, WLCL120+5~, WLCL120+6, WLCL120+7, WLCL120A+1~, WLCL120A+3, WLCL120A+6, HASAVSL+3~ , HASAVSL+5, HASAVSL+6*
X1	WLCL120A+1~, WLCL120A+5*
X2	WLCL120A+1~, WLCL120A+5*
Y	WLCL120A+1~, WLCL120A+4, WLCL120A+5, WLCL120A+10, WLCLASK+10, HASAVSL+3~, HASAVSL+5, HASAVSL+6

Customize PDF page

Package: Scheduling

Routine: SDM2A

Call Graph Total: 10