SCMCMU2 ;ALBOI/MJK - PCMM Mass Team/Position Unassignment Processing;07/10/98
Source file <SCMCMU2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CLDIS(SCPOS) | ; -- discharge from clinic
|
|
LOCK(NODE) | ; -- lock node
|
|
QUE() | ; -- queue mass unassignment
|
|
TPDISQ | ||
START | ; -- entry point for task
; -- defined from task SCTEAM,SCPOS,SCTPDIS,SCMUTYPE,SCDATE,SCSELCNT |
|
CLDISQ | ||
TMDIS(SCDATE,SCTEAM,SCNT,SCPTX) | ; -- team unassignment for patient
; input: SCDATE := effective date ; SCTEAM := ien of TEAM entry (404.51) ; SCNT := entry in @SCPTINFO@ & @SCPTALL@ arrays ; SCPTX := format defined by output of $$PTTM^SCAPMC2 |
|
TPDIS(SCDATE,SCPOS,SCNT,SCPTX) | ; -- position unassignment for patient
; input: SCDATE := effective date ; SCTEAM := ien of TEAM POSITION entry (404.57) ; SCNT := entry in @SCPTINFO@ & @SCPTALL@ arrays ; SCPTX := format defined by output of $$PTTP^SCAPMC2 |
|
UNLOCK(NODE) | ; -- unlock node
|
FileNo | Call Tags |
---|---|
^SCPT(404.42 - [#404.42] | Classic Fileman Calls |
^SCPT(404.43 - [#404.43] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCPT(404.42 - [#404.42] | TMDIS+13 |
^SCPT(404.43 - [#404.43] | TPDIS+15 |
^SCTM(404.51 - [#404.51] | START+9 |
^SCTM(404.57 - [#404.57] | START+11, CLDIS+7 |
^TMP("SCMU" | START+16, START+17, START+20, START+21, START+22, START+23 |
Name | Line Occurrences |
---|---|
$$CLDIS | TPDIS+64 |
$$TMDIS | START+36 |
$$TPDIS | START+38, TMDIS+20 |
CLDISQ | CLDIS+5 |
LOCK | START+12, TMDIS+31, TPDIS+25, TPDIS+49 |
UNLOCK | START+51, TMDIS+33, TMDIS+57, TPDIS+27, TPDIS+51 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | TMDIS+29~, TMDIS+30*, TPDIS+23~, TPDIS+24* |
DFN | TMDIS+6~, TMDIS+11*, TMDIS+19, TMDIS+20, TMDIS+56, TPDIS+6~, TPDIS+13*, TPDIS+50, CLDIS+11 |
DIE | TPDIS+23~, TPDIS+24* |
DIK | TMDIS+29~, TMDIS+30*, TPDIS+23~, TPDIS+24* |
DR | TPDIS+23~, TPDIS+24* |
DT | TMDIS+28, TMDIS+39, TMDIS+47, TPDIS+22, TPDIS+24, TPDIS+33, TPDIS+41 |
NODE | LOCK~, LOCK+1, UNLOCK~, UNLOCK+1 |
SCASCNT | START+3~, START+5*, START+44* |
SCASDT | TMDIS+6~, TMDIS+14*, TMDIS+28, TMDIS+35, TMDIS+39, TMDIS+43, TPDIS+6~, TPDIS+7*, TPDIS+16*, TPDIS+22 , TPDIS+29, TPDIS+33, TPDIS+37 |
SCBADAR | START+19~, START+21*, START+24, START+48, START+56 |
SCCLN | CLDIS+1~, CLDIS+8*, CLDIS+9, CLDIS+11 |
SCDATE | START+29, START+36, START+38, TMDIS~, TMDIS+20, TMDIS+28, TMDIS+39, TMDIS+47, TMDIS+56, TMDIS+64 , TMDIS+66, TPDIS~, TPDIS+22, TPDIS+33, TPDIS+41, TPDIS+50, TPDIS+58, TPDIS+60, CLDIS+11 |
SCERRAR | START+19~, START+22*, START+24, START+56, TMDIS+23, TMDIS+24, TMDIS+41, TMDIS+42, TMDIS+43, TMDIS+49 , TMDIS+50, TMDIS+51, TMDIS+58, TPDIS+35, TPDIS+36, TPDIS+37, TPDIS+43, TPDIS+44, TPDIS+45, TPDIS+52 |
>> SCERRLST | TMDIS+58, TPDIS+52 |
SCERRS | TMDIS+6~, TMDIS+9*, TMDIS+55, TMDIS+56, TMDIS+59, TPDIS+6~, TPDIS+11*, TPDIS+48, TPDIS+50, TPDIS+53 |
SCIEN | TMDIS+6~, TMDIS+12*, TMDIS+13, TMDIS+30, TMDIS+35, TMDIS+43, TMDIS+51, TMDIS+56, TMDIS+66, TPDIS+6~ , TPDIS+14*, TPDIS+15, TPDIS+24, TPDIS+29, TPDIS+37, TPDIS+45, TPDIS+50, TPDIS+60 |
>> SCMUTYPE | START+8, START+10, START+29, START+36, START+38 |
SCNODE | START+26~, TMDIS+6~, TMDIS+13*, TMDIS+31, TMDIS+33, TMDIS+57, TPDIS+6~, TPDIS+15*, TPDIS+25, TPDIS+27 , TPDIS+49, TPDIS+51 |
SCNT | START+26~, START+31*, START+32*, START+34, START+36, START+38, START+42, START+48, TMDIS~, TMDIS+20 , TMDIS+23, TMDIS+24, TMDIS+34, TMDIS+35, TMDIS+41, TMDIS+42, TMDIS+43, TMDIS+49, TMDIS+50, TMDIS+51 , TMDIS+58, TMDIS+61, TMDIS+65, TMDIS+66, TPDIS~, TPDIS+28, TPDIS+29, TPDIS+35, TPDIS+36, TPDIS+37 , TPDIS+43, TPDIS+44, TPDIS+45, TPDIS+52, TPDIS+55, TPDIS+59, TPDIS+60, TPDIS+64 |
SCOK | START+3~, START+36*, START+38*, START+41, TMDIS+6~, TMDIS+8*, TMDIS+19, TMDIS+20*, TMDIS+22, TMDIS+26 , TMDIS+40*, TMDIS+48*, TMDIS+56*, TMDIS+60, TMDIS+64, TMDIS+68, TPDIS+6~, TPDIS+10*, TPDIS+20, TPDIS+34* , TPDIS+42*, TPDIS+50*, TPDIS+54, TPDIS+58, TPDIS+63, TPDISQ |
SCOKAR | START+19~, START+20*, START+24, START+42, START+56, TMDIS+34, TMDIS+35, TMDIS+61, TMDIS+65, TMDIS+66 , TPDIS+28, TPDIS+29, TPDIS+55, TPDIS+59, TPDIS+60, TPDIS+64 |
SCPOS | START+11, START+38, TMDIS+6~, TMDIS+18*, TMDIS+19*, TMDIS+20, TPDIS~, TPDIS+28, TPDIS+29, TPDIS+35 , TPDIS+36, TPDIS+37, TPDIS+43, TPDIS+44, TPDIS+45, TPDIS+52, TPDIS+55, TPDIS+59, TPDIS+60, TPDIS+64 , CLDIS~, CLDIS+5, CLDIS+7 |
SCPOS0 | CLDIS+1~, CLDIS+7*, CLDIS+8 |
SCPOSI | TMDIS+6~ |
SCPTINFO | START+15~, START+17*, START+34, START+57 |
SCPTSEL | START+15~, START+16*, START+32, START+57 |
SCPTTP | START+19~, START+23*, START+24, START+29, START+56, TMDIS+19, TMDIS+20 |
SCPTX | START+26~, START+34*, START+35, START+36, START+38, TMDIS~, TMDIS+11, TMDIS+12, TMDIS+14, TMDIS+15 , TPDIS~, TPDIS+7, TPDIS+8, TPDIS+13, TPDIS+14, TPDIS+16, TPDIS+17 |
SCREA | CLDIS+1~, CLDIS+10*, CLDIS+11 |
SCRET | CLDIS+1~, CLDIS+2*, CLDIS+11*, CLDIS+14*, CLDISQ |
>> SCSELCNT | START+5 |
SCTEAM | START+9, START+29, START+36, TMDIS~, TMDIS+23, TMDIS+24, TMDIS+34, TMDIS+35, TMDIS+41, TMDIS+42 , TMDIS+43, TMDIS+49, TMDIS+50, TMDIS+51, TMDIS+58, TMDIS+61, TMDIS+65, TMDIS+66 |
SCTOP | START+3~, START+9*, START+11*, START+12, START+51 |
>> SCTPDIS( | CLDIS+5 |
SCUNCNT | START+3~, START+4*, START+43* |
SCUNDT | TMDIS+6~, TMDIS+15*, TMDIS+47, TMDIS+51, TMDIS+64, TMDIS+66, TPDIS+6~, TPDIS+8*, TPDIS+17*, TPDIS+41 , TPDIS+45, TPDIS+58, TPDIS+60 |
U | TMDIS+12, TMDIS+14, TMDIS+15, TPDIS+7, TPDIS+8, TPDIS+14, TPDIS+16, TPDIS+17, CLDIS+8 |
>> VALM("TITLE" | QUE+4 |
>> X | QUE+7*, QUE+8* |
ZTDESC | QUE+2~, QUE+4* |
ZTDTH | QUE+2~, QUE+5* |
ZTIO | QUE+2~, QUE+6* |
ZTRTN | QUE+2~, QUE+3* |
ZTSAVE | QUE+2~ |
ZTSAVE( | QUE+7*, QUE+8* |
ZTSK | QUE+2~, QUE+10 |