PSOORDRG ;BIR/SAB - order entry drug selection ;11/13/97
Source file <PSOORDRG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(PSODFN,DREN) | ;
|
|
DRG | ;S X=DREN,DIC="^PSDRUG(",DIC(0)="MQNZO" D ^DIC K DIC,PSOY Q:Y<1 S PSOY=Y,PSOY(0)=Y(0) K X,Y
|
|
EXIT | ||
BLD | ||
BUILD | ;build profiles
|
|
BLDOI | ;If no DD/non-standard dose, get all drugs for OI
|
|
SETTMP | ;Create ^TMP($J,"ORDERS"
|
|
BUILDX | ||
GET | ;data for profiles
|
|
GETX | ;
|
|
CLOZ | ;
|
|
DRGCHK(PSODFN,DREN,DDRUG) |
|
|
OIDRG(PSODFN,PSOI) | ;checks every drug tied to orderable item passed by package use
|
|
NVA | ;checks existing nva
|
|
NVA1 | ||
REMOTE | ;
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |