| [613] | 1 | ORXD ;SLC/MKB-OE/RR Order Dialog entry points ;3/25/97 09:46
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**4**;Dec 17, 1997
|
|---|
| 3 | DISABLE(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 | ;
|
|---|
| 8 | ENABLE(PKG) ; -- Enable all dialogs for PKG
|
|---|
| 9 | Q:'$G(PKG) N MSG S MSG="" D LOOP
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | LOOP ; -- 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 | ;
|
|---|
| 17 | MSG(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 | ;
|
|---|
| 21 | SAVE ; -- 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 | ;
|
|---|
| 26 | RSTR ; -- 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
|
|---|
