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

XIPSYNC.m

Go to the documentation of this file.
  1. XIPSYNC ;OIFOO/SO- SYNC UP FILE 5'S COUNTY MULTIPLE WITH 5.13;6:56 AM 16 Nov 2005
  1. ;;8.0;KERNEL;**328,378**;Jul 10, 1995;Build 59
  1. Q
  1. EP1 ;MAIN ENTRY POINT
  1. N XIPQ S XIPQ=0 ;ALLOW DIALOG TO DISPLAY OR PRINT
  1. ;
  1. N XUMF S XUMF=1 ;ALLOW EDITING ;8*378
  1. ;
  1. D S1,S2
  1. Q
  1. ;
  1. DEQUE ;DEQUEUING ENTRY POINT
  1. N XIPQ S XIPQ=1 ;KEEP DIALOG FROM DISPLAYING OR PRINTING
  1. ;
  1. N XUMF S XUMF=1 ;ALLOW EDITING ;8*378
  1. ;
  1. D S1,S2
  1. Q
  1. ;
  1. S1 ;SET INACTIVE DATE FOR ALL COUNTIES TO DT
  1. N ST
  1. S ST=0 ;ST=STATE IEN
  1. I 'XIPQ D MES^XPDUTL("Begin updating COUNTY multiple...")
  1. F S ST=$O(^DIC(5,ST)) Q:'ST D
  1. . I +$P(^DIC(5,ST,0),U,3)>56,+$P(^(0),U,3)'=72 Q ;NOT US STATE OR PR
  1. . N CO S CO=0 ;CO=COUNTY IEN
  1. . F S CO=$O(^DIC(5,ST,1,CO)) Q:'CO D
  1. .. I $P(^DIC(5,ST,1,CO,0),U,5)]"" Q ;DON'T CHANGE DATE
  1. .. N FDA,DIERR,EM
  1. .. S FDA(5.01,CO_","_ST_",",5)=DT
  1. .. D FILE^DIE("","FDA","EM")
  1. .. Q
  1. Q
  1. ;
  1. S2 ;EDIT COUNTY MULTIPLE USING FILE 5.13
  1. N IEN,X,FST,FCO
  1. ;FST=2 DIGIT STATE FIPS CODE, FCO=3 DIGIT COUNTY FIPS CODE
  1. S IEN=0 ;5.13'S IEN
  1. F S IEN=$O(^XIP(5.13,IEN)) Q:'IEN S X=^XIP(5.13,IEN,0),FST=$E(X,1,2),FCO=$E(X,3,5) D
  1. . N ST,CO
  1. . S ST=0,CO=0
  1. . S ST=$O(^DIC(5,"C",FST,ST))
  1. . I 'ST,'XIPQ D MES^XPDUTL("Can not find STATE CODE: "_FST_" in STATE file.") Q
  1. . S CO=$O(^DIC(5,ST,1,"C",FCO,CO))
  1. . I 'CO D Q ;ADD COUNTY
  1. .. N DIERR,EM,FDA
  1. .. I 'XIPQ D MES^XPDUTL("Adding County: "_$P(X,U,2)_"("_FCO_")"_" to State: "_$$GET1^DIQ(5,ST_",",.01))
  1. .. S FDA(5.01,"?+1,"_ST_",",.01)=$P(X,U,2)
  1. .. S FDA(5.01,"?+1,"_ST_",",2)=FCO
  1. .. D UPDATE^DIE("","FDA","","EM")
  1. .. Q
  1. . I CO D Q ;REACTIVATE COUNTY
  1. .. N DIERR,EM,FDA
  1. .. S FDA(5.01,CO_","_ST_",",5)=$S($P(X,U,4)]"":$P(X,U,4),1:"")
  1. .. D ;SPELL CHECK 5.13 v STATE FILE'S COUNTY
  1. ... N DIERR,X1
  1. ... S X1=$$GET1^DIQ(5.01,CO_",",.01)
  1. ... I X1'=$P(X,U,2) S FDA(5.01,CO_","_ST_",",.01)=$P(X,U,2)
  1. .. D FILE^DIE("","FDA","EM")
  1. .. Q
  1. . Q
  1. I 'XIPQ D MES^XPDUTL("Finished updating COUNTY multiple.")
  1. Q