# ORWDXC ACCEPT

Return list of Order Checks on Accept Order.

## Properties

Property Value
Label ACCEPT
MUMPS Implementation ORWDXC
Return Type ARRAY

## MUMPS Method Description

Property Value
Method ACCEPT^ORWDXC
Method Comment Return list of Order Checks on Accept Order
Input Parameters DFN, FID, STRT, ORL, OIL, ORIFN, ORREN
Code
`` K ^TMP(\$J,"OROCOUTO;"),^TMP(\$J,"OROCOUTI;"),^TMP(\$J,"ORDSGCHK_CACHE") K ^TMP(\$J,"ORENHCHK") N X,Y,USID,ORCHECK,ORI,ORX,ORY,%DT,ORDODSG S ORL=ORL_";SC(",X=STRT,STRT="",ORDODSG=0 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 . Q:'OIL(ORI) . S USID=\$\$USID(OIL(ORI)) . S OIL(ORI,"USID")=USID . S ORX=ORX+1,ORX(ORX)=+OIL(ORI)_"/"_FID_"/"_USID . S:\$P(OIL(ORI),U,2)="PSIV" \$P(ORX(ORX),"/",7)=\$P(\$P(OIL(ORI),U,3),";") D EN^ORKCHK(.ORY,DFN,.ORX,"SELECT",.OIL,.ORDODSG) I \$D(ORY) D RETURN^ORCHECK ; expects ORY, ORCHECK K ORX,ORY S (ORI,ORX)=0 F  S ORI=\$O(OIL(ORI)) Q:'ORI  D . Q:'OIL(ORI) . S ORX=ORX+1 . S ORX(ORX)=+OIL(ORI)_"/"_FID_"/"_OIL(ORI,"USID")_"/"_STRT . S:\$P(OIL(ORI),U,2)="LR" \$P(ORX(ORX),"/",6)=\$P(OIL(ORI),U,3) D EN^ORKCHK(.ORY,DFN,.ORX,"ACCEPT",.OIL,.ORDODSG) I \$D(ORY) D RETURN^ORCHECK   ; expects ORY, ORCHECK D FDBDOWN^ORCHECK(0) D OPOS(DFN) 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