Routine: SDAMWI1

Package	Total	Call Graph
Scheduling	6	$$INP^SDAM2 MAKE^SDAMEVT EN1^SDM3 ELIG^SDM4 EN^SDROUT1 RT^SDUTL
IHS Changes To Scheduling	5	$$OI^BSDAM XREFC^BSDDAM SDM^BSDMMU WISD^BSDROUT $$CI^BSDU2
VA Fileman	2	EN1^DIK ^DIR
IHS Changes To ADT	1	$$READ^BDGF
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

Scheduling

$$INP^SDAM2 MAKE^SDAMEVT EN1^SDM3 ELIG^SDM4 EN^SDROUT1 RT^SDUTL

IHS Changes To Scheduling

$$OI^BSDAM XREFC^BSDDAM SDM^BSDMMU WISD^BSDROUT $$CI^BSDU2

VA Fileman

EN1^DIK ^DIR

IHS Changes To ADT

$$READ^BDGF

Kernel

$$NOW^XLFDT

Package	Total	Caller Graph
Scheduling	1	SDAMWI

Package

Total

Caller Graph

Scheduling

SDAMWI

Entry Points

Name	Comments	DBIA/ICR reference
RT	; -- request record
XREFC(C,D,N)	;-- set the date appointment made cross reference patch 1012
C
ROUT(DFN)	; -- print routing slip
SP
SC
DUAL	; -- ask elig if pt has more than one
MAKE(DFN,SDCL,SDT)	; -- set globals for appt ; input: DFN ; SDCL := clinic# ; SDT := appt d/t ; returned: success := 1
EVT	; -- separate if need to NEW vars
ROUTQ

External References

Name	Field # of Occurrence
$$READ^BDGF	ROUT+9, ROUT+10
$$OI^BSDAM	MAKE+20
XREFC^BSDDAM	XREFC+1
SDM^BSDMMU	MAKE+10
WISD^BSDROUT	ROUT+12
$$CI^BSDU2	ROUT+3
EN1^DIK	MAKE+15
^DIR	ROUT+17
$$INP^SDAM2	MAKE+5
MAKE^SDAMEVT	EVT+1
EN1^SDM3	MAKE+6
ELIG^SDM4	DUAL+1
EN^SDROUT1	ROUT+18
RT^SDUTL	RT+1
$$NOW^XLFDT	MAKE+20

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error making appointment in file 2.98" Line Location: MAKE+11
Function Call: WRITE	Prompt: ! Line Location: ROUT+17
Routine Call	DIR Line Location: ROUT+17

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

Name	Line Occurrences (* Changed, ! Killed)
^BSDPAR - [#9009020.2]	ROUT+9, ROUT+10
^BSDPAR("B"	ROUT+8
^DPT - [#2]	MAKE+7
^SC - [#44]	MAKE+20, MAKE+25, MAKE+26, SC, SP+1, SP+2, C, DUAL+1*

Name	Line Occurrences
C	SC, SP+1
DUAL	MAKE+20
EVT	MAKE+20
ROUT	MAKE+20
ROUTQ	ROUT+17
RT	MAKE+20
SC	SC
SP	SP
XREFC	MAKE+20

Name	Field # of Occurrence
^(	MAKE+20*
^(0	MAKE+7, MAKE+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SC+2*
>> BSDDEV	ROUT+12
>> BSDER	MAKE+10, MAKE+11
BSDPAR	ROUT+7~, ROUT+8*, ROUT+10
C	XREFC~, XREFC+1
D	XREFC~, XREFC+1
DA	MAKE+4~, MAKE+15*
DA(1	MAKE+15*
DFN	MAKE~, MAKE+5, MAKE+7, MAKE+10, MAKE+15, MAKE+20, ROUT~, ROUT+3, ROUT+12, EVT+1
DIK	MAKE+4~, MAKE+15*
DIK(1	MAKE+15*
DIR	ROUT+17!
DIR("A"	ROUT+16*
DIR(0	ROUT+16*
>> DIRUT	ROUT+17
DIV	MAKE+14~, ROUT+9, ROUT+10, EVT+1~
DUZ	MAKE+20
HSI	MAKE+23~, MAKE+26*, SC
I	MAKE+20, MAKE+23~, SC, SP+1*, RT+1, DUAL+1, EVT+1~
IOP	ROUT+11!, ROUT+18!
N	XREFC~, XREFC+1
>> ORDER	ROUT+11, ROUT+18
S	MAKE+23~, SC, SC+2, SP, SP+1*, SP+2
SB	MAKE+23~, MAKE+26*, SC
SC	MAKE+4~, MAKE+5, MAKE+10, MAKE+20, MAKE+24, MAKE+25, MAKE+26, SC, SP+1, SP+2 , C, RT+1, ROUT+3, DUAL+1
SD	MAKE+4~, MAKE+6, MAKE+10, MAKE+24, MAKE+25, SC, SP+1, SP+2, C
>> SDAPTYP	MAKE+10, DUAL+1
SDCL	MAKE~, MAKE+5, MAKE+20, MAKE+24, EVT+1
>> SDDA	MAKE+20*, EVT+1
>> SDDECOD	DUAL+1
SDDIF	MAKE+23~, MAKE+26*, SC, SC+2, SP+1
SDEMP	DUAL+1*!
SDINP	MAKE+4~, MAKE+5*, MAKE+10
SDNOT	MAKE+23~, SP+1*
>> SDPL	RT+1*
>> SDREP	ROUT+11, ROUT+18
>> SDRT	RT+1*
>> SDSC	RT+1*
>> SDSL	MAKE+20
>> SDSTART	ROUT+11, ROUT+18
SDT	MAKE~, MAKE+5, MAKE+6, MAKE+15, MAKE+20, MAKE+24, RT+1, ROUT+3, ROUT+12, DUAL+1 , EVT+1
>> SDTTM	RT+1*
>> SDX	ROUT+11, ROUT+18
>> SDXSCAT	MAKE+10
SI	MAKE+23~, MAKE+26*, SC
SL	MAKE+23~, MAKE+26*, SC, SC+2
SM	MAKE+23~, SC+1, SC+2, SP+1*
SS	MAKE+23~, SC*, SC+2, SP+1
ST	MAKE+23~, SC, SC+2, SP, SP+1
STARTDAY	MAKE+23~, MAKE+26*
STR	MAKE+23~, MAKE+26*, SP+1
U	MAKE+26, ROUT+9, ROUT+10
>> VAEL(1	DUAL+1
X	MAKE+5, MAKE+20, MAKE+23~, MAKE+26*
Y	MAKE+23~, MAKE+26!, SP+1*, ROUT+17

Customize PDF page

Package: Scheduling

Routine: SDAMWI1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: