XUMF686P.m

XUMF686P ;OIFO-BP/BATRAN - MFS parameters file ; 12/14/2017

 ;;8.0;KERNEL;**686**;Jul 10, 1995;Build 3

 ;Per VHA Directive 10-92-142, this routine should not be modified

 Q

 ;----------------------------------------------

POST ; -- Entry point

 N XUMF S XUMF=1

 D 50

 N X S X="XUMF686" X ^%ZOSF("DEL")

 K XMY

 Q

 ;----------------------------------------------

TEST ; -- Entry point

 N XUMF S XUMF=1

 D 50

 K XMY

 Q

 ;

50 ;FILE 50.60699 

 ; FILE 4.001

 N XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN

 S XFIEN=50.60699

 S XFILE="Dose Forms"

 D DEL^XUMF686(XFIEN) ; delete entry

 D ADD^XUMF686(XFIEN,".03;Dose Forms].07;Dose Forms]5;D ZRT^HDIPSZRT]2;D POST^HDIPSZRT]6;D DESC^HDIZRT",50.60699) ; add entry

 D NODES^XUMF686(XFIEN,"DATA50",6) ; call ADD1 to add sub_entry

 D ADD2^XUMF686(XFIEN,"VistA_Related_Record",1,"1^VistA_Related_Record^.01^^")

 ; file 4.005

 D DELMD5^XUMF686(XFILE)

 D ADDMD5^XUMF686(XFILE,XFIEN)

 S XFIEN=50.60699

 D SCMD5^XUMF686(XFILE,XFIEN)

 D SUBMD5^XUMF686(XFILE,".01^20^^^",XFIEN,.01) ;

 D SUBMD5^XUMF686(XFILE,"1^30^^^",XFIEN,1) ;

 D SUBMD5^XUMF686(XFILE,"2^40^^^",XFIEN,2) ;

 D SUBMD5^XUMF686(XFILE,"99.97^60^^50.60699^",XFIEN,99.97) ;

 D SUBMD5^XUMF686(XFILE,"99.99^10^^^",XFIEN,99.99) ;

 S XFIEN=50.60699901

 D SCMD5^XUMF686(XFILE,XFIEN)

 D SUBMD5^XUMF686(XFILE,".01^50^^^",XFIEN,.01) ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUMF686P   1354     printed  Apr 09, 2024@21:06:31                                                                                                                                                                                                    Page 2

XUMF686P  ;OIFO-BP/BATRAN - MFS parameters file ; 12/14/2017

 +1       ;;8.0;KERNEL;**686**;Jul 10, 1995;Build 3

 +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 50

 +3        NEW X

           SET X="XUMF686"

           XECUTE ^%ZOSF("DEL")

 +4        KILL XMY

 +5        QUIT 

 +6       ;----------------------------------------------

TEST      ; -- Entry point

 +1        NEW XUMF

           SET XUMF=1

 +2        DO 50

 +3        KILL XMY

 +4        QUIT 

 +5       ;

50        ;FILE 50.60699 

 +1       ; FILE 4.001

 +2        NEW XFIEN,XFILE,XUIENOLD,XUMAIL,XUIEN

 +3        SET XFIEN=50.60699

 +4        SET XFILE="Dose Forms"

 +5       ; delete entry

           DO DEL^XUMF686(XFIEN)

 +6       ; add entry

           DO ADD^XUMF686(XFIEN,".03;Dose Forms].07;Dose Forms]5;D ZRT^HDIPSZRT]2;D POST^HDIPSZRT]6;D DESC^HDIZRT",50.60699)

 +7       ; call ADD1 to add sub_entry

           DO NODES^XUMF686(XFIEN,"DATA50",6)

 +8        DO ADD2^XUMF686(XFIEN,"VistA_Related_Record",1,"1^VistA_Related_Record^.01^^")

 +9       ; file 4.005

 +10       DO DELMD5^XUMF686(XFILE)

 +11       DO ADDMD5^XUMF686(XFILE,XFIEN)

 +12       SET XFIEN=50.60699

 +13       DO SCMD5^XUMF686(XFILE,XFIEN)

 +14      ;

           DO SUBMD5^XUMF686(XFILE,".01^20^^^",XFIEN,.01)

 +15      ;

           DO SUBMD5^XUMF686(XFILE,"1^30^^^",XFIEN,1)

 +16      ;

           DO SUBMD5^XUMF686(XFILE,"2^40^^^",XFIEN,2)

 +17      ;

           DO SUBMD5^XUMF686(XFILE,"99.97^60^^50.60699^",XFIEN,99.97)

 +18      ;

           DO SUBMD5^XUMF686(XFILE,"99.99^10^^^",XFIEN,99.99)

 +19       SET XFIEN=50.60699901

 +20       DO SCMD5^XUMF686(XFILE,XFIEN)

 +21      ;

           DO SUBMD5^XUMF686(XFILE,".01^50^^^",XFIEN,.01)

 +22       QUIT 

 +23      ;