Print Page as PDF
DBIA2384 ICR (2384)

DBIA2384    ICR (2384)

Name Value
NUMBER 2384
IA # 2384
DATE CREATED 1998/05/07
CUSTODIAL PACKAGE INPATIENT MEDICATIONS
CUSTODIAL ISC Birmingham
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSJORRE1
NAME DBIA2384
GENERAL DESCRIPTION
This call, OEL^PSJORRE1, returns the Inpatient
Medications order data that is passed to Computerized Patient Record System.
This array is used for the meds screen detailed order display.
STATUS Active
DURATION Till Otherwise Agreed
ID PSJORRE1
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
OEL
Condensed Med list call.

OEL^PSJORRE1(DFN,ON):

Passed: DFN - Patient's Internal Pointer
ON - ORDER #_FILE (from condensed list)

FILE: U = unit dose order (file #55, subfile 55.06)
V = IV order (file #55, subfile 55.01)
P = Pending order (file 53.1)
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
Patient internal entry number.
ON Input

ON = ORDER #_FILE (from condensed list)

FILE: U = unit dose order (file #55, subfile 55.06)
V = IV order (file #55, subfile 55.01)
P = Pending order (file 53.1)
TMP('PS',$J, Output

^TMP("PS",$J,0)=DRUG^INFUSION RATE^STOPDATE^^START DATE^EXTERNAL
STATUS^^^TOTAL DOSE^UNIT PER DOSE^PLACER #^^NOT TO BE GIVEN^PENDING
RENEWAL (1 or 0)

^TMP("PS",$J,"MDR",0)= # of LINES
^TMP("PS",$J,"MDR",D1,0)=MED ROUTE ABBR.
^TMP("PS",$J,"SCH",0)= # of LINES
^TMP("PS",$J,"SCH",D1,0)=SCHEDULE NAME^SCHEDULE TYPE NAME^SCHEDULE TYPE CODE
^TMP("PS",$J,"SIG",0)= # of LINES
^TMP("PS",$J,"SIG",D1,0)=SIG (outpatient) or INSTRUCTIONS (inpatient)
^TMP("PS",$J,"PC",0)= # of LINES
^TMP("PS",$J,"PC",D1,0)=PROVIDER COMMENTS
^TMP("PS",$J,"A",0)= # of LINES
^TMP("PS",$J,"A",D1,0)=ADDITIVE NAME^AMOUNT^BOTTLE
^TMP("PS",$J,"ALOG",0) = # of LINES from ACTIVITY LOG multiple of File #53.1
^TMP("PS",$J,"ALOG",D1,0) = ACTIVITY LOG DATE^ACTIVITY LOG USER [IEN into VA
200]^ACTION [IEN into File #53.3]^FIELD CHANGED DUE TO ACTIVITY^OLD FIELD DATA
^TMP("PS",$J,"B",0)= # of LINES
^TMP("PS",$J,"B",D1,0)=SOLUTION NAME^AMOUNT^PRINT NAME {2}
^TMP("PS",$J,"P",0)=IEN^.01 of VA 200
^TMP("PS",$J,"ADM",0)= # of LINES
^TMP("PS",$J,"ADM",D1,0)=ADMINISTRATION TIMES
Where: administration time = Free text 2-119 characters
^TMP("PS",$J,"RMV",0)= # of LINES
^TMP("PS",$J,"RMV",D1,0)=REMOVAL TIMES
Where: Removal time = Free text 2-119 characters
^TMP("PS",$J,"SIO",0)= # of LINES
^TMP("PS",$J,"SIO",D1,0)=SPECIAL INSTRUCTIONS/OTHER PRINT INFO
(Special instructions = Free text 1-180 characters)
^TMP("PS",$J,"IND",0)=1
^TMP("PS",$J,"IND",1,0)=INDICATION
^TMP("PS",$J,"DD",0)   = # of LINES
^TMP("PS",$J,"DD",D1,0)= DISPENSE DRUG IEN(from the U/D order)^Unit
per Dose^CORRESPONDING OUTPATIENT DRUG IEN^ORDERABLE ITEM IEN
^TMP("PS",$J,"P",0)=Provider IEN^.01 of VA 200
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
OUTPATIENT PHARMACY Birmingham
DATE ACTIVATED 2018/10/10