VistA Analysis » VistA Reference » RPCs » ORWDXC DELAY

ORWDXC DELAY

Return list or order checks on accept delayed orders.

Properties

Property Value
Label DELAY
MUMPS Implementation ORWDXC
Return Type ARRAY

MUMPS Method Description

Property Value
Method DELAY^ORWDXC
Method Comment Return list of Order Checks on Accept Delayed
Input Parameters DFN, FID, STRT, ORL, OIL
Code 
 K ^TMP($J,"OROCOUTO;"),^TMP($J,"OROCOUTI;"),^TMP($J,"DD"),^TMP($J,"ORDSGCHK_CACHE")
 N X,Y,ORCHECK,ORI,ORX,ORY,%DT
 S ORL=ORL_";SC(",X=STRT,STRT=""
 D:X="AM" AM^ORCSAVE2 D:X="NEXT" NEXT^ORCSAVE2
 I $L(X) S %DT="FTX" D ^%DT S:Y'>0 Y="" S STRT=Y
 S (ORI,ORX)=0 F  S ORI=$O(OIL(ORI)) Q:'ORI  D
 . S ORX=ORX+1
 . S ORX(ORX)=+OIL(ORI)_"/"_FID_"/"_$$USID(OIL(ORI))_"/"_STRT
 . I $P(OIL(ORI),U,2)="LR" S $P(ORX(ORX),"/",6)=$P(OIL(ORI),U,3)
 D EN^ORKCHK(.ORY,DFN,.ORX,"ALL",.OIL)
 I $D(ORY) D RETURN^ORCHECK   ; expects ORY, ORCHECK
 D CHK2LST
 K ^TMP($J,"OROCOUTO;"),^TMP($J,"OROCOUTI;"),^TMP($J,"DD"),^TMP($J,"ORDSGCHK_CACHE")

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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