# ORWOR SHEETS

Returns order sheets for a patient.

## Properties

Property Value
Label SHEETS
MUMPS Implementation ORWOR
Return Type ARRAY

## MUMPS Method Description

Property Value
Method SHEETS^ORWOR
Method Comment Return Order Sheets for a patient
Input Parameters ORVP
Code
`` N ELST,ETYP,ORIFN,TS,I S ORVP=ORVP_";DPT(" S ETYP="" F  S ETYP=\$O(^OR(100,"AEVNT",ORVP,ETYP)) Q:ETYP=""  D . S ORIFN=0 F  S ORIFN=\$O(^OR(100,"AEVNT",ORVP,ETYP,ORIFN)) Q:'ORIFN  D . . I (ETYP="A")!(ETYP="T") S ELST(ETYP,\$P(\$G(^OR(100,+ORIFN,0)),U,13))="" S LST(1)="C;O^Current View",I=1 S TS="" F  S TS=\$O(ELST("A",TS)) Q:TS=""  D . S I=I+1,LST(I)="A;"_TS_U_"Admit to "_\$P(\$G(^DIC(45.7,TS,0)),U) S I=I+1,LST(I)="A;-1^Admit..." S TS="" F  S TS=\$O(ELST("T",TS)) Q:TS=""  D . S I=I+1,LST(I)="T;"_TS_U_"Transfer to "_\$P(\$G(^DIC(45.7,TS,0)),U) I \$L(\$G(^DPT(+ORVP,.1))) D . S I=I+1,LST(I)="T;-1^Transfer..." . S I=I+1,LST(I)="D;0^Discharge"``

## CPRS

File Type Description
Pascal File Orders/rOrders.pas

Document generated on August 31st 2022, 2:55:43 pm