SCRPW72 ;BP-CIOFO/KEITH,ESW - Clinic appointment availability extract (cont.) ; 5/23/03 12:16pm
Source file <SCRPW72.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SCL | ;Select clinics for detail
|
|
VCP(Y) | ;Validate credit pair
|
|
SORT(SDSORT) | ;Gather sort values for detailed report
|
|
CL | ;Evaluate list of clinics
|
|
STOP | ;Check for stop task request
|
|
CNAME(SC) | ;Massage clinic name
|
|
ADDL(SDZ) | ;Format additional data
|
|
SCP | ;Get credit pairs for detail
|
|
START | ;Gather data for printed report
|
|
TIME(SDBEG,SDEND) | ;Calculate length of run time
|
|
ARRSET(SDCP,SC,SDI) | ;Set daily counts into array
|
|
DIV(SDIV) | ;Evaluate division
|
|
ORD | ;Build list to order clinic output
|
|
CP | ;Evaluate list of credit pairs
|
|
EXTRACT | ;Gather data for extract
|
|
CA(SORT) | ;Evaluate list of clinics for selected patient
|
|
OE(SDBDT,SDEDT,MAX,SDEX) | ;Count clinic workload
|
Name | Field # of Occurrence |
---|---|
^%DTC | START+11, OE+23, EXTRACT+6 |
$$S^%ZTLOAD | STOP+1 |
^DIC | SCL+4 |
WAIT^DICD | START+2 |
^DIR | SCP+8 |
END^SCRPW50 | START+26 |
EXXM^SCRPW70 | EXTRACT+35, EXTRACT+38 |
TXXM^SCRPW70 | EXTRACT+21 |
$$CLINIC^SCRPW71 | START+20, CA+13, CL+6, CP+6, EXTRACT+14 |
$$CPAIR^SCRPW71 | OE+15, CA+9, CP+4 |
$$DIV^SCRPW71 | OE+19, CA+8, CL+8 |
ARRINI^SCRPW71 | OE+20 |
INIT^SCRPW71 | START+10, EXTRACT+4 |
PRT^SCRPW73 | START+28, EXTRACT+35, EXTRACT+38 |
XMTX^SCRPW73 | EXTRACT+27, EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+33, EXTRACT+34 |
EXIT^SCRPW74 | START+13, START+21, START+24, START+29, EXTRACT+39 |
NAVA^SCRPW75 | START+23, EXTRACT+18 |
HINI^SCRPW76 | START+5, EXTRACT+7 |
FOOT^SCRPW77 | START+5, EXTRACT+7 |
$$GETOE^SDOE | OE+10 |
$$HTE^XLFDT | EXTRACT+25 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^SC - [#44] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(40.7 - [#40.7] | VCP+4, VCP+6 |
^DPT - [#2] | OE+12, CA+4, CA+6 |
^SC - [#44] | START+17, START+19, ORD+4, OE+14, CA+6, CL+4, CP+2, CP+3, CNAME+3, EXTRACT+13 |
^SCE("B" | OE+7, OE+8 |
^TMP( | START+9! |
^TMP("SD" | START+6!, START+22, ORD+1, ORD+2, ORD+3, OE+20, OE+21*, OE+22*, ARRSET+6, ARRSET+9* , CL+9*, EXTRACT+5!, EXTRACT+17 |
^TMP("SDIP" | CA+12* |
^TMP("SDIPLST" | CA+12* |
^TMP("SDORD" | CA+12* |
^TMP("SDPAT" | CA+2 |
^TMP("SDPLIST" | START+7!, CL+5*, CP+5* |
^TMP("SDS" | START+6!, ORD+5*, EXTRACT+5! |
^TMP("SDTMP" | START+6!, EXTRACT+5! |
^TMP("SDTOT" | START+6! |
^TMP("SDXM" | EXTRACT+5!, EXTRACT+21!, EXTRACT+37! |
Name | Line Occurrences |
---|---|
$$DIV | START+19, OE+13, CA+6, CL+4, CP+3 |
$$TIME | EXTRACT+24 |
$$VCP | SCP+10 |
@( | START+16, SORT+9 |
ARRSET | OE+24 |
CA | START+15 |
OE | START+12, EXTRACT+10 |
ORD | START+25, EXTRACT+21 |
STOP | START+18, OE+9, CA+5, CL+3 |
Name | Field # of Occurrence |
---|---|
^( | CA+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CC | START+9~* |
DFN | OE+5~, OE+11*, OE+12, CA+1~, CA+2*, CA+4, CA+6, CA+12 |
DIC | SCL+1~, SCL+2* |
DIC("A" | SCL+2* |
DIC("S" | SCL+2* |
DIC(0 | SCL+2* |
DIR | SCP+1~ |
DIR("?" | SCP+3*, SCP+4*, SCP+5*, SCP+6* |
DIR("A" | SCP+2* |
DIR(0 | SCP+2* |
DT | START+4, EXTRACT+4 |
>> DTOUT | SCL+4, SCP+8 |
>> DUOUT | SCL+4, SCP+8 |
IOM | START+3, EXTRACT+2 |
IOST | START+2, START+26 |
MAX | START+1~, START+11*, START+12, START+20, OE~, OE+20, CA+13, CL+6, CP+6, EXTRACT+2~ , EXTRACT+6*, EXTRACT+10, EXTRACT+14 |
SC | START+1~, START+17*, START+19, START+20, ORD+3*, ORD+4, ORD+5, OE+13*, OE+14, OE+20 , OE+22, OE+24, ARRSET~, ARRSET+6, ARRSET+9, CA+6*, CA+12, CA+13, CL+4*, CL+5 , CL+6, CP+1~*, CP+2*, CP+3, CP+5, CP+6, CNAME~, CNAME+3, EXTRACT+1~, EXTRACT+13* , EXTRACT+14 |
SC0 | START+19*, OE+14*, OE+15, OE+17, OE+19, CA+1~, CA+6*, CA+7, CA+8, CA+9 , CA+11, CL+1~, CL+4*, CL+8, CP+1~, CP+3*, CP+4, EXTRACT+13* |
SCNA | START+1~, ORD+4*, ORD+5, EXTRACT+1~ |
SDAY | OE+5~, OE+23*, OE+24 |
SDBDT | START+4, START+11, START+12, START+20, START+23, OE~, OE+6, OE+23, CA+3, CA+13 , CL+6, CP+6, EXTRACT+6, EXTRACT+10, EXTRACT+14, EXTRACT+18 |
SDBEG | EXTRACT+1~, EXTRACT+4*, EXTRACT+24, EXTRACT+25*, EXTRACT+30, TIME~, TIME+5, TIME+6* |
SDCCP | CP+1~, CP+4 |
SDCNAM | CA+1~, CL+1~, CL+2*, CL+4, CL+9 |
>> SDCOL | START+10*, EXTRACT+4* |
SDCP | START+1~, ORD+2*, ORD+3, ORD+5, OE+5~, OE+15, OE+18, OE+20, OE+21, OE+22 , OE+24, ARRSET~, ARRSET+6, ARRSET+9, CA+1~, CA+9, CA+10, CA+12, EXTRACT+1~ |
SDCT | OE+5~, OE+6*, OE+9* |
>> SDDIV | DIV+1 |
>> SDDIV( | DIV+1 |
SDDT | CA+3~*, CA+4*, CA+6 |
SDEDT | START+11, START+12, START+20, START+23, OE~, OE+7, CA+4, CA+13, CL+6, CP+6 , EXTRACT+6, EXTRACT+10, EXTRACT+14, EXTRACT+18 |
SDEND | EXTRACT+1~, EXTRACT+24*, EXTRACT+25*, EXTRACT+31, TIME~, TIME+5*, TIME+6 |
SDEX | START+23, OE~, OE+16 |
SDEXDT | EXTRACT+2~, EXTRACT+4* |
SDFMT | START+14, START+17, START+20, OE+23, CA+13, CL+6, CP+6, EXTRACT+1~, EXTRACT+4*, EXTRACT+14 , EXTRACT+24* |
>> SDFMTS | START+14, START+17 |
SDFOOT | START+1~, START+5, EXTRACT+1~, EXTRACT+7 |
SDI | START+1~, START+3*, START+18*, ARRSET~, ARRSET+5, CA+1*, CA+5*, CL+1*, CL+3*, ADDL+3~ , ADDL+4*, EXTRACT+1~, EXTRACT+3*, EXTRACT+34*, EXTRACT+36*, EXTRACT+38 |
SDIOM | START+1~, START+3*, START+4*, START+10, EXTRACT+1~, EXTRACT+2* |
SDIV | ORD+1*, ORD+2, ORD+3, OE+19*, OE+20, OE+21, OE+22, ARRSET+6, ARRSET+9, DIV~ , DIV+1, CA+1~, CA+8*, CA+12, CL+1~, CL+8*, CL+9 |
>> SDJN | CA+2 |
>> SDMD | START+22*, EXTRACT+17* |
SDOE | OE+5~, OE+8*, OE+10 |
SDOE0 | OE+5~, OE+10*, OE+11, OE+13 |
SDOUT | START+1~, START+3*, START+12, START+13, START+17, START+18, START+21, START+24, START+27, ORD+1 , ORD+2, ORD+3, OE+7, OE+8, OE+9, CA+5, CL+2, CL+3, CP+2, SCL+1* , SCL+3, SCL+4*, SCP+1*, SCP+7, SCP+8*, STOP+1*, EXTRACT+1~, EXTRACT+4* |
SDP | ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9 |
>> SDPAGE | START+28* |
SDPAST | START+1~, START+4*, START+10, START+12, START+20, START+23, OE+20, CA+13, CL+6, CP+6 , EXTRACT+10, EXTRACT+14, EXTRACT+18, EXTRACT+26, EXTRACT+36 |
>> SDPAT | CA+2 |
>> SDPBDT | EXTRACT+29 |
>> SDPEDT | EXTRACT+29 |
SDPNAME | CA+1~, CA+2*, CA+12 |
SDQUIT | OE+5~, OE+6*, OE+16*, OE+17*, OE+18*, SCL+1~*, SCL+3, SCL+5*, SCP+1~*, SCP+7 , SCP+9* |
>> SDREPORT | START+27*, START+28 |
>> SDREPORT( | START+27, START+28, EXTRACT+3* |
>> SDREPORT(4 | START+7, CL+5, CP+5 |
>> SDREPORT(5 | START+8, START+12, START+15, CA+12 |
SDS | ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9 |
SDSORT | START+15, START+16, OE+16, OE+17, OE+18, SORT~, SORT+7, SORT+8, SORT+9 |
SDSORT( | OE+17, OE+18, CL+2, CL+4, CP+4, SCL+6*, SCP+11* |
SDSX | SORT+7~*, SORT+9 |
SDT | OE+5~, OE+6*, OE+7*, OE+8, OE+23 |
SDTIME | EXTRACT+1~, EXTRACT+24*, EXTRACT+32 |
SDX | START+20*, ARRSET+4~, ARRSET+6*, ARRSET+7*, ARRSET+8*, ARRSET+9, CA+13*, CL+6*, CL+7, CL+9 , CP+6*, CNAME+1~, CNAME+3*, CNAME+5*, CNAME+7*, CNAME+8, ADDL+3~*, ADDL+4*, ADDL+5, EXTRACT+1~ , EXTRACT+14*, EXTRACT+27* |
SDXM | START+1~, EXTRACT+1~, EXTRACT+27*, EXTRACT+35, EXTRACT+37*, EXTRACT+38 |
SDY | EXTRACT+1~, EXTRACT+26*, EXTRACT+27 |
SDZ | ADDL~, ADDL+4 |
SORT | CA~, CA+10, CA+11 |
SORT( | CA+10, CA+11 |
U | START+19, ORD+4, OE+10, OE+11, OE+12, OE+13, OE+14, OE+15, OE+17, OE+21 , OE+22, ARRSET+6, ARRSET+9, CA+2, CA+6, CA+7, CA+11, CA+12, CL+4, CL+7 , CL+9, CP+3, CNAME+3, SCL+6, ADDL+4 |
X | START+1~, START+11, OE+23, SCL+5, SCP+9, EXTRACT+2~, EXTRACT+6, TIME+4~, TIME+6*, TIME+7* |
X1 | START+1~, START+11*, OE+23*, EXTRACT+2~, EXTRACT+6* |
X2 | START+1~, START+11*, OE+23*, EXTRACT+2~, EXTRACT+6* |
XX | CA+1~, CA+2* |
Y | SCL+6, SCP+10, SCP+11, VCP~, VCP+3, VCP+4, VCP+5, VCP+6, TIME+4~ |
Y("D" | TIME+6*, TIME+8*, TIME+12 |
Y("H" | TIME+7*, TIME+9*, TIME+12 |
Y("M" | TIME+7*, TIME+10*, TIME+12 |
Y("S" | TIME+7*, TIME+11*, TIME+12 |
>> ZTQUEUED | STOP+1 |
>> ZTSK | EXTRACT+33 |
>> ZTSTOP | STOP+1* |