XUMF654P.m

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 ---XUMF654P   8903     printed  Apr 23, 2025@18:25:06                                                                                                                                                                                                    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