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