Routine: SDAMQ3

Information

SDAMQ3 ;ALB/MJK - AM Background Job/Appointments ; 12/1/91

Source file <SDAMQ3.m>

Package	Total	Call Graph
Scheduling	6	($$INP,$$VALID)^SDAM2 $$CO^SDAMQ $$DIV^SDAMU EN^SDCOM $$REQ^SDM1A $$GETAPT^SDVSIT2
Registration	1	$$SETSTR^VALM1

Package	Total	Caller Graph
Scheduling	5	SCRPW16 SDAMQ SDAMQ1 SDAMQ4 SDAMQ5

Name	Comments	DBIA/ICR reference
COQ
LINE(CAPTION,NAT,GRAND)	; ; input: CAPTION := text for leftmost col ; NAT := # of encounters requiring action ; GRAND := total # of encounters
HDR	; ; input: SDIVNM := division name
SET(X)	;
CHKQ
TOT	; -- set totals clinic
BULL(SDIVNM,SDLN,SDTOT)	;
ENQ
BULLQ
EN(SDBEG,SDEND)	; -- search appts
CO(DFN,SDT,SDCL,SDREQ)	; -- attempt to CO quietly for inpats and non-counts
CHK(SDCL,SDT,SDDA,SDIVNM,SDNAME,SDREQ)	; -- check appts ; input: SDCL := clinic ifn ; SDT := appt d/t ; SDDA := ifn of appt mutiple ; SDIVNM := division name ; SDNAME := clinic name ; SDREQ := required for credit (ci or co)

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	EN+2
^DG(43 - [#43]	EN+2
^DPT - [#2]	CHK+10, CHK+25, CHK+37
^SC - [#44]	EN+3, EN+7, EN+8, CHK+9
^TMP("SDAMTEXT"	SET+1*
^TMP("SDSTATS"	TOT+1, BULL+4

Name	Field # of Occurrence
CAPTION	LINE~, LINE+5
DFN	CHK+8~, CHK+9*, CHK+10, CHK+16, CHK+24, CHK+25, CHK+29, CHK+33, CHK+37, CO~ , CO+3
GRAND	BULL+1~, BULL+5*, BULL+6, BULL+8, BULL+9, BULL+10, LINE~, LINE+5
NAT	BULL+1~, BULL+5*, BULL+6, BULL+7, BULL+9, BULL+10, LINE~, LINE+5
OTHER	BULL+1~, BULL+2, BULL+9, BULL+11
SD0	CHK+8~, CHK+9*, CHK+34
SDBEG	EN~, EN+7
SDC	CHK+8~, CHK+9*, CHK+32, CHK+33
SDCL	EN+1~, EN+3*, EN+6, EN+7, EN+8, CHK~, CHK+9, CHK+13, CHK+16, CHK+29 , CHK+33, CO~, CO+3
SDDA	EN+1~, EN+8*, CHK~, CHK+9, CHK+16
SDEND	EN~, EN+7
SDIVNM	EN+1~, EN+5*, EN+6, EN+8, CHK~, TOT+1, BULL~, BULL+4
SDLN	BULL~, SET+1*
SDNAME	EN+1~, EN+5, EN+8, CHK~, TOT+1, BULL+1~, BULL+2, BULL+4*, BULL+10
SDNAT	CHK+8~, CHK+9, CHK+40, TOT+1
SDNONCNT	EN+1~, EN+4*, CHK+29
SDOE	CHK+8~, CHK+33, CO+3~, CO+5
SDPT	CHK+8~, CHK+10, CHK+13, CHK+19, CHK+25, CHK+37*, CHK+40
SDREQ	EN+1~, EN+7*, EN+8, CHK~, CHK+29, CHK+32, CHK+33, CO~, CO+1
SDT	EN+1~, EN+7*, EN+8, CHK~, CHK+9, CHK+10, CHK+16, CHK+24, CHK+25, CHK+29 , CHK+33, CHK+37, CO~, CO+3
SDTOT	BULL~
SDTOT("DIV"	BULL+7, BULL+8
TGRAND	BULL+1~, BULL+2, BULL+6, BULL+13
TNAT	BULL+1~, BULL+2, BULL+6, BULL+13
U	EN+2, EN+3, EN+4, EN+5, CHK+19, CHK+25, CHK+32, CHK+33, CHK+37, CHK+40 , TOT+1, BULL+5
VAUTD	EN+1~, EN+2*, EN+6
VAUTD(	EN+2*
X	EN+1~, EN+3, EN+4, EN+5, EN+6, CHK+8~, CHK+19, CHK+22, CHK+25, TOT+1 , BULL+4*, BULL+5, SET~, SET+1
Y	CHK+8~, CHK+23~, CHK+24, CHK+25, LINE+4~, LINE+5