FBXIP33A ;WCIOFO/MJE-IMPORT DOL MOD LVL TAB ;9/18/2001
;;3.5;FEE BASIS;**33**;JAN 30, 1995
Q
;
LOADA ;
; process modifiers in table
N FBI,MOD,MODDATA,X
D BMES^XPDUTL("--Updating file 162.98")
F FBI=1:1 S MODDATA=$P($T(DATA+FBI),";;",2) Q:MODDATA="END" D
. S MOD=$P(MODDATA,"^",2)
. I '$O(^FB(162.98,"B",$P(MODDATA,"^"),0)) D BMES^XPDUTL("TABLE YEAR NOT IN FILE SKIPPING INPUT RECORD "_FBI) Q
. S DA(1)=+($O(^FB(162.98,"B",$P(MODDATA,"^"),0)))
. S DA=$O(^FB(162.98,DA(1),"M","B",MOD,0))
. I DA'>0 D Q:DA'>0
. . S DIC="^FB(162.98,"_DA(1)_",""M"",",DIC(0)="L",DIC("P")="162.981A"
. . S X=MOD
. . K DD,DO D FILE^DICN I Y'>0 D BMES^XPDUTL("ERROR ADDING MOD "_MOD_" in "_$P(MODDATA,"^"))
. . K DIC,DLAYGO
. . S DA=+Y
. ;
. S DIE="^FB(162.98,"_DA(1)_",""M"","
. S DR=".02///^S X="""_$P(MODDATA,"^",3)_""""
. D ^DIE K DIE
D BMES^XPDUTL("---Update of file 162.98 complete")
Q
;
DATA ;This is the DOL MOD LVL data tablenumber^mod^%
;;2001-55^P1^100
;;2001-55^P2^125
;;2001-55^P3^150
;;2001-55^P4^165
;;2001-55^P5^175
;;2001-55^P6^100
;;2001-55^QX^75
;;2001-55^QZ^75
;;2001-60^51^100
;;2001-60^76^100
;;2001-60^77^100
;;2001-60^78^100
;;2001-60^79^100
;;2001-80^RR^11
;;2001-80^UE^75
;;END
;
;FBXIP33A
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBXIP33A 1280 printed Dec 13, 2024@02:01:41 Page 2
FBXIP33A ;WCIOFO/MJE-IMPORT DOL MOD LVL TAB ;9/18/2001
+1 ;;3.5;FEE BASIS;**33**;JAN 30, 1995
+2 QUIT
+3 ;
LOADA ;
+1 ; process modifiers in table
+2 NEW FBI,MOD,MODDATA,X
+3 DO BMES^XPDUTL("--Updating file 162.98")
+4 FOR FBI=1:1
SET MODDATA=$PIECE($TEXT(DATA+FBI),";;",2)
if MODDATA="END"
QUIT
Begin DoDot:1
+5 SET MOD=$PIECE(MODDATA,"^",2)
+6 IF '$ORDER(^FB(162.98,"B",$PIECE(MODDATA,"^"),0))
DO BMES^XPDUTL("TABLE YEAR NOT IN FILE SKIPPING INPUT RECORD "_FBI)
QUIT
+7 SET DA(1)=+($ORDER(^FB(162.98,"B",$PIECE(MODDATA,"^"),0)))
+8 SET DA=$ORDER(^FB(162.98,DA(1),"M","B",MOD,0))
+9 IF DA'>0
Begin DoDot:2
+10 SET DIC="^FB(162.98,"_DA(1)_",""M"","
SET DIC(0)="L"
SET DIC("P")="162.981A"
+11 SET X=MOD
+12 KILL DD,DO
DO FILE^DICN
IF Y'>0
DO BMES^XPDUTL("ERROR ADDING MOD "_MOD_" in "_$PIECE(MODDATA,"^"))
+13 KILL DIC,DLAYGO
+14 SET DA=+Y
End DoDot:2
if DA'>0
QUIT
+15 ;
+16 SET DIE="^FB(162.98,"_DA(1)_",""M"","
+17 SET DR=".02///^S X="""_$PIECE(MODDATA,"^",3)_""""
+18 DO ^DIE
KILL DIE
End DoDot:1
+19 DO BMES^XPDUTL("---Update of file 162.98 complete")
+20 QUIT
+21 ;
DATA ;This is the DOL MOD LVL data tablenumber^mod^%
+1 ;;2001-55^P1^100
+2 ;;2001-55^P2^125
+3 ;;2001-55^P3^150
+4 ;;2001-55^P4^165
+5 ;;2001-55^P5^175
+6 ;;2001-55^P6^100
+7 ;;2001-55^QX^75
+8 ;;2001-55^QZ^75
+9 ;;2001-60^51^100
+10 ;;2001-60^76^100
+11 ;;2001-60^77^100
+12 ;;2001-60^78^100
+13 ;;2001-60^79^100
+14 ;;2001-80^RR^11
+15 ;;2001-80^UE^75
+16 ;;END
+17 ;
+18 ;FBXIP33A