| PSOCWORD |
Input |
This is a 2 piece variable, with the ";" character as
the separator. Piece 1 is the CPRS order number from the ORDERS (#100) File.
Piece 2 is either a "P" to indicate the PRESCRIPTION (#52) File, or an "S" to
indicate PENDING OUTPATIENT ORDERS (#52.41) File.
|
PSOCWPFL |
Input |
This parameter is used only for pending orders. If 0,
that indicates that if a Drug Name was removed from the dosage to not show the
removed drug name on the Pending screen when the Pending order is displayed
for finishing, and if 1 show the drug name on the Pending order screen.
|
PSOCWDRY |
Input |
This is the Dry run flag. If 1, then no file changes
are made in Pharmacy, but all the data that is returned if the data was
changed is returned to CPRS for reporting purposes. If 0, then the Pharmacy
file changes are to occur.
|
PSOCWDSQ |
Input |
This is the array of dosing sequences that are to be
cleaned up. For example, if PSOCWDSQ(1) and PSOCWDSQ(3) are defined, then
Pharmacy needs to check dosing sequence 1 and dosing sequence 3 for potential
clean up.
|
PSOCWTXT |
Input |
This is the array name that the return data will be
set into.
|
PSOCWTXT |
Output |
This is the Output returned to CPRS.
For prescriptions:
If there is an error of some sort, the reason is returned in the "ERR" array
node. For example: PSOCWTXT("ERR")=No Dispense Drug found. Clean-Up could not
be performed.
If there is data to clean up, the following is returned:
PSOCWTXT("PHARM")=Prescription number^Issue Date (VA FileMan format)^Status
(In external format) PSOCWTXT("PHARM","DISP")=Drug Name^Internal Entry number
of Drug Note: For a prescription, there should always be a DRUG (#50) File
Entry with the prescription, which is what the "DISP" values contain. Just in
case there is no DRUG (#50) File entry, the "DISP" values will be from the
PHARMACY ORDERABLE ITEM (#50.7) File. PSOCWTXT("PHARM","DOSE",#)=Old
Dosage^New Dosage Note" The '#' subscript in the array represents the dosing
sequence. PSOCWTXT("PHARM","SIG")=Old Sig^New Sig
If there are no errors and there is nothing to clean-up, then nothing is
returned.
For Pending orders:
If there is an error of some sort, the reason is returned in the "ERR" array
node. For example: PSOCWTXT("ERR")=Pharmacy record not found
If there is data to clean up the following is returned:
PSOCWTXT("PHARM")=P12345^Effective Date (VA FileMan Format)^PENDING Note:
Piece 1 is the letter P followed by the Internal Entry Number from the PENDING
OUTPATIENT ORDERS (#52.41) File. PSOCWTXT("PHARM","DISP")=Drug Name^Internal
Entry number of Drug Note: If there is a DRUG (#50) File Entry with the
Pending Order, that is what the "DISP" values contain. If there is no DRUG
(#50) File entry, the "DISP" values are from the PHARMACY ORDERABLE ITEM
(#50.7) File. PSOCWTXT("PHARM","DOSE",#)=Old Dosage^New Dosage Note: The '#'
subscript in the array represents the dosing sequence.
PSOCWTXT("PHARM","SIG")=Old Sig^New Sig
If there are no errors and there is nothing to clean-up, then nothing is
returned.
|
