PSGPLXR ;BIR/MLM-EXECUTE PICK LIST XREFS ;28 FEB 96 / 2:45 PM
Source file <PSGPLXR.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 |
Package | Total | Caller Graph |
---|---|---|
Inpatient Medications | 4 | ^PS(53.5 DISPENSE DRUG ORDER PATIENT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN535(S1,ACT,XREF,FIELD,OLDV) | ; Update "AC","AU" x-ref for 53.5 (PICK LIST FILE)
|
|
EN5351(S1,S2,ACT,XREF,FIELD,OLDV) | ; Update "AC","AU" x-refs for 53.51 (PATIENT MULTIPLE)
|
|
EN5352(S1,S2,S3,ACT,XREF,FIELD,OLDV) | ||
EN5353(S1,S2,S3,S4,ACT,XREF,FIELD,OLDV) | ||
SET | ; Gather data needed to update "AC","AU" xref
|
|
SET2 | ; if this is a "kill", see if a field and old value was passed in
|
|
SETVAR | ;
|
|
ENABO(S1,XREF,ACT) | ;Set AB/AO xref for Pick List, Ward Group, & Start date.
|
|
ENA(S1,ACT) | ; Set A xref for Pick List # and Ward Group.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | SET+4 |
^PS(50.7 - [#50.7] | SET+6 |
^PS(53.5 - [#53.5] | EN535+1, EN5351+1, EN5351+4, EN5351+5*, EN5351+6, EN5352+2, EN5352+5, EN5352+6, EN5352+7*, EN5352+8 , EN5352+9, EN5353+4, EN5353+5, EN5353+6*, EN5353+7, SET+1, SET+3, SET+6, SET+8, ENABO+1 , ENABO+3*, ENABO+4*, ENABO+5!, ENA+1, ENA+3*, ENA+4! |
^PS(55 - [#55] | SET+8 |
^PSDRUG - [#50] | SET+8 |
Name | Field # of Occurrence |
---|---|
^( | EN5352+8!, EN5353+7! |
^("NO DISPENSE DRUG" | EN5352+6!, EN5353+5! |
^("NO ORDERS" | EN5351+4!, EN5352+5!, EN5353+4! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | EN535~, EN535+1, EN5351~, EN5351+5, EN5351+6, EN5352~, EN5352+7, EN5352+9, EN5353~, EN5353+6 , SET2+1, ENABO~, ENABO+2, ENA~, ENA+3 |
AT | EN5351+1~, EN5351+3, EN5351+4, EN5351+5, EN5352+1~, EN5352+4, EN5352+5, EN5352+6, EN5352+7, EN5352+8 , EN5353+1~, EN5353+3, EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET+2* |
FIELD | EN535~, EN535+1, EN5351~, EN5351+6, EN5352~, EN5352+9, EN5353~, SET2+1, SET2+2, SETVAR+1* |
ND | EN5351+1~, EN5352+1~, EN5353+1~, SET+1*, SET+2, SET+3, SET+4 |
OLDV | EN535~, EN535+1, EN5351~, EN5351+6, EN5352~, EN5352+9, EN5353~, SET2+1, SET2+2, SETVAR+1* |
ON | EN5351+1~, EN5352+1~, EN5353+1~, SET+6*, SET+8 |
PD | EN5351+1~, EN5352+1~, EN5352+4, EN5352+6, EN5352+7, EN5352+8, EN5353+1~, EN5353+3, EN5353+5, EN5353+6 , EN5353+7, SET+6* |
PDD | EN5351+1~, EN5352+1~, EN5353+1~, EN5353+3, EN5353+6, EN5353+7, SET+8* |
PL | EN5351+1~, EN5351+3, EN5351+4, EN5351+5, EN5352+1~, EN5352+4, EN5352+5, EN5352+6, EN5352+7, EN5352+8 , EN5353+1~, EN5353+3, EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET+1* |
PT | EN5351+1~, EN5351+3, EN5351+4, EN5351+5, EN5352+1~, EN5352+4, EN5352+5, EN5352+6, EN5352+7, EN5352+8 , EN5353+1~, EN5353+3, EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET+4* |
RB | EN5351+1~, EN5351+3, EN5351+4, EN5351+5, EN5352+1~, EN5352+5, EN5352+6, EN5352+7, EN5352+8, EN5353+1~ , EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET+4* |
S1 | EN535~, EN535+1, EN5351~, EN5351+1, EN5351+6, EN5352~, EN5352+2, EN5352+9, EN5353~, SET+1 , SET+3, SET+6, SET+8, ENABO~, ENABO+1, ENABO+3, ENABO+4, ENABO+5, ENA~, ENA+1 , ENA+3, ENA+4 |
S2 | EN535+1*, EN5351~, EN5351+1, EN5351+6, EN5352~, EN5352+2, EN5352+9, EN5353~, SET+1, SET+3 , SET+4, SET+6, SET+8 |
S3 | EN5351+1*, EN5351+5, EN5351+6*, EN5352~, EN5352+2, EN5352+9, EN5353~, SET+5, SET+6, SET+8 |
S4 | EN5352+2*, EN5352+9*, EN5353~, SET+7, SET+8 |
ST | EN5351+1~, EN5352+1~, EN5352+4, EN5352+6, EN5352+7, EN5352+8, EN5353+1~, EN5353+3, EN5353+5, EN5353+6 , EN5353+7, SET+6* |
U | SET+2, SET+3, SET+4, SET+6, SET+8, ENABO+3, ENABO+4, ENABO+5, ENA+3, ENA+4 |
UP | EN5351+1~, EN5352+1~, EN5352+7, EN5352+8, EN5353+1~, EN5353+6, EN5353+7, SET+6* |
UP1 | EN5351+1~, EN5351+5, EN5352+1~, EN5353+1~, SET+2* |
WD | EN5351+1~, EN5351+3, EN5351+4, EN5351+5, EN5352+1~, EN5352+4, EN5352+5, EN5352+6, EN5352+7, EN5352+8 , EN5353+1~, EN5353+3, EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET+2* |
X | EN5351+1~, EN5352+1~, EN5353+1~, SET+1*, SET+2, SET+3*, SET+4, SET+6*, SET+8*, ENABO+1~* , ENABO+3, ENABO+4, ENABO+5, ENA+1~*, ENA+2, ENA+3, ENA+4 |
XREF | EN535~, EN535+1, EN5351~, EN5351+4, EN5351+5, EN5351+6, EN5352~, EN5352+5, EN5352+6, EN5352+7 , EN5352+8, EN5352+9, EN5353~, EN5353+4, EN5353+5, EN5353+6, EN5353+7, SET2+1, ENABO~, ENABO+3 , ENABO+4, ENABO+5 |