PSIVORAL ;BIR/MLM - ACTIVITY LOGGER FOR PHARMACY EDITS ;Mar 04, 2022@08:06:26
Source file <PSIVORAL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Entry point for updating activity log from Pharmacy.
|
|
REMARKS | ; Record changes to remarks.
|
|
ADMIN | ; Record changes to admin. times.
|
|
INFUS | ; Record changes to infusion rate.
|
|
STOP | ; Record changes to stop date.
|
|
CLNAPT | ; Record changes to clinic and appointment date
|
|
INDICAT | ; Record changes to INDICATION
|
|
SOL | ; Record changes to Solutions.
|
|
SOL1 | ;
|
|
GTFC | ; Create field change entry in activity log.
|
|
LOG | ; Update activity log (ask for comment.)
|
|
OPI | ; Record changes to Other print info.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | STOP+6, STOP+7 |
^PS(52.7 - [#52.7] | SOL+3, SOL1+3 |
^PS(53.45 - [#53.45] | GTFC+6, GTFC+7*, LOG+2 |
^PS(55 - [#55] | REMARKS+1, ADMIN+1, INFUS+1, CLNAPT+2, INDICAT+3, SOL+3, GTFC+2*, GTFC+4*, GTFC+5*, GTFC+6* , GTFC+7*, GTFC+8* |
^SC - [#44] | CLNAPT+3 |
^VA(200 - [#200] | LOG+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACNT | GTFC+8~* |
AND | GTFC+8~* |
CURSTDT | STOP+1~, STOP+3*, STOP+5, STOP+6 |
DA | LOG+6! |
>> DFN | REMARKS+1, ADMIN+1, INFUS+1, STOP+2, STOP+3, STOP+4, CLNAPT+2, INDICAT+3, SOL+3, GTFC+2 , GTFC+4, GTFC+5, GTFC+6, GTFC+7, GTFC+8, LOG+9, LOG+10, LOG+11, LOG+12, OPI+1 |
DIR | LOG+6! |
DIR(0 | LOG+6* |
>> DIRUT | LOG+6 |
>> DRG | SOL+3*, SOL+4*, SOL1+1, SOL1+2, SOL1+3 |
>> DRG("SOL" | SOL+1 |
DRGI | STOP+10!, SOL+1*, SOL+3*, SOL+4* |
DRGN | STOP+10! |
DUZ | LOG+5 |
FROMSTDT | STOP+1~, STOP+4*, STOP+5, STOP+7 |
ND | GTFC+2*!, GTFC+9! |
OLCLN | CLNAPT+1~, CLNAPT+2*, CLNAPT+3, CLNAPT+4 |
OLDVAL | INDICAT+2~, INDICAT+3*, INDICAT+4 |
ON | LOG+3~* |
>> ON55 | REMARKS+1, ADMIN+1, INFUS+1, STOP+2, STOP+3, STOP+4, CLNAPT+2, INDICAT+3, SOL+3, GTFC+2 , GTFC+4, GTFC+5, GTFC+6, GTFC+7, GTFC+8, LOG+3, LOG+9, LOG+10, LOG+11, LOG+12 , OPI+1 |
ORIGSTDT | STOP+1~, STOP+2*, STOP+4 |
>> P("AGE" | STOP+10!, SOL+2*, SOL+4*, SOL1+1 |
>> P("APPT" | CLNAPT+4 |
>> P("CLIN" | CLNAPT+3 |
>> P("DTYP" | INFUS+2 |
>> P("FC" | REMARKS+1*, ADMIN+1*, INFUS+1*, STOP+6*, STOP+7*, STOP+8*, STOP+10!, CLNAPT+3*, CLNAPT+4*, INDICAT+4* , INDICAT+7!, SOL1+1*, SOL1+3*, GTFC+2, GTFC+3, LOG+2, OPI+1* |
>> P("IND" | INDICAT+1, INDICAT+4 |
>> P("REM" | REMARKS+1 |
>> P(11 | ADMIN+1 |
>> P(3 | STOP+4 |
>> P(8 | INFUS+1 |
PSIVAL | LOG+6*, LOG+7*, LOG+11, LOG+15! |
PSIVALCK | LOG+15! |
PSIVALT | LOG+6, LOG+7, LOG+15! |
>> PSIVLN | GTFC+2, GTFC+4, GTFC+5, GTFC+6, GTFC+7, LOG+9, LOG+10, LOG+11, LOG+12 |
>> PSIVREA | LOG+9 |
>> PSJPINIT | LOG+5*, LOG+10, LOG+12 |
>> PSJSYSP | GTFC+6, GTFC+7, LOG+2 |
>> PSJUNDC | LOG+6 |
TDRG | STOP+10!, 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+8!, LOG+14! |
TMP( | LOG+9*, LOG+10*, LOG+11*, LOG+12* |
TXTCNT | GTFC+1~, GTFC+4*, GTFC+5, GTFC+6*, GTFC+7 |
TXTLN | GTFC+1~, GTFC+4*, GTFC+6* |
U | REMARKS+1, ADMIN+1, INFUS+1, STOP+7, STOP+8, CLNAPT+3, CLNAPT+4, INDICAT+4, SOL+1, SOL+3 , SOL1+1, SOL1+3, GTFC+2, GTFC+3, LOG+10 |
>> X | SOL+3* |
>> Y | STOP+6*, STOP+7*, STOP+8, LOG+6 |