Print Page as PDF
SEND INPT MEDS TO CPRS ICR (2383)

SEND INPT MEDS TO CPRS    ICR (2383)

Name Value
NUMBER 2383
IA # 2383
DATE CREATED 1998/05/07
CUSTODIAL PACKAGE INPATIENT MEDICATIONS
CUSTODIAL ISC Birmingham
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSJORRE
NAME SEND INPT MEDS TO CPRS
GENERAL DESCRIPTION
This call, OCL^PSJORRE, returns the Inpatient
Medications data that is passed to Computerized Patient Record System and used
for display in the CPRS meds screen.
STATUS Active
DURATION Till Otherwise Agreed
ID PSJORRE
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
OCL
Condensed Med list call.

OCL^PSJORRE(DFN,BDT,EDT,TFN,MVIEW):

Passed: DFN - Patient's Internal Pointer
BDT - Date/Time to start search for medications (optional)
EDT - Date/Time to terminate search for medications (optional)
TFN - Entry number to begin using for each order returned.
MVIEW - Sort format for the returned display information (optional)
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
Patient's internal entry number.
BDT Input
Date/Time to start search for medications. (optional)
EDT Input
Date/Time to end search for medications. (optional)
TFN Input
Subscript number to begin using for orders found.
Each orders is placed into ^TMP("PS",$J,TFN).  The variable TFN is incremented
for each order.
TMP('PS',$J,TFN, Output


^TMP("PS",$J,TFN,0)=ORDER #_File;I^DRUG^INFUSION RATE^STOP
DATE^^TOTAL DOSE^UNITS PER DOSE^PLACER #^STATUS^^^^NOT TO BE
GIVEN^PENDING RENEWAL (1 or 0)

FILE: U = unit dose order (file #55, subfile 55.06)
V = IV order (file #55, subfile 55.01)
P = Pending order (file 53.1)

^TMP("PS",$J,TFN,"MDR",0)= # of LINES
^TMP("PS",$J,TFN,"MDR",D1,0)=MED ROUTE ABBR.
^TMP("PS",$J,TFN,"SCH",0)= # of LINES
^TMP("PS",$J,TFN,"SCH",D1,0)=SCHEDULE NAME
^TMP("PS",$J,TFN,"A",0)= # of LINES
^TMP("PS",$J,TFN,"A",D1,0)=ADDITIVE NAME^AMOUNT^BOTTLE
^TMP("PS",$J,TFN,"B",0)= # of LINES
^TMP("PS",$J,TFN,"B",D1,0)=SOLUTION NAME^AMOUNT^PRINT NAME {2}
^TMP("PS",$J,TFN,"P",0)=IEN^.01 of VA 200
^TMP("PS",$J,TFN,"SIG",0)= # of LINES
^TMP("PS",$J,TFN,"SIG",D1,0)=SIG (outpatient) or INSTRUCTIONS (inpatient)
^TMP("PS",$J,TFN,"ADM",0)= # of LINES
^TMP("PS",$J,TFN,"ADM",D1,0)=ADMINISTRATION TIMES Where: administration
time = Free text 2-119 characters
^TMP("PS",$J,TFN,"RMV",0)= # of LINES
^TMP("PS",$J,TFN,"RMV",D1,0)=REMOVAL TIMES
Where:  Removal time = Free text 2-119 characters
^TMP("PS",$J,TFN,"SIO",0)= # of LINES
^TMP("PS",$J,TFN,"SIO",D1,0)=SPECIAL INSTRUCTIONS/OTHER PRINT INFO
(Special instructions = Free text 1-180 characters)
^TMP("PS",$J,TFN,"P",0)=PROVIDER IEN^.01 of VA(200
^TMP("PS",$J,TFN,"IVLIM",0)=IV LIMIT
^TMP("PS",$J,TFN,"CLINIC",0)=CLINIC NUMBER
^TMP("PS",$J,TFN,"IND",0)=INDICATION
OCL Output

Numeric value of 0,1,2,3 or null to denote which
sorting option to print the display in CPRS.  (optional)

0 or null - This provides the medication list as it was prior to CPRS GUI v27
so that other applications calling this API will not see any changes.

1 - Sorts by Status Group, Stop Date/Expiration Date.  Following is the sort
order:

Pending
-------
NON VERIFIED
NON-VERIFIED
PENDING

Active/Hold
-----------
ACTIVE
ON CALL
REFILL
REINSTATED
RENEWED
SUSPENDED
HOLD
PROVIDER HOLD
DONE
DRUG INTERACTIONS

Expired
-------
EXPIRED

Discontinued/Deleted
--------------------
DATE OF DEATH ENTERED
DELETED
DISCONTINUED
DISCONTINUED (EDIT)
DISCONTINUED (RENEWAL)
DISCONTINUED BY PROVIDER
PURGE

2 - Sorts by Status Group, Status Location, Drug Name Alpha Characters.
Following is the sort order:

Active
------
ACTIVE
REFILL
HOLD
SUSPENDED
PROVIDER HOLD
ON CALL

Pending
-------
NON-VERIFIED
DRUG INTERACTIONS
INCOMPLETE
PENDING

Discontinued
------------
DONE
EXPIRED
DISCONTINUED
DELETED
DISCONTINUED BY PROVIDER
DISCONTINUED (EDIT)
REINSTATED
RENEWED

3 - Sorts by Drug (Alphabetically), Status Active, Status Recent, Expired
(using ORCH context meds stop date).

SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
OUTPATIENT PHARMACY Birmingham
DATE ACTIVATED 2008/07/28
MAIL MESSAGE 34591096