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

XUMF664P.m

Go to the documentation of this file.
  1. XUMF664P ;OIFO-BP/BATRAN - MFS parameters file ;05/12/2016
  1. ;;8.0;KERNEL;**664**;Jul 10, 1995;Build 5
  1. ;Per VHA Directive 10-92-142, this routine should not be modified
  1. Q
  1. ;----------------------------------------------
  1. POST ; -- Entry point
  1. N XUMF S XUMF=1
  1. D 1251,1252,1253
  1. N X S X="XUMF664" X ^%ZOSF("DEL")
  1. K XMY
  1. Q
  1. ;----------------------------------------------
  1. TEST ; -- Entry point
  1. N XUMF S XUMF=1
  1. D 1251,1252,1253
  1. ;N X S X="XUMF664" X ^%ZOSF("DEL")
  1. K XMY
  1. Q
  1. ;
  1. 1251 ;FILE 120.51
  1. N XFIEN,XFILE
  1. S XFIEN=120.51
  1. S XFILE="Vital Types"
  1. D DEL^XUMF664(XFIEN) ; delete entry
  1. 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
  1. 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
  1. D NODES^XUMF664(XFIEN,"DATA1251",16) ; call ADD1 to add sub_entry
  1. D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
  1. D DELMD5^XUMF664(XFILE)
  1. D ADDMD5^XUMF664(XFILE,XFIEN)
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
  1. D SUBMD5^XUMF664(XFILE,"1^40^^^",XFIEN,1)
  1. D SUBMD5^XUMF664(XFILE,"3^50^^^",XFIEN,3)
  1. D SUBMD5^XUMF664(XFILE,"4^60^^^",XFIEN,4)
  1. D SUBMD5^XUMF664(XFILE,"5^70^^^",XFIEN,5)
  1. D SUBMD5^XUMF664(XFILE,"7^80^^^",XFIEN,7)
  1. ;D SUBMD5^XUMF664(XFILE,"8^30^^^",XFIEN,3)
  1. D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
  1. ;D SUBMD5^XUMF664(XFILE,"99.991^100^^^",XFIEN,99.991)
  1. S XFIEN=120.518
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12051^GMRVVZRT",XFIEN,.01)
  1. Q
  1. ;
  1. ;----------------------------------------------
  1. 1252 ;FILE 120.52
  1. N XFIEN,XFILE
  1. S XFIEN=120.52
  1. S XFILE="Vital Qualifiers"
  1. D DEL^XUMF664(XFIEN) ; delete entry
  1. 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
  1. 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
  1. D NODES^XUMF664(XFIEN,"DATA1252",12) ; call ADD1 to add sub_entry
  1. D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
  1. D ADD2^XUMF664(XFIEN,"has_qualifier",1,"1^has_qualifier^.01^1^")
  1. D ADD2^XUMF664(XFIEN,"has_qualifier",2,"2^has_VistA_category^.02^^")
  1. D ADD2^XUMF664(XFIEN,"has_VistA_category",1,"2^has_VistA_category^.02^1^")
  1. D DELMD5^XUMF664(XFILE)
  1. D ADDMD5^XUMF664(XFILE,XFIEN)
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
  1. D SUBMD5^XUMF664(XFILE,".02^40^^^",XFIEN,.02)
  1. D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
  1. D SUBMD5^XUMF664(XFILE,"999999^55^^^",XFIEN,999999)
  1. S XFIEN=120.522
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12052^GMRVVZRT",XFIEN,.01)
  1. S XFIEN=120.521
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^50^^120.51^^",XFIEN,.01)
  1. D SUBMD5^XUMF664(XFILE,".02^60^^120.53^1^",XFIEN,.02)
  1. Q
  1. ;
  1. ;-----------------------------------------------
  1. 1253 ;FILE 120.53
  1. N XFIEN,XFILE
  1. S XFIEN=120.53
  1. S XFILE="Vital Categories"
  1. D DEL^XUMF664(XFIEN) ; delete entry
  1. 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
  1. 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
  1. D NODES^XUMF664(XFIEN,"DATA1253",11) ; call ADD1 to add sub_entry
  1. D ADD2^XUMF664(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
  1. D DELMD5^XUMF664(XFILE)
  1. D ADDMD5^XUMF664(XFILE,XFIEN)
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^20^^^",XFIEN,.01)
  1. D SUBMD5^XUMF664(XFILE,"99.99^10^^^",XFIEN,99.99)
  1. ;D SUBMD5^XUMF664(XFILE,"99.991^40^^^",XFIEN,99.991)
  1. S XFIEN=120.532
  1. D SCMD5^XUMF664(XFILE,XFIEN)
  1. D SUBMD5^XUMF664(XFILE,".01^30^^^^D M12053^GMRVVZRT",XFIEN,.01)
  1. Q