SCMCBK4 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1; AUG 5, 1998
Source file <SCMCBK4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILEQ | ||
| QMPTPO | ;process patient position assignments
|
|
| QUEUED(SCX) | ;if XWBAPVER=1
; ;SCX=1: called from ptfile^scmcbk ; ;SCX=2: called from posfile^scmcbk |
|
| SETUP | ||
| CLEANUP | ;;;K ^TMP(SCJOB,"SC PATIENT LIST")
|
|
| QMPTTM | ; process patient team assignments
|
|
| S(SCX) | ;return text string
|
|
| T | ;;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | QUEUED+17!, CLEANUP+1! |
| Name | Line Occurrences |
|---|---|
| $$S | QUEUED+7 |
| CLEANUP | QMPTTM+14, QMPTPO+15 |
| SETUP | QMPTTM+3, QMPTPO+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | QMPTTM+8, QMPTPO+9 |
| DUZ | QUEUED+5 |
| >> SC | SETUP+2 |
| >> SC("DUZ" | QUEUED+5*, QMPTTM+7, QMPTPO+8, SETUP+3 |
| >> SC("RESTRICT" | QMPTTM+6 |
| >> SC("TYPE" | QMPTTM+5, QMPTPO+7 |
| SCADDFLD | QMPTTM+1~, QMPTPO+1~ |
| SCADDFLD( | QMPTTM+5*, QMPTTM+6*, QMPTTM+7*, QMPTTM+8*, QMPTPO+7*, QMPTPO+8*, QMPTPO+9* |
| SCADTM | QMPTPO+2~, QMPTPO+5*, QMPTPO+13 |
| SCBAD | QMPTTM+1~, QMPTPO+1~ |
| SCDTVAR | QMPTTM+1~, QMPTTM+12, QMPTPO+2~, QMPTPO+13 |
| SCERMSG | QMPTTM+1~, QMPTPO+1~ |
| SCFILE | QMPTTM+1~, QMPTPO+1~ |
| SCJOB | QMPTTM+1~, QMPTPO+1~, SETUP+4* |
| SCMAFLD | QMPTPO+2~ |
| >> SCMAIL1 | SETUP+3* |
| SCNEW | QMPTTM+1~, QMPTPO+1~ |
| SCNEW1 | QMPTPO+2~ |
| >> SCOK("Result" | QUEUED+4*, QUEUED+14* |
| SCOLD | QMPTTM+1~, QMPTPO+1~ |
| SCPOS | QMPTPO+2~, QMPTPO+13 |
| SCTEAM | QMPTTM+1~, QMPTTM+12, QMPTPO+1~ |
| SCX | QUEUED~, QUEUED+7*, QUEUED+8, QUEUED+9, QUEUED+17!, QMPTTM+1~, QMPTTM+12*, QMPTPO+2~, QMPTPO+13*, S~ |
| >> ZTDESC | QUEUED+9* |
| >> ZTDTH | QUEUED+6* |
| >> ZTRTN | QUEUED+8* |
| >> ZTSAVE("SC(" | QUEUED+10* |
| >> ZTSAVE("^TMP($J," | QUEUED+12* |
| >> ZTSK | QUEUED+14 |
| Name | Field # of Occurrence |
|---|---|
| $T(T+SCX | S+1 |