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

ESP117PT.m

Go to the documentation of this file.
  1. ESP117PT ;ALB/CJM - ESP *1*17 POST-INSTALL ROUTINE [9/30/96 12:08pm]
  1. ;;1.0;POLICE & SECURITY;**17**;Mar 31, 1994
  1. ;
  1. START ;
  1. D SSNRPT ;report on duplicate SSN's
  1. D SNDXCHG ;fix soundex x-ref on file 910
  1. D IDNTFR ;to update multiple 916.05 headers
  1. D NEWXREFS ;cross-references files on new x-refs
  1. Q
  1. ;
  1. ;
  1. SSNRPT ;
  1. ;lists duplicate SSN's allowed by faulty input transform
  1. ;
  1. N SSN,NAME,IEN,TEXT,FLAG
  1. D BMES^XPDUTL("...Searching for duplicate SSNs in file #910")
  1. S TEXT="IEN SSN",$E(TEXT,46)="NAME" D MES^XPDUTL(TEXT)
  1. S TEXT="=== ====",$E(TEXT,46)="===" D MES^XPDUTL(TEXT)
  1. S (FLAG,SSN)=""
  1. F S SSN=$O(^ESP(910,"SSN",SSN)) Q:SSN="" D
  1. .S IEN=$O(^ESP(910,"SSN",SSN,0))
  1. .Q:'IEN
  1. .I $O(^ESP(910,"SSN",SSN,IEN)) D MES^XPDUTL("") F Q:'IEN D S IEN=$O(^ESP(910,"SSN",SSN,IEN))
  1. ..S FLAG=1
  1. ..S NAME=$P($G(^ESP(910,IEN,0)),"^")
  1. ..S TEXT=IEN,$E(TEXT,10)="",TEXT=TEXT_SSN,$E(TEXT,46)="",TEXT=TEXT_NAME
  1. ..D MES^XPDUTL(TEXT)
  1. D:FLAG MES^XPDUTL("")
  1. D:'FLAG MES^XPDUTL(" **** NO DUPLICATE SSN ENTRIES WERE FOUND **** ")
  1. D MES^XPDUTL("...Duplicate entry search Completed.")
  1. Q
  1. ;
  1. SNDXCHG ;fixes the SOUN x-ref on file 910
  1. ;
  1. N DIK,DA
  1. D BMES^XPDUTL("...Deleting non-Fileman soundex x-ref on file #910")
  1. K ^ESP(910,"SOUN")
  1. D MES^XPDUTL("...Creating FileMan soundex x-ref on file #910")
  1. S DIK="^ESP(910,",DIK(1)=".01^SOUN" D ENALL^DIK
  1. Q
  1. ;
  1. IDNTFR ;
  1. ;add I to all time multiple headers in file 916
  1. N JRNL
  1. S JRNL=0
  1. D BMES^XPDUTL("...Adding identifiers to subfile #916.05")
  1. F S JRNL=$O(^ESP(916,JRNL)) Q:'JRNL I $D(^ESP(916,JRNL,4,0)) D
  1. .S $P(^ESP(916,JRNL,4,0),U,2)="916.05I"
  1. Q
  1. ;
  1. NEWXREFS ;
  1. ;cross references files on new x-refs added by patch
  1. ;
  1. N DIK,DA
  1. D BMES^XPDUTL("...Creating FileMan ""I"" x-ref on file #910.2")
  1. S DIK="^ESP(910.2,",DIK(1)="4.05^I" D ENALL^DIK
  1. ;
  1. D BMES^XPDUTL("...Creating FileMan ""J"" x-ref on file #910.2")
  1. K DIK S DIK="^ESP(910.2,",DIK(1)="5.01^J" D ENALL^DIK
  1. ;
  1. D BMES^XPDUTL("...Creating FileMan ""J"" x-ref on file #912.09")
  1. K DA
  1. S DA(1)=0
  1. F S DA(1)=$O(^ESP(912,DA(1))) Q:'DA(1) D
  1. .Q:'$D(^ESP(912,DA(1),80))
  1. .S DA="",DIK="^ESP(912,"_DA(1)_",80,",DIK(1)=".11^J" D ENALL^DIK
  1. ;
  1. D BMES^XPDUTL("...Creating FileMan ""D"" x-ref on file #910.85")
  1. K DA
  1. S DA(1)=0
  1. F S DA(1)=$O(^ESP(910.8,DA(1))) Q:'DA(1) D
  1. .Q:'$D(^ESP(910.8,DA(1),5))
  1. .S DA="",DIK="^ESP(910.8,"_DA(1)_",5,",DIK(1)=".03^D" D ENALL^DIK
  1. Q
  1. ;
  1. SSNDUP ; entry point to run ssn duplicate report.
  1. N POP
  1. S %ZIS="QM" D ^%ZIS Q:POP
  1. I $D(IO("Q")) D Q
  1. . S ZTRTN="SSNRPT^ESP117PT",ZTDESC="DUP SSN REPORT ON #910"
  1. . D ^%ZTLOAD
  1. . D HOME^%ZIS K IO("Q") Q
  1. U IO
  1. D SSNRPT
  1. D ^%ZISC
  1. Q