ORXD ;SLC/MKB-OE/RR Order Dialog entry points ;3/25/97 09:46
;;3.0;ORDER ENTRY/RESULTS REPORTING;**4**;Dec 17, 1997
DISABLE(PKG,MSG) ; -- Disable all dialogs for PKG
Q:'$G(PKG) S:'$L($G(MSG)) MSG=$$GET1^DIQ(9.4,+PKG_",",.01)_" disabled."
D LOOP
Q
;
ENABLE(PKG) ; -- Enable all dialogs for PKG
Q:'$G(PKG) N MSG S MSG="" D LOOP
Q
;
LOOP ; -- loop thru all PKG dlgs, set MSG
N IFN S IFN=0
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)
Q
;
MSG(IFN) ; -- Returns 1^Message if dialog IFN is out of order
N X,Y S X=$P($G(^ORD(101.41,IFN,0)),U,3),Y=$S($L(X):"1^"_X,1:0)
Q Y
;
SAVE ; -- Save off OR* variables
N I Q:'$G(ORVP)
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
Q
;
RSTR ; -- Restore OR* variables
N I Q:'$D(^TMP("OROLD",$J))
S I="OR" F S I=$O(^TMP("OROLD",$J,I)) Q:I'?1"OR".E S @I=^(I)
K ^TMP("OROLD",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXD 1034 printed Oct 16, 2024@18:38:31 Page 2
ORXD ;SLC/MKB-OE/RR Order Dialog entry points ;3/25/97 09:46
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**4**;Dec 17, 1997
DISABLE(PKG,MSG) ; -- Disable all dialogs for PKG
+1 if '$GET(PKG)
QUIT
if '$LENGTH($GET(MSG))
SET MSG=$$GET1^DIQ(9.4,+PKG_",",.01)_" disabled."
+2 DO LOOP
+3 QUIT
+4 ;
ENABLE(PKG) ; -- Enable all dialogs for PKG
+1 if '$GET(PKG)
QUIT
NEW MSG
SET MSG=""
DO LOOP
+2 QUIT
+3 ;
LOOP ; -- loop thru all PKG dlgs, set MSG
+1 NEW IFN
SET IFN=0
+2 FOR
SET IFN=$ORDER(^ORD(101.41,"APKG",PKG,IFN))
if IFN'>0
QUIT
SET $PIECE(^ORD(101.41,IFN,0),U,3)=$EXTRACT(MSG,1,40)
+3 QUIT
+4 ;
MSG(IFN) ; -- Returns 1^Message if dialog IFN is out of order
+1 NEW X,Y
SET X=$PIECE($GET(^ORD(101.41,IFN,0)),U,3)
SET Y=$SELECT($LENGTH(X):"1^"_X,1:0)
+2 QUIT Y
+3 ;
SAVE ; -- Save off OR* variables
+1 NEW I
if '$GET(ORVP)
QUIT
+2 FOR I="ORVP","ORPNM","ORSSN","ORDOB","ORAGE","ORSEX","ORTS","ORWARD","ORATTEND","ORSC","ORNP","ORL","ORL(0)","ORL(1)","ORTAB","ORMENU"
IF $DATA(@I)
SET ^TMP("OROLD",$JOB,I)=@I
+3 QUIT
+4 ;
RSTR ; -- Restore OR* variables
+1 NEW I
if '$DATA(^TMP("OROLD",$JOB))
QUIT
+2 SET I="OR"
FOR
SET I=$ORDER(^TMP("OROLD",$JOB,I))
if I'?1"OR".E
QUIT
SET @I=^(I)
+3 KILL ^TMP("OROLD",$JOB)
+4 QUIT
