XUMF665P.m

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 ---XUMF665P   1494     printed  Apr 09, 2024@21:13:25                                                                                                                                                                                                    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      ;----------------------------------------------------