| PSODFN |
Input |
Patient IEN
|
PSODSULS |
Input |
Literal
|
PSODSUOI |
Input |
Orderable Item array in format of PSODSUOI(n)=IEN
(#50.7) ^ Orderable item name
|
PSODSUTY |
Input |
P1;P2 where P1 is dialogue ("I" for IV, U for Unit Dose, "O" for Outpatient,
"N" for Non-VA Meds (required)), P2=Pharm order# (optional)
|
PSODSUAG |
Input |
If 1, indicates TMP global from CPRS^PSODDPR4 call
still exists, and add to it
|
TMP($J,DD,PSODSUDC,0) |
Output |
This TMP global node is set to provide duplicate drug
entries to CPRS.
^TMP($J,"DD",PSODSUDC,0)=PSODSUII_"^"_PSODSUNN_"^"
_$P(^TMP($J,"ORDERS",PS O DSUDM),"^",4)
_"^"_$P(^TMP($J,"ORDERS",PSODSUDM),"^",5)
Where:
PSODSUDC = Counter
Piece 1 = IEN for DRUG file (#50)
Piece 2 = GENERIC NAME field (#.01)
from file DRUG file (#50)
Piece 3 = ORDER NUMBER IN OR(100
Piece 4 = ORDER NUMBER_";I"
Where ORDER NUMBER can Inpatient
Meds, Non-VA Meds,
Outpatient, etc.
|
TMP($J,PSODSULS,A,B,ON) |
Output |
This TMP global is defined to set the prospective
node for duplicate supply checks for CPRS.
^TMP($J,PSODSULS,A,B,ON)=PSOSPRQN_"^"_+PSOSPRID_"^"
_PSODSUII_"^"_$G(PSODS U NN)
Where:
PSODSULS = is a literal
A = "IN"
B = "PROSPECTIVE"
ON = unique identifier consisting of:
piece 1 = where P1 is dialogue ("I" for
IV, U for Unit Dose, "O" for
Outpatient, "N" for Non-VA
Meds (required))
piece 2 = P2=Pharm order# (optional)
piece 3 = "PROSPECTIVE"
piece 4 = Counter
PSOSPRQN = GCNSEQNO field (#11) from VA
PRODUCT file (#50.68)
PSOSPRID = VUID field (#99.99) from VA
PRODUCT file (#50.68)
PSODSUII = IEN for DRUG file (#50)
PSODSUNN = GENERIC NAME field (#.01)
from DRUG file (#50)
|