source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORXD.m

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

initial load of WorldVistAEHR

File size: 1004 bytes
Line 
1ORXD ;SLC/MKB-OE/RR Order Dialog entry points ;3/25/97 09:46
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**4**;Dec 17, 1997
3DISABLE(PKG,MSG) ; -- Disable all dialogs for PKG
4 Q:'$G(PKG) S:'$L($G(MSG)) MSG=$$GET1^DIQ(9.4,+PKG_",",.01)_" disabled."
5 D LOOP
6 Q
7 ;
8ENABLE(PKG) ; -- Enable all dialogs for PKG
9 Q:'$G(PKG) N MSG S MSG="" D LOOP
10 Q
11 ;
12LOOP ; -- loop thru all PKG dlgs, set MSG
13 N IFN S IFN=0
14 F S IFN=$O(^ORD(101.41,"APKG",PKG,IFN)) Q:IFN'>0 S $P(^ORD(101.41,IFN,0),U,3)=$E(MSG,1,40)
15 Q
16 ;
17MSG(IFN) ; -- Returns 1^Message if dialog IFN is out of order
18 N X,Y S X=$P($G(^ORD(101.41,IFN,0)),U,3),Y=$S($L(X):"1^"_X,1:0)
19 Q Y
20 ;
21SAVE ; -- Save off OR* variables
22 N I Q:'$G(ORVP)
23 F I="ORVP","ORPNM","ORSSN","ORDOB","ORAGE","ORSEX","ORTS","ORWARD","ORATTEND","ORSC","ORNP","ORL","ORL(0)","ORL(1)","ORTAB","ORMENU" I $D(@I) S ^TMP("OROLD",$J,I)=@I
24 Q
25 ;
26RSTR ; -- Restore OR* variables
27 N I Q:'$D(^TMP("OROLD",$J))
28 S I="OR" F S I=$O(^TMP("OROLD",$J,I)) Q:I'?1"OR".E S @I=^(I)
29 K ^TMP("OROLD",$J)
30 Q
Note: See TracBrowser for help on using the repository browser.