- DG531081P ;OIT/ARF - PATCH DG*5.3*1081 INSTALL UTILITIES ;2/25/21 09:12am
- ;;5.3;Registration;**1081**;Aug 13, 1993;Build 4
- ;
- ; Reference to BMES^XPDUTL in ICR #10141
- ; Reference to MES^XPDUTL in ICR #10141
- ;
- ;No direct entry
- QUIT
- ;
- ;--------------------------------------------------------------------------
- ;Patch DG*5.3*1081: Environment, Pre-Install, and Post-Install entry points.
- ;--------------------------------------------------------------------------
- ;
- ENV ;Main entry point for Environment check
- Q
- ;
- PRE ;Main entry point for Pre-Install items
- Q
- ;
- POST ;Main entry point for Post-Install items
- ;
- D BMES^XPDUTL(">>> Beginning the DG*5.3*1081 Post-install routine...")
- D POST1
- D BMES^XPDUTL(">>> Patch DG*5.3*1081 Post-install complete.")
- Q
- ;
- ;
- POST1 ; Add CLINICAL EVALUATION eligibility to file #8
- NEW DGEC,DGFDA,DGERR
- S DGEC="CLINICAL EVALUATION"
- D BMES^XPDUTL(" - Adding '"_DGEC_"' to the ELIGIBILITY CODE (#8) file.")
- I '$$FIND1^DIC(8.1,"","X",DGEC) D Q
- . D BMES^XPDUTL("*** ERROR! ***")
- . D MES^XPDUTL(" - "_DGEC_" entry missing from MAS ELIGIBILITY CODE (#8.1) file")
- . D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- . D MES^XPDUTL(" for assistance.")
- I $$FIND1^DIC(8,"","X",DGEC) D Q
- . D BMES^XPDUTL(" - "_DGEC_" entry already exists... No action required.")
- ; Add entry to file
- S DGFDA(8,"+1,",.01)=DGEC
- S DGFDA(8,"+1,",.12)=0
- S DGFDA(8,"+1,",1)="RED"
- S DGFDA(8,"+1,",2)="CE"
- S DGFDA(8,"+1,",3)=14
- S DGFDA(8,"+1,",4)="N"
- S DGFDA(8,"+1,",5)=DGEC
- S DGFDA(8,"+1,",7)=1
- S DGFDA(8,"+1,",8)=DGEC
- S DGFDA(8,"+1,",9)="VA STANDARD"
- S DGFDA(8,"+1,",11)="VA"
- D UPDATE^DIE("E","DGFDA","","DGERR")
- I '$D(DGERR) D BMES^XPDUTL(" - "_DGEC_" successfully added to ELIGIBILITY CODE (#8) file.")
- I $D(DGERR) D
- . D BMES^XPDUTL("*** ERROR! ***")
- . D MES^XPDUTL(" - "_DGEC_" was NOT successfully added to the ELIGIBILITY CODE (#8) file.")
- . D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- . D MES^XPDUTL(" for assistance.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531081P 2123 printed Feb 19, 2025@00:01:52 Page 2
- 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
- +2 ;
- +3 ; Reference to BMES^XPDUTL in ICR #10141
- +4 ; Reference to MES^XPDUTL in ICR #10141
- +5 ;
- +6 ;No direct entry
- +7 QUIT
- +8 ;
- +9 ;--------------------------------------------------------------------------
- +10 ;Patch DG*5.3*1081: Environment, Pre-Install, and Post-Install entry points.
- +11 ;--------------------------------------------------------------------------
- +12 ;
- ENV ;Main entry point for Environment check
- +1 QUIT
- +2 ;
- PRE ;Main entry point for Pre-Install items
- +1 QUIT
- +2 ;
- POST ;Main entry point for Post-Install items
- +1 ;
- +2 DO BMES^XPDUTL(">>> Beginning the DG*5.3*1081 Post-install routine...")
- +3 DO POST1
- +4 DO BMES^XPDUTL(">>> Patch DG*5.3*1081 Post-install complete.")
- +5 QUIT
- +6 ;
- +7 ;
- POST1 ; Add CLINICAL EVALUATION eligibility to file #8
- +1 NEW DGEC,DGFDA,DGERR
- +2 SET DGEC="CLINICAL EVALUATION"
- +3 DO BMES^XPDUTL(" - Adding '"_DGEC_"' to the ELIGIBILITY CODE (#8) file.")
- +4 IF '$$FIND1^DIC(8.1,"","X",DGEC)
- Begin DoDot:1
- +5 DO BMES^XPDUTL("*** ERROR! ***")
- +6 DO MES^XPDUTL(" - "_DGEC_" entry missing from MAS ELIGIBILITY CODE (#8.1) file")
- +7 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- +8 DO MES^XPDUTL(" for assistance.")
- End DoDot:1
- QUIT
- +9 IF $$FIND1^DIC(8,"","X",DGEC)
- Begin DoDot:1
- +10 DO BMES^XPDUTL(" - "_DGEC_" entry already exists... No action required.")
- End DoDot:1
- QUIT
- +11 ; Add entry to file
- +12 SET DGFDA(8,"+1,",.01)=DGEC
- +13 SET DGFDA(8,"+1,",.12)=0
- +14 SET DGFDA(8,"+1,",1)="RED"
- +15 SET DGFDA(8,"+1,",2)="CE"
- +16 SET DGFDA(8,"+1,",3)=14
- +17 SET DGFDA(8,"+1,",4)="N"
- +18 SET DGFDA(8,"+1,",5)=DGEC
- +19 SET DGFDA(8,"+1,",7)=1
- +20 SET DGFDA(8,"+1,",8)=DGEC
- +21 SET DGFDA(8,"+1,",9)="VA STANDARD"
- +22 SET DGFDA(8,"+1,",11)="VA"
- +23 DO UPDATE^DIE("E","DGFDA","","DGERR")
- +24 IF '$DATA(DGERR)
- DO BMES^XPDUTL(" - "_DGEC_" successfully added to ELIGIBILITY CODE (#8) file.")
- +25 IF $DATA(DGERR)
- Begin DoDot:1
- +26 DO BMES^XPDUTL("*** ERROR! ***")
- +27 DO MES^XPDUTL(" - "_DGEC_" was NOT successfully added to the ELIGIBILITY CODE (#8) file.")
- +28 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- +29 DO MES^XPDUTL(" for assistance.")
- End DoDot:1
- +30 QUIT