XUMF665P ;OIFO-BP/BATRAN - MFS parameters file ;04/21/2016
;;8.0;KERNEL;**665**;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 663
N X S X="XUMF665" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
S XMY("TRAN.BA_D@DOMAIN.EXT")=""
D 663
K XMY
Q
;---------------------------------------------
663 ; FILE 66.3 MASTER LABORATORY TEST FILE
N XFIEN,XFILE
S XFIEN=66.3
S XFILE="Laboratory Tests"
D DEL^XUMF665(XFIEN) ; delete entry
D ADD^XUMF665(XFIEN,".03;Laboratory Tests].07;Laboratory Tests") ; add entry
D NODES^XUMF665(XFIEN,"DATA663",11) ; call ADD1 to add sub_entry
D DELMD5^XUMF665(XFILE)
D ADDMD5^XUMF665(XFILE,XFIEN)
D SCMD5^XUMF665(XFILE,XFIEN)
D SUBMD5^XUMF665(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF665(XFILE,".02^100^^^",XFIEN,.02)
D SUBMD5^XUMF665(XFILE,".04^90^^^",XFIEN,.04)
D SUBMD5^XUMF665(XFILE,".05^30^^^",XFIEN,.05)
D SUBMD5^XUMF665(XFILE,".06^50^^^",XFIEN,.06)
D SUBMD5^XUMF665(XFILE,".07^80^^^",XFIEN,.07)
D SUBMD5^XUMF665(XFILE,".08^70^^^",XFIEN,.08)
D SUBMD5^XUMF665(XFILE,".09^60^^^",XFIEN,.09)
D SUBMD5^XUMF665(XFILE,"1^40^^^",XFIEN,1)
D SUBMD5^XUMF665(XFILE,"99.97^110^^66.3^",XFIEN,99.97)
D SUBMD5^XUMF665(XFILE,"99.99^10^^^",XFIEN,99.99)
Q
;----------------------------------------------------
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF665P 1494 printed Dec 13, 2024@02:10:36 Page 2
XUMF665P ;OIFO-BP/BATRAN - MFS parameters file ;04/21/2016
+1 ;;8.0;KERNEL;**665**;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 663
+3 NEW X
SET X="XUMF665"
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 663
+4 KILL XMY
+5 QUIT
+6 ;---------------------------------------------
663 ; FILE 66.3 MASTER LABORATORY TEST FILE
+1 NEW XFIEN,XFILE
+2 SET XFIEN=66.3
+3 SET XFILE="Laboratory Tests"
+4 ; delete entry
DO DEL^XUMF665(XFIEN)
+5 ; add entry
DO ADD^XUMF665(XFIEN,".03;Laboratory Tests].07;Laboratory Tests")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF665(XFIEN,"DATA663",11)
+7 DO DELMD5^XUMF665(XFILE)
+8 DO ADDMD5^XUMF665(XFILE,XFIEN)
+9 DO SCMD5^XUMF665(XFILE,XFIEN)
+10 DO SUBMD5^XUMF665(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF665(XFILE,".02^100^^^",XFIEN,.02)
+12 DO SUBMD5^XUMF665(XFILE,".04^90^^^",XFIEN,.04)
+13 DO SUBMD5^XUMF665(XFILE,".05^30^^^",XFIEN,.05)
+14 DO SUBMD5^XUMF665(XFILE,".06^50^^^",XFIEN,.06)
+15 DO SUBMD5^XUMF665(XFILE,".07^80^^^",XFIEN,.07)
+16 DO SUBMD5^XUMF665(XFILE,".08^70^^^",XFIEN,.08)
+17 DO SUBMD5^XUMF665(XFILE,".09^60^^^",XFIEN,.09)
+18 DO SUBMD5^XUMF665(XFILE,"1^40^^^",XFIEN,1)
+19 DO SUBMD5^XUMF665(XFILE,"99.97^110^^66.3^",XFIEN,99.97)
+20 DO SUBMD5^XUMF665(XFILE,"99.99^10^^^",XFIEN,99.99)
+21 QUIT
+22 ;----------------------------------------------------
