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 |
