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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 2 | SC PCMM HIST PAT ASSIGN LIST SCRPO3 |
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* |