PSOAUTOC ;BIR/SAB - autocancel rxs on admission ;08/15/94
Source file <PSOAUTOC.m>
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 7 | PSO AUTOCANCEL PSO AUTOCANCEL DEQUEUE PSO AUTOCANCEL REQUEUE PSO AUTOCANCEL1 PSO COSTINIT PSOHELP1 PSOMGCM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TASK | ;TaskMan entry point
|
|
AUTO | ||
SETUP | ;initialize nightly Rx cost compile job
|
|
APSOD(PSODFN) | ;sends mail message that date of death has been deleted
|
|
KILL | ||
EX | ||
EX1 | ||
;builds mail message
|
||
SETUP1 | ||
OUT | ||
CAN | ;discontinue Rxs
|
Name | Field # of Occurrence |
---|---|
^%DT | TASK+1 |
DD^%DT | MAIL+9 |
NOW^%DTC | CAN+16 |
^%ZTLOAD | APSOD+9 |
^DIC | AUTO+1, SETUP+1, SETUP1 |
^DIK | CAN+20, CAN+22 |
EN^DIQ1 | MAIL+1 |
REVERSE^PSOBPSU1 | CAN+6 |
REF^PSOCAN2 | CAN+19 |
FIL^PSOCAN3 | CAN+8 |
EN^PSOHLSN | MAIL+33 |
EN^PSOHLSN1 | CAN+23 |
EN^PSOHLUP | CAN+2 |
REIN^PSONVNEW | MAIL+46 |
CAN^PSOTPCAN | CAN+7 |
DEM^VADPT | MAIL+7 |
INP^VADPT | CAN+1 |
$$UP^XLFSTR | APSOD+7 |
^XMD | MAIL+50 |
EDIT^XUTMOPT | AUTO+2, AUTO+3, SETUP+2, SETUP+3, SETUP1+1, SETUP1+2 |
RESCH^XUTMOPT | AUTO+3, SETUP+3, SETUP1+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(19.2 - [#19.2] | Classic Fileman Calls |
^PS(52.4 - [#52.4] | Classic Fileman Calls |
^PS(52.5 - [#52.5] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM("AMV1" | TASK+2 |
^DGPM("APTT1" | TASK+2 |
^DPT - [#2] | TASK+2, MAIL+8, MAIL+48 |
^PS(50.606 - [#50.606] | MAIL+44 |
^PS(50.7 - [#50.7] | MAIL+36, MAIL+44 |
^PS(52.4 - [#52.4] | CAN+22 |
^PS(52.41 - [#52.41] | MAIL+4, MAIL+21, MAIL+22*, MAIL+23, MAIL+27, MAIL+28*, MAIL+29*, MAIL+30*, MAIL+34!, MAIL+35 , MAIL+36 |
^PS(52.5 - [#52.5] | CAN+18, CAN+19, CAN+20 |
^PS(52.91 - [#52.91] | APSOD+1, APSOD+2, APSOD+3*, APSOD+4* |
^PS(53 - [#53] | APSOD+6, APSOD+7 |
^PS(55 - [#55] | TASK+2, CAN+2, CAN+3, APSOD+5, APSOD+7*, MAIL+5, MAIL+42, MAIL+43, MAIL+45*! |
^PS(59.7 - [#59.7] | AUTO, TASK+1, CAN+1 |
^PSDRUG - [#50] | MAIL+15, MAIL+36, MAIL+44 |
^PSRX - [#52] | CAN+4, CAN+5*, CAN+10, CAN+11*, CAN+12*, CAN+14, CAN+15, CAN+16*, CAN+19, MAIL+15 , MAIL+17 |
^PSRX("AH" | CAN+11! |
^PSRX("APSOD" | MAIL+3, MAIL+15 |
^TMP("PSOAD" | MAIL+2!, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17*, MAIL+19* , MAIL+20*, MAIL+38*, MAIL+39*, MAIL+40*, MAIL+41*, MAIL+46*, EX1! |
^TMP("PSOHLD" | MAIL+2!, MAIL+15*, MAIL+16, EX1! |
^XUSEC("PSORPH" | MAIL+49 |
Name | Line Occurrences |
---|---|
CAN | TASK+2 |
EX | AUTO+2 |
EX1 | MAIL+1 |
KILL | TASK+1, TASK+3 |
OUT | SETUP+2, SETUP1+1 |
Name | Field # of Occurrence |
---|---|
^( | CAN+3 |
^("STA" | CAN+4, CAN+5* |
^(0 | CAN+3, CAN+4, APSOD+2, MAIL+23, MAIL+43, MAIL+45* |
^(2 | CAN+4 |
^(3 | CAN+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CAN+16, KILL! |
%DT | AUTO+1!, SETUP+1!, OUT!, SETUP1!, SETUP1+3! |
%H | KILL! |
%T | KILL! |
ACNT | CAN+14*, CAN+16*, KILL! |
C | EX! |
COM | CAN+23*, KILL+1! |
D | EX! |
D0 | EX! |
DA | EX!, CAN+19*, CAN+20*, CAN+22*, KILL!, APSOD+8~, MAIL+1* |
DFN | CAN+1*, KILL!, MAIL+7*, MAIL+43* |
DI | EX!, APSOD+8~ |
DIC | AUTO+1!*, EX!, SETUP+1!*, OUT!, SETUP1!*, SETUP1+3!, APSOD+8~, MAIL+1* |
DIC(0 | AUTO+1*, SETUP+1*, SETUP1* |
DIE | AUTO+1*, EX!, APSOD+8~ |
DIFROM | MAIL+48~ |
DIK | CAN+20*!, CAN+22*! |
>> DIQ | MAIL+1* |
DIR | SETUP1+3! |
DIRUT | KILL! |
DQ | EX! |
DR | EX!, APSOD+8~, MAIL+1* |
>> DRG | MAIL+16*, MAIL+17 |
DT | CAN+4, CAN+5, APSOD+4, MAIL+9 |
DTOUT | KILL!, SETUP+1!, OUT!, SETUP1!, SETUP1+3! |
ENT | MAIL+7*, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17*, MAIL+19* , MAIL+20*, MAIL+35*, MAIL+38, MAIL+39, MAIL+40*, MAIL+41*, MAIL+46*, EX1! |
I | MAIL+3*, MAIL+4*, MAIL+5*, MAIL+6!, MAIL+15*, MAIL+16*, MAIL+49*, EX1! |
LOCATION | MAIL+43*, MAIL+47! |
MED | MAIL+36*, MAIL+37*, MAIL+39, MAIL+41~, MAIL+44*, MAIL+46, MAIL+47!, EX1! |
NVA | MAIL+41~, MAIL+42*, MAIL+43, MAIL+45, MAIL+46 |
ORD | KILL+1! |
ORTYP | MAIL+34!, MAIL+35*, MAIL+38, EX1! |
PHARMST | CAN+23*, KILL+1! |
PLACER | MAIL+43*, MAIL+47! |
PSO | KILL! |
PSO0 | CAN+4*, KILL! |
PSO2 | CAN+4*, KILL! |
PSOD | TASK+2*, KILL! |
PSOD0 | TASK+1*, TASK+2, KILL! |
PSOD2 | TASK+1*, CAN+4, KILL! |
PSODD | MAIL+41~, MAIL+43*, MAIL+44, MAIL+47! |
PSODFN | TASK+2*, CAN+1, CAN+2, CAN+3, KILL!, APSOD~, APSOD+1, APSOD+2, APSOD+3, APSOD+4 , APSOD+5, APSOD+7, MAIL+1, MAIL+3, MAIL+4, MAIL+5, MAIL+7, MAIL+8, MAIL+15, MAIL+21 , MAIL+22, MAIL+34, MAIL+42, MAIL+43, MAIL+45, MAIL+48, EX1! |
PSODL | TASK+1*, TASK+2, KILL! |
PSOIORD | CAN+29! |
PSOLPI | MAIL+18~, MAIL+21*, MAIL+22, MAIL+23, MAIL+27, MAIL+28, MAIL+29, MAIL+30, MAIL+34, MAIL+35 , MAIL+36 |
PSOLPIST | MAIL+18~, MAIL+23*, MAIL+25, MAIL+30, MAIL+31 |
PSOLPIX | MAIL+18~, MAIL+23*, MAIL+24, MAIL+33 |
PSOLPND | MAIL+18~, MAIL+27*, MAIL+28, MAIL+29, MAIL+30 |
PSONVA | MAIL+41~, MAIL+46* |
PSOOI | MAIL+41~, MAIL+43*, MAIL+44, MAIL+47! |
PSOOPTN | OUT!, SETUP1+3! |
PSOPTN | OUT!, SETUP1+3! |
PSORD | CAN+29! |
PSORESF1 | APSOD+6~, APSOD+7* |
PSORESFG | APSOD+6~*, APSOD+7* |
PSORESPS | APSOD+6~*, APSOD+7 |
PSORX | CAN+3*, CAN+4, CAN+5, CAN+6, CAN+7, CAN+10, CAN+11, CAN+12, CAN+14, CAN+15 , CAN+16, CAN+18, CAN+19, CAN+20, CAN+22, CAN+23, KILL! |
PSORXJ | CAN+3*, KILL! |
PSOSD | KILL! |
PSOTM | OUT!, SETUP1+3! |
PTDOD | EX1! |
PTDOD(2 | MAIL+1 |
REIN | MAIL+46*, MAIL+47! |
RF | CAN+15*, KILL! |
RFCNT | CAN+15*, CAN+16, KILL! |
RX | MAIL+16*, MAIL+17, EX1! |
>> STA | CAN+4* |
STAT | CAN+23*, KILL+1! |
SUB | CAN+14*, KILL! |
>> SUSD | CAN+19* |
TM | KILL! |
>> TOTNVA | MAIL+5*, MAIL+6, MAIL+40, MAIL+41 |
TOTPRX | MAIL+2!, MAIL+4*, MAIL+6, MAIL+19, MAIL+20, EX1! |
TOTRX | MAIL+2!, MAIL+3*, MAIL+6, MAIL+14, EX1! |
TSKDT | KILL! |
U | CAN+2 |
>> VA("BID" | MAIL+48 |
>> VA("PID" | MAIL+8 |
>> VADM(3 | MAIL+8 |
VAIN | CAN+1!, KILL! |
VAIN(4 | CAN+1 |
X | AUTO+1*, EX!, TASK+1*, KILL!, SETUP+1*, OUT!, SETUP1*, SETUP1+3!, APSOD+8~, EX1! |
X1 | KILL! |
X2 | KILL! |
XMDUZ | MAIL+48*, EX1! |
XMSUB | MAIL+48*, EX1! |
XMTEXT | MAIL+48*, EX1! |
XMY | EX1! |
XMY( | MAIL+49* |
Y | AUTO+2, EX!, TASK+1, KILL!, SETUP+2, OUT!, SETUP1+1, SETUP1+3!, APSOD+8~, MAIL+9* , MAIL+10, EX1! |
ZTDESC | KILL!, APSOD+9* |
ZTDTH | KILL!, APSOD+9* |
ZTIO | KILL!, APSOD+9* |
>> ZTQUEUED | KILL+1 |
>> ZTREQ | KILL+1*, APSOD+9* |
ZTRTN | KILL!, APSOD+9* |
ZTSAVE | KILL! |
ZTSAVE("PSODFN" | APSOD+9* |
ZTSAVE("ZTREQ" | APSOD+9* |