Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORXD

ORXD.m

Go to the documentation of this file.
  1. 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
  1. DISABLE(PKG,MSG) ; -- Disable all dialogs for PKG
  1. Q:'$G(PKG) S:'$L($G(MSG)) MSG=$$GET1^DIQ(9.4,+PKG_",",.01)_" disabled."
  1. D LOOP
  1. Q
  1. ;
  1. ENABLE(PKG) ; -- Enable all dialogs for PKG
  1. Q:'$G(PKG) N MSG S MSG="" D LOOP
  1. Q
  1. ;
  1. LOOP ; -- loop thru all PKG dlgs, set MSG
  1. N IFN S IFN=0
  1. 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)
  1. Q
  1. ;
  1. MSG(IFN) ; -- Returns 1^Message if dialog IFN is out of order
  1. N X,Y S X=$P($G(^ORD(101.41,IFN,0)),U,3),Y=$S($L(X):"1^"_X,1:0)
  1. Q Y
  1. ;
  1. SAVE ; -- Save off OR* variables
  1. N I Q:'$G(ORVP)
  1. 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
  1. Q
  1. ;
  1. RSTR ; -- Restore OR* variables
  1. N I Q:'$D(^TMP("OROLD",$J))
  1. S I="OR" F S I=$O(^TMP("OROLD",$J,I)) Q:I'?1"OR".E S @I=^(I)
  1. K ^TMP("OROLD",$J)
  1. Q