VistA Analysis » VistA Reference » RPCs » ORWDXC SESSION

ORWDXC SESSION

Return list of order checks on release of order.

Properties

Property Value
Label SESSION
MUMPS Implementation ORWDXC
Return Type ARRAY

MUMPS Method Description

Property Value
Method SESSION^ORWDXC
Method Comment Return list of Order Checks on Release Order
Input Parameters ORVP, ORLST
Code 
 K ^TMP($J,"OROCOUTO;"),^TMP($J,"OROCOUTI;"),^TMP($J,"DD")
 N ORES,ORCHECK
 S ORVP=+ORVP_";DPT("
 S I=0 F  S I=$O(ORLST(I)) Q:'I  D
 . I +$P(ORLST(I),";",2)'=1 Q  ; order not new
 . I $P(ORLST(I),U,3)="0" Q    ; order not being released
 . S ORES($P(ORLST(I),U))=""
 D SESSION^ORCHECK
 D OPOS(+ORVP)
 D CHK2LST
 D CHECKIT(.LST)
 K ^TMP($J,"OROCOUTO;"),^TMP($J,"OROCOUTI;"),^TMP($J,"DD")

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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