DG5392PT.m

DG5392PT ;ALB/MLI - post-install for DG*5.3*92 ; 4/17/96

 ;;5.3;Registration;**92**;Aug 13, 1993

 ;

 ; This routine will be run as a post-installation for patch

 ; DG*5.3*92.  It will automatically set the MAKE RECORD

 ; SENSITIVE? field in the ELIGIBILITY CODE file for all

 ; employee type eligibilities

 ;

EN ; begin processing

 N DA,DIE,DR,ELIG,X,Y

 D BMES^XPDUTL(">>> Updating MAKE RECORD SENSITIVE flag in ELIGIBILITY CODE")

 D MES^XPDUTL("    file for EMPLOYEE eligibilities..."),MES^XPDUTL(" ")

 S ELIG="",DIE="^DIC(8,",DR=".12////1"

 F  S ELIG=$O(^DIC(8,"D",14,ELIG)) Q:'ELIG  D

 .  S DA=ELIG

 .  D ^DIE

 .  D MES^XPDUTL("    "_$P($G(^DIC(8,ELIG,0)),"^",1)_" eligiblity updated")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG5392PT   706     printed  Apr 09, 2024@22:03:20                                                                                                                                                                                                     Page 2

DG5392PT  ;ALB/MLI - post-install for DG*5.3*92 ; 4/17/96

 +1       ;;5.3;Registration;**92**;Aug 13, 1993

 +2       ;

 +3       ; This routine will be run as a post-installation for patch

 +4       ; DG*5.3*92.  It will automatically set the MAKE RECORD

 +5       ; SENSITIVE? field in the ELIGIBILITY CODE file for all

 +6       ; employee type eligibilities

 +7       ;

EN        ; begin processing

 +1        NEW DA,DIE,DR,ELIG,X,Y

 +2        DO BMES^XPDUTL(">>> Updating MAKE RECORD SENSITIVE flag in ELIGIBILITY CODE")

 +3        DO MES^XPDUTL("    file for EMPLOYEE eligibilities...")

           DO MES^XPDUTL(" ")

 +4        SET ELIG=""

           SET DIE="^DIC(8,"

           SET DR=".12////1"

 +5        FOR 

               SET ELIG=$ORDER(^DIC(8,"D",14,ELIG))

               if 'ELIG

                   QUIT 

               Begin DoDot:1

 +6                SET DA=ELIG

 +7                DO ^DIE

 +8                DO MES^XPDUTL("    "_$PIECE($GET(^DIC(8,ELIG,0)),"^",1)_" eligiblity updated")

               End DoDot:1