| 1 | ORY10 ; SLC/KCM - Patch 10 conversions ;03:16 PM 2 Sep 1998
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | AUTACK ; setup the initial auto-accept values for quick orders
|
|---|
| 5 | N IEN,OLD,TYP,VER,X0
|
|---|
| 6 | S ^XTMP("ORY10",0)=$$FMADD^XLFDT(DT,30)_U_DT_U_"ORY10 conversion"
|
|---|
| 7 | S IEN=0 F S IEN=$O(^ORD(101.41,IEN)) Q:'IEN D
|
|---|
| 8 | . S OLD=$P($G(^ORD(101.41,IEN,5)),U,8)
|
|---|
| 9 | . I $L(OLD),(OLD'=1) S ^XTMP("ORY10",IEN)=OLD
|
|---|
| 10 | . S X0=$G(^ORD(101.41,IEN,0))
|
|---|
| 11 | . S TYP=$P(X0,U,4),VER=$P(X0,U,8)
|
|---|
| 12 | . Q:TYP'="Q" Q:VER=1
|
|---|
| 13 | . I $$ALLRSP^ORWDXM(IEN) S $P(^ORD(101.41,IEN,5),U,8)=1
|
|---|
| 14 | Q
|
|---|
| 15 | SENDPAR(ANAME) ; Return true if the current parameter should be sent
|
|---|
| 16 | I ANAME="ORCH INITIAL TAB" Q 1
|
|---|
| 17 | I ANAME="ORCH USE LAST TAB" Q 1
|
|---|
| 18 | I ANAME="ORWCH BOUNDS" Q 1
|
|---|
| 19 | I ANAME="ORWCH FONT SIZE" Q 1
|
|---|
| 20 | I ANAME="ORWT TOOLS MENU" Q 1
|
|---|
| 21 | I $E(ANAME,1,5)="ORWOR" Q 1
|
|---|
| 22 | I $E(ANAME,1,5)="ORWDQ" Q 1
|
|---|
| 23 | I $E(ANAME,1,6)="ORWDPS" Q 1
|
|---|
| 24 | I $E(ANAME,1,5)="ORWDX" Q 1
|
|---|
| 25 | I $E(ANAME,1,5)="ORWRP" Q 1
|
|---|
| 26 | I $E(ANAME,1,6)="ORWDP " Q 1
|
|---|
| 27 | I $E(ANAME,1,6)="ORWPCE" Q 1
|
|---|
| 28 | Q 0
|
|---|
