XUMF677P ;OIFO-BP/BATRAN - MFS parameters file ;09/26/2017
;;8.0;KERNEL;**677**;Jul 10, 1995;Build 9
;Per VHA Directive 10-92-142, this routine should not be modified
Q
;----------------------------------------------
POST ; -- Entry point
N XUMF S XUMF=1
D 89321
N X S X="XUMF677" X ^%ZOSF("DEL")
K XMY
Q
;----------------------------------------------
TEST ; -- Entry point
N XUMF S XUMF=1
S XMY("G.XUPATH@DOMAIN.EXT")=""
D 89321
K XMY
Q
;---------------------------------------------
89321 ; FILE #8932.1 PERSON CLASS
N XFIEN,XFILE
S XFIEN=8932.1
S XFILE="Person Class"
D DEL^XUMF677(XFIEN) ; delete entry
D ADD^XUMF677(XFIEN,".03;Person Class].07;Person Class]5;D ZRT^XUPCZRT]2;D P89321^XUPCZRT]6;D D89321^XUPCZRT") ; add entry
D NODES^XUMF677(XFIEN,"DATA89",10) ; call ADD1 to add sub_entry
D DELMD5^XUMF677(XFILE)
D ADDMD5^XUMF677(XFILE,XFIEN)
D SCMD5^XUMF677(XFILE,XFIEN)
D SUBMD5^XUMF677(XFILE,".01^20^^^",XFIEN,.01)
D SUBMD5^XUMF677(XFILE,"1^60^^^",XFIEN,1)
D SUBMD5^XUMF677(XFILE,"2^50^^^",XFIEN,2)
D SUBMD5^XUMF677(XFILE,"5^30^^^",XFIEN,5)
D SUBMD5^XUMF677(XFILE,"6^40^^^",XFIEN,6)
D SUBMD5^XUMF677(XFILE,"8^70^^^",XFIEN,8)
D SUBMD5^XUMF677(XFILE,"11^80^^^",XFIEN,11)
D SUBMD5^XUMF677(XFILE,"99.97^90^^8932.1^",XFIEN,99.97)
D SUBMD5^XUMF677(XFILE,"99.99^10^^^",XFIEN,99.99)
D SUBMD5^XUMF677(XFILE,"90002^65^I^^",XFIEN,90002)
;----------------------------------------------------
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUMF677P 1465 printed Sep 23, 2025@19:46:54 Page 2
XUMF677P ;OIFO-BP/BATRAN - MFS parameters file ;09/26/2017
+1 ;;8.0;KERNEL;**677**;Jul 10, 1995;Build 9
+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 89321
+3 NEW X
SET X="XUMF677"
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 89321
+4 KILL XMY
+5 QUIT
+6 ;---------------------------------------------
89321 ; FILE #8932.1 PERSON CLASS
+1 NEW XFIEN,XFILE
+2 SET XFIEN=8932.1
+3 SET XFILE="Person Class"
+4 ; delete entry
DO DEL^XUMF677(XFIEN)
+5 ; add entry
DO ADD^XUMF677(XFIEN,".03;Person Class].07;Person Class]5;D ZRT^XUPCZRT]2;D P89321^XUPCZRT]6;D D89321^XUPCZRT")
+6 ; call ADD1 to add sub_entry
DO NODES^XUMF677(XFIEN,"DATA89",10)
+7 DO DELMD5^XUMF677(XFILE)
+8 DO ADDMD5^XUMF677(XFILE,XFIEN)
+9 DO SCMD5^XUMF677(XFILE,XFIEN)
+10 DO SUBMD5^XUMF677(XFILE,".01^20^^^",XFIEN,.01)
+11 DO SUBMD5^XUMF677(XFILE,"1^60^^^",XFIEN,1)
+12 DO SUBMD5^XUMF677(XFILE,"2^50^^^",XFIEN,2)
+13 DO SUBMD5^XUMF677(XFILE,"5^30^^^",XFIEN,5)
+14 DO SUBMD5^XUMF677(XFILE,"6^40^^^",XFIEN,6)
+15 DO SUBMD5^XUMF677(XFILE,"8^70^^^",XFIEN,8)
+16 DO SUBMD5^XUMF677(XFILE,"11^80^^^",XFIEN,11)
+17 DO SUBMD5^XUMF677(XFILE,"99.97^90^^8932.1^",XFIEN,99.97)
+18 DO SUBMD5^XUMF677(XFILE,"99.99^10^^^",XFIEN,99.99)
+19 DO SUBMD5^XUMF677(XFILE,"90002^65^I^^",XFIEN,90002)
+20 ;----------------------------------------------------
