SCRPO1 ;BP-CIOFO/KEITH - Historical Patient Position Assignment Listing ; 20 Aug 99 7:49 AM
Source file <SCRPO1.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 | ;Queue report
|
|
| PROMPT(LIST,SORT,SCSP,SCRTN,SCDESC) | ;Prompt for report parameters, queue report
|
|
| END | ||
| RUN | ;Print report
|
|
| EXIT | ||
| SLINE(SCX,SCY,SCZ) | ;Print summary line
|
|
| SHDR(SCX) | ;Print report subheader
|
|
| HDRX(SCX) | ;extra header line
|
|
| HINI | ;Initialize header variables
|
|
| STOP | ;Check for stop task request
|
|
| BUILD(SCFMT) | ;Build report data
|
|
| CKPOS(SCTP,SCFMT) | ;Check team position
|
|
| TPCL(SCLINIC) | ;Get team position associated clinic
|
|
| TMDV(SCTEAM,SCDIV) | ;Get team and division
|
|
| BTPOS(SCTP,SCDIV,SCTEAM,SCPOS,SCLINIC,SCFMT) | ;Build list of patients for a position
|
|
| FOOT1 | ;Detail report footer
|
|
| FOOT2 | ;Summary report footer
|
| Name | Field # of Occurrence |
|---|---|
| $$S^%ZTLOAD | STOP+1 |
| ^DIR | EXIT |
| $$PTTP^SCAPMC | BTPOS+11 |
| $$ATYPE^SCRPO | PROMPT+14 |
| $$DSUM^SCRPO | PROMPT+15 |
| $$DTR^SCRPO | PROMPT+12 |
| $$LIST^SCRPO | PROMPT+17 |
| $$PPAR^SCRPO | PROMPT+23, RUN+7 |
| $$SORT^SCRPO | PROMPT+21 |
| HDR^SCRPO | RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52 |
| BPTPA^SCRPO2 | BTPOS+14 |
| DISP0^SCRPW23 | END, RUN+6 |
| END^SCRPW50 | END, EXIT+2 |
| SUBT^SCRPW50 | PROMPT+10, PROMPT+13, PROMPT+20, PROMPT+22 |
| TITL^SCRPW50 | PROMPT+9 |
| $$NOW^XLFDT | HINI+4 |
| EN^XUTMDEVQ | PROMPT+26 |
| Name | Line Occurrences |
|---|---|
| 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 |
|
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | HINI+4 |
| ^DIC(4 - [#4] | TMDV+12 |
| ^SC - [#44] | TPCL+7 |
| ^SCTM(404.51 - [#404.51] | TMDV+7 |
| ^SCTM(404.57 - [#404.57] | BUILD+10, CKPOS+5 |
| ^TMP( | EXIT+1! |
| ^TMP("SC" | END!, RUN+3, HDRX+3, BUILD+4, BUILD+5, TPCL+5, TMDV+6, TMDV+11, BTPOS+10 |
| ^TMP("SCARR" | BTPOS+12, BTPOS+13 |
| ^TMP("SCRPT" | RUN+5, RUN+9, RUN+17, RUN+19, RUN+21, RUN+22, RUN+23, RUN+25, RUN+27, RUN+29 , RUN+30, RUN+44, RUN+46, RUN+49, RUN+50 |
| Name | Line Occurrences |
|---|---|
| $$HDRX | RUN+7, RUN+15, RUN+43 |
| $$TMDV | CKPOS+8 |
| $$TPCL | CKPOS+9 |
| BTPOS | CKPOS+10 |
| BUILD | RUN+4 |
| CKPOS | BUILD+6, BUILD+11 |
| END | PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+19, PROMPT+21, PROMPT+23 |
| EXIT | RUN+9, RUN+42, RUN+43, RUN+56 |
| FOOT1 | RUN+31, RUN+40 |
| FOOT2 | RUN+47, RUN+59 |
| HINI | RUN+6 |
| PROMPT | EN+5 |
| SHDR | RUN+15, RUN+31, RUN+43, RUN+47, RUN+52 |
| SLINE | RUN+48, RUN+53, RUN+57, RUN+58 |
| STOP | BUILD+6, BUILD+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DESC | EN+1~, EN+4*, EN+5 |
| DIR | EXIT~ |
| DIR(0 | EXIT* |
| IOSL | RUN+31, RUN+47, RUN+52, FOOT1+2, FOOT2+2 |
| IOST | RUN+6, EXIT |
| LIST | EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+16 |
| RTN | EN+1~, EN+3*, EN+5 |
| SC | PROMPT+7~, PROMPT+8*, PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+17, PROMPT+21, PROMPT+23, RUN+7, EXIT+2! |
| SC1 | RUN+2~, RUN+16*, RUN+17*, RUN+19, RUN+21, RUN+22 |
| SC2 | RUN+2~, RUN+18*, RUN+19*, RUN+21, RUN+22 |
| SC3 | RUN+2~, RUN+20*, RUN+21*, RUN+22 |
| SC4 | RUN+2~, RUN+22*, RUN+23*, RUN+25, RUN+27, RUN+29, RUN+30 |
| SC5 | RUN+2~, RUN+24*, RUN+25*, RUN+27, RUN+29, RUN+30 |
| SC6 | RUN+2~, RUN+26*, RUN+27*, RUN+29, RUN+30 |
| SC7 | RUN+2~, RUN+28*, RUN+29*, RUN+30 |
| SCARR | BTPOS+8~, BTPOS+9*, BTPOS+11 |
| SCASP | RUN+2~, RUN+44*, RUN+51, RUN+57 |
| SCBDT | PROMPT+7~, PROMPT+12 |
| SCBDT("B" | PROMPT+11* |
| SCDESC | PROMPT~, PROMPT+9, PROMPT+26 |
| SCDIV | PROMPT+7~, CKPOS+4~, CKPOS+8, CKPOS+10, TMDV~, TMDV+10*, TMDV+11, TMDV+12, TMDV+13*, BTPOS~ , BTPOS+14 |
| SCDT | BTPOS+8~, BTPOS+10*, BTPOS+11 |
| SCEDT | PROMPT+7~, PROMPT+12 |
| SCEDT("B" | PROMPT+11* |
| SCFF | RUN+1~, RUN+3* |
| SCFMT | RUN+1~, RUN+3*, RUN+4, RUN+15, BUILD~, BUILD+6, BUILD+11, CKPOS~, CKPOS+10, BTPOS~ , BTPOS+14 |
| SCI | PROMPT+7~, PROMPT+16*, RUN+2~, RUN+4*, RUN+5*, RUN+33*, RUN+45*, RUN+46, RUN+48, RUN+49 , RUN+50, EXIT+1*, BTPOS+8~, BTPOS+11*, BTPOS+12*, BTPOS+13, FOOT1+1~, FOOT1+2*, FOOT2+1~, FOOT2+2* |
| SCLINE | RUN+1~, SHDR+5, HINI+3*, FOOT1+3, FOOT1+7, FOOT2+3, FOOT2+7 |
| SCLINIC | CKPOS+4~, CKPOS+9*, CKPOS+10, TPCL~, TPCL+5, TPCL+6, TPCL+7*, BTPOS~, BTPOS+14 |
| SCN | RUN+2~, RUN+22*, RUN+23, RUN+25, RUN+27, RUN+29, RUN+30 |
| SCOUT | PROMPT+7~, PROMPT+8*, PROMPT+16, PROMPT+17*, PROMPT+19, RUN+1~, RUN+3*, RUN+4, RUN+7*, RUN+8 , RUN+10, RUN+15, RUN+17, RUN+19, RUN+21, RUN+23, RUN+25, RUN+27, RUN+29, RUN+31 , RUN+40, RUN+42, RUN+43, RUN+45, RUN+47, RUN+49, RUN+52, RUN+56, EXIT, SHDR+2 , STOP+1*, BUILD+5, BUILD+10 |
| SCPAGE | RUN+1~, RUN+14*, HINI+3* |
| SCPASS | BTPOS+8~, BTPOS+13*, BTPOS+14 |
| SCPNOW | RUN+2~, HINI+4* |
| SCPOS | CKPOS+4~, CKPOS+7*, CKPOS+10, BTPOS~, BTPOS+14 |
| SCRTN | PROMPT~, PROMPT+26 |
| SCSP | EN+1~, EN+3*, EN+5, PROMPT~, PROMPT+21 |
| SCT | PROMPT+7~, PROMPT+23 |
| SCT(1 | PROMPT+22* |
| SCTEAM | CKPOS+4~, CKPOS+8*, CKPOS+10, TMDV~, TMDV+5, TMDV+6, TMDV+7, TMDV+9*, BTPOS~, BTPOS+14 |
| SCTITL | RUN+1~, RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52 |
| SCTITL(1 | HINI+2* |
| SCTITL(2 | RUN+7*, RUN+10!, RUN+15*, RUN+43* |
| SCTITL2 | RUN+1~ |
| SCTM | BUILD+2~ |
| SCTM0 | TMDV+4~, TMDV+7*, TMDV+8, TMDV+10 |
| SCTP | BUILD+2~, BUILD+4*, BUILD+5*, BUILD+6, BUILD+10*, BUILD+11, CKPOS~, CKPOS+5, CKPOS+7, CKPOS+10 , BTPOS~, BTPOS+11 |
| SCTP0 | CKPOS+4~, CKPOS+5*, CKPOS+6, CKPOS+8, CKPOS+9 |
| SCUNP | RUN+2~, RUN+3*, RUN+5*, RUN+58 |
| SCX | PROMPT+7~, PROMPT+16*, PROMPT+17, RUN+1~, RUN+11*, RUN+12, RUN+30*, RUN+33, RUN+48*, RUN+49* , RUN+50, RUN+53, SLINE~, SLINE+5, SHDR~, SHDR+3, HDRX~, HDRX+2, HDRX+3, CKPOS+4~ , CKPOS+6*, CKPOS+7, TMDV+4~, TMDV+8*, TMDV+9, TMDV+12*, TMDV+13 |
| SCY | RUN+32*, RUN+33, RUN+50*, RUN+51, RUN+53, SLINE~, SLINE+5 |
| SCZ | RUN+51*, RUN+53, SLINE~, SLINE+5 |
| SORT | EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+21 |
| U | RUN+33, SLINE+5, CKPOS+6, CKPOS+7, CKPOS+8, CKPOS+9, TPCL+7, TMDV+8, TMDV+9, TMDV+10 , TMDV+12, TMDV+13 |
| Y | HINI+1~, HINI+4* |
| >> ZTQUEUED | STOP+1 |
| ZTSAVE | PROMPT+25~, PROMPT+26 |
| ZTSAVE("SC" | PROMPT+25* |
| ZTSAVE("^TMP(""SC"",$J," | PROMPT+25* |
| >> ZTSTOP | STOP+1* |