Print Page as PDF
PSJ53P1 ICR (4537)

PSJ53P1    ICR (4537)

Name Value
NUMBER 4537
IA # 4537
DATE CREATED 2006/09/21
CUSTODIAL PACKAGE INPATIENT MEDICATIONS
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSJ53P1
NAME PSJ53P1
GENERAL DESCRIPTION
This API shall be provided to return the ORDER NUMBER
field (#.01), PROVIDER field (#1), MED ROUTE field (#3), SCHEDULE TYPE field
(#7), START DATE/TIME field (#10), STOP DATE/TIME field (#25), SCHEDULE field
(#26), STATUS field (#28), ORDERABLE ITEM field (#108), DOSAGE ORDERED field
(#109) and all the Dispensed Drugs from the DISPENSED DRUG field (#2), for an
entry from the NON-VERIFIED ORDERS (#53.1) File.
STATUS Active
DURATION Till Otherwise Agreed
ID PSJ53P1
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PSJ(PSJIEN,LIST)
FORMAT: D PSJ^PSJ53P1(PSJIEN,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSJIEN Input
PSJIEN = IEN of NON-VERIFIED ORDERS file (#53.1).
[REQUIRED]
LIST Input
Subscript name used in ^TMP global [REQUIRED]
~TMP Output
^TMP($J,LIST,0)= 1 for successful return of data or
-1^NO DATA FOUND

^TMP($J,LIST,ORDER NUMBER,.01)=ORDER NUMBER (53.1,.01)

^TMP($J,LIST,ORDER NUMBER,1)=PROVIDER (53.1,1   P)^NAME (200,.01)

^TMP($J,LIST,ORDER NUMBER,3)=MED ROUTE (53.1,3)^NAME (51.2,.01)

^TMP($J,LIST,ORDER NUMBER,7)=SCHEDULE TYPE (53.1,7)^ External Format for the
Set of Codes

^TMP($J,LIST,ORDER NUMBER,10)=START DATE/TIME (53.1,10)^ External Format (ex:
Sep. 12, 1999)

^TMP($J,LIST,ORDER NUMBER,25)=STOP DATE/TIME (53.1,25)^ External Format (ex:
Sep. 12, 1999)

^TMP($J,LIST,ORDER NUMBER,26)=SCHEDULE (53.1,26)

^TMP($J,LIST,ORDER NUMBER,28)=STATUS (53.1,28)^ External Format for the Set of
Codes

^TMP($J,LIST,ORDER NUMBER,108)=ORDERABLE ITEM (53.1,108)^NAME (50.7, .01)

^TMP($J,LIST,ORDER NUMBER,109)=DOSAGE ORDERED (53.1,109)

^TMP($J,LIST,ORDER NUMBER,"DDRUG",0)=Number of drugs returned or -1^NO DATA
FOUND

^TMP($J,LIST,ORDER NUMBER,"DDRUG",Drug IEN,.01)=DISPENSE DRUG
(53.11,.01)^GENERIC NAME (50,.01)

^TMP($J,LIST,ORDER NUMBER,"DDRUG",Drug IEN,.02)= UNITS PER DOSE (53.11,.02)

^TMP($J,LIST,"B",ORDER NUMBER)=""

MAIL MESSAGE 44238975