©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
PSIVORAL ;BIR/MLM-ACTIVITY LOGGER FOR PHARMACY EDITS ;16 DEC 97 / 1:40 PM
Source file <PSIVORAL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | FILE^DIE ^DIR |
| Inpatient Medications | 1 | ENTACT^PSIVAL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for updating activity log from Pharmacy.
|
|
| LOG | ; Update activity log (ask for comment.)
|
|
| ADMIN | ; Record changes to admin. times.
|
|
| STOP | ; Record changes to stop date.
|
|
| INFUS | ; Record changes to infusion rate.
|
|
| SOL | ; Record changes to Solutions.
|
|
| GTFC | ; Create field change entry in activity log.
|
|
| REMARKS | ; Record changes to remarks.
|
|
| OPI | ; Record changes to Other print info.
|
|
| SOL1 | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | STOP+1 |
| ^PS(52.7 - [#52.7] | SOL+3, SOL1+3 |
| ^PS(55 - [#55] | OPI+1, REMARKS+1, ADMIN+1, INFUS+1, STOP+1, SOL+3, GTFC+1* |
| ^VA(200 - [#200] | LOG+8 |
| Name | Line Occurrences |
|---|---|
| @( | LOG+13 |
| GTFC | OPI+1, REMARKS+1, ADMIN+1, INFUS+1, STOP+1, SOL1+1, SOL1+3 |
| SOL | INFUS+2 |
| SOL1 | SOL+3, SOL+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ADMIN+1, INFUS+1, STOP+1 |
| ^(1 | REMARKS+1 |
| ^(3 | OPI+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | LOG+4! |
| >> DFN | OPI+1, REMARKS+1, ADMIN+1, INFUS+1, STOP+1, SOL+3, GTFC+1, LOG+7, LOG+8, LOG+9 , LOG+10 |
| DIR | LOG+4! |
| DIR(0 | LOG+4* |
| >> DIRUT | LOG+4 |
| >> DRG | SOL+3*, SOL+4*, SOL1+1, SOL1+2, SOL1+3 |
| >> DRG("SOL" | SOL+1 |
| DRGI | STOP+2!, SOL+1*, SOL+3*, SOL+4* |
| DRGN | STOP+2! |
| DUZ | LOG+3 |
| ND | GTFC+1*! |
| ON | LOG+1~* |
| >> ON55 | OPI+1, REMARKS+1, ADMIN+1, INFUS+1, STOP+1, SOL+3, GTFC+1, LOG+1, LOG+7, LOG+8 , LOG+9, LOG+10 |
| >> P("AGE" | STOP+2!, SOL+2*, SOL+4*, SOL1+1 |
| >> P("DTYP" | INFUS+2 |
| >> P("FC" | OPI+1*, REMARKS+1*, ADMIN+1*, INFUS+1*, STOP+1*, STOP+2!, SOL1+1*, SOL1+3*, GTFC+1 |
| >> P("OPI" | OPI+1 |
| >> P("REM" | REMARKS+1 |
| >> P(11 | ADMIN+1 |
| >> P(3 | STOP+1 |
| >> P(8 | INFUS+1 |
| PSIVAL | LOG+4*, LOG+5*, LOG+9, LOG+13! |
| PSIVALCK | LOG+13! |
| PSIVALT | LOG+4, LOG+5, LOG+13! |
| >> PSIVLN | GTFC+1, LOG+7, LOG+8, LOG+9, LOG+10 |
| >> PSIVREA | LOG+7 |
| >> PSJPINIT | LOG+3*, LOG+8, LOG+10 |
| >> PSJUNDC | LOG+4 |
| TDRG | STOP+2!, SOL+1! |
| TDRG( | SOL1+1 |
| TDRG("NEW" | SOL+1*, SOL+3, SOL+4, SOL1+1, SOL1+2, SOL1+3 |
| TDRG("OLD" | SOL+3*, SOL+4, SOL1+1, SOL1+2, SOL1+3 |
| TMP | LOG+6!, LOG+12! |
| TMP( | LOG+7*, LOG+8*, LOG+9*, LOG+10* |
| U | OPI+1, REMARKS+1, ADMIN+1, INFUS+1, STOP+1, SOL+1, SOL+3, SOL1+1, SOL1+3, GTFC+1 , LOG+8 |
| >> X | SOL+3* |
| >> Y | STOP+1*, LOG+4 |