SCMCMU4 ;ALB/MJK - PCMM Mass Team/Position Unassignment Bulletin ; 10-JUL-1998
Source file <SCMCMU4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BULL | ; -- send bulletin
|
|
| INIT | ; -- set vars for bulletin
|
|
| FINAL | ; -- clean up
|
|
| TEXT | ; -- set of mm array
|
|
| SET(X) | ;
|
|
| ERRARY | ; -- process error array
|
|
| OKARY | ; -- process ok array
|
|
| HDR | ; -- send patient info header
|
|
| PT(SCNT) | ; -- send patient info
|
|
| TM(SCNT) | ; -- show any team info for patient
|
|
| POS(SCNT) | ; -- send position (for team unassignment) & clinic discharge info
|
|
| CLINIC | ; -- display clinic to be discharged from
|
|
| CLINICQ | ||
| INFO(TYPE,SCIEN) | ; -- load ok info text
|
