Routine: SDAM

Information

SDAM ;MJK/ALB - Appt Mgt ; 8/30/99 9:09am

Source file <SDAM.m>

Package	Total	Call Graph
Scheduling	5	(BLD,INIT)^SDAM1 HDR^SDAM10 (BLD,HDR,INIT)^SDAM3 HDLKILL^SDAMEVT $$PCLINE^SDPPTEM
Registration	4	(2,KVA)^VADPT (EN,REFRESH)^VALM TERM^VALM0 ($$FDATE,$$SETSTR,CLEAR,PAUSE)^VALM1
VA Fileman	2	C^%DTC ^DIR
IHS Changes To ADT	1	$$INSUR^BDGF2
IHS Patient	1	($$AGE,KILL)^AUPNPAT

Package	Total	Caller Graph
Scheduling	6	SDAM APPT MGT SDAM1 SDAM2 SDAM3 SDCO1 SDCOAM
IHS Changes To Scheduling	2	BSDAM BSDCHKI1
PCE Patient Care Encounter	2	PXCESDA1 PXCESDA3
IHS View Patient Record	1	BVPSD
Mental Health Social Services	1	AMHVRL2

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

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	VALM Line Location: EN1+2
Routine Call	DIR Line Location: INIT+3
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*, INIT1+6!, 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+6, 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+15, FNL+2!, BLD+2, LIST+5, GROUP~, GROUP+1, GROUP+3
SDAMLIST(	GROUP+1!, GROUP+5*
SDAMLIST("SCR"	GROUP+4*
SDAMTYP	INIT1+3, INIT1+6, HDR+3, HDR+14, HDR+18, FNL+2!, BLD+3, BLD+4, LIST+4
SDATA	FNL+2!
SDB	INIT+1!
SDBEG	INIT+1!, HDR+18, HDR+19, FNL+2!
SDCL	FNL+2!
SDCLN	INIT+1!, INIT1+6*, FNL+2!
SDDA	FNL+2!
>> SDEBG	FUT+2*
SDEND	INIT+1!, HDR+19, FNL+2!, FUT+2*
SDFLDD	FNL+2!
SDFN	INIT+1!, INIT1+3*, HDR+6, HDR+18, FNL+2!
SDLNX	HDR+1~, HDR+8, HDR+16, HDR+18, HDR+19
SDPRD	FNL+2!
SDRES	INIT+1!
SDT	FNL+2!
>> SDUP	INIT+5, INIT+7*
SDX	HDR+1~, HDR+6*, HDR+8
SDY	INIT+4*, INIT+5, INIT1+3, INIT1+6, FNL+2!
>> VADM(6	INIT+5
>> VADM(7	INIT+6
>> VALMBCK	LIST+4, LIST+6, EXIT+1*
VALMCNT	EN1+2~
VALMHCNT	FNL+2!
VALMHDR	FUT+2!
VALMHDR(	HDR+8, HDR+16, HDR+18, HDR+19
VALMQUIT	EN+3!, INIT+3*
VALMY	FNL+2!
X	INIT+1!, HDR+1~, HDR+15, HDR+16, FNL+2!, LIST+4, LIST+5, FUT+2
>> X1	FUT+1*
>> X2	FUT+1*
XQORNOD	INIT+1!
Y	INIT+4, FNL+2!