Print Page as PDF
PRESCRIPTION FILE (#52) DATA ELEMENTS ICR (4820)

PRESCRIPTION FILE (#52) DATA ELEMENTS    ICR (4820)

Name Value
NUMBER 4820
IA # 4820
DATE CREATED 2005/12/07
CUSTODIAL PACKAGE OUTPATIENT PHARMACY
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSO52API
NAME PRESCRIPTION FILE (#52) DATA ELEMENTS
GENERAL DESCRIPTION
The PSO52API routine shall be used to return requested
data elements for the PRESCRIPTION file (#52).
STATUS Active
DURATION Till Otherwise Agreed
ID PSO52API
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
RX(DFN,LIST,IEN,RX#,NODE,SDATE,EDATE)


RX^PSO52API(DFN,LIST,IEN,RX#,NODE,SDATE,EDATE)

Input:
DFN
LIST
IEN
RX#
NODE
SDATE
EDATE

Where:
DFN = IEN from the PATIENT file (#2) [required]
LIST = Subscript name used in the ^TMP global [required]
IEN = Internal prescription number in PRESCRIPTION file (#52) [optional]
RX# = RX # field (#.01) from the PRESCRIPTION file (#52) [optional]
NODE = will be passed "null" or as a string of data separated by commas
containing some or all of the following:
0,2,3,R,I,P,O,T,L,S,M,C,A,ICD,CPRS,ST,IND

SDATE = Start Date [optional]
EDATE = End Date [optional]

Note: This API has defined one entry point by parameter passing, to return
data from available data nodes from the PRESCRIPTION file (#52). The variable
"NODE" shall be passed null or as a string of data separated by commas. Every
field from the PRESCRIPTION file (#52) shall not be returned, though the
string must be defined to contain some or all of the following: 0, 2, 3, R, I,
P, O, T, L, S, M, C, A, ICD, CPRS, ST, IND.  Each section describes what is
returned by each string variable. TRADE NAME field (#6.5) (piece 1 of the "TN"
node), from the PRESCRIPTION file (#52) that is associated with DRUG NAME
field (#6) will be returned as part of the 0 node data, if populated. The
status and "B" cross-reference of valid prescriptions is always returned.

0 - returns the Zero node
2 - returns the Zero and Two nodes
3 - returns the Two and Three nodes
R - returns all refills for a prescription (If a specific refill is wanted,
this variable must be passed in the following format: "R^^n" (indicating which
refill is wanted))
I - returns Integrated Billing (IB) data ([^null, O or R^n] if 2nd piece is
defined as null IB data for both original and all refills are returned. If 2nd
piece is defined as 'O' only IB data for the original fill is returned.  If
2nd piece is  defined as 'R' refill data is returned and the 3rd piece is
null, all refill IB data are returned, or if the 3rd piece has a number it
shall return the IB node for that refill only.)
P - returns all partial fills for a prescription
O - returns the Orderable Item for a prescription
T - returns the TPB node
L - returns the Label multiple
S - returns the SAND node
M - returns the medication instructions (SIG)
C - returns CMOP data
A - returns the Activity Logs for a prescription
CPRS - returns the corresponding ORDER File (#100) internal entry number
ICD - returns the ICD multiple
ST - returns the status of the prescription
IND - returns the Indication if populated

Note: If NODE is passed in null, all possible nodes are returned.

Note: If an invalid parameter is passed into the NODE variable the following
node shall be returned:
^TMP($J,LIST,DFN,IEN,"INVALID REQUEST",NODE)=Invalid Data Requested

Output: (If node = 0 (zero))
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,.01)=RX #(52,.01)
^TMP($J,LIST,DFN,IEN,1)=ISSUE DATE (52,1)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,2)=PATIENT (52,2)^NAME (2,.01)
^TMP($J,LIST,DFN,IEN,3)=PATIENT STATUS (52,3)
^TMP($J,LIST,DFN,IEN,4)=PROVIDER (52,4)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,5)=CLINIC (52,5)^NAME(44,.01)
^TMP($J,LIST,DFN,IEN,6)=DRUG (52,6)^GENERIC NAME(50,.01)
^TMP($J,LIST,DFN,IEN,6.5)=TRADE NAME (52,6.5)
^TMP($J,LIST,DFN,IEN,7)=QTY (52,7)
^TMP($J,LIST,DFN,IEN,8)=DAYS SUPPLY (52,8)
^TMP($J,LIST,DFN,IEN,9)=# OF REFILLS (52,9)
^TMP($J,LIST,DFN,IEN,10.3)=ORDER CONVERTED (52,10.3)^External Format for the
Set of Codes
^TMP($J,LIST,DFN,IEN,10.6)=COPIES (52,10.6)
^TMP($J,LIST,DFN,IEN,11)=MAIL/WINDOW (52,11)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,14)=ADMINISTERED IN CLINIC (52,14)^External Format fof
the Set of Codes
^TMP($J,LIST,DFN,IEN,16)=ENTERED BY (52,16)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,17)=UNIT PRICE OF DRUG (52,17)

Output: (If node = 2)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,.01)=RX #(52,.01)
^TMP($J,LIST,DFN,IEN,1)=ISSUE DATE (52,1)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,2)=PATIENT (52,2)^NAME (2,.01)
^TMP($J,LIST,DFN,IEN,3)=PATIENT STATUS (52,3)
^TMP($J,LIST,DFN,IEN,4)=PROVIDER (52,4)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,5)=CLINIC (52,5)^NAME(44,.01)
^TMP($J,LIST,DFN,IEN,6)=DRUG (52,6)^GENERIC NAME(50,.01)
^TMP($J,LIST,DFN,IEN,6.5)=TRADE NAME (52,6.5)
^TMP($J,LIST,DFN,IEN,7)=QTY (52,7)
^TMP($J,LIST,DFN,IEN,8)=DAYS SUPPLY (52,8)
^TMP($J,LIST,DFN,IEN,9)=# OF REFILLS (52,9)
^TMP($J,LIST,DFN,IEN,10.3)=ORDER CONVERTED (52,10.3)^External Format for the
Set of Codes
^TMP($J,LIST,DFN,IEN,10.6)=COPIES (52,10.6)
^TMP($J,LIST,DFN,IEN,11)=MAIL/WINDOW (52,11)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,16)=ENTERED BY (52,16)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,17)=UNIT PRICE OF DRUG (52,17)
^TMP($J,LIST,DFN,IEN,20)=DIVISION (52,20)^NAME(59,.01)
^TMP($J,LIST,DFN,IEN,21)=LOGIN DATE (52,21)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,22)=FILL DATE (52,22)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,23)=PHARMACIST (52,23)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN 24)=LOT # (52,24)
^TMP($J,LIST,DFN,IEN 25)=DISPENSED DATE (52,25)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,26)=EXPIRATION DATE (52,26)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,27)=NDC (52,27)
^TMP($J,LIST,DFN,IEN,28)=MANUFACTURER (52,28)
^TMP($J,LIST,DFN,IEN,29)=DRUG EXPIRATION DATE (52,29)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,30)=GENERIC PROVIDER (52,30)
^TMP($J,LIST,DFN,IEN,31)=RELEASE DATE/TIME (52,31)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN 32.1)=RETURNED TO STOCK (52,32.1)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,32.2)=REPRINT (52,32.2)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,32.3)=BINGO WAIT TIME (52,32.3)
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,104)=VERIFYING PHARMACIST (52,104)^NAME (200,.01)
^TMP($J,LIST,"B",RX#,IEN)=""

Output: (If node = 3)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,12)=REMARKS (52,12)
^TMP($J,LIST,DFN,IEN,20)=DIVISION (52,20)^NAME (59,.01)
^TMP($J,LIST,DFN,IEN,21)=LOGIN DATE (52,21)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,22)=FILL DATE (52,22)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,23)=PHARMACIST (52,23)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN 24)=LOT # (52,24)
^TMP($J,LIST,DFN,IEN 25)=DISPENSED DATE (52,25)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,26)=EXPIRATION DATE (52,26)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,26.1)=CANCEL DATE (52,26.1)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,27)=NDC (52,27)
^TMP($J,LIST,DFN,IEN,28)=MANUFACTURER (52,28)
^TMP($J,LIST,DFN,IEN,29)=DRUG EXPIRATION DATE (52,29)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,30)=GENERIC PROVIDER (52,30)
^TMP($J,LIST,DFN,IEN,31)=RELEASE DATE/TIME (52,31)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN 32.1)=RETURNED TO STOCK (52,32.1)^External  (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,32.2)=REPRINT (52,32.2)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,32.3)=BINGO WAIT TIME (52,32.3)
^TMP($J,LIST,DFN,IEN,34.1)=DRUG ALLERGY INDICATION (52,34.1)^External Format
for the Set of Codes
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,101)=LAST DISPENSED DATE (52,101)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,102)=NEXT POSSIBLE FILL (52,102)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,102.1)=PRIOR FILL DATE (52,102.1)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,102.2)=PENDING NEXT POSSIBLE FILLDATE (52,102.2)
^External Format (ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,104)=VERIFYING PHARMACIST (52,104)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,109)=COSIGNING PHYSICIAN (52,109)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,112)=ORIGINAL QTY (52,112)
^TMP($J,LIST,"B",RX#,IEN)=""

Output: (If node = R(r)[^^n(o)])
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"RF",0)=Total entries returned by patient or -1^NO DATA
FOUND
^TMP($J,LIST,DFN,IEN,"RF",n,.01)=REFILL DATE (52.1,.01)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,1)=QTY (52.1,1)
^TMP($J,LIST,DFN,IEN,"RF",n,1.1)=DAYS SUPPLY (52.1,1.1)
^TMP($J,LIST,DFN,IEN,"RF",n,1.2)=CURRENT UNIT PRICE OF DRUG (52.1,1.2)
^TMP($J,LIST,DFN,IEN,"RF",n,2)=MAIL/WINDOW (52.1,2)^External Format for the
Set of Codes
^TMP($J,LIST,DFN,IEN,"RF",n,3)=REMARKS (52.1,3)
^TMP($J,LIST,DFN,IEN,"RF",n,4)=PHARMACIST NAME (52.1,4)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"RF",n,5)=LOT # (52.1,5)
^TMP($J,LIST,DFN,IEN,"RF",n,6)=CLERK CODE (52.1,6)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"RF",n,7)=LOGIN DATE (52.1,7)^External Format (ex: Sep.
12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,8)=DIVISION (52.1,8)^NAME (59,.01)
^TMP($J,LIST,DFN,IEN,"RF",n,10.1)=DISPENSE DATE (52.1,10.1)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,11)=NDC (52.1,11)
^TMP($J,LIST,DFN,IEN,"RF",n,12)=MANUFACTURER (52.1,12)
^TMP($J,LIST,DFN,IEN,"RF",n,13)=DRUG EXPIRATION DATE (52.1,13)^External
Format (ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,14)=RETURNED TO STOCK (52.1,14)External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,15)=PROVIDER (52.1,15)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"RF",n,17)=RELEASED DATE/TIME (52.1,17)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"RF",n,23)=ADMINISTERED IN CLINIC (52.1,23)^External
Format for the set of Codes
^TMP($J,LIST,"B",RX#,IEN)=""

Where:
n = the IEN of entry in the Refill multiple

Output: (If node = I(r)[^null,O or R^n])

[ORIGINAL FILLS]
^TMP($J,LIST,DFN,IEN,105)=COPAY TRANSACTION TYPE (52,105)
^TMP($J,LIST,DFN,IEN,106)=IB NUMBER (52,106)^REFERENCE NUMBER(350,.01)
^TMP($J,LIST,DFN,IEN,106.5)=COPAY TYPE AUDIT (52,106.5)
^TMP($J,LIST,DFN,IEN,106.6)=COPAY EXCEEDING CAP (52,106.6)^TRANSACTION
NUMBER(354.71,.01)


[REFILLS]
^TMP($J,LIST,DFN,IEN,"IB",0)=Total entries returned by patient or -1^NO DATA
FOUND
^TMP($J,LIST,DFN,IEN,"IB",n,9)= IB NUMBER (52.1,9)^REFERENCE NUMBER(350,.01)
^TMP($J,LIST,DFN,IEN,"IB",n,9.1)=COPAY EXCEEDING CAP (52.1,9.1)^ TRANSACTION
NUMBER(354.71,.01)

Where:
n = the IEN of entry in the Refill multiple for IB

Output: (If node = P)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"P",0)= Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"P",n,.01)=PARTIAL DATE (52.2,.01)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"P",n,.02)=MAIL/WINDOW (52.2,.02)^External Format for
the Set of Codes
^TMP($J,LIST,DFN,IEN,"P",n,.03)=REMARKS (52.2,.03)
^TMP($J,LIST,DFN,IEN,"P",n,.04)=QTY (52.2,.04)
^TMP($J,LIST,DFN,IEN,"P",n,.041)=DAYS SUPPLY (52.2,.041)
^TMP($J,LIST,DFN,IEN,"P",n,.042)=CURRENT UNIT PRICE OF DRUG (52.2,.042)
^TMP($J,LIST,DFN,IEN,"P",n,.05)=PHARMACIST NAME (52.2,.05)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"P",n,.06)=LOT # (52.2,.06)
^TMP($J,LIST,DFN,IEN,"P",n,.08)=LOGIN DATE (52.2,.08)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"P",n,.09)=DIVISION (52.2,.09)^NAME (59,.01)
^TMP($J,LIST,DFN,IEN,"P",n,1)=NDC (52.2,1)
^TMP($J,LIST,DFN,IEN,"P",n,5)=RETURNED TO STOCK (52.2,5)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"P",n,6)=PROVIDER (52.2,6)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"P",n,7.5)=DISPENSED DATE (52.2,7.5)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"P",n,8)=RELEASE DATE/TIME (52.2,8)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,"B",RX#,IEN)=""

Where:
n = the IEN of entry in the Partial multiple

Output: (If node = O)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"OI")=IEN(52,39.2)^NAME(50.7,.01)^DOSAGE
FORM(50.7,.02)^NAME (50.606,.01)
^TMP($J,LIST,"B",RX#,IEN)=""

Output: (If node = T)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND"
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,201)=TPB RX (52,201)^External Format for the Set of
Codes
^TMP($J,LIST,"B",RX#,IEN)=""

Output: (If node = L)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"L",0)=Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"L",n,.01)=LABEL DATE/TIME (52.032,.01)^External Format
(ex: Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"L",n,1)=RX REFERENCE (52.032,1)
^TMP($J,LIST,DFN,IEN,"L",n,2)=LABEL COMMENT (52.032,1)
^TMP($J,LIST,DFN,IEN,"L",n,3)=PRINTED BY (52.032,3)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,"L",n,4)=WARNING LABEL TYPE (52.032,4)^External Format
for the Set of Codes
^TMP($J,LIST,"B",RX#,IEN)=""

Where:
n = the IEN of entry in the Label multiple

Output: (If node = S)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,301)=CLOZAPINE DOSAGE (MG/DAY) (52,301)
^TMP($J,LIST,DFN,IEN,302)=WBC RESULTS (52,302)
^TMP($J,LIST,DFN,IEN,303)=DATE OF WBC TEST (52,303)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,"B",RX#,IEN)=""

Output: (If node = M)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"M",0)=Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"M",n,0)=MEDICATION INSTRUCTIONS(52.04,.01)
^TMP($J,LIST,"B",RX#,IEN)=""

Where:
n = the IEN of entry in the Medication Instruction (SIG) multiple

Output: (If node = C)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"C",0)=Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"C",n,.01)=TRANSMISSION NUMBER (52.01,.01)^TRANSMISSION
(550.2,.01)
^TMP($J,LIST,DFN,IEN,"C",n,2)=RX INDICATOR (52.01,2)
^TMP($J,LIST,DFN,IEN,"C",n,3)=STATUS (52.01,3)^External Format for the Set
of Codes
^TMP($J,LIST,DFN,IEN,"C",n,4)=NDC (52.01,4)
^TMP($J,LIST,DFN,IEN,"C",n,9)=DATE SHIPPED (52.01,9)^ External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"C",n,10)=CARRIER (52.01,10)
^TMP($J,LIST,DFN,IEN,"C",n,11)=PACKAGE ID (52.01,11)
^TMP($J,LIST,DFN,IEN,"C",n,12)=NDC SENT (52.01,12)
^TMP($J,LIST,"B",RX#,IEN)=""

Where:
n = the IEN of entry in the CMOP Event multiple

Output: (If node = A)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"A",0)=Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"A",n,.01)=ACTIVITY LOG (52.03,.01)^External Format (ex:
Sep. 12, 1999)
^TMP($J,LIST,DFN,IEN,"A",n,.02)=REASON (52.03,.02)^External Format for the
Set of Codes
^TMP($J,LIST,DFN,IEN,"A",n,.03)=INITIATOR OF ACTIVITY (52.03,.03)^NAME
(200,.01)
^TMP($J,LIST,DFN,IEN,"A",n,.04)=RX REFERENCE (52.03,.04)
^TMP($J,LIST,DFN,IEN,"A",n,.05)=COMMENTS (52.30,.05)
^TMP($J,LIST,DFN,IEN,"A",n,"OC",n,.01)=OTHER COMMENTS (52.34,.01)
^TMP($J,LIST,"B",RX#,IEN)=""

Output:( If node = CPRS)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100) ^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,39.3)=PLACER ORDER # (52,39.3)

Where:
n = the IEN of entry in the Activity Log multiple

Output: (If node = ICD)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100) ^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,"ICD",0)=Total entries returned or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,"ICD",n,.01)=ICD DIAGNOSIS (52.052311,.01)^CODE NUMBER
(80,.01)
^TMP($J,LIST,DFN,IEN,"ICD",n,1)=AGENT ORANGE (52.052311,1)^External Format
for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,2)=IONIZING RADIATION (52.052311,2)^External
Format for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,3)=SERVICE CONNECTION (52.052311,3)^External
Format for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,4)=ENVIRONMENTAL CONTAMINANTS
(52.052311,4)^External Format for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,5)=MILITARY SEXUAL TRAUMA
(52.052311,5)^External Format for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,6)=HEAD AND/OR NECK CANCER
(52.052311,6)^External Format for the Set of Codes
^TMP($J,LIST,DFN,IEN,"ICD",n,7)=COMBAT VETERAN (52.052311,7)^External Format
for the Set of Codes

Where:
n = the IEN of entry in the ICD multiple

Output: (If node = ST)
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO DATA FOUND
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes

Output: (If node = IND) ^TMP($J,LIST,DFN,IEN,"IND")=Indication^Indication flag
(1-Indication is included in the Sig, 0 or null-Indication is not included in
the Sig)

^TMP($J,LIST,"B",RX#,IEN)=""
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Both
Internal entry number from the PATIENT file (#2)
[required]
LIST Both
Subscript name used in the ^TMP global [required]
IEN Input
Internal entry number from the PRESCRIPTION file
(#52) [optional].
RX# Input
RX # field (#.01) from the PRESCRIPTION file (#52)
[optional].
NODE Input
This string variable is used to determine what data
elements from the PRESCRIPTION file (#52) are returned.

If NODE is passed in null, all possible pre-defined data elements are
returned. [optional]
EDATE Input
EXPIRATION DATE field (#26) from the PRESCRIPTION
file (#52) using the ^PS(55,Patient,"P","A",Expiration Date,DA)
cross-reference from PHARMACY PATIENT file (#55) when prescriptions are
requested within a date range.  [optional]
SDATE Input
EXPIRATION DATE field (#26) from the PRESCRIPTION
file (#52) using the ^PS(55,Patient,"P","A",Expiration Date,DA)
cross-reference from PHARMACY PATIENT file (#55) when prescriptions are
requested within a date range.  [optional]
PROF(DFN,LIST,SDATE,EDATE)

PROF^PSO52API(DFN,LIST,SDATE,EDATE)

Input:
DFN
LIST
SDATE
EDATE

Where:
DFN = IEN from the PATIENT file (#2) [required]
LIST = Subscript name used in the ^TMP global [required]
SDATE = Starting Expiration Date [optional]
EDATE = Ending Expiration Date [optional]

Note: If patient does not have any prescriptions, but has archived
prescriptions, a ^TMP($J,LIST,DFN,"ARC")="PATIENT HAS ARCHIVED PRESCRIPTION"
shall be defined. If SDATE is passed in, suspended RXs starting with this date
shall be returned (^PS(55,DFN,"P","A")). If EDATE is passed in, RXs up to and
including this date shall be returned (^PS(55,DFN,"P","A")).

Output:
^TMP($J,LIST,DFN,0)=Total entries returned by patient or -1^NO PRESCRIPTION
DATA FOUND
^TMP($J,LIST,DFN,IEN,.01)=RX #(52,.01)^IEN
^TMP($J,LIST,DFN,IEN,1)=ISSUE DATE (52,1)^External Format (ex: Sep. 12,
1999)
^TMP($J,LIST,DFN,IEN,2)=PATIENT (52,2)^NAME (2,.01)
^TMP($J,LIST,DFN,IEN,3)=PATIENT STATUS (52,3)^NAME (53,.01)
^TMP($J,LIST,DFN,IEN,4)=PROVIDER (52,4)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,5)=CLINIC (52,5)^NAME (44,.01)
^TMP($J,LIST,DFN,IEN,6)=DRUG (52,6)^GENERIC NAME (50,.01)
^TMP($J,LIST,DFN,IEN,6.5)=TRADE NAME (52,6.5)
^TMP($J,LIST,DFN,IEN,7)=QTY (52,7)
^TMP($J,LIST,DFN,IEN,8)=DAYS SUPPLY (52,8)
^TMP($J,LIST,DFN,IEN,9)=# OF REFILLS (52,9)
^TMP($J,LIST,DFN,IEN,10.3)=ORDER CONVERTED (52,10.3) ^External Format for
the Set of Codes
^TMP($J,LIST,DFN,IEN,10.6)=COPIES (52,10.6)
^TMP($J,LIST,DFN,IEN,11)=MAIL/WINDOW (52,11)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,IEN,16)=ENTERED BY (52,16)^NAME (200,.01)
^TMP($J,LIST,DFN,IEN,17)=UNIT PRICE OF DRUG (52,17)
^TMP($J,LIST,DFN,IEN,100)=STATUS (52,100)^External Format for the Set of
Codes
^TMP($J,LIST,DFN,"ARC")="PATIENT HAS ARCHIVED PRESCRIPTION"
^TMP($J,LIST,"B",RX #,IEN)=""
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Both
Internal entry number from the PATIENT file (#2)
[required].
LIST Both
Subscript name used in the ^TMP global [required]
SDATE Input
EXPIRATION DATE field (#26) from the PRESCRIPTION
file (#52) using the ^PS(55,Patient,"P","A",Expiration Date,DA)
cross-reference from PHARMACY PATIENT file (#55) when prescriptions are
requested within a date range.  [optional]
EDATE Input
EXPIRATION DATE field (#26) from the PRESCRIPTION
file (#52) using the ^PS(55,Patient,"P","A",Expiration Date,DA)
cross-reference from PHARMACY PATIENT file (#55) when prescriptions are
requested within a date range.  [optional]
DATE ACTIVATED 2007/03/04