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

GMRVXCH0.m

Go to the documentation of this file.
  1. GMRVXCH0 ;HIRMFO/RM,YH-CONVERT QUALIFIER/CATEGORY FILES ;4/22/97
  1. ;;4.0;Vitals/Measurements;;Apr 25, 1997
  1. EN ; Driver to run both qualifier and Category Conversions
  1. ;
  1. ; Check to see if Conversion run
  1. Q:+$G(^GMRD(120.57,1,"PHASEI"))>0
  1. D BMES^XPDUTL("Running Qualifier/Category Conversion...")
  1. ;
  1. ; Build conversion tables (Char. and Cat.).
  1. D ^GMRVXCHT
  1. ;
  1. ; Move data from 120.53 to 120.52 file.
  1. D MOVE53^GMRVXCH2
  1. ;
  1. ; Kill off data in 120.53 file.
  1. S GMRVZERO=$P($G(^GMRD(120.53,0)),"^",1,2)
  1. I GMRVZERO="" S GMRVZERO="GMRV VITAL CATEGORY^120.53"
  1. K ^GMRD(120.53) S ^GMRD(120.53,0)=GMRVZERO
  1. ;
  1. ; Kill of xrefs in 120.52 and 120.53 files.
  1. F GMRVFILE=120.52,120.53 D
  1. . S DA(1)="" F S DA(1)=$O(^GMRD(GMRVFILE,DA(1))) Q:DA(1)="" D
  1. . . I DA(1)>0 S DA="A" F S DA=$O(^GMRD(GMRVFILE,DA(1),1,DA)) Q:DA="" K ^GMRD(GMRVFILE,DA(1),1,DA)
  1. . . I DA(1)'>0,DA(1)'=0 K ^GMRD(GMRVFILE,DA(1))
  1. . . Q
  1. . Q
  1. ;
  1. ; Build GMRV Vital Category file from ^TMP($J,"GMRVCAT")
  1. D CONV53^GMRVXCH3
  1. ;
  1. ; Convert GMRV Vital Qualifier entries from ^TMP($J,"GMRVCHAR")
  1. D CONV52^GMRVXCH2
  1. ;
  1. ; Update Conversion Flag in 120.57 file.
  1. S DIK="^GMRD(120.52," D IXALL^DIK
  1. S DIK="^GMRD(120.53," D IXALL^DIK
  1. S $P(^GMRD(120.57,1,"PHASEI"),"^")=1
  1. ;
  1. ; Clean up and quit
  1. K ^TMP($J,"GMRVCHAR"),^TMP($J,"GMRVCAT"),DA,GMRVFILE,GMRVZERO
  1. Q
  1. EN1 ; Post-init tasks for Qualifier and Category Conversions
  1. ; Add new qualifier/categories and re-index 120.52 and 120.53 files in post-init.
  1. ;
  1. Q:+$G(^GMRD(120.57,1,"PHASEII"))>0
  1. D ADDCAT^GMRVXCH1 D BMES^XPDUTL("Re-indexing 120.53 file...")
  1. S DIK="^GMRD(120.53," D IXALL^DIK
  1. D ADDCHAR^GMRVXCH1 D BMES^XPDUTL("Re-indexing 120.52 file...")
  1. S DIK="^GMRD(120.52," D IXALL^DIK
  1. ;CONVERT DEFAULT TEXT TO POINTER TO 120.52 IN 120.53 FILE
  1. K DIK D DEFAULT^GMRVXCH3
  1. Q