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 Dec 13, 2024@02:39:19 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
