PSSUTLA1 ;BHAM ISC/RTR-PSS utility routine ;08/21/00
Source file <PSSUTLA1.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | INP^VADPT $$SITE^VASITE |
VA FileMan | 2 | EN^DDIOL $$GET1^DIQ |
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 |
---|---|---|
Order Entry Results Reporting | 5 | ORBCMA1 ORCDPS1 ORDEA ORDV06B ORPRPM |
Pharmacy Data Management | 5 | PSSOPKI1 PSSORPH PSSORPH1 PSSORUTL PSSORUTZ |
Outpatient Pharmacy | 2 | PSOORFI5 PSOORFI6 |
Virtual Patient Record | 1 | VPRSDAP |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN3(PSSBINTR,PSSBLGTH) | ;
|
|
START | ;
|
|
ADD | ;
|
|
DEA(PSSDIENM) | ;Return DEA Special Handling for CPRS Dose Call
|
|
DSET | ;
|
|
HELP | ;
|
|
HELP1 | ;
|
|
HELPADD | ;
|
|
PRICE() | ;Return price per dose for CPRS Dose call
|
|
PRICEQ | ;
|
|
OIDEA(PSSXOI,PSSXOIP) | ;
|
|
OIDQ | ;
|
|
LEAD | ;Leading zeros, CPRS Dosage call
|
|
LEADP | ;Leading zeros pharmacy call
|
|
DUP | ;delete str/unit if duplicate local doses with strength are found
|
|
PLACER(PSSPDFN,PSSPIEN) | ;Return CPRS order number from Pharmacy order
|
|
LOC(PSSPDFN,PSSPIEN) | ;Return Location from Pharmacy order
|
|
LOCWA() | ;Return ward
|
|
LOCHL(PSSCLN) | ;Return hospital location file #44
|
|
LOCDI(PSSDIV) | ;Return division file #40.8
|
|
LOCIN() | ;Return institution file #4
|
FileNo | Call Tags |
---|---|
^PS(52.41 - [#52.41] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | LOCDI+1 |
^DIC(42 - [#42] | LOC+12, LOC+13 |
^PS(50.7 - [#50.7] | EN3+5 |
^PS(51 - [#51] | EN3+8, HELP+5 |
^PS(52.41 - [#52.41] | PLACER+11, LOC+21, LOC+23 |
^PS(53.1 - [#53.1] | PLACER+10, LOC+8, LOC+15 |
^PS(55 - [#55] | PLACER+8, PLACER+12, LOC+7, LOC+9, LOC+14, LOC+19 |
^PSDRUG - [#50] | DEA+6, PRICE+5, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14 |
^PSDRUG("ASP" | OIDEA+9 |
^PSRX - [#52] | PLACER+9, LOC+20 |
^SC - [#44] | LOCHL+1 |
Name | Field # of Occurrence |
---|---|
^("I" | OIDEA+10 |
^(2 | OIDEA+12 |
^(9 | EN3+8, HELP+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BLIM | EN3+3~, START+2, START+4* |
BVAR | EN3+3~, START+1*, START+2*, START+4, START+5*, START+6 |
BVAR1 | EN3+3~, START+1*, START+2, START+3*, START+5 |
CNT | EN3+3~, START+2*, START+3 |
CNTZ | EN3+3~, EN3+6*, START+8*, ADD+1, ADD+2* |
>> DLOOP | PRICE+4, PRICE+5 |
DT | OIDEA+10 |
FFF | EN3+3~, START+2*, START+3 |
III | EN3+3~, START+1*, START+2*, START+6 |
NNN | EN3+3~, START+2* |
PCT | HELP+2~, HELP1+2*, HELP1+3 |
PISIG | EN3+3~ |
PISIG( | START+2, START+3, ADD+1*, ADD+2* |
PISIG(1 | EN3+6* |
PNNN | HELP+2~, HELP1+2* |
PSSBB | LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18 |
PSSBB1 | LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18 |
PSSBBD | LEADP+1~, LEADP+4*, LEADP+5, LEADP+7*, LEADP+8, LEADP+13*, LEADP+14, LEADP+16*, LEADP+17 |
>> PSSBCM | PRICE+7 |
PSSBINTR | EN3~, EN3+4, EN3+5 |
PSSBK | LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22 |
PSSBK1 | LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22 |
PSSBKD | LEAD+1~, LEAD+5*, LEAD+6, LEAD+9*, LEAD+10, LEAD+16*, LEAD+17, LEAD+20*, LEAD+21 |
PSSBLGTH | EN3~, EN3+4, START+2 |
PSSBLIM | HELP+2~, HELP1+2, HELP1+4* |
PSSBSIG | EN3+3!, START+9! |
PSSBSIG( | START+2*, START+6*, START+8 |
PSSBSIG(1 | START+7* |
PSSBSIG(2 | START+7! |
PSSBVAR | HELP+2~, HELP1+1*, HELP1+2*, HELP1+4, HELP1+5*, HELP1+6 |
PSSBVAR1 | HELP+2~, HELP1+1*, HELP1+2, HELP1+3*, HELP1+5 |
PSSCLN | LOCHL~, LOCHL+1, LOCHL+2 |
PSSCLNN | LOCHL+1~*, LOCHL+2 |
PSSCTX | HELP+2~, HELP+3*, HELPADD+1, HELPADD+2* |
PSSDEAX | DEA+5~, DEA+6*, DEA+7, DEA+8 |
PSSDEAXV | DEA+5~, DEA+7*, DEA+8*, DEA+9*, DSET+1 |
PSSDIENM | DEA~, DEA+4, DEA+6, DSET+1 |
PSSDIV | LOCDI~, LOCDI+1, LOCDI+2 |
PSSDIVN | LOCDI+1~*, LOCDI+2 |
PSSERR | LOC+4~ |
PSSFFF | HELP+2~, HELP1+2*, HELP1+3 |
>> PSSHLF( | DSET+1 |
PSSHLOC | LOC+4~, LOC+7*, LOC+8*, LOC+9*, LOC+10, LOC+12*, LOC+19*, LOC+20*, LOC+21*, LOC+22 |
PSSIG | HELP+2~ |
PSSIG( | HELP1+2, HELP1+3, HELPADD+1*, HELPADD+2* |
PSSIG(1 | HELP+3* |
PSSIII | HELP+2~, HELP1+1*, HELP1+2*, HELP1+6 |
>> PSSLD | LEAD+2*, LEAD+3, LEAD+4, LEAD+5, LEAD+7, LEAD+8, LEAD+9, LEAD+11, LEAD+12, LEAD+13 , LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22, LEAD+23*, LEAD+24 |
>> PSSLD1 | LEAD+13*, LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22 |
PSSLOC | PLACER+5~, PLACER+6*, PLACER+7, PLACER+8 |
PSSLPX | HELP+2~, HELP1+8* |
PSSLXA | DUP+1~ |
PSSLXA( | DUP+7*, DUP+8 |
PSSLXFL | DUP+1~, DUP+2*, DUP+3, DUP+8*, DUP+9 |
PSSLXL | DUP+1~, DUP+3*, DUP+4 |
PSSLXLD | DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8 |
PSSLXMED | DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8 |
PSSLXND | DUP+1~, DUP+4*, DUP+5 |
PSSLXQ | DUP+1~, DUP+9* |
PSSLXSTR | DUP+1~, DUP+4*, DUP+5*, DUP+6, DUP+7, DUP+8 |
PSSLXX | DUP+1~, DUP+8* |
>> PSSMD | LEADP+2*, LEADP+3, LEADP+4, LEADP+6, LEADP+7, LEADP+9, LEADP+10, LEADP+11, LEADP+12, LEADP+13 , LEADP+15, LEADP+16, LEADP+18, LEADP+19*, LEADP+20 |
>> PSSMD1 | LEADP+11*, LEADP+12, LEADP+13, LEADP+15, LEADP+16, LEADP+18 |
>> PSSMDN | LEADP+3*, LEADP+12* |
PSSPAK | PLACER+5~*, PLACER+6, PLACER+8, PLACER+9, PLACER+10, PLACER+11, LOC+4~, LOC+5*, LOC+6, LOC+7 , LOC+8, LOC+9, LOC+14, LOC+15, LOC+18, LOC+19, LOC+20, LOC+21, LOC+23 |
PSSPDFN | PLACER~, PLACER+3, PLACER+8, PLACER+12, LOC~, LOC+3, LOC+7, LOC+9, LOC+14, LOC+19 |
PSSPIEN | PLACER~, PLACER+4, PLACER+5, PLACER+8, PLACER+9, PLACER+10, PLACER+11, PLACER+12, LOC~, LOC+3 , LOC+5, LOC+7, LOC+8, LOC+9, LOC+12, LOC+14, LOC+15, LOC+19, LOC+20, LOC+21 , LOC+23 |
PSSPKLX | OIDEA+5~, OIDEA+8*, OIDEA+11, OIDEA+12 |
PSSPRICE | PRICE+3~, PRICE+5*, PRICE+6, PRICE+7 |
PSSPRQ | PRICE+3~, PRICE+6*, PRICE+7*, PRICEQ+1*, PRICEQ+2 |
PSSRLIN | LOC+4~, LOC+23* |
PSSRLINN | LOC+4~, LOC+23* |
PSSROOM | LOC+4~, LOC+14*, LOC+15*, LOC+16 |
PSSRSLT | LOC+4~, LOC+5*, LOC+6, LOC+10*, LOC+12*, LOC+13*, LOC+16*, LOC+17*, LOC+18, LOC+22* , LOC+23*, LOC+24* |
PSSSIG | HELP+2~ |
PSSSIG( | HELP1+2*, HELP1+6*, HELP1+8 |
PSSSIG(1 | HELP1+7* |
PSSSIG(2 | HELP1+7! |
>> PSSUDOS | PRICE+6 |
PSSWRD | LOC+4~, LOC+11*, LOC+12, LOC+13 |
PSSWRDN | LOC+4~, LOC+13* |
>> PSSX( | LEAD+2, LEAD+3*, LEAD+4*, LEAD+5, LEAD+7*, LEAD+8*, LEAD+9, LEAD+11*, LEAD+12, LEAD+13 , LEAD+14*, LEAD+15*, LEAD+16, LEAD+18*, LEAD+19*, LEAD+20, LEAD+22*, LEADP+2, LEADP+3*, LEADP+4 , LEADP+6*, LEADP+7, LEADP+9*, LEADP+10, LEADP+11, LEADP+12*, LEADP+13, LEADP+15*, LEADP+16, LEADP+18* , DUP+3, DUP+4 |
>> PSSX("DD" | DSET+1*, LEAD+23, LEAD+24*, LEADP+19, LEADP+20*, DUP+5, DUP+9* |
>> PSSX("PI" | START+8* |
PSSXNODD | OIDEA+5~, OIDEA+6*, OIDEA+13*, OIDQ+1 |
PSSXOI | OIDEA~, OIDEA+7, OIDEA+9 |
PSSXOIP | OIDEA~, OIDEA+6, OIDEA+7, OIDEA+8 |
PSSXOLP | OIDEA+5~, OIDEA+9*, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14 |
PSSXOLPD | OIDEA+5~, OIDEA+6*, OIDEA+9, OIDEA+15*, OIDEA+16*, OIDQ+1*, OIDQ+2 |
PSSXOLPX | OIDEA+5~, OIDEA+14*, OIDEA+15, OIDEA+16 |
PSSYX | HELP+2~, HELP+5* |
PSSZ0 | HELP+2~, HELP+3*, HELP+5 |
PSSZ1 | HELP+2~, HELP+3*, HELP+4, HELP+5*, HELPADD+1, HELPADD+2 |
VAERR | LOCWA+1~ |
VAHOW | LOCWA+1~ |
VAIN | LOCWA+1~ |
VAIN(4 | LOCWA+3 |
VAINDT | LOCWA+1~ |
VAROOT | LOCWA+1~ |
X | EN3+3~, EN3+5*, EN3+6, EN3+7, EN3+8, HELP+1, HELP+3, HELP+4, HELP+5 |
Y | EN3+3~, EN3+8* |
Z0 | EN3+3~, EN3+6*, EN3+8 |
Z1 | EN3+3~, EN3+6*, EN3+7, EN3+8*, ADD+1, ADD+2 |