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 | 
  |