- 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 Jan 18, 2025@03:35:52 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 ;