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 |