SCMCMU2 ;ALBOI/MJK - PCMM Mass Team/Position Unassignment Processing;07/10/98 ; 5/14/12 1:54pm
Source file <SCMCMU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUE() | ; -- queue mass unassignment
|
|
| START | ; -- entry point for task
; -- defined from task SCTEAM,SCPOS,SCTPDIS,SCMUTYPE,SCDATE,SCSELCNT |
|
| 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 |
|
| TPDISQ | ||
| CLDIS(SCPOS) | ; -- discharge from clinic
|
|
| CLDISQ | ||
| LOCK(NODE) | ; -- lock node
|
|
| UNLOCK(NODE) | ; -- unlock node
|
| FileNo | Call Tags |
|---|---|
| ^SCPT(404.42 - [#404.42] | Classic Fileman Calls |
| ^SCPT(404.43 - [#404.43] | Classic Fileman Calls |
