Routine: PSJBCMA

Information

PSJBCMA ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) ; 5/4/16 10:51am

Source file <PSJBCMA.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BDT,OTDATE)		ICR #2828 Status: Active Usage: Private
ORDER	;Loop thru orders.
UDVAR	;Set ^TMP for Unit dose & Pending orders
IVVAR	;Set variables for IV and pending orders
UDPEND	;
TMP	;Setup ^TMP that have common fields between IV and U/D
SIOPI	; Use provider comments if order is pending and there is no SI
ENSET(X)	; expands SPECIAL INSTRUCTIONS field contained in X into Y
ONE(DFN,ORD,SCH,START,STOP)	;Determine if order is one-time, and return schedule type ; Input: DFN - patient's IEN ; ORD - order number ; SCH - schedule text (required) ; START - order start date (optional) ; STOP - order stop date (optional)
CLINIC(CL)	; is a valid appointment date present? 1=yes 0 =no
CLINICS(CL,IGNOSND)	;IM & CO order tests *70 ; Send IM orders always. Send Clinic orders as CO order, if it ; meets below conditions, else send the order over as a IM order.
DAY(SCH)	;determine if this is a 'day of the week' schedule
ONCALL(SCHD)	; Check if a schedule is type On Call (all "APPSJ" schedules with a given name must have the same schedule type)
HRFLG(IEN,ADDSOL)	;Get High Risk flag for this Orderable Item