source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORX.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1ORX ; slc/dcm - OE/RR old entry points ;12/26/96 09:49
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3FILE ;No longer a valid entry point for filing orders
4 ;Calls to this entry point will not file an order and will
5 ;generate an error in the OE/RR Error file.
6 S ORIFN=""
7 D ERR("FILE~ORX")
8 Q
9RETURN ;No longer a valid entry point for updating orders.
10 ;Calls to this entry point will not update an order and will
11 ;generate an error in the OE/RR Error file.
12 D ERR("RETURN~ORX")
13 Q
14ST ;No longer a valid entry point for updating orders.
15 ;Calls to this entry point will not update an order and will
16 ;generate an error in the OE/RR Error file.
17 D ERR("ST~ORX")
18 Q
19ERR(TXT) ;Generates an error for call to invalid entry points
20 ;TXT=Name of invalid entry point
21 Q:'$P($G(^ORD(100.99,1,0)),"^",8) ;Only file if DEBUG on
22 N X,PKG,VAR S:'$D(TXT) TXT=""
23 I $G(ORIFN) S X=$G(^OR(100,+ORIFN,0)),PKG=$P(X,"^",14)
24 I '$G(PKG) D
25 . I $G(ORNS) S PKG=ORNS Q
26 . I $G(ORPCL),$L($P(ORPCL,";",2)),$D(@("^"_$P(ORPCL,";",2)_+ORPCL_",0)")),$P(^(0),"^",12) S PKG=$P(^(0),"^",12) Q
27 S PKG=$P($G(^DIC(9.4,+$G(PKG),0)),"^"),TXT=$S($L(PKG):PKG,1:"UNKNOWN")_" package called "_TXT,VAR("XQY0")=""
28 D EN^ORERR(TXT,,.VAR)
29 Q
Note: See TracBrowser for help on using the repository browser.