- XUMF683P ;OIFO-BP/BATRAN - MFS parameters file ; 07/27/2017
- ;;8.0;KERNEL;**683**;Jul 10, 1995;Build 8
- ;Per VHA Directive 10-92-142, this routine should not be modified
- Q
- ;----------------------------------------------
- POST ; -- Entry point
- N XUMF S XUMF=1
- D 35599
- N X S X="XUMF683" X ^%ZOSF("DEL")
- K XMY
- Q
- ;----------------------------------------------
- TEST ; -- Entry point
- N XUMF S XUMF=1
- D 35599
- K XMY
- Q
- ;
- 35599 ;FILE 355.99
- ; FILE 4.001
- N XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN
- S XFIEN=355.99
- S XFILE="Plans"
- D DEL^XUMF683(XFIEN) ; delete entry
- D ADD^XUMF683(XFIEN,".03;Plans].07;Plans]",355.99) ; add entry
- D NODES^XUMF683(XFIEN,"DATA355",5) ; call ADD1 to add sub_entry
- D ADD2^XUMF683(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
- ; file 4.005
- D DELMD5^XUMF683(XFILE)
- D ADDMD5^XUMF683(XFILE,XFIEN)
- S XFIEN=355.99
- D SCMD5^XUMF683(XFILE,XFIEN)
- D SUBMD5^XUMF683(XFILE,".01^20^^^",XFIEN,.01) ;
- D SUBMD5^XUMF683(XFILE,"1^30^^^",XFIEN,1) ;
- D SUBMD5^XUMF683(XFILE,"2^40^^355.99^",XFIEN,2) ;
- D SUBMD5^XUMF683(XFILE,"99.97^50^^355.99^",XFIEN,99.97) ;
- D SUBMD5^XUMF683(XFILE,"99.99^10^^^",XFIEN,99.99) ;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF683P 1192 printed Apr 23, 2025@18:25:13 Page 2
- XUMF683P ;OIFO-BP/BATRAN - MFS parameters file ; 07/27/2017
- +1 ;;8.0;KERNEL;**683**;Jul 10, 1995;Build 8
- +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 35599
- +3 NEW X
- SET X="XUMF683"
- XECUTE ^%ZOSF("DEL")
- +4 KILL XMY
- +5 QUIT
- +6 ;----------------------------------------------
- TEST ; -- Entry point
- +1 NEW XUMF
- SET XUMF=1
- +2 DO 35599
- +3 KILL XMY
- +4 QUIT
- +5 ;
- 35599 ;FILE 355.99
- +1 ; FILE 4.001
- +2 NEW XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN
- +3 SET XFIEN=355.99
- +4 SET XFILE="Plans"
- +5 ; delete entry
- DO DEL^XUMF683(XFIEN)
- +6 ; add entry
- DO ADD^XUMF683(XFIEN,".03;Plans].07;Plans]",355.99)
- +7 ; call ADD1 to add sub_entry
- DO NODES^XUMF683(XFIEN,"DATA355",5)
- +8 DO ADD2^XUMF683(XFIEN,"VistA_Mapping_Target",1,"1^VistA_Mapping_Target^.01^^")
- +9 ; file 4.005
- +10 DO DELMD5^XUMF683(XFILE)
- +11 DO ADDMD5^XUMF683(XFILE,XFIEN)
- +12 SET XFIEN=355.99
- +13 DO SCMD5^XUMF683(XFILE,XFIEN)
- +14 ;
- DO SUBMD5^XUMF683(XFILE,".01^20^^^",XFIEN,.01)
- +15 ;
- DO SUBMD5^XUMF683(XFILE,"1^30^^^",XFIEN,1)
- +16 ;
- DO SUBMD5^XUMF683(XFILE,"2^40^^355.99^",XFIEN,2)
- +17 ;
- DO SUBMD5^XUMF683(XFILE,"99.97^50^^355.99^",XFIEN,99.97)
- +18 ;
- DO SUBMD5^XUMF683(XFILE,"99.99^10^^^",XFIEN,99.99)
- +19 QUIT
- +20 ;
