XUMF686P ;OIFO-BP/BATRAN - MFS parameters file ; 12/14/2017
;;8.0;KERNEL;**686**;Jul 10, 1995;Build 3
;Per VHA Directive 10-92-142, this routine should not be modified
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 50
N X S X="XUMF686" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
D 50
K XMY
Q
;
50 ;FILE 50.60699
; FILE 4.001
N XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN
S XFIEN=50.60699
S XFILE="Dose Forms"
D DEL^XUMF686(XFIEN) ; delete entry
D ADD^XUMF686(XFIEN,".03;Dose Forms].07;Dose Forms]5;D ZRT^HDIPSZRT]2;D POST^HDIPSZRT]6;D DESC^HDIZRT",50.60699) ; add entry
D NODES^XUMF686(XFIEN,"DATA50",6) ; call ADD1 to add sub_entry
D ADD2^XUMF686(XFIEN,"VistA_Related_Record",1,"1^VistA_Related_Record^.01^^")
; file 4.005
D DELMD5^XUMF686(XFILE)
D ADDMD5^XUMF686(XFILE,XFIEN)
S XFIEN=50.60699
D SCMD5^XUMF686(XFILE,XFIEN)
D SUBMD5^XUMF686(XFILE,".01^20^^^",XFIEN,.01) ;
D SUBMD5^XUMF686(XFILE,"1^30^^^",XFIEN,1) ;
D SUBMD5^XUMF686(XFILE,"2^40^^^",XFIEN,2) ;
D SUBMD5^XUMF686(XFILE,"99.97^60^^50.60699^",XFIEN,99.97) ;
D SUBMD5^XUMF686(XFILE,"99.99^10^^^",XFIEN,99.99) ;
S XFIEN=50.60699901
D SCMD5^XUMF686(XFILE,XFIEN)
D SUBMD5^XUMF686(XFILE,".01^50^^^",XFIEN,.01) ;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF686P 1354 printed Dec 13, 2024@02:10:44 Page 2
XUMF686P ;OIFO-BP/BATRAN - MFS parameters file ; 12/14/2017
+1 ;;8.0;KERNEL;**686**;Jul 10, 1995;Build 3
+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 50
+3 NEW X
SET X="XUMF686"
XECUTE ^%ZOSF("DEL")
+4 KILL XMY
+5 QUIT
+6 ;----------------------------------------------
TEST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 DO 50
+3 KILL XMY
+4 QUIT
+5 ;
50 ;FILE 50.60699
+1 ; FILE 4.001
+2 NEW XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN
+3 SET XFIEN=50.60699
+4 SET XFILE="Dose Forms"
+5 ; delete entry
DO DEL^XUMF686(XFIEN)
+6 ; add entry
DO ADD^XUMF686(XFIEN,".03;Dose Forms].07;Dose Forms]5;D ZRT^HDIPSZRT]2;D POST^HDIPSZRT]6;D DESC^HDIZRT",50.60699)
+7 ; call ADD1 to add sub_entry
DO NODES^XUMF686(XFIEN,"DATA50",6)
+8 DO ADD2^XUMF686(XFIEN,"VistA_Related_Record",1,"1^VistA_Related_Record^.01^^")
+9 ; file 4.005
+10 DO DELMD5^XUMF686(XFILE)
+11 DO ADDMD5^XUMF686(XFILE,XFIEN)
+12 SET XFIEN=50.60699
+13 DO SCMD5^XUMF686(XFILE,XFIEN)
+14 ;
DO SUBMD5^XUMF686(XFILE,".01^20^^^",XFIEN,.01)
+15 ;
DO SUBMD5^XUMF686(XFILE,"1^30^^^",XFIEN,1)
+16 ;
DO SUBMD5^XUMF686(XFILE,"2^40^^^",XFIEN,2)
+17 ;
DO SUBMD5^XUMF686(XFILE,"99.97^60^^50.60699^",XFIEN,99.97)
+18 ;
DO SUBMD5^XUMF686(XFILE,"99.99^10^^^",XFIEN,99.99)
+19 SET XFIEN=50.60699901
+20 DO SCMD5^XUMF686(XFILE,XFIEN)
+21 ;
DO SUBMD5^XUMF686(XFILE,".01^50^^^",XFIEN,.01)
+22 QUIT
+23 ;
