ORY10 ; SLC/KCM - Patch 10 conversions ;03:16 PM 2 Sep 1998
;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
;
AUTACK ; setup the initial auto-accept values for quick orders
N IEN,OLD,TYP,VER,X0
S ^XTMP("ORY10",0)=$$FMADD^XLFDT(DT,30)_U_DT_U_"ORY10 conversion"
S IEN=0 F S IEN=$O(^ORD(101.41,IEN)) Q:'IEN D
. S OLD=$P($G(^ORD(101.41,IEN,5)),U,8)
. I $L(OLD),(OLD'=1) S ^XTMP("ORY10",IEN)=OLD
. S X0=$G(^ORD(101.41,IEN,0))
. S TYP=$P(X0,U,4),VER=$P(X0,U,8)
. Q:TYP'="Q" Q:VER=1
. I $$ALLRSP^ORWDXM(IEN) S $P(^ORD(101.41,IEN,5),U,8)=1
Q
SENDPAR(ANAME) ; Return true if the current parameter should be sent
I ANAME="ORCH INITIAL TAB" Q 1
I ANAME="ORCH USE LAST TAB" Q 1
I ANAME="ORWCH BOUNDS" Q 1
I ANAME="ORWCH FONT SIZE" Q 1
I ANAME="ORWT TOOLS MENU" Q 1
I $E(ANAME,1,5)="ORWOR" Q 1
I $E(ANAME,1,5)="ORWDQ" Q 1
I $E(ANAME,1,6)="ORWDPS" Q 1
I $E(ANAME,1,5)="ORWDX" Q 1
I $E(ANAME,1,5)="ORWRP" Q 1
I $E(ANAME,1,6)="ORWDP " Q 1
I $E(ANAME,1,6)="ORWPCE" Q 1
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY10 1021 printed Oct 16, 2024@18:38:47 Page 2
ORY10 ; SLC/KCM - Patch 10 conversions ;03:16 PM 2 Sep 1998
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
+2 ;
AUTACK ; setup the initial auto-accept values for quick orders
+1 NEW IEN,OLD,TYP,VER,X0
+2 SET ^XTMP("ORY10",0)=$$FMADD^XLFDT(DT,30)_U_DT_U_"ORY10 conversion"
+3 SET IEN=0
FOR
SET IEN=$ORDER(^ORD(101.41,IEN))
if 'IEN
QUIT
Begin DoDot:1
+4 SET OLD=$PIECE($GET(^ORD(101.41,IEN,5)),U,8)
+5 IF $LENGTH(OLD)
IF (OLD'=1)
SET ^XTMP("ORY10",IEN)=OLD
+6 SET X0=$GET(^ORD(101.41,IEN,0))
+7 SET TYP=$PIECE(X0,U,4)
SET VER=$PIECE(X0,U,8)
+8 if TYP'="Q"
QUIT
if VER=1
QUIT
+9 IF $$ALLRSP^ORWDXM(IEN)
SET $PIECE(^ORD(101.41,IEN,5),U,8)=1
End DoDot:1
+10 QUIT
SENDPAR(ANAME) ; Return true if the current parameter should be sent
+1 IF ANAME="ORCH INITIAL TAB"
QUIT 1
+2 IF ANAME="ORCH USE LAST TAB"
QUIT 1
+3 IF ANAME="ORWCH BOUNDS"
QUIT 1
+4 IF ANAME="ORWCH FONT SIZE"
QUIT 1
+5 IF ANAME="ORWT TOOLS MENU"
QUIT 1
+6 IF $EXTRACT(ANAME,1,5)="ORWOR"
QUIT 1
+7 IF $EXTRACT(ANAME,1,5)="ORWDQ"
QUIT 1
+8 IF $EXTRACT(ANAME,1,6)="ORWDPS"
QUIT 1
+9 IF $EXTRACT(ANAME,1,5)="ORWDX"
QUIT 1
+10 IF $EXTRACT(ANAME,1,5)="ORWRP"
QUIT 1
+11 IF $EXTRACT(ANAME,1,6)="ORWDP "
QUIT 1
+12 IF $EXTRACT(ANAME,1,6)="ORWPCE"
QUIT 1
+13 QUIT 0
