ORY10.m

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 ---ORY10   1021     printed  Apr 09, 2024@21:42:15                                                                                                                                                                                                       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