SCMCMU11 ;ALB/MJK - PCMM Mass Team/Position Unassignment ; 10-JUL-1998
Source file <SCMCMU11.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 3 | SCMC MU QUIT SCMC MU UNASSIGN PATIENTS SCMCMU2 |
| Kernel | 1 | ^ORD(101 |
| 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 | Field # of Occurrence |
|---|---|
| ^DIR | UNASSIGN+23, QUIT+11 |
| $$PTTP^SCAPMC | PTTP+5 |
| $$TPTM^SCAPMC24 | PTTPLST+10 |
| BACK^SCMCMU1 | UNASSIGN+6, UNASSIGN+28, UNASSIGN+34, QUIT+12 |
| DATE^SCMCMU1 | PTTPLST+5, PTTP+2 |
| PAUSE^SCMCMU1 | UNASSIGN+5, UNASSIGN+31 |
| $$QUE^SCMCMU2 | UNASSIGN+26 |
| $$SETSTR^VALM1 | CLINIC+7, CLINIC+8, CLINIC+9, CLINIC+12, CLINIC+13, CLINIC+20, CLINIC+21 |
| FULL^VALM1 | UNASSIGN+9 |
| $$FMTE^XLFDT | UNASSIGN+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | CLINIC+21 |
| ^SCTM(404.51 - [#404.51] | UNASSIGN+15 |
| ^SCTM(404.57 - [#404.57] | UNASSIGN+16, CLINIC+18 |
| ^TMP("SCMU" | PTTPLST+6, PTTP+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | UNASSIGN+2~, UNASSIGN+25~, QUIT+2~ |
| DIR("A" | UNASSIGN+21*, SET+1*, QUIT+7*, QUIT+8*, QUIT+9* |
| DIR("B" | UNASSIGN+22*, QUIT+10* |
| DIR(0 | UNASSIGN+11*, QUIT+6* |
| IOF | UNASSIGN+10 |
| SCDATE | PTTPLST~, PTTPLST+5, PTTPLST+15, PTTP~, PTTP+2, UNASSIGN+17 |
| SCDTE | PTTPLST+2~, PTTPLST+5, PTTPLST+10, PTTP+1~, PTTP+2, PTTP+5 |
| >> SCMUTYPE | UNASSIGN+13, UNASSIGN+16 |
| >> SCOK | PTTP+5* |
| SCPAT | PTTP+1~, PTTP+6*, PTTP+7*, PTTP+8 |
| SCPATS | PTTP+1~, PTTP+3*, PTTP+4, PTTP+5, PTTP+7, PTTP+8, PTTPQ |
| SCPATX | PTTP+1~, PTTP+8*, PTTP+10 |
| SCPOS | PTTPLST+2~, PTTPLST+6*, PTTPLST+9, PTTPLST+10, PTTPLST+12, PTTPLST+13, PTTPLSTQ, PTTP~, PTTP+5, PTTP+10 , UNASSIGN+16, CLINIC+1~, CLINIC+16*, CLINIC+17*, CLINIC+18 |
| SCPR | PTTPLST+2~, PTTPLST+11*, PTTPLST+12*, PTTPLST+13 |
| SCPRX | PTTPLST+2~, PTTPLST+13*, PTTPLST+15 |
| SCPTTP | PTTPLST~, PTTPLST+15, PTTP~, PTTP+10 |
| >> SCSELCNT | UNASSIGN+3, UNASSIGN+18, QUIT+4, QUIT+7 |
| SCTEAM | PTTPLST~, PTTPLST+10, UNASSIGN+15 |
| >> SCTPDIS( | CLINIC+17 |
| >> SCTPDIS(0 | CLINIC+3 |
| SCTSK | UNASSIGN+25~, UNASSIGN+26*, UNASSIGN+27, UNASSIGN+30 |
| SCX | CLINIC+1~, CLINIC+18*, CLINIC+20, CLINIC+21 |
| U | UNASSIGN+15, UNASSIGN+16, CLINIC+20, CLINIC+21 |
| X | SET~, SET+1 |
| Y | PTTPLST+10*, UNASSIGN+2~, UNASSIGN+24, CLINIC+1~, CLINIC+6*, CLINIC+7*, CLINIC+8*, CLINIC+9*, CLINIC+10, CLINIC+11* , CLINIC+12*, CLINIC+13*, CLINIC+14, CLINIC+19*, CLINIC+20*, CLINIC+21*, CLINIC+22, QUIT+2~, QUIT+3*, QUIT+12 |
