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 |