ORXD.m

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 ---ORXD   1034     printed  Apr 09, 2024@21:28:29                                                                                                                                                                                                        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