Print Page as PDF
DBIA2376 ICR (2376)

DBIA2376    ICR (2376)

Name Value
NUMBER 2376
IA # 2376
DATE CREATED 1998/04/30
CUSTODIAL PACKAGE INPATIENT MEDICATIONS
CUSTODIAL ISC Birmingham
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSJORUT2
NAME DBIA2376
GENERAL DESCRIPTION
These entry points build drug information for patient's
orders entered in the Inpatient Medications package.  The data returned is
used in order checks in Computerized Patient Record System.
STATUS Active
DURATION Till Otherwise Agreed
ID PSJORUT2
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
ENCHK
This entry point returns drug information for a
specific patient's current orders in the Inpatient Medications package.
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
Patient internal entry number.
PSJINX Input
Index number so duplicate drugs will be returned.
PSGOCHK Input
Set to 1 if check should include dispense drugs in
^PS(53.45.
PSIVOCHK Input
Set to 1 if check should include entries in DRG
array.
TMP($J,'ORDERS',PSJINX) Output
^TMP($J,"ORDERS",PSJINX)=
VA CLASSIFICATION^NATIONAL DRUG FILE ENTRY_"A"_PSNDF VA PRODUCT NAME
ENTRY^DISPENSE DRUG NAME^ORDER NUMBER IN OR(100^INPATIENT MEDS ORDER
NUMBER_";I"
DDRUG
This entry point returns drug information for a
single drug when it is chosen for an order.  This is specifically used in IV
orders to check against the other additives or solutions entered during a
single order entry.
VARIABLES TYPE VARIABLES DESCRIPTION
DDRUG Input
Dispense drug internal entry number.
PSJINX Input
Index number so duplicate drugs will be returned.
PSJORIEN Input
Internal entry number for order in ^OR(100.
COD Input
Order number in Inpatient Meds. number_"P" if order
is in ^PS(53.1.  number_"U" if order is in ^PS(55.
TMP($J,'ORDERS',PSJINX) Output
^TMP($J,"ORDERS",PSJINX)=
VA CLASSIFICATION^NATIONAL DRUG FILE ENTRY_"A"_PSNDF VA PRODUCT NAME
ENTRY^DISPENSE DRUG NAME^ORDER NUMBER IN OR(100^INPATIENT MEDS ORDER
NUMBER_IPOROP
IPOROP-Set to ";O" if piece 2 of DDRUG array is "PSO".
Set to ";N" if piece 2 of DDRUG array is "PSH".
Defaults to an ";I".
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
OUTPATIENT PHARMACY Birmingham
MAIL MESSAGE 38327155