Routine: PSJORRN

Information

PSJORRN ;BIR/MV - RETURN INPATIENT ACTIVE MEDS (CONDENSED) NEW SORT ;Jun 17, 2020@13:03:40

Source file <PSJORRN.m>

Name	Comments	DBIA/ICR reference
OCL(DFN,BDT,EDT,TFN)	; return condensed list of inpat meds ; MVIEW=2 - This is the new sort with GUI 27 ; Execute this section if MVIEW=2
UDTMP	;*** Set ^TMP for Unit dose orders.
IVTMP	;*** Set ^TMP for IV orders.
STAT(Y,X)	;* Return the full status instead of just the code for U/D.
TYPE	;determine if this is an IMO order or not