- 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 ---[H[J[2J[HDG5392PT 706 printed Jan 18, 2025@03:40 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