SDAMQ3 ;ALB/MJK - AM Background Job/Appointments ; 12/1/91
Source file <SDAMQ3.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(SDBEG,SDEND) | ; -- search appts
|
|
ENQ | ||
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) |
|
TOT | ; -- set totals clinic
|
|
CHKQ | ||
CO(DFN,SDT,SDCL,SDREQ) | ; -- attempt to CO quietly for inpats and non-counts
|
|
COQ | ||
BULL(SDIVNM,SDLN,SDTOT) | ;
|
|
BULLQ | ||
LINE(CAPTION,NAT,GRAND) | ;
; input: CAPTION := text for leftmost col ; NAT := # of encounters requiring action ; GRAND := total # of encounters |
|
SET(X) | ;
|
|
HDR | ;
; input: SDIVNM := division name |
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 |
---|---|
^( | TOT+1*, BULL+4 |
^("C" | CHK+9 |
^(0 | CHK+37 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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* |