PSSUTLA1 ;BHAM ISC/RTR-PSS utility routine ;08/21/00
Source file <PSSUTLA1.m>
| 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 |
