SCMCMU11 ;ALB/MJK - PCMM Mass Team/Position Unassignment ; 10-JUL-1998
Source file <SCMCMU11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTTPLST(SCTEAM,SCDATE,SCPTTP) | ; -- create list of patients assigned to team positions
; -- sort list by dfn and position ien |
|
| PTTPLSTQ | ||
| PTTP(SCPOS,SCDATE,SCPTTP) | ; -- create list of pats assigned to position sort by dfn, position
|
|
| PTTPQ | ||
| UNASSIGN | ; -- unassign selected
; protocol: SCMC MU UNASSIGN PATIENTS |
|
| UNQ | ||
| CLINIC | ; -- display clinic to be discharged from
|
|
| CLINICQ | ||
| SET(X) | ; -- set DIR text
|
|
| QUIT | ; -- quit logic
; protocol: SCMC MU QUIT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|