PSJPDV0 ;BIR/KKA-LIST PATIENTS ON SPECIFIC DRUGS (CONT.) ; 7/6/09 2:20pm
Source file <PSJPDV0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENQ | ||
| DONE | ||
| DIVWARD() | ;DIVISION/WARD MATCH FOR PATIENT (PSJ*5*214)
|
|
| UDORD | ;find all Unit Dose orders with specified dispense drugs
|
|
| UDSET | ;get patient and order information and set in global
|
|
| IVORD | ;get IV orders matching the requested drug
|
|
| MATADD | ;see if additives of the order match the drug
|
|
| MATSOL | ;see if solutions of the order match the drug
|
|
| IVSET | ;S IVND=$G(^PS(55,PSGP,"IV",+PSJJORD,0)),IVSCH=$P(IVND,"^",9),IVSTD=$P(IVND,"^",2),IVSPD=^TMP("PSJPDV",$J,PSGP,PSJJORD),IVMR=$P($G(^PS(55,PSGP,"IV",+PSJJORD,6)),"^",3),IVIR=$P(IVND,"^",8)
|
|
| GETMAT | ;see if the patient has the number of drugs necessary to be printed on
|
|
| CLN(SDIV) | ; check Out patient clinic orders
|
