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

DG531081P.m

Go to the documentation of this file.
  1. DG531081P ;OIT/ARF - PATCH DG*5.3*1081 INSTALL UTILITIES ;2/25/21 09:12am
  1. ;;5.3;Registration;**1081**;Aug 13, 1993;Build 4
  1. ;
  1. ; Reference to BMES^XPDUTL in ICR #10141
  1. ; Reference to MES^XPDUTL in ICR #10141
  1. ;
  1. ;No direct entry
  1. QUIT
  1. ;
  1. ;--------------------------------------------------------------------------
  1. ;Patch DG*5.3*1081: Environment, Pre-Install, and Post-Install entry points.
  1. ;--------------------------------------------------------------------------
  1. ;
  1. ENV ;Main entry point for Environment check
  1. Q
  1. ;
  1. PRE ;Main entry point for Pre-Install items
  1. Q
  1. ;
  1. POST ;Main entry point for Post-Install items
  1. ;
  1. D BMES^XPDUTL(">>> Beginning the DG*5.3*1081 Post-install routine...")
  1. D POST1
  1. D BMES^XPDUTL(">>> Patch DG*5.3*1081 Post-install complete.")
  1. Q
  1. ;
  1. ;
  1. POST1 ; Add CLINICAL EVALUATION eligibility to file #8
  1. NEW DGEC,DGFDA,DGERR
  1. S DGEC="CLINICAL EVALUATION"
  1. D BMES^XPDUTL(" - Adding '"_DGEC_"' to the ELIGIBILITY CODE (#8) file.")
  1. I '$$FIND1^DIC(8.1,"","X",DGEC) D Q
  1. . D BMES^XPDUTL("*** ERROR! ***")
  1. . D MES^XPDUTL(" - "_DGEC_" entry missing from MAS ELIGIBILITY CODE (#8.1) file")
  1. . D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
  1. . D MES^XPDUTL(" for assistance.")
  1. I $$FIND1^DIC(8,"","X",DGEC) D Q
  1. . D BMES^XPDUTL(" - "_DGEC_" entry already exists... No action required.")
  1. ; Add entry to file
  1. S DGFDA(8,"+1,",.01)=DGEC
  1. S DGFDA(8,"+1,",.12)=0
  1. S DGFDA(8,"+1,",1)="RED"
  1. S DGFDA(8,"+1,",2)="CE"
  1. S DGFDA(8,"+1,",3)=14
  1. S DGFDA(8,"+1,",4)="N"
  1. S DGFDA(8,"+1,",5)=DGEC
  1. S DGFDA(8,"+1,",7)=1
  1. S DGFDA(8,"+1,",8)=DGEC
  1. S DGFDA(8,"+1,",9)="VA STANDARD"
  1. S DGFDA(8,"+1,",11)="VA"
  1. D UPDATE^DIE("E","DGFDA","","DGERR")
  1. I '$D(DGERR) D BMES^XPDUTL(" - "_DGEC_" successfully added to ELIGIBILITY CODE (#8) file.")
  1. I $D(DGERR) D
  1. . D BMES^XPDUTL("*** ERROR! ***")
  1. . D MES^XPDUTL(" - "_DGEC_" was NOT successfully added to the ELIGIBILITY CODE (#8) file.")
  1. . D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
  1. . D MES^XPDUTL(" for assistance.")
  1. Q