Routine: SDAMU

Information

SDAMU ;ALB/MJK - AM Utilities ; 12/1/91

Source file <SDAMU.m>

Package	Total	Caller Graph
Scheduling	12	SCRPW16 SDAL SDAMOC SDAMOS SDAMQ SDAMQ2 SDAMQ3 SDAPICO SDCO2 SDCO3 SDCO4 SDCOM
PCE Patient Care Encounter	2	PXBAPI21 PXUTLSCC
Automated Information Collection System	1	IBDFDE0
IHS Changes To Scheduling	1	BSDAPI3
Integrated Billing	1	APPOINTMENT

Name	Comments	DBIA/ICR reference
CLINIC(SDCL)	; -- generic screen for hos. loc. entries ; input: SDCL := ifn of HOSPITAL LOCATION file ; returned := [ 0 \| do not use entry ; 1 \| use entry ]	ICR #1580 Status: Retired Usage: Controlled Subscription
NOW()	; -- return current date and time (NOW)
CURRENT	; -- computed field (2.98,100)	ICR #1580 Status: Retired Usage: Controlled Subscription
RT(SDRTOPT)	; -- rt call for newing and return to LM
DIV(SDCL,VAUTD,SDNAME,SDLEN)	; -- find division for clinic ; input: SDCL := clinic ifn ; VAUTD := array defined by VAUTOMA ; SDLEN := length of name to pass back [optional] ; output: SDNAME := name of division ; return: := division ifn
BARC(TTYPE,ON,OFF)	; -- barcode on/off
SWITCH()	; -- date of ci switch over

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	BARC+1
^DG(40.8 - [#40.8]	DIV+9, DIV+10
^DG(43 - [#43]	DIV+9
^DIC(19 - [#19]	RT+2
^DIC(195.4	RT+3
^DPT - [#2]	CURRENT+1
^SC - [#44]	CLINIC+5, DIV+9

Name	Field # of Occurrence
>> %	NOW+2
>> D0	CURRENT+1
>> D1	CURRENT+1
DFN	RT+1~
OFF	BARC~, BARC+1*, BARC+2
ON	BARC~, BARC+1*, BARC+2
R	RT+1~
RTDIV	RT+1~
RTE	RT+1~
RTJR	RT+1~
RTPGM	RT+1~
RTY	RT+1~
SDCL	CLINIC~, CLINIC+5, DIV~, DIV+9
SDLEN	DIV~, DIV+8~*, DIV+10
SDNAME	DIV~, DIV+10*
SDRTOPT	RT~, RT+2
TTYPE	BARC~, BARC+1
U	DIV+9, DIV+10, RT+6
VAUTD	DIV~, DIV+11
VAUTD(	DIV+11
X	CURRENT+1, CLINIC+5~, CLINIC+6, DIV+7~, DIV+9, DIV+10, DIV+11, RT+1~, RT+2, RT+3 , RT+4*
X("OOS"	CLINIC+5*, CLINIC+6
>> XQORNOD(0	RT+6
Y	RT+1~