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 Dec 13, 2024@02:10:42 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 ;
