DG1053P ;MNT/BJR - REINSTATE DGRU INPT PROTOCOL ; Apr 12, 2021@15:56
;;5.3;Registration;**1053**;Aug 13, 1993;Build 4
;
Q
;References to $$ADD^XPDPROT supported by ICR #5567
;References to OUT^XPDPROT supported by ICR #5567
;References to BMES^XPDUTL supported by ICR #10141
;
;
EN ;Entry point for DG*5.3*1053 Post Install routine
D ENPROT
D ADDPROT
Q
ADDPROT ;Delete Protocol from List Protocol
N DGOM,DGMN,DGPROT,DGCHK,DGOP,DGTEXT,XQORM
F DGOM=1:1 S DGMN=$P($TEXT(MENLST+DGOM),";;",2) Q:DGMN="$$END" D
.F DGOP=1:1 S DGPROT=$P($TEXT(PROLST+DGOP),";;",2) Q:DGPROT="$$END" D
..S DGCHK=$$ADD^XPDPROT(DGMN,DGPROT,,5)
..I DGCHK S DGTEXT="The "_DGPROT_" protocol has been added to the "_DGMN_" protocol menu." D BMES^XPDUTL(DGTEXT)
..I 'DGCHK S DGTEXT="The "_DGPROT_" protocol could not be added the "_DGMN_" protocol menu." D BMES^XPDUTL(DGTEXT)
Q
;
ENPROT ;Enable Protocols
N DGPRTL,DGPR,DGTEXT
F DGPR=1:1 S DGPRTL=$P($TEXT(ADDLST+DGPR),";;",2) Q:DGPRTL="$$END" D
.D OUT^XPDPROT(DGPRTL,"@")
.S DGTEXT="The "_DGPRTL_" protocol has been enabled." D BMES^XPDUTL(DGTEXT)
Q
MENLST ;Protocol list
;;DGPM MOVEMENT EVENTS
;;$$END
;
PROLST ;Protocol List
;;DGRU INPATIENT CAPTURE
;;$$END
;
ADDLST ;Protocols to Disable
;;DGRU INPATIENT CAPTURE
;;$$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG1053P 1319 printed Dec 13, 2024@02:35:11 Page 2
DG1053P ;MNT/BJR - REINSTATE DGRU INPT PROTOCOL ; Apr 12, 2021@15:56
+1 ;;5.3;Registration;**1053**;Aug 13, 1993;Build 4
+2 ;
+3 QUIT
+4 ;References to $$ADD^XPDPROT supported by ICR #5567
+5 ;References to OUT^XPDPROT supported by ICR #5567
+6 ;References to BMES^XPDUTL supported by ICR #10141
+7 ;
+8 ;
EN ;Entry point for DG*5.3*1053 Post Install routine
+1 DO ENPROT
+2 DO ADDPROT
+3 QUIT
ADDPROT ;Delete Protocol from List Protocol
+1 NEW DGOM,DGMN,DGPROT,DGCHK,DGOP,DGTEXT,XQORM
+2 FOR DGOM=1:1
SET DGMN=$PIECE($TEXT(MENLST+DGOM),";;",2)
if DGMN="$$END"
QUIT
Begin DoDot:1
+3 FOR DGOP=1:1
SET DGPROT=$PIECE($TEXT(PROLST+DGOP),";;",2)
if DGPROT="$$END"
QUIT
Begin DoDot:2
+4 SET DGCHK=$$ADD^XPDPROT(DGMN,DGPROT,,5)
+5 IF DGCHK
SET DGTEXT="The "_DGPROT_" protocol has been added to the "_DGMN_" protocol menu."
DO BMES^XPDUTL(DGTEXT)
+6 IF 'DGCHK
SET DGTEXT="The "_DGPROT_" protocol could not be added the "_DGMN_" protocol menu."
DO BMES^XPDUTL(DGTEXT)
End DoDot:2
End DoDot:1
+7 QUIT
+8 ;
ENPROT ;Enable Protocols
+1 NEW DGPRTL,DGPR,DGTEXT
+2 FOR DGPR=1:1
SET DGPRTL=$PIECE($TEXT(ADDLST+DGPR),";;",2)
if DGPRTL="$$END"
QUIT
Begin DoDot:1
+3 DO OUT^XPDPROT(DGPRTL,"@")
+4 SET DGTEXT="The "_DGPRTL_" protocol has been enabled."
DO BMES^XPDUTL(DGTEXT)
End DoDot:1
+5 QUIT
MENLST ;Protocol list
+1 ;;DGPM MOVEMENT EVENTS
+2 ;;$$END
+3 ;
PROLST ;Protocol List
+1 ;;DGRU INPATIENT CAPTURE
+2 ;;$$END
+3 ;
ADDLST ;Protocols to Disable
+1 ;;DGRU INPATIENT CAPTURE
+2 ;;$$END
+3 ;
