source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY10.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 993 bytes
Line 
1ORY10 ; SLC/KCM - Patch 10 conversions ;03:16 PM 2 Sep 1998
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
3 ;
4AUTACK ; 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
15SENDPAR(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
Note: See TracBrowser for help on using the repository browser.