SDAL ;ALB/GRR,MJK - APPOINTMENT LIST ; 29 Jun 99 04:11PM ; Compiled August 20, 2007 14:24:59
Source file <SDAL.m>
Package | Total | Caller Graph |
---|---|---|
Scheduling | 4 | SD IHS APPT LIST SDAL0 SDLIST SDOUTPUT |
IHS Changes To Scheduling | 1 | ASDM |
Name | Comments | DBIA/ICR reference |
---|---|---|
BARQ(TTYPE,MARGIN) | ;
|
|
EN | ||
RD1 | ||
QUE | ;Queue output
|
|
LOOPA | ;if no error returned from SDAPI, start looping through clinics in VAUTC (sorted by name)
|
|
STOP | ;Check for stop task request
|
|
N | ||
HED | ;Print report header
|
|
START | ||
PAINT(CLINIC,DATE) | ; -- paint header barcodes
; input: CLINIC := clinic ifn ; DATE := appt date only |
|
EXIT | ||
BARCQ | ||
BARC(TAB,X) | ; --print barcode
; input: TAB := tab position ; X := string to print |
|
CLIN | ;process each clinic IEN from VAUTC array
|
|
END | ||
INACT | ;SD*572 if single clinic selected check if inactive on selected date
|
|
OVER | ;S PCNT=PCNT+1 I PCNT<SDCOPY,SDCOUNT S VAUTC=0 G LOOPA
|
Name | Field # of Occurrence |
---|---|
^%DT | RD1 |
DW^%DTC | START+8 |
NOW^%DTC | START+6 |
^%ZIS | N+5 |
^%ZTLOAD | QUE+5 |
$$S^%ZTLOAD | STOP+1 |
CLOSE^DGUTQ | EXIT+3 |
D^DIQ | START+8 |
^DIR | RD1+5, BARQ+5 |
$$XY^SCRPW50 | HED+4 |
LOOP^SDAL0 | CLIN+1 |
NCLINIC^SDAL0 | EN+2 |
NCOUNT^SDAL0 | EN+1 |
$$SDAPI^SDAMA301 | START+20 |
$$BARC^SDAMU | START+7, BARQ+3 |
$$SDAPIERR^SDAMUTDT | START+22 |
ASK2^SDDIV | EN |
DT^SDUTL | START+4 |
OUT^SDUTL | START+22, END+2, HED+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | START+6 |
^SC - [#44] | START+10, START+11, START+12, CLIN+1, HED+5, HED+11, INACT+1, INACT+2 |
^SD(409.41 - [#409.41] | START+2, START+3 |
^TMP($J | START+14!, START+25, START+26, START+27, START+28*, EXIT+2! |
Name | Line Occurrences |
---|---|
$$BARQ | N+6 |
BARC | PAINT+5, PAINT+6, PAINT+7 |
BARCQ | BARQ+2, BARQ+3 |
CLIN | LOOPA+1 |
END | EN, EN+1, EN+2, N+5, N+6, N+7, LOOPA+2 |
EXIT | START+22, END |
HED | START+22, END+1 |
INACT | HED+11 |
LOOPA | OVER+1 |
N | N+2 |
PAINT | HED+18 |
QUE | N+7 |
STOP | HED+2 |
Name | Field # of Occurrence |
---|---|
^("I" | INACT+1, INACT+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | RD1+1!, START+6, EXIT! |
%DT | RD1~* |
%DT("A" | RD1* |
%H | EXIT! |
%ZIS | N+5~* |
A | EXIT! |
ALL | EXIT! |
CLINIC | PAINT~, PAINT+6 |
CNT | START~*, START+2*, START+3 |
CT | HED+9*, HED+10*, HED+11, HED+12, HED+13! |
DATE | PAINT~, PAINT+5 |
DFN | EXIT! |
DIC | EXIT! |
DIC("S" | RD1! |
DIR | RD1+3~, BARQ+5! |
DIR("A" | RD1+4*, BARQ+4* |
DIR("B" | RD1+3*, BARQ+4* |
DIR(0 | RD1+3*, BARQ+4* |
DIRUT | EXIT+1!, BARQ+5 |
DT | START+4, START+8 |
DTIME | N, START+4* |
>> DTOUT | RD1+5 |
>> DUOUT | RD1+5 |
I | EXIT! |
INC | EXIT! |
IO | START |
IO("Q" | N+5!, N+7, QUE+2! |
IOF | END+2, HED+4 |
IOM | N+6, START+5, START+7, HED+14 |
IOST | START+22, END+2, HED+1, HED+4 |
IOST(0 | N+6, START+7 |
K | EXIT! |
M | N*, N+1!, N+2, N+3, START+5, EXIT! |
MARGIN | BARQ~, BARQ+2 |
OFF | BARQ+1~, BARQ+3 |
ON | BARQ+1~, BARQ+3 |
PCNT | START+8*, OVER+1*, EXIT! |
POP | N+5, EXIT! |
PT | EXIT! |
SC | START+18*, START+22*, END+1*, EXIT!, CLIN+1*, HED+5, HED+7, HED+10*, HED+11, HED+13! , HED+18, INACT+1, INACT+2 |
SD | START+18*, LOOPA+1*, EXIT!, CLIN+1 |
SD1 | START+8*, EXIT!, HED+1, HED+3* |
SDARRAY | START+14~, START+20 |
SDARRAY("FLDS" | START+15* |
SDARRAY(1 | START+15* |
SDARRAY(2 | START+17*, START+18* |
SDARRAY(3 | START+15* |
SDASH | START+5*, EXIT+2!, HED+17, PAINT+8 |
SDBC | N+6*, START+5*, START+7*, EXIT+2!, HED+18 |
SDBCOFF | START+7, EXIT+2!, BARC+4 |
SDBCON | START+7, EXIT+2!, BARC+4 |
SDCC | EXIT! |
SDCL | START+14~, START+25*, START+26, START+27, START+28 |
SDCLAR | START~ |
SDCLAR( | START+3* |
SDCONC | EN+1, EXIT! |
SDCOPY | N+3*, START+5*, OVER+1, EXIT+1! |
SDCOUNT | START~*, OVER+1, END, END+1, END+2, HED+3*, HED+4 |
SDCP | EXIT! |
SDD | RD1+2*, RD1+5!, N+1!, START+8, START+11, START+15, EXIT!, HED+18, INACT+1, INACT+2 |
SDDFN | START+14~, START+26*, START+27, START+28 |
SDDIF | EXIT! |
SDDIF1 | EXIT! |
SDDT | START+14~, START+27*, START+28 |
SDEA | EXIT! |
SDEC | EXIT! |
SDEDT | EXIT! |
SDEM | EXIT! |
SDEM1 | EXIT! |
SDEND | EN*, START+8*, LOOPA+1, LOOPA+2, END+2, EXIT!, STOP+1*, HED+1, HED+2 |
SDERR | START+14~, START+22* |
SDFLG | EXIT!, CLIN+1* |
SDFS | EXIT! |
SDIEN | START+10*, START+11, START+12, START+14~ |
SDIN | EXIT! |
SDNAME | START+12*, START+14~ |
SDNT | START+8*, EXIT! |
SDOI | EXIT+1! |
SDPAGE | START+22*, END+1*, EXIT+1!, HED+14, HED+17* |
SDPCMM | RD1+6*, EXIT+2! |
SDPCT | END+1*, EXIT+1!, INACT+1*, INACT+2*, INACT+3* |
SDPD | START+8*, EXIT+1!, HED+5, HED+8, HED+11, HED+12 |
SDPNOW | START+6*, EXIT+1!, HED+14 |
SDPT0 | EXIT+1! |
SDRESULT | START+14~, START+20*, START+22, START+24, LOOPA+1 |
SDREV | EXIT+1! |
SDT | EXIT+1! |
SDX | N!, EXIT+1! |
SDX1 | N! |
SDXX | EXIT+1! |
SDZ | EXIT+1! |
SNAM | HED+9*, HED+10*, HED+13! |
TAB | BARC~, BARC+4 |
TTYPE | BARQ~, BARQ+3 |
U | EN+1, START+3, HED+11, INACT+1, INACT+2 |
VADAT | EXIT+1! |
VADATE | EXIT+1! |
VAQK | EXIT+1! |
VAUTC | RD1+1!, RD1+5!, N+1!, START+10, START+17, EXIT+1!, HED+8 |
VAUTC( | START+12*, START+18, LOOPA+1, CLIN+1, HED+10 |
VAUTD | RD1+1!, RD1+5!, N+1!, EXIT+1! |
VAUTNI | EN+1*, EXIT+1! |
VAUTSTR | EXIT+1! |
VAUTVB | EXIT+1! |
X | RD1+1!, RD1+5!, N+1!, START+8*, EXIT+1!, QUE+4*, BARC~, BARC+4 |
Y | EN, EN+2, RD1+1!, RD1+2, RD1+5!, RD1+6, N+1!, START+6*, START+8*, EXIT+1! , BARQ+1~, BARQ+2*, BARQ+3*, BARQ+5*, BARCQ |
Y1 | EXIT+1! |
Y2 | EXIT+1! |
Z | EXIT+1! |
ZTDESC | QUE+1~, QUE+3* |
>> ZTQUEUED | STOP+1 |
ZTRTN | QUE+1~, QUE+3* |
ZTSAVE | QUE+1~ |
ZTSAVE( | QUE+4* |
ZTSK | N+7, QUE+2! |
>> ZTSTOP | STOP+1* |