46 lines
1.2 KiB
Mathematica
46 lines
1.2 KiB
Mathematica
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
|