Print Page as PDF
DBIA4821 ICR (4821)

DBIA4821    ICR (4821)

Name Value
NUMBER 4821
IA # 4821
DATE CREATED 2005/12/07
CUSTODIAL PACKAGE OUTPATIENT PHARMACY
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSO5241
NAME DBIA4821
GENERAL DESCRIPTION
The 'PEN' component returns data from the PENDING
OUTPATIENT ORDERS (#52.41) File. The 'NONVA' component returns data from the
NON-VA MEDS (#55.05) Subfile of the PHARMACY PATIENT (#55) File.
STATUS Active
DURATION Till Otherwise Agreed
ID PSO5241
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
PEN(DFN,LIST,IEN,PLACER NUMBER)


PEN^PSO5241(DFN,LIST,IEN,PLACER NUMBER)

Input:
DFN
LIST
IEN
PLACER NUMBER

Where:
DFN = Internal entry number of the PATIENT (#2) File [required]
LIST = Subscript name used in the ^TMP global [required]
IEN = Internal entry number in the PENDING
OUTPATIENT ORDERS (#52.41) File [optional]
PLACER NUMBER = Internal Entry Number of the ORDER (#100) File [optional]

Note: If IEN is passed in, PLACER NUMBER is ignored. If PLACER NUMBER is
passed in without IEN, a lookup is done on the ^PS(52.41,"B" cross-reference
to find the order. If no IEN and no PLACER NUMBER are passed, the
^PS(52.41,"P" cross-reference is used to return all pending orders for the
patient for only orders with one of these values in the ORDER TYPE (#2) Field:
NW:NEW ORDER, HD:HOLD, RNW:RENEW, RF:REFILL REQUEST
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Both
Internal entry number from the PATIENT (#2) File.
[required]
LIST Both
Subscript name used in the ^TMP global. [required]
IEN Input
Internal entry number from the PENDING OUTPATIENT
ORDERS (#52.41) File.  [optional]
PLACER NUMBER Input
Internal entry number from the ORDERS (#100) File.
[optional]
TMP($J,LIST) Output
^TMP($J,LIST,DFN,0)=Total entries returned by patient
or -1^NO DATA FOUND ^TMP($J,LIST,DFN,IEN,.01)=PLACER NUMBER (52.41,.01)
^TMP($J,LIST,DFN,IEN,1)=PATIENT (52.41,1)^NAME (2,.01)
^TMP($J,LIST,DFN,IEN,1.1)=PATIENT LOCATION (52.41,1.1)^NAME (44,.01)
^TMP($J,LIST,DFN,IEN,2)=ORDER TYPE (52.41,2)^External Format for the Code
^TMP($J,LIST,DFN,IEN,5)=PROVIDER (52.41,5)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,6)=EFFECTIVE DATE (52.41,6)^External Format (ex: Sep. 12,
1999) ^TMP($J,LIST,DFN,IEN,8)=PHARMACY ORDERABLE ITEM (52.41,8)^NAME
(50.7,.01) ^DOSAGE FORM (50.7,.02) ^NAME (50.606,.01)
^TMP($J,LIST,DFN,IEN,11)=DRUG (52.41,11) ^GENERIC NAME (50,.01)
^TMP($J,LIST,DFN,IEN,12)=QTY (52.41,12) ^TMP($J,LIST,DFN,IEN,13)=# OF REFILLS
(52.41,13) ^TMP($J,LIST,DFN,IEN,15)=LOGIN DATE (52.41,15)^External Format (ex:
Sep. 12, 1999) ^TMP($J,LIST,DFN,IEN,19)=PICKUP ROUTING (52.41,19)^External
Format for the Code ^TMP($J,LIST,DFN,IEN,21)=Rx REFILL REQUEST (52.41,21)
^TMP($J,LIST,DFN,IEN,22.1)=PREVIOUS ORDER # (52.41,22.1)^RX # (52,.01)
^TMP($J,LIST,DFN,IEN,24,n)=DISPENSING INSTRUCTIONS (52.4124,.01)
^TMP($J,LIST,DFN,IEN,26)=POSSIBLE FILLDATE (52.41,26)^External Format (ex:
Sep. 12, 1999) ^TMP($J,LIST,DFN,IEN,100)=RELATED INSTITUTION (52.41,100)^NAME
(4,.01) ^TMP($J,LIST,DFN,IEN,101)=DAY SUPPLY (52.41,101)
^TMP($J,LIST,DFN,"B",PLACER NUMBER,IEN)=""
NONVA(PSODFN,PSOLST,PSOSIEN,PSOPL)


NONVA^PSO5241(PSODFN,PSOLST,PSOSIEN,PSOPL)

Input:
PSODFN
PSOLST
PSOSIEN
PSOPL

Where:
PSODFN = Internal entry number from the PATIENT (#2) File. [required]
PSOLST = Subscript name used in the ^TMP global. [required]
PSOSIEN = Internal entry number from the NON-VA MEDS (#55.05) Subfile
of the PHARMACY PATIENT (#55) File. [optional]
PSOPL = Internal entry number of the ORDER (#100) File. [optional]

Note: If PSOSIEN is passed in, PSOPL is ignored, and the NON-VA entry of that
internal entry number (PSOSIEN) is returned. If PSOPL is passed in without
PSOSIEN, the NON-VA entry with PSOPL in the ORDER NUMBER (#7) Field is
returned. If no PSOSIEN and no PSOPL are passed, all NON-VA entries will be
returned.
VARIABLES TYPE VARIABLES DESCRIPTION
PSODFN Both
Internal entry number from the PATIENT (#2) File.
[required]
PSOLST Both
Subscript name used in the ^TMP global.  [required]
PSOSIEN Input
Internal entry number from the NON-VA MEDS (#55.05)
Subfile of the PHARMACY PATIENT (#55) File. [optional]
PSOPL Input
Internal entry number from the ORDER (#100) File.
[optional]
TMP($J,PSOLST) Output
^TMP($J,PSOLST,PSODFN,IEN,0)=Total entries returned
or -1^NO DATA FOUND ^TMP($J,PSOLST,PSODFN,IEN,.01)=ORDERABLE ITEM
(55.05,.01)^NAME (50.7,.01)^DOSAGE FORM (50.7,.02)^NAME(50.606,.01)
^TMP($J,PSOLST,PSODFN,IEN,1)=DISPENSE DRUG (55.05,1) ^GENERIC NAME (50,.01)
^TMP($J,PSOLST,PSODFN,IEN,2)=DOSAGE (55.05,2)
^TMP($J,PSOLST,PSODFN,IEN,3)=MEDICATION ROUTE (55.05,3)
^TMP($J,PSOLST,PSODFN,IEN,4)=SCHEDULE (55.05,4)
^TMP($J,PSOLST,PSODFN,IEN,5)=STATUS (55.05,5)^External Format of the code.
^TMP($J,PSOLST,PSODFN,IEN,6)=DISCONTINUED DATE (55.05,6)^External Format (ex:
Sep. 12, 1999@11:10:36) ^TMP($J,PSOLST,PSODFN,IEN,7)=ORDER NUMBER (55.05,7)
^TMP($J,PSOLST,PSODFN,IEN,8)=START DATE (55.05,8)^External Format (ex: Sep.
12, 1999) ^TMP($J,PSOLST,PSODFN,IEN,10,n)=DISCLAIMER (55.052,.01)
^TMP($J,PSOLST,PSODFN,IEN,11)=DOCUMENTED DATE (55.05,11)^External Format (ex:
Sep. 12, 1999@11:10:36) ^TMP($J,PSOLST,PSODFN,IEN,12)=DOCUMENTED BY
(55.05,12)^NAME(200,.01) ^TMP($J,PSOLST,PSODFN,IEN,13)=CLINIC (55.05,13)^NAME
(44,.01) ^TMP($J,PSOLST,PSODFN,IEN,14,n)=COMMENTS (55.514,.01)
^TMP($J,PSOLST,PSODFN,"B",ORDERABLE ITEM,IEN)=""
DATE ACTIVATED 2020/06/01