GMRVXCH0 ;HIRMFO/RM,YH-CONVERT QUALIFIER/CATEGORY FILES ;4/22/97
;;4.0;Vitals/Measurements;;Apr 25, 1997
EN ; Driver to run both qualifier and Category Conversions
;
; Check to see if Conversion run
Q:+$G(^GMRD(120.57,1,"PHASEI"))>0
D BMES^XPDUTL("Running Qualifier/Category Conversion...")
;
; Build conversion tables (Char. and Cat.).
D ^GMRVXCHT
;
; Move data from 120.53 to 120.52 file.
D MOVE53^GMRVXCH2
;
; Kill off data in 120.53 file.
S GMRVZERO=$P($G(^GMRD(120.53,0)),"^",1,2)
I GMRVZERO="" S GMRVZERO="GMRV VITAL CATEGORY^120.53"
K ^GMRD(120.53) S ^GMRD(120.53,0)=GMRVZERO
;
; Kill of xrefs in 120.52 and 120.53 files.
F GMRVFILE=120.52,120.53 D
. S DA(1)="" F S DA(1)=$O(^GMRD(GMRVFILE,DA(1))) Q:DA(1)="" D
. . 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)
. . I DA(1)'>0,DA(1)'=0 K ^GMRD(GMRVFILE,DA(1))
. . Q
. Q
;
; Build GMRV Vital Category file from ^TMP($J,"GMRVCAT")
D CONV53^GMRVXCH3
;
; Convert GMRV Vital Qualifier entries from ^TMP($J,"GMRVCHAR")
D CONV52^GMRVXCH2
;
; Update Conversion Flag in 120.57 file.
S DIK="^GMRD(120.52," D IXALL^DIK
S DIK="^GMRD(120.53," D IXALL^DIK
S $P(^GMRD(120.57,1,"PHASEI"),"^")=1
;
; Clean up and quit
K ^TMP($J,"GMRVCHAR"),^TMP($J,"GMRVCAT"),DA,GMRVFILE,GMRVZERO
Q
EN1 ; Post-init tasks for Qualifier and Category Conversions
; Add new qualifier/categories and re-index 120.52 and 120.53 files in post-init.
;
Q:+$G(^GMRD(120.57,1,"PHASEII"))>0
D ADDCAT^GMRVXCH1 D BMES^XPDUTL("Re-indexing 120.53 file...")
S DIK="^GMRD(120.53," D IXALL^DIK
D ADDCHAR^GMRVXCH1 D BMES^XPDUTL("Re-indexing 120.52 file...")
S DIK="^GMRD(120.52," D IXALL^DIK
;CONVERT DEFAULT TEXT TO POINTER TO 120.52 IN 120.53 FILE
K DIK D DEFAULT^GMRVXCH3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVXCH0 1840 printed Dec 13, 2024@01:57:53 Page 2
GMRVXCH0 ;HIRMFO/RM,YH-CONVERT QUALIFIER/CATEGORY FILES ;4/22/97
+1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
EN ; Driver to run both qualifier and Category Conversions
+1 ;
+2 ; Check to see if Conversion run
+3 if +$GET(^GMRD(120.57,1,"PHASEI"))>0
QUIT
+4 DO BMES^XPDUTL("Running Qualifier/Category Conversion...")
+5 ;
+6 ; Build conversion tables (Char. and Cat.).
+7 DO ^GMRVXCHT
+8 ;
+9 ; Move data from 120.53 to 120.52 file.
+10 DO MOVE53^GMRVXCH2
+11 ;
+12 ; Kill off data in 120.53 file.
+13 SET GMRVZERO=$PIECE($GET(^GMRD(120.53,0)),"^",1,2)
+14 IF GMRVZERO=""
SET GMRVZERO="GMRV VITAL CATEGORY^120.53"
+15 KILL ^GMRD(120.53)
SET ^GMRD(120.53,0)=GMRVZERO
+16 ;
+17 ; Kill of xrefs in 120.52 and 120.53 files.
+18 FOR GMRVFILE=120.52,120.53
Begin DoDot:1
+19 SET DA(1)=""
FOR
SET DA(1)=$ORDER(^GMRD(GMRVFILE,DA(1)))
if DA(1)=""
QUIT
Begin DoDot:2
+20 IF DA(1)>0
SET DA="A"
FOR
SET DA=$ORDER(^GMRD(GMRVFILE,DA(1),1,DA))
if DA=""
QUIT
KILL ^GMRD(GMRVFILE,DA(1),1,DA)
+21 IF DA(1)'>0
IF DA(1)'=0
KILL ^GMRD(GMRVFILE,DA(1))
+22 QUIT
End DoDot:2
+23 QUIT
End DoDot:1
+24 ;
+25 ; Build GMRV Vital Category file from ^TMP($J,"GMRVCAT")
+26 DO CONV53^GMRVXCH3
+27 ;
+28 ; Convert GMRV Vital Qualifier entries from ^TMP($J,"GMRVCHAR")
+29 DO CONV52^GMRVXCH2
+30 ;
+31 ; Update Conversion Flag in 120.57 file.
+32 SET DIK="^GMRD(120.52,"
DO IXALL^DIK
+33 SET DIK="^GMRD(120.53,"
DO IXALL^DIK
+34 SET $PIECE(^GMRD(120.57,1,"PHASEI"),"^")=1
+35 ;
+36 ; Clean up and quit
+37 KILL ^TMP($JOB,"GMRVCHAR"),^TMP($JOB,"GMRVCAT"),DA,GMRVFILE,GMRVZERO
+38 QUIT
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.
+2 ;
+3 if +$GET(^GMRD(120.57,1,"PHASEII"))>0
QUIT
+4 DO ADDCAT^GMRVXCH1
DO BMES^XPDUTL("Re-indexing 120.53 file...")
+5 SET DIK="^GMRD(120.53,"
DO IXALL^DIK
+6 DO ADDCHAR^GMRVXCH1
DO BMES^XPDUTL("Re-indexing 120.52 file...")
+7 SET DIK="^GMRD(120.52,"
DO IXALL^DIK
+8 ;CONVERT DEFAULT TEXT TO POINTER TO 120.52 IN 120.53 FILE
+9 KILL DIK
DO DEFAULT^GMRVXCH3
+10 QUIT
