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 |