- 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 Jan 18, 2025@03:11:47 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