©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCMCMU ;ALB/MJK - PCMM Mass Team/Position Unassignment Utility ; 10 Jul 98
Source file <SCMCMU.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$TPTM^SCAPMC24 (DATE,EN)^SCMCMU1 |
| VA Fileman | 2 | ^DIC ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEAM(SCDATE) | ; -- get team
|
|
| EN | ; -- entry point for mass unassignment (mu)
|
|
| TMDIS(SCTEAM,SCDATE,SCTPDIS) | ; -- discharge patient from clinics
|
|
| POS(SCTEAM,SCDATE) | ; -- get position for team
|
|
| TPDISQ | ||
| TYPE() | ; -- get type of mu
|
|
| TPDIS(SCPOS,SCTPDIS) | ; -- discharge patient from clinic
|
|
| ENQ | ||
| TMDISQ | ||
| DATE() | ; -- get effective date
|
|
| POSQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SCTM(404.51 - [#404.51] | Classic Fileman Calls |
| ^SCTM(404.57 - [#404.57] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | TMDIS+15, TPDIS+6 |
| ^SCTM(404.51 - [#404.51] | TMDIS+16 |
| ^SCTM(404.57 - [#404.57] | TMDIS+12, TPDIS+3 |
| ^TMP("SCMU" | POS+3, TMDIS+5 |
| Name | Line Occurrences |
|---|---|
| $$DATE | EN+12 |
| $$POS | EN+25 |
| $$TEAM | EN+16 |
| $$TMDIS | EN+21 |
| $$TPDIS | EN+26 |
| $$TYPE | EN+8 |
| ENQ | EN+9, EN+13, EN+17, EN+20, EN+24 |
| POSQ | POS+5 |
| TMDISQ | TMDIS+7 |
| TPDISQ | TPDIS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIC | TEAM+1~, TEAM+4*, POS+1~, POS+7* |
| DIC("S" | TEAM+3*, POS+9* |
| DIC(0 | TEAM+4*, POS+8* |
| DIR | TYPE+1~, DATE+1~, TMDIS+1~, TPDIS+1~ |
| DIR("A" | TYPE+3*, DATE+3*, TMDIS+18*, TMDIS+19*, TMDIS+20*, TMDIS+21*, TMDIS+22*, TMDIS+23*, TPDIS+8*, TPDIS+9* |
| DIR("B" | TYPE+4*, DATE+4* |
| DIR(0 | TYPE+2*, DATE+2*, TMDIS+17*, TPDIS+7* |
| DIRUT | TYPE+1~, TYPE+6, DATE+1~, DATE+6, TMDIS+25, TPDIS+1~, TPDIS+11 |
| I | POS+1~, POS+6*, TMDIS+1~, TMDIS+8* |
| SCABORT | EN+2~, EN+5*, EN+9, EN+13, EN+17, EN+20, EN+24, TMDIS+11, TMDIS+25, TPDIS+11 |
| SCCL | TMDIS+1~, TMDIS+13*, TMDIS+14, TMDIS+15, TPDIS+1~, TPDIS+4*, TPDIS+5, TPDIS+6 |
| SCCL0 | TPDIS+1~ |
| SCCLNM | TMDIS+1~, TMDIS+15*, TMDIS+21, TPDIS+6*, TPDIS+9 |
| SCDATE | EN+2~, EN+12*, EN+13, EN+16, EN+21, EN+25, EN+29, TEAM~, TEAM+2, POS~ , POS+2, TMDIS~, TMDIS+3 |
| SCDIS | EN+2~, EN+4*, EN+20, EN+21*, EN+24, EN+26* |
| SCDTE | TEAM+1~, TEAM+2, POS+1~, POS+2, POS+5, TMDIS+1~, TMDIS+3, TMDIS+7 |
| SCMUTYPE | EN+2~, EN+8*, EN+9, EN+20, EN+24, EN+29 |
| SCOK | TMDIS+1~, TMDIS+2*, TMDIS+11, TMDIS+25*, TMDISQ, TPDIS+1~, TPDIS+2*, TPDIS+11*, TPDISQ |
| SCPOS | EN+2~, EN+4*, EN+24, EN+25*, EN+26, EN+29, POS+1~, POS+3*, POS+4, POS+5 , POS+6, POSQ, TMDIS+1~, TMDIS+5*, TMDIS+6, TMDIS+7, TMDIS+8, TMDIS+9, TMDIS+10*, TMDIS+11* , TMDIS+12, TMDIS+26, TPDIS~, TPDIS+3, TPDIS+12 |
| SCPOS0 | TMDIS+1~, TMDIS+12*, TMDIS+13, TMDIS+20, TPDIS+1~, TPDIS+3*, TPDIS+4 |
| SCPOSI | POS+1~, TMDIS+1~ |
| SCPOSI( | POS+6*, TMDIS+8*, TMDIS+11 |
| SCTEAM | EN+2~, EN+4*, EN+16*, EN+17, EN+21, EN+25, EN+29, POS~, POS+5, TMDIS~ , TMDIS+7, TMDIS+16 |
| SCTEAMNM | TMDIS+1~, TMDIS+16*, TMDIS+19 |
| SCTPDIS | EN+2~, EN+21, EN+26, EN+29, TMDIS~, TPDIS~ |
| SCTPDIS( | TMDIS+26*, TPDIS+12* |
| U | TMDIS+13, TMDIS+15, TMDIS+16, TMDIS+20, TPDIS+4, TPDIS+6 |
| Y | TYPE+1~, TYPE+6, DATE+1~, DATE+6, TEAM+1~, TEAM+6, POS+1~, POS+5*, POSQ+1, TMDIS+1~ , TMDIS+7*, TMDIS+26, TPDIS+1~, TPDIS+5*, TPDIS+12 |