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

DG1053P.m

Go to the documentation of this file.
  1. DG1053P ;MNT/BJR - REINSTATE DGRU INPT PROTOCOL ; Apr 12, 2021@15:56
  1. ;;5.3;Registration;**1053**;Aug 13, 1993;Build 4
  1. ;
  1. Q
  1. ;References to $$ADD^XPDPROT supported by ICR #5567
  1. ;References to OUT^XPDPROT supported by ICR #5567
  1. ;References to BMES^XPDUTL supported by ICR #10141
  1. ;
  1. ;
  1. EN ;Entry point for DG*5.3*1053 Post Install routine
  1. D ENPROT
  1. D ADDPROT
  1. Q
  1. ADDPROT ;Delete Protocol from List Protocol
  1. N DGOM,DGMN,DGPROT,DGCHK,DGOP,DGTEXT,XQORM
  1. F DGOM=1:1 S DGMN=$P($TEXT(MENLST+DGOM),";;",2) Q:DGMN="$$END" D
  1. .F DGOP=1:1 S DGPROT=$P($TEXT(PROLST+DGOP),";;",2) Q:DGPROT="$$END" D
  1. ..S DGCHK=$$ADD^XPDPROT(DGMN,DGPROT,,5)
  1. ..I DGCHK S DGTEXT="The "_DGPROT_" protocol has been added to the "_DGMN_" protocol menu." D BMES^XPDUTL(DGTEXT)
  1. ..I 'DGCHK S DGTEXT="The "_DGPROT_" protocol could not be added the "_DGMN_" protocol menu." D BMES^XPDUTL(DGTEXT)
  1. Q
  1. ;
  1. ENPROT ;Enable Protocols
  1. N DGPRTL,DGPR,DGTEXT
  1. F DGPR=1:1 S DGPRTL=$P($TEXT(ADDLST+DGPR),";;",2) Q:DGPRTL="$$END" D
  1. .D OUT^XPDPROT(DGPRTL,"@")
  1. .S DGTEXT="The "_DGPRTL_" protocol has been enabled." D BMES^XPDUTL(DGTEXT)
  1. Q
  1. MENLST ;Protocol list
  1. ;;DGPM MOVEMENT EVENTS
  1. ;;$$END
  1. ;
  1. PROLST ;Protocol List
  1. ;;DGRU INPATIENT CAPTURE
  1. ;;$$END
  1. ;
  1. ADDLST ;Protocols to Disable
  1. ;;DGRU INPATIENT CAPTURE
  1. ;;$$END
  1. ;