XUMF666P ;OIFO-BP/BATRAN - MFS parameters file ;04/21/2016
;;8.0;KERNEL;**666**;Jul 10, 1995;Build 1
;Per VHA Directive 10-92-142, this routine should not be modified
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 7199
N X S X="XUMF666" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
S XMY("TRAN.BA_D@DOMAIN.EXT")=""
D 7199
K XMY
Q
;---------------------------------------------
7199 ; FILE 71.99 MASTER RADIOLOGY PROCEDURE FILE
N XFIEN,XFILE
S XFIEN=71.99
S XFILE="Radiology Procedures"
D DEL^XUMF666(XFIEN) ; delete entry
D ADD^XUMF666(XFIEN,".03;Radiology Procedures].07;Radiology Procedures") ; add entry
D NODES^XUMF666(XFIEN,"DATA7199",8) ; call ADD1 to add sub_entry
D DELMD5^XUMF666(XFILE)
D ADDMD5^XUMF666(XFILE,XFIEN)
D SCMD5^XUMF666(XFILE,XFIEN)
D SUBMD5^XUMF666(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF666(XFILE,"1^30^^^",XFIEN,1)
D SUBMD5^XUMF666(XFILE,"2^40^^^",XFIEN,2)
D SUBMD5^XUMF666(XFILE,"2.2^70^^^",XFIEN,2.2)
D SUBMD5^XUMF666(XFILE,"2.3^50^^^",XFIEN,2.3)
D SUBMD5^XUMF666(XFILE,"3^60^^^",XFIEN,3)
D SUBMD5^XUMF666(XFILE,"99.97^80^^71.99^",XFIEN,99.97)
D SUBMD5^XUMF666(XFILE,"99.99^10^^^",XFIEN,99.99)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF666P 1306 printed Nov 22, 2024@17:20:45 Page 2
XUMF666P ;OIFO-BP/BATRAN - MFS parameters file ;04/21/2016
+1 ;;8.0;KERNEL;**666**;Jul 10, 1995;Build 1
+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 7199
+3 NEW X
SET X="XUMF666"
XECUTE ^%ZOSF("DEL")
+4 KILL XMY
+5 QUIT
+6 ;----------------------------------------------
TEST ; -- Entry point
+1 NEW XUMF
SET XUMF=1
+2 SET XMY("TRAN.BA_D@DOMAIN.EXT")=""
+3 DO 7199
+4 KILL XMY
+5 QUIT
+6 ;---------------------------------------------
7199 ; FILE 71.99 MASTER RADIOLOGY PROCEDURE FILE
+1 NEW XFIEN,XFILE
+2 SET XFIEN=71.99
+3 SET XFILE="Radiology Procedures"
+4 ; delete entry
DO DEL^XUMF666(XFIEN)
+5 ; add entry
DO ADD^XUMF666(XFIEN,".03;Radiology Procedures].07;Radiology Procedures")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF666(XFIEN,"DATA7199",8)
+7 DO DELMD5^XUMF666(XFILE)
+8 DO ADDMD5^XUMF666(XFILE,XFIEN)
+9 DO SCMD5^XUMF666(XFILE,XFIEN)
+10 DO SUBMD5^XUMF666(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF666(XFILE,"1^30^^^",XFIEN,1)
+12 DO SUBMD5^XUMF666(XFILE,"2^40^^^",XFIEN,2)
+13 DO SUBMD5^XUMF666(XFILE,"2.2^70^^^",XFIEN,2.2)
+14 DO SUBMD5^XUMF666(XFILE,"2.3^50^^^",XFIEN,2.3)
+15 DO SUBMD5^XUMF666(XFILE,"3^60^^^",XFIEN,3)
+16 DO SUBMD5^XUMF666(XFILE,"99.97^80^^71.99^",XFIEN,99.97)
+17 DO SUBMD5^XUMF666(XFILE,"99.99^10^^^",XFIEN,99.99)
+18 QUIT
