XUMF654P ;OIFO-BP/BATRAN - MFS parameters file ;05/27/2015
;;8.0;KERNEL;**654**;Jul 10, 1995;Build 32
;Per VHA Directive 10-92-142, this routine should not be modified
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 9904,9914,9928 ;
D 920,9201,9202,9203,9204,9205 ;
N X S X="XUMF654" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
9904 ; FILE 9999999.04
N XFIEN,XFILE
S XFIEN=9999999.04
S XFILE="Imm Manufacturers"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Manufacturers].07;Imm Manufacturers]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9904",6) ; call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,"99.97^50^^9999999.04^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,"201^40^^^",XFIEN,201)
D SUBMD5^XUMF654(XFILE,".03^25^I^^",XFIEN,.03)
Q
;-----------------------------------------------
9914 ; FILE 9999999.14
N XFIEN,XFILE
S XFIEN=9999999.14
S XFILE="Imm Procedures"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Procedures].07;Imm Procedures]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA",18) ; call ADD1 to add sub_entry
D ADD2^XUMF654(XFIEN,"VistA_Synonym",1,"1^VistA_Synonym^.01^^")
D ADD2^XUMF654(XFIEN,"VistA_CVX_Mapping",1,"1^VistA_CVX_Mapping^.01^^")
D ADD2^XUMF654(XFIEN,"VistA_CDC_Product_Name",1,"1^VistA_CDC_Product_Name^.01^^")
D ADD2^XUMF654(XFIEN,"vista_has_vis",1,"1^vista_has_vis^.01^1^")
D ADD2^XUMF654(XFIEN,"VistA_Immunization_Group",1,"1^VistA_Immunization_Group^.01^^")
;MD5
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
S XFIEN=9999999.14
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".03^80^^^",XFIEN,.03)
D SUBMD5^XUMF654(XFILE,".05^110^I^^",XFIEN,.05)
D SUBMD5^XUMF654(XFILE,".07^100^I^^^D M9992803^PXVZRT",XFIEN,.07)
D SUBMD5^XUMF654(XFILE,".2^70^I^^^D M999142^PXVZRT",XFIEN,.2)
D SUBMD5^XUMF654(XFILE,".51^130^^^",XFIEN,.51)
D SUBMD5^XUMF654(XFILE,"2^40^^^",XFIEN,2)
;D SUBMD5^XUMF654(XFILE,"10^150^^^",XFIEN,10)
D SUBMD5^XUMF654(XFILE,"99.97^170^^9999999.14^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,"100^60^^^",XFIEN,100)
D SUBMD5^XUMF654(XFILE,"8801^120^^^",XFIEN,8801)
D SUBMD5^XUMF654(XFILE,"8802^30^^^",XFIEN,8802)
D SUBMD5^XUMF654(XFILE,"8803^140^^^",XFIEN,8803)
S XFIEN=9999999.143
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^90^^^^D M999143^PXVZRT",XFIEN,.01)
S XFIEN=9999999.144
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^160^^920^",XFIEN,.01)
S XFIEN=9999999.145
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^50^^^",XFIEN,.01)
S XFIEN=9999999.147
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^99^^^",XFIEN,.01)
Q
;----------------------------------------------
9928 ;FILE #9999999.28 - Skin Tests
N XFIEN,XFILE
S XFIEN=9999999.28
S XFILE="Skin Tests"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Skin Tests].07;Skin Tests]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9928",9) ; call ADD1 to add sub_entry
D ADD2^XUMF654(XFIEN,"VistA_Skin_Test_Mapping",1,"1^VistA_Skin_Test_Mapping^.01^^")
;DM5
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".02^80^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,".03^50^I^^^D M9992803^PXVZRT",XFIEN,.03)
D SUBMD5^XUMF654(XFILE,"99.97^110^^9999999.28^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,"100^30^^^",XFIEN,100)
D SUBMD5^XUMF654(XFILE,"1201^70^^^",XFIEN,1201)
D SUBMD5^XUMF654(XFILE,"8801^60^^^",XFIEN,8801)
S XFIEN=9999999.283
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^90^^^^D M999283^PXVZRT",XFIEN,.01)
Q
;-----------------------------------------------
920 ; FILE #920
N XFIEN,XFILE
S XFIEN=920
S XFILE="Imm VIS"
D DEL^XUMF654(XFIEN) ;delete entry
D ADD^XUMF654(XFIEN,".03;Imm VIS].07;Imm VIS]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA920",8) ;call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".02^40^I^^^D M92002^PXVZRT",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,".03^70^^^^D M92003^PXVZRT",XFIEN,.03)
D SUBMD5^XUMF654(XFILE,".04^50^^^^D M92004^PXVZRT",XFIEN,.04)
D SUBMD5^XUMF654(XFILE,"99.97^90^^920^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,"100^60^^^^",XFIEN,100)
D SUBMD5^XUMF654(XFILE,"101^80^^^",XFIEN,101)
Q
;----------------------------------------------
9201 ; FILE #920.1
N XFIEN,XFILE
S XFIEN=920.1
S XFILE="Imm Info Sources"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Info Sources].07;Imm Info Sources]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9201",5) ; call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,"99.97^40^^920.1^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,".03^35^I^^",XFIEN,.03)
Q
;-----------------------------------------------
9202 ; FILE #920.2
N XFIEN,XFILE
S XFIEN=920.2
S XFILE="Imm Admin Routes"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Admin Routes].07;Imm Admin Routes]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9202",6) ; call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,".03^30^^^",XFIEN,.03)
D SUBMD5^XUMF654(XFILE,".02^40^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,".04^50^^^",XFIEN,.04)
D SUBMD5^XUMF654(XFILE,"99.97^60^^920.2^",XFIEN,99.97)
Q
;-----------------------------------------------
9203 ; FILE 920.3
N XFIEN,XFILE
S XFIEN=920.3
S XFILE="Imm Body Sites"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Body Sites].07;Imm Body Sites]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9203",4) ; call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,"99.97^40^^920.3^",XFIEN,99.97)
Q
;-----------------------------------------------
9204 ; FILE 920.4
N XFIEN,XFILE
S XFIEN=920.4
S XFILE="Imm Contraindications"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Contraindications].07;Imm Contraindications]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9204",11) ; call ADD1 to add sub_entry
D ADD2^XUMF654(XFIEN,"vista_applies_to",1,"1^vista_applies_to^.01^1^")
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".04^30^^^",XFIEN,.04)
D SUBMD5^XUMF654(XFILE,".02^40^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,".05^50^^^",XFIEN,.05)
D SUBMD5^XUMF654(XFILE,".03^60^I^^",XFIEN,.03)
D SUBMD5^XUMF654(XFILE,"1^70^^^",XFIEN,1)
D SUBMD5^XUMF654(XFILE,".06^75^I^^",XFIEN,.06)
D SUBMD5^XUMF654(XFILE,"2^80^^^",XFIEN,2)
D SUBMD5^XUMF654(XFILE,"99.97^90^^920.4^",XFIEN,99.97)
S XFIEN=920.43
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^85^^9999999.14^",XFIEN,.01)
Q
;------------------------------------------------
9205 ; FILE 920.5
N XFIEN,XFILE
S XFIEN=920.5
S XFILE="Imm Refusal Reasons"
D DEL^XUMF654(XFIEN) ; delete entry
D ADD^XUMF654(XFIEN,".03;Imm Refusal Reasons].07;Imm Refusal Reasons]5;D ZRT^PXVZRT]") ; add entry
D NODES^XUMF654(XFIEN,"DATA9205",4) ; call ADD1 to add sub_entry
D DELMD5^XUMF654(XFILE)
D ADDMD5^XUMF654(XFILE)
D SCMD5^XUMF654(XFILE,XFIEN)
D SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
D SUBMD5^XUMF654(XFILE,"99.97^40^^920.5^",XFIEN,99.97)
D SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
Q
;-------------------------------------------------
TEST ;
N XUMF,XMY S XUMF=1
S XMY("TRAN.BA_D@DOMAIN.EXT")=""
D 9204,9904,9914,9928,920,9201,9202,9203,9204,9205 ;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF654P 8903 printed Apr 09, 2024@21:14:30 Page 2
XUMF654P ;OIFO-BP/BATRAN - MFS parameters file ;05/27/2015
+1 ;;8.0;KERNEL;**654**;Jul 10, 1995;Build 32
+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 9904
DO 9914
DO 9928
+3 ;
DO 920
DO 9201
DO 9202
DO 9203
DO 9204
DO 9205
+4 NEW X
SET X="XUMF654"
XECUTE ^%ZOSF("DEL")
+5 KILL XMY
+6 QUIT
+7 ;----------------------------------------------
9904 ; FILE 9999999.04
+1 NEW XFIEN,XFILE
+2 SET XFIEN=9999999.04
+3 SET XFILE="Imm Manufacturers"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Manufacturers].07;Imm Manufacturers]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9904",6)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
+12 DO SUBMD5^XUMF654(XFILE,"99.97^50^^9999999.04^",XFIEN,99.97)
+13 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+14 DO SUBMD5^XUMF654(XFILE,"201^40^^^",XFIEN,201)
+15 DO SUBMD5^XUMF654(XFILE,".03^25^I^^",XFIEN,.03)
+16 QUIT
+17 ;-----------------------------------------------
9914 ; FILE 9999999.14
+1 NEW XFIEN,XFILE
+2 SET XFIEN=9999999.14
+3 SET XFILE="Imm Procedures"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Procedures].07;Imm Procedures]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA",18)
+7 DO ADD2^XUMF654(XFIEN,"VistA_Synonym",1,"1^VistA_Synonym^.01^^")
+8 DO ADD2^XUMF654(XFIEN,"VistA_CVX_Mapping",1,"1^VistA_CVX_Mapping^.01^^")
+9 DO ADD2^XUMF654(XFIEN,"VistA_CDC_Product_Name",1,"1^VistA_CDC_Product_Name^.01^^")
+10 DO ADD2^XUMF654(XFIEN,"vista_has_vis",1,"1^vista_has_vis^.01^1^")
+11 DO ADD2^XUMF654(XFIEN,"VistA_Immunization_Group",1,"1^VistA_Immunization_Group^.01^^")
+12 ;MD5
+13 DO DELMD5^XUMF654(XFILE)
+14 DO ADDMD5^XUMF654(XFILE)
+15 SET XFIEN=9999999.14
+16 DO SCMD5^XUMF654(XFILE,XFIEN)
+17 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+18 DO SUBMD5^XUMF654(XFILE,".03^80^^^",XFIEN,.03)
+19 DO SUBMD5^XUMF654(XFILE,".05^110^I^^",XFIEN,.05)
+20 DO SUBMD5^XUMF654(XFILE,".07^100^I^^^D M9992803^PXVZRT",XFIEN,.07)
+21 DO SUBMD5^XUMF654(XFILE,".2^70^I^^^D M999142^PXVZRT",XFIEN,.2)
+22 DO SUBMD5^XUMF654(XFILE,".51^130^^^",XFIEN,.51)
+23 DO SUBMD5^XUMF654(XFILE,"2^40^^^",XFIEN,2)
+24 ;D SUBMD5^XUMF654(XFILE,"10^150^^^",XFIEN,10)
+25 DO SUBMD5^XUMF654(XFILE,"99.97^170^^9999999.14^",XFIEN,99.97)
+26 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+27 DO SUBMD5^XUMF654(XFILE,"100^60^^^",XFIEN,100)
+28 DO SUBMD5^XUMF654(XFILE,"8801^120^^^",XFIEN,8801)
+29 DO SUBMD5^XUMF654(XFILE,"8802^30^^^",XFIEN,8802)
+30 DO SUBMD5^XUMF654(XFILE,"8803^140^^^",XFIEN,8803)
+31 SET XFIEN=9999999.143
+32 DO SCMD5^XUMF654(XFILE,XFIEN)
+33 DO SUBMD5^XUMF654(XFILE,".01^90^^^^D M999143^PXVZRT",XFIEN,.01)
+34 SET XFIEN=9999999.144
+35 DO SCMD5^XUMF654(XFILE,XFIEN)
+36 DO SUBMD5^XUMF654(XFILE,".01^160^^920^",XFIEN,.01)
+37 SET XFIEN=9999999.145
+38 DO SCMD5^XUMF654(XFILE,XFIEN)
+39 DO SUBMD5^XUMF654(XFILE,".01^50^^^",XFIEN,.01)
+40 SET XFIEN=9999999.147
+41 DO SCMD5^XUMF654(XFILE,XFIEN)
+42 DO SUBMD5^XUMF654(XFILE,".01^99^^^",XFIEN,.01)
+43 QUIT
+44 ;----------------------------------------------
9928 ;FILE #9999999.28 - Skin Tests
+1 NEW XFIEN,XFILE
+2 SET XFIEN=9999999.28
+3 SET XFILE="Skin Tests"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Skin Tests].07;Skin Tests]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9928",9)
+7 DO ADD2^XUMF654(XFIEN,"VistA_Skin_Test_Mapping",1,"1^VistA_Skin_Test_Mapping^.01^^")
+8 ;DM5
+9 DO DELMD5^XUMF654(XFILE)
+10 DO ADDMD5^XUMF654(XFILE)
+11 DO SCMD5^XUMF654(XFILE,XFIEN)
+12 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+13 DO SUBMD5^XUMF654(XFILE,".02^80^^^",XFIEN,.02)
+14 DO SUBMD5^XUMF654(XFILE,".03^50^I^^^D M9992803^PXVZRT",XFIEN,.03)
+15 DO SUBMD5^XUMF654(XFILE,"99.97^110^^9999999.28^",XFIEN,99.97)
+16 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+17 DO SUBMD5^XUMF654(XFILE,"100^30^^^",XFIEN,100)
+18 DO SUBMD5^XUMF654(XFILE,"1201^70^^^",XFIEN,1201)
+19 DO SUBMD5^XUMF654(XFILE,"8801^60^^^",XFIEN,8801)
+20 SET XFIEN=9999999.283
+21 DO SCMD5^XUMF654(XFILE,XFIEN)
+22 DO SUBMD5^XUMF654(XFILE,".01^90^^^^D M999283^PXVZRT",XFIEN,.01)
+23 QUIT
+24 ;-----------------------------------------------
920 ; FILE #920
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920
+3 SET XFILE="Imm VIS"
+4 ;delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm VIS].07;Imm VIS]5;D ZRT^PXVZRT]")
+6 ;call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA920",8)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,".02^40^I^^^D M92002^PXVZRT",XFIEN,.02)
+12 DO SUBMD5^XUMF654(XFILE,".03^70^^^^D M92003^PXVZRT",XFIEN,.03)
+13 DO SUBMD5^XUMF654(XFILE,".04^50^^^^D M92004^PXVZRT",XFIEN,.04)
+14 DO SUBMD5^XUMF654(XFILE,"99.97^90^^920^",XFIEN,99.97)
+15 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+16 DO SUBMD5^XUMF654(XFILE,"100^60^^^^",XFIEN,100)
+17 DO SUBMD5^XUMF654(XFILE,"101^80^^^",XFIEN,101)
+18 QUIT
+19 ;----------------------------------------------
9201 ; FILE #920.1
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920.1
+3 SET XFILE="Imm Info Sources"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Info Sources].07;Imm Info Sources]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9201",5)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+12 DO SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
+13 DO SUBMD5^XUMF654(XFILE,"99.97^40^^920.1^",XFIEN,99.97)
+14 DO SUBMD5^XUMF654(XFILE,".03^35^I^^",XFIEN,.03)
+15 QUIT
+16 ;-----------------------------------------------
9202 ; FILE #920.2
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920.2
+3 SET XFILE="Imm Admin Routes"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Admin Routes].07;Imm Admin Routes]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9202",6)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+12 DO SUBMD5^XUMF654(XFILE,".03^30^^^",XFIEN,.03)
+13 DO SUBMD5^XUMF654(XFILE,".02^40^^^",XFIEN,.02)
+14 DO SUBMD5^XUMF654(XFILE,".04^50^^^",XFIEN,.04)
+15 DO SUBMD5^XUMF654(XFILE,"99.97^60^^920.2^",XFIEN,99.97)
+16 QUIT
+17 ;-----------------------------------------------
9203 ; FILE 920.3
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920.3
+3 SET XFILE="Imm Body Sites"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Body Sites].07;Imm Body Sites]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9203",4)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+12 DO SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
+13 DO SUBMD5^XUMF654(XFILE,"99.97^40^^920.3^",XFIEN,99.97)
+14 QUIT
+15 ;-----------------------------------------------
9204 ; FILE 920.4
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920.4
+3 SET XFILE="Imm Contraindications"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Contraindications].07;Imm Contraindications]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9204",11)
+7 DO ADD2^XUMF654(XFIEN,"vista_applies_to",1,"1^vista_applies_to^.01^1^")
+8 DO DELMD5^XUMF654(XFILE)
+9 DO ADDMD5^XUMF654(XFILE)
+10 DO SCMD5^XUMF654(XFILE,XFIEN)
+11 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+12 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+13 DO SUBMD5^XUMF654(XFILE,".04^30^^^",XFIEN,.04)
+14 DO SUBMD5^XUMF654(XFILE,".02^40^^^",XFIEN,.02)
+15 DO SUBMD5^XUMF654(XFILE,".05^50^^^",XFIEN,.05)
+16 DO SUBMD5^XUMF654(XFILE,".03^60^I^^",XFIEN,.03)
+17 DO SUBMD5^XUMF654(XFILE,"1^70^^^",XFIEN,1)
+18 DO SUBMD5^XUMF654(XFILE,".06^75^I^^",XFIEN,.06)
+19 DO SUBMD5^XUMF654(XFILE,"2^80^^^",XFIEN,2)
+20 DO SUBMD5^XUMF654(XFILE,"99.97^90^^920.4^",XFIEN,99.97)
+21 SET XFIEN=920.43
+22 DO SCMD5^XUMF654(XFILE,XFIEN)
+23 DO SUBMD5^XUMF654(XFILE,".01^85^^9999999.14^",XFIEN,.01)
+24 QUIT
+25 ;------------------------------------------------
9205 ; FILE 920.5
+1 NEW XFIEN,XFILE
+2 SET XFIEN=920.5
+3 SET XFILE="Imm Refusal Reasons"
+4 ; delete entry
DO DEL^XUMF654(XFIEN)
+5 ; add entry
DO ADD^XUMF654(XFIEN,".03;Imm Refusal Reasons].07;Imm Refusal Reasons]5;D ZRT^PXVZRT]")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF654(XFIEN,"DATA9205",4)
+7 DO DELMD5^XUMF654(XFILE)
+8 DO ADDMD5^XUMF654(XFILE)
+9 DO SCMD5^XUMF654(XFILE,XFIEN)
+10 DO SUBMD5^XUMF654(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF654(XFILE,".02^30^^^",XFIEN,.02)
+12 DO SUBMD5^XUMF654(XFILE,"99.97^40^^920.5^",XFIEN,99.97)
+13 DO SUBMD5^XUMF654(XFILE,"99.99^10^^^",XFIEN,99.99)
+14 QUIT
+15 ;-------------------------------------------------
TEST ;
+1 NEW XUMF,XMY
SET XUMF=1
+2 SET XMY("TRAN.BA_D@DOMAIN.EXT")=""
+3 ;
DO 9204
DO 9904
DO 9914
DO 9928
DO 920
DO 9201
DO 9202
DO 9203
DO 9204
DO 9205
+4 QUIT
