XUMF675P ;OIFO-BP/BATRAN - MFS parameters file ;01/19/2016
;;8.0;KERNEL;**675**;Jul 10, 1995;Build 17
;Per VA Directive 6402, this routine should not be modified.
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 89261
N X S X="XUMF675" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
S XMY("G.XUPATH@DOMAIN.EXT")=""
D 89261
K XMY
Q
;---------------------------------------------
89261 ; FILE 8926.1 TIU VHA ENTERPRISE STANDARD TITLE
N XFIEN,XFILE
S XFIEN=8926.1
S XFILE="TIU Titles"
S XUIEN=$O(^DIC(4.001,"B",XFIEN,0)) ;Get existed IEN
I XUIEN>0 D DEL^XUMF675(XUIEN) ; delete entry
D DEL^XUMF675(XFIEN) ; delete entry
D ADD^XUMF675(XFIEN,".03;TIU Titles].07;TIU Titles]5;D ZRT^TIUZRT]2;D MFSUP^HDISVF09(8926.1,$G(ERROR)),BULL^TIUDD61]4.8;B") ; add entry
D NODES^XUMF675(XFIEN,"DATA675",8) ; call ADD1 to add sub_entry
D DELMD5^XUMF675(XFILE)
D ADDMD5^XUMF675(XFILE,XFIEN)
D SCMD5^XUMF675(XFILE,XFIEN)
D SUBMD5^XUMF675(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF675(XFILE,".04^30^^8926.2^",XFIEN,.04)
D SUBMD5^XUMF675(XFILE,".05^40^^8926.3^",XFIEN,.05)
D SUBMD5^XUMF675(XFILE,".06^50^^8926.4^",XFIEN,.06)
D SUBMD5^XUMF675(XFILE,".07^60^^8926.5^",XFIEN,.07)
D SUBMD5^XUMF675(XFILE,".08^70^^8926.6^",XFIEN,.08)
D SUBMD5^XUMF675(XFILE,"99.99^10^^^",XFIEN,99.99)
S XFIEN=8926.12
D SCMD5^XUMF675(XFILE,XFIEN)
D SUBMD5^XUMF675(XFILE,".01^25^^^^D M89261^TIUZRT",XFIEN,.01)
Q
;----------------------------------------------------
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF675P 1605 printed Dec 13, 2024@02:10:38 Page 2
XUMF675P ;OIFO-BP/BATRAN - MFS parameters file ;01/19/2016
+1 ;;8.0;KERNEL;**675**;Jul 10, 1995;Build 17
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;----------------------------------------------
POST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 DO 89261
+3 NEW X
SET X="XUMF675"
XECUTE ^%ZOSF("DEL")
+4 KILL XMY
+5 QUIT
+6 ;----------------------------------------------
TEST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 SET XMY("G.XUPATH@DOMAIN.EXT")=""
+3 DO 89261
+4 KILL XMY
+5 QUIT
+6 ;---------------------------------------------
89261 ; FILE 8926.1 TIU VHA ENTERPRISE STANDARD TITLE
+1 NEW XFIEN,XFILE
+2 SET XFIEN=8926.1
+3 SET XFILE="TIU Titles"
+4 ;Get existed IEN
SET XUIEN=$ORDER(^DIC(4.001,"B",XFIEN,0))
+5 ; delete entry
IF XUIEN>0
DO DEL^XUMF675(XUIEN)
+6 ; delete entry
DO DEL^XUMF675(XFIEN)
+7 ; add entry
DO ADD^XUMF675(XFIEN,".03;TIU Titles].07;TIU Titles]5;D ZRT^TIUZRT]2;D MFSUP^HDISVF09(8926.1,$G(ERROR)),BULL^TIUDD61]4.8;B")
+8 ; call ADD1 to add sub_entry
DO NODES^XUMF675(XFIEN,"DATA675",8)
+9 DO DELMD5^XUMF675(XFILE)
+10 DO ADDMD5^XUMF675(XFILE,XFIEN)
+11 DO SCMD5^XUMF675(XFILE,XFIEN)
+12 DO SUBMD5^XUMF675(XFILE,".01^20^^^",XFIEN,.01)
+13 DO SUBMD5^XUMF675(XFILE,".04^30^^8926.2^",XFIEN,.04)
+14 DO SUBMD5^XUMF675(XFILE,".05^40^^8926.3^",XFIEN,.05)
+15 DO SUBMD5^XUMF675(XFILE,".06^50^^8926.4^",XFIEN,.06)
+16 DO SUBMD5^XUMF675(XFILE,".07^60^^8926.5^",XFIEN,.07)
+17 DO SUBMD5^XUMF675(XFILE,".08^70^^8926.6^",XFIEN,.08)
+18 DO SUBMD5^XUMF675(XFILE,"99.99^10^^^",XFIEN,99.99)
+19 SET XFIEN=8926.12
+20 DO SCMD5^XUMF675(XFILE,XFIEN)
+21 DO SUBMD5^XUMF675(XFILE,".01^25^^^^D M89261^TIUZRT",XFIEN,.01)
+22 QUIT
+23 ;----------------------------------------------------
