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

DG5392PT.m

Go to the documentation of this file.
  1. DG5392PT ;ALB/MLI - post-install for DG*5.3*92 ; 4/17/96
  1. ;;5.3;Registration;**92**;Aug 13, 1993
  1. ;
  1. ; This routine will be run as a post-installation for patch
  1. ; DG*5.3*92. It will automatically set the MAKE RECORD
  1. ; SENSITIVE? field in the ELIGIBILITY CODE file for all
  1. ; employee type eligibilities
  1. ;
  1. EN ; begin processing
  1. N DA,DIE,DR,ELIG,X,Y
  1. D BMES^XPDUTL(">>> Updating MAKE RECORD SENSITIVE flag in ELIGIBILITY CODE")
  1. D MES^XPDUTL(" file for EMPLOYEE eligibilities..."),MES^XPDUTL(" ")
  1. S ELIG="",DIE="^DIC(8,",DR=".12////1"
  1. F S ELIG=$O(^DIC(8,"D",14,ELIG)) Q:'ELIG D
  1. . S DA=ELIG
  1. . D ^DIE
  1. . D MES^XPDUTL(" "_$P($G(^DIC(8,ELIG,0)),"^",1)_" eligiblity updated")