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* |