XUMF664P ;OIFO-BP/BATRAN - MFS parameters file ;05/12/2016
;;8.0;KERNEL;**664**;Jul 10, 1995;Build 5
;Per VHA Directive 10-92-142, this routine should not be modified
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 1251,1252,1253
N X S X="XUMF664" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
D 1251,1252,1253
;N X S X="XUMF664" X ^%ZOSF("DEL")
K XMY
Q
;
1251 ;FILE 120.51
N XFIEN,XFILE
S XFIEN=120.51
S XFILE="Vital Types"
D DEL^XUMF664(XFIEN) ; delete entry
D ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Type].04;PRE].05;POST].06;GMRA VERIFY ALLERGY-MA].07;Vital Types]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.51,$G(ERROR)),EN^GMVUID($G(ERROR))") ; add entry
D ADD^XUMF664(XFIEN,"4.1;99.99]4.2;.01]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL") ; add entry
D NODES^XUMF664(XFIEN,"DATA1251",16) ; call ADD1 to add sub_entry
D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
D DELMD5^XUMF664(XFILE)
D ADDMD5^XUMF664(XFILE,XFIEN)
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF664(XFILE,"1^40^^^",XFIEN,1)
D SUBMD5^XUMF664(XFILE,"3^50^^^",XFIEN,3)
D SUBMD5^XUMF664(XFILE,"4^60^^^",XFIEN,4)
D SUBMD5^XUMF664(XFILE,"5^70^^^",XFIEN,5)
D SUBMD5^XUMF664(XFILE,"7^80^^^",XFIEN,7)
;D SUBMD5^XUMF664(XFILE,"8^30^^^",XFIEN,3)
D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
;D SUBMD5^XUMF664(XFILE,"99.991^100^^^",XFIEN,99.991)
S XFIEN=120.518
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12051^GMRVVZRT",XFIEN,.01)
Q
;
;----------------------------------------------
1252 ;FILE 120.52
N XFIEN,XFILE
S XFIEN=120.52
S XFILE="Vital Qualifiers"
D DEL^XUMF664(XFIEN) ; delete entry
D ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Qualifier].04;PRE].05;POST].06;GMRA VERIFY ALLERGY-MA].07;Vital Qualifiers]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.52,$G(ERROR)),EN^GMVUID($G(ERROR))") ; add entry
D ADD^XUMF664(XFIEN,"4;S ^TMP(""XUMF IMPLIED LOGIC"",$J)=1]4.1;99.99]4.2;.01]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL") ; add entry
D NODES^XUMF664(XFIEN,"DATA1252",12) ; call ADD1 to add sub_entry
D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
D ADD2^XUMF664(XFIEN,"has_qualifier",1,"1^has_qualifier^.01^1^")
D ADD2^XUMF664(XFIEN,"has_qualifier",2,"2^has_VistA_category^.02^^")
D ADD2^XUMF664(XFIEN,"has_VistA_category",1,"2^has_VistA_category^.02^1^")
D DELMD5^XUMF664(XFILE)
D ADDMD5^XUMF664(XFILE,XFIEN)
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF664(XFILE,".02^40^^^",XFIEN,.02)
D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF664(XFILE,"999999^55^^^",XFIEN,999999)
S XFIEN=120.522
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12052^GMRVVZRT",XFIEN,.01)
S XFIEN=120.521
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^50^^120.51^^",XFIEN,.01)
D SUBMD5^XUMF664(XFILE,".02^60^^120.53^1^",XFIEN,.02)
Q
;
;-----------------------------------------------
1253 ;FILE 120.53
N XFIEN,XFILE
S XFIEN=120.53
S XFILE="Vital Categories"
D DEL^XUMF664(XFIEN) ; delete entry
D ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Category].04;PRE].05;POST].07;Vital Categories]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.53,$G(ERROR)),EN^GMVUID($G(ERROR))") ; add entry
D ADD^XUMF664(XFIEN,"4.1;99.99]4.2;vuid]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL") ; add entry
D NODES^XUMF664(XFIEN,"DATA1253",11) ; call ADD1 to add sub_entry
D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
D DELMD5^XUMF664(XFILE)
D ADDMD5^XUMF664(XFILE,XFIEN)
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
;D SUBMD5^XUMF664(XFILE,"99.991^40^^^",XFIEN,99.991)
S XFIEN=120.532
D SCMD5^XUMF664(XFILE,XFIEN)
D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12053^GMRVVZRT",XFIEN,.01)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF664P 4284 printed Apr 09, 2024@21:11:27 Page 2
XUMF664P ;OIFO-BP/BATRAN - MFS parameters file ;05/12/2016
+1 ;;8.0;KERNEL;**664**;Jul 10, 1995;Build 5
+2 ;Per VHA Directive 10-92-142, this routine should not be modified
+3 QUIT
+4 ;----------------------------------------------
POST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 DO 1251
DO 1252
DO 1253
+3 NEW X
SET X="XUMF664"
XECUTE ^%ZOSF("DEL")
+4 KILL XMY
+5 QUIT
+6 ;----------------------------------------------
TEST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 DO 1251
DO 1252
DO 1253
+3 ;N X S X="XUMF664" X ^%ZOSF("DEL")
+4 KILL XMY
+5 QUIT
+6 ;
1251 ;FILE 120.51
+1 NEW XFIEN,XFILE
+2 SET XFIEN=120.51
+3 SET XFILE="Vital Types"
+4 ; delete entry
DO DEL^XUMF664(XFIEN)
+5 ; add entry
DO ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Type].04;PRE].05;POST].06;GMRA VERIFY ALLERGY-MA].07;Vital Types]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.51,$G(ERROR)),EN^GMVUID($G(ERROR))")
+6 ; add entry
DO ADD^XUMF664(XFIEN,"4.1;99.99]4.2;.01]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL")
+7 ; call ADD1 to add sub_entry
DO NODES^XUMF664(XFIEN,"DATA1251",16)
+8 DO ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
+9 DO DELMD5^XUMF664(XFILE)
+10 DO ADDMD5^XUMF664(XFILE,XFIEN)
+11 DO SCMD5^XUMF664(XFILE,XFIEN)
+12 DO SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
+13 DO SUBMD5^XUMF664(XFILE,"1^40^^^",XFIEN,1)
+14 DO SUBMD5^XUMF664(XFILE,"3^50^^^",XFIEN,3)
+15 DO SUBMD5^XUMF664(XFILE,"4^60^^^",XFIEN,4)
+16 DO SUBMD5^XUMF664(XFILE,"5^70^^^",XFIEN,5)
+17 DO SUBMD5^XUMF664(XFILE,"7^80^^^",XFIEN,7)
+18 ;D SUBMD5^XUMF664(XFILE,"8^30^^^",XFIEN,3)
+19 DO SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
+20 ;D SUBMD5^XUMF664(XFILE,"99.991^100^^^",XFIEN,99.991)
+21 SET XFIEN=120.518
+22 DO SCMD5^XUMF664(XFILE,XFIEN)
+23 DO SUBMD5^XUMF664(XFILE,".01^30^^^^D M12051^GMRVVZRT",XFIEN,.01)
+24 QUIT
+25 ;
+26 ;----------------------------------------------
1252 ;FILE 120.52
+1 NEW XFIEN,XFILE
+2 SET XFIEN=120.52
+3 SET XFILE="Vital Qualifiers"
+4 ; delete entry
DO DEL^XUMF664(XFIEN)
+5 ; add entry
DO ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Qualifier].04;PRE].05;POST].06;GMRA VERIFY ALLERGY-MA].07;Vital Qualifiers]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.52,$G(ERROR)),EN^GMVUID($G(ERROR))")
+6 ; add entry
DO ADD^XUMF664(XFIEN,"4;S ^TMP(""XUMF IMPLIED LOGIC"",$J)=1]4.1;99.99]4.2;.01]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL")
+7 ; call ADD1 to add sub_entry
DO NODES^XUMF664(XFIEN,"DATA1252",12)
+8 DO ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
+9 DO ADD2^XUMF664(XFIEN,"has_qualifier",1,"1^has_qualifier^.01^1^")
+10 DO ADD2^XUMF664(XFIEN,"has_qualifier",2,"2^has_VistA_category^.02^^")
+11 DO ADD2^XUMF664(XFIEN,"has_VistA_category",1,"2^has_VistA_category^.02^1^")
+12 DO DELMD5^XUMF664(XFILE)
+13 DO ADDMD5^XUMF664(XFILE,XFIEN)
+14 DO SCMD5^XUMF664(XFILE,XFIEN)
+15 DO SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
+16 DO SUBMD5^XUMF664(XFILE,".02^40^^^",XFIEN,.02)
+17 DO SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
+18 DO SUBMD5^XUMF664(XFILE,"999999^55^^^",XFIEN,999999)
+19 SET XFIEN=120.522
+20 DO SCMD5^XUMF664(XFILE,XFIEN)
+21 DO SUBMD5^XUMF664(XFILE,".01^30^^^^D M12052^GMRVVZRT",XFIEN,.01)
+22 SET XFIEN=120.521
+23 DO SCMD5^XUMF664(XFILE,XFIEN)
+24 DO SUBMD5^XUMF664(XFILE,".01^50^^120.51^^",XFIEN,.01)
+25 DO SUBMD5^XUMF664(XFILE,".02^60^^120.53^1^",XFIEN,.02)
+26 QUIT
+27 ;
+28 ;-----------------------------------------------
1253 ;FILE 120.53
+1 NEW XFIEN,XFILE
+2 SET XFIEN=120.53
+3 SET XFILE="Vital Categories"
+4 ; delete entry
DO DEL^XUMF664(XFIEN)
+5 ; add entry
DO ADD^XUMF664(XFIEN,".02;RDT].03;GMRV Vital Category].04;PRE].05;POST].07;Vital Categories]5;D ZRT^GMRVVZRT]2;D MFSUP^HDISVF09(120.53,$G(ERROR)),EN^GMVUID($G(ERROR))")
+6 ; add entry
DO ADD^XUMF664(XFIEN,"4.1;99.99]4.2;vuid]4.3;ERT]4.4;.01]4.5;.01]4.6;VA]4.7;CE]4.8;B]4.9;VA]4.11;NM]4.12;ST]4.14;ST]4.15;ST]4.16;NULL]4.17;NULL")
+7 ; call ADD1 to add sub_entry
DO NODES^XUMF664(XFIEN,"DATA1253",11)
+8 DO ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
+9 DO DELMD5^XUMF664(XFILE)
+10 DO ADDMD5^XUMF664(XFILE,XFIEN)
+11 DO SCMD5^XUMF664(XFILE,XFIEN)
+12 DO SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
+13 DO SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
+14 ;D SUBMD5^XUMF664(XFILE,"99.991^40^^^",XFIEN,99.991)
+15 SET XFIEN=120.532
+16 DO SCMD5^XUMF664(XFILE,XFIEN)
+17 DO SUBMD5^XUMF664(XFILE,".01^30^^^^D M12053^GMRVVZRT",XFIEN,.01)
+18 QUIT