©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
SCMCTPU3 ;ALB/MJK - Team Position Utility ; 1 SEP 98
Source file <SCMCTPU3.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | PID^VADPT6 FIRST^VAUTOMA |
| Kernel | 1 | (,$$S)^%ZTLOAD |
| Scheduling | 1 | BULL^SCMCTPU4 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERR(NUMBER) | ; -- set error array
|
|
| EN | ; -- main entry point to find pat position assignments w/o team assignment
|
|
| START | ; -- entry point for queued job
|
|
| CNT(TYPE) | ; -- set counter
|
|
| QUE() | ; -- setup task and queue job to run
|
|
| PAUSE | ; -- pause
|
|
| ENQ | ||
| SET | ; -- set tmp for report
|
|
| DATA(SCTPA) | ; -- get team, position, tm pos assign, tm assignment & patient data
; input: SCPTA := ien to patient team position assignment (404.43) |
|
| TEAM() | ; -- get teams from user
|
|
| MODE() | ; -- get mode from user (1 - diagnostic 2 - fix 0 - abort)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SCTM(404.51 - [#404.51] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | DATA+26 |
| ^SCPT(404.42 - [#404.42] | DATA+15 |
| ^SCPT(404.43 - [#404.43] | START+19, DATA+4 |
| ^SCTM(404.51 - [#404.51] | START+15, DATA+21 |
| ^SCTM(404.57 - [#404.57] | DATA+10 |
| ^TMP("SCTP DANGLERS" | START+9 |
| Name | Line Occurrences |
|---|---|
| $$MODE | EN+4 |
| $$QUE | EN+11 |
| $$TEAM | EN+8 |
| CNT | START+29, START+41, START+53 |
| DATA | START+24 |
| ENQ | EN+5, EN+8 |
| ERR | START+45, START+50 |
| PAUSE | EN+16 |
| SET | START+53 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | DATA+28~, DATA+29* |
| DIC | TEAM+1~, TEAM+5* |
| DIR | PAUSE+1~ |
| DIR("A" | PAUSE+3* |
| DIR(0 | PAUSE+2* |
| NUMBER | ERR~, ERR+1 |
| SCER | START+2~, SET+1~, SET+2*, SET+3*, SET+4 |
| SCERAR | START+21~ |
| SCERAR( | ERR+1*, SET+3 |
| SCERAR(0 | START+53 |
| SCERTMP | START+2~, START+9*, START+10, START+59, SET+4 |
| SCMODE | EN+1~, EN+4*, EN+5 |
| SCNT | START+2~ |
| SCNT( | CNT+1* |
| SCPT | START+5~, SET+4, DATA+25*, DATA+26, DATA+29 |
| SCPT0 | START+5~, DATA+26*, DATA+27 |
| SCPTID | START+5~, DATA+30* |
| SCPTNM | START+5~, SET+4, DATA+27* |
| SCSTOP | START+2~, START+18*, START+19, START+20*, START+57 |
| SCTM | START+4~, START+14*, START+15*, START+27, SET+4, DATA+20*, DATA+21 |
| SCTM0 | START+4~, DATA+21*, DATA+22 |
| SCTMA | START+7~, DATA+14*, DATA+15 |
| SCTMA0 | START+7~, DATA+15*, DATA+16, DATA+17, DATA+20, DATA+25 |
| SCTMASDT | START+7~, START+39, DATA+16* |
| SCTMLST | EN+1~, START+13 |
| SCTMLST( | START+15*, START+27 |
| SCTMNM | START+4~, SET+4, DATA+22* |
| SCTMUNDT | START+7~, START+40, DATA+17* |
| SCTP | START+3~, SET+4, DATA+9*, DATA+10 |
| SCTP0 | START+3~, DATA+10*, DATA+11 |
| SCTPA | START+6~, START+18*, START+19*, START+24, SET+4, DATA~, DATA+4 |
| SCTPA0 | START+6~, DATA+4*, DATA+5, DATA+6, DATA+9, DATA+14 |
| SCTPASDT | START+6~, START+39, SET+4, DATA+5* |
| SCTPNM | START+3~, SET+4, DATA+11* |
| SCTPUNDT | START+6~, START+40, DATA+6* |
| SCTSK | EN+1~, EN+11*, EN+12, EN+13 |
| TYPE | CNT~, CNT+1 |
| U | START+15, DATA+5, DATA+6, DATA+9, DATA+11, DATA+16, DATA+17, DATA+20, DATA+22, DATA+27 |
| VA | DATA+28~ |
| VA("BID" | DATA+30 |
| VAUTINI | TEAM+1~ |
| >> VAUTNI | TEAM+4* |
| VAUTSTR | TEAM+1~, TEAM+3* |
| VAUTVB | TEAM+1~, TEAM+2* |
| >> X | QUE+7*, START+15* |
| Y | TEAM+1~, TEAM+7, PAUSE+1~ |
| ZTDESC | QUE+2~, QUE+4* |
| ZTDTH | QUE+2~, QUE+5* |
| ZTIO | QUE+2~, QUE+6* |
| ZTRTN | QUE+2~, QUE+3* |
| ZTSAVE | QUE+2~ |
| ZTSAVE( | QUE+7* |
| ZTSK | QUE+2~, QUE+9 |
| >> ZTSTOP | START+20* |