- 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 Apr 23, 2025@18:25:09 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 ;----------------------------------------------------
