Routine: SDAM

Package	Total	Call Graph
Scheduling	6	(BLD,INIT)^SDAM1 HDR^SDAM10 (BLD,HDR,INIT)^SDAM3 HDLKILL^SDAMEVT $$PCLINE^SDPPTEM $$CLNCK^SDUTL2
List Manager	2	(EN,REFRESH)^VALM ($$FDATE,$$SETSTR,PAUSE)^VALM1
VA FileMan	2	C^%DTC ^DIR
Registration	1	2^VADPT

Package	Total	Caller Graph
Scheduling	19	SDAM APPT MGT SDAM CLINIC CHANGE SDAM DATE CHANGE SDAM LIST ALL SDAM LIST CANCELLED SDAM LIST CHECKED IN SDAM LIST CHECKED OUT SDAM LIST FUTURE SDAM LIST INPATIENT SDAM LIST MENU SDAM LIST NO ACTION SDAM LIST NO SHOWS SDAM LIST NON-COUNT SDAM PATIENT CHANGE SDAM1 SDAM2 SDAM3 SDCO1 SDCOAM
Kernel	2	^DIC(19 ^ORD(101
PCE Patient Care Encounter	2	PXCESDA1 PXCESDA3
Hospital Based Home Care	1	HBHC APPOINTMENT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point	ICR #2579 Status: Retired Usage: Private
INIT	; -- set up appt man vars
INITQ
HDR	; -- screen head
FNL	; -- what to do after action
BLD	; -- entry point to bld list ; input: SDAMLIST := list to build
BLDQ
LIST	; -- find and build ; input: X := status group ; output: SDAMLIST := array of status'
LISTQ
GROUP(GROUP,SDAMLIST)	; -- find list
GROUPQ
FUT	; -- change date range
FUTQ
EXIT	; -- exit action for protocol

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WARNING ",VADM(7),!! Line Location: INIT+6
Function Call: WRITE	Prompt: !,?5,"Clinic MUST be corrected before continuing." Line Location: INIT+10
Function Call: WRITE	Prompt: !!,*7,"You must be viewing a patient to list cancelled appointments." Line Location: LIST+4
Routine Call	DIR Line Location: INIT+3
Routine Call	VALM Line Location: EN+1
Routine Call	VALM Line Location: EXIT+1

Name	Line Occurrences (* Changed, ! Killed)
^SD(409.62 - [#409.62]	GROUP+2, GROUP+3, GROUP+4
^SD(409.63 - [#409.63]	GROUP+5
^TMP("SDAM"	FNL+1!
^TMP("SDAMIDX"	FNL+1!
^TMP("VALMIDX"	FNL+1!

Name	Field # of Occurrence
^(0	GROUP+3

Name	Field # of Occurrence
%B	INIT+1!
DA	INIT+1!
DFN	INIT+5*, FNL+2!
DIE	INIT+1!
DIR	INIT+3!
DIR("A"	INIT+2*
DIR(0	INIT+2*
>> DIRUT	INIT+3
DNM	INIT+1!
DQ	INIT+1!
DR	INIT+1!
DT	HDR+4, FUT+1, FUT+2
DTIME	INIT+7
GROUP	GROUP~, GROUP+2*, GROUP+3, GROUP+4, GROUP+5
I	INIT+1!, GROUP+1, GROUP+4, GROUP+5*
SDACNT	FNL+2!
SDAMCNT	FNL+2!
SDAMLIST	HDR+12, FNL+2!, BLD+2, LIST+5, GROUP~, GROUP+1, GROUP+3
SDAMLIST(	GROUP+1!, GROUP+5*
SDAMLIST("SCR"	GROUP+4*
SDAMTYP	INIT+8, INIT+11, HDR+3, HDR+11, FNL+2!, BLD+3, BLD+4, LIST+4
SDATA	FNL+2!
SDB	INIT+1!
SDBEG	INIT+1!, HDR+15, FNL+2!
SDCL	FNL+2!
SDCLN	INIT+1!, INIT+11*, FNL+2!
SDDA	FNL+2!
>> SDEBG	FUT+2*
SDEND	INIT+1!, HDR+15, FNL+2!, FUT+2*
SDFLDD	FNL+2!
SDFN	INIT+1!, INIT+8*, HDR+4, FNL+2!
SDLNX	HDR+1~, HDR+5, HDR+13, HDR+14, HDR+15
SDPRD	FNL+2!
SDRES	INIT+1!, INIT+9*
SDT	FNL+2!
>> SDUP	INIT+5, INIT+7*
SDX	HDR+1~, HDR+4*, HDR+5
SDY	INIT+4*, INIT+5, INIT+8, INIT+9, INIT+11, FNL+2!
>> VADM(6	INIT+5
>> VADM(7	INIT+6
>> VALMBCK	LIST+4, LIST+6, EXIT+1*
VALMEVL	EN+1~
VALMHCNT	FNL+2!
VALMHDR	FUT+2!
VALMHDR(	HDR+5, HDR+13, HDR+14, HDR+15
>> VALMQUIT	INIT+3*
VALMY	FNL+2!
X	INIT+1!, HDR+1~, HDR+12, HDR+13, HDR+14, FNL+2!, LIST+4, LIST+5, FUT+2*
>> X1	FUT+1*
>> X2	FUT+1*
XQORNOD	INIT+1!
XQORS	EN+1~
Y	INIT+4, FNL+2!