- 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 Mar 13, 2025@21:43:13 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
