VistA Analysis » VistA Reference » RPCs » ORWOR VWGET

ORWOR VWGET

Retrieves the user’s default view for the orders tab.

Properties

Property Value
Label VWGET
MUMPS Implementation ORWOR
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method VWGET^ORWOR
Method Comment Get the preferred view for orders
Code
 N FROM,THRU,FILTER,DGRP,FRMT,CHRN,BYGRP,S,VNAME,FL,I
S REC=$$GET^XPAR("ALL","ORCH CONTEXT ORDERS",1,"I"),S=";"
S FROM=$$DT($P(REC,S)),THRU=$$DT($P(REC,S,2)),FILTER=$P(REC,S,3)
S DGRP=$P(REC,S,4),FRMT=$P(REC,S,5),CHRN=$P(REC,S,6),BYGRP=$P(REC,S,7)
S:'$L(DGRP) DGRP="ALL" S DGRP=+$O(^ORD(100.98,"B",DGRP,0))
I FILTER="" S FILTER=2 ; active orders
I CHRN="" S CHRN="R" ; reverse chronological
I BYGRP="" S BYGRP=1 ; sort by display group
D REVSTS^ORWORDG(.FL)
S I=0 F S I=$O(FL(I)) Q:'I Q:+FL(I)=FILTER
S VNAME=$P($G(FL(+I)),U,2)
I '("^6^8^9^10^19^20^"[(U_FILTER_U)) S VNAME=VNAME_" Orders"
I FILTER=2 S VNAME="Active Orders (includes Pending & Recent Activity)"
I FILTER=23 S VNAME="Current Orders (Active & Pending Status Only)"
S VNAME=VNAME_" - "_$P($G(^ORD(100.98,DGRP,0)),U)
I (FROM>0)!(THRU>0) D
. S VNAME=VNAME_" ("_$$FMTE^XLFDT(FROM,"2D")_" thru "
. S VNAME=VNAME_$S(THRU>0:$$FMTE^XLFDT(THRU,"2D"),1:"")_")"
S REC=FROM_S_THRU_S_FILTER_S_DGRP_S_FRMT_S_CHRN_S_BYGRP_S_VNAME

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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