source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBXIP33A.m@ 814

Last change on this file since 814 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1FBXIP33A ;WCIOFO/MJE-IMPORT DOL MOD LVL TAB ;9/18/2001
2 ;;3.5;FEE BASIS;**33**;JAN 30, 1995
3 Q
4 ;
5LOADA ;
6 ; process modifiers in table
7 N FBI,MOD,MODDATA,X
8 D BMES^XPDUTL("--Updating file 162.98")
9 F FBI=1:1 S MODDATA=$P($T(DATA+FBI),";;",2) Q:MODDATA="END" D
10 . S MOD=$P(MODDATA,"^",2)
11 . I '$O(^FB(162.98,"B",$P(MODDATA,"^"),0)) D BMES^XPDUTL("TABLE YEAR NOT IN FILE SKIPPING INPUT RECORD "_FBI) Q
12 . S DA(1)=+($O(^FB(162.98,"B",$P(MODDATA,"^"),0)))
13 . S DA=$O(^FB(162.98,DA(1),"M","B",MOD,0))
14 . I DA'>0 D Q:DA'>0
15 . . S DIC="^FB(162.98,"_DA(1)_",""M"",",DIC(0)="L",DIC("P")="162.981A"
16 . . S X=MOD
17 . . K DD,DO D FILE^DICN I Y'>0 D BMES^XPDUTL("ERROR ADDING MOD "_MOD_" in "_$P(MODDATA,"^"))
18 . . K DIC,DLAYGO
19 . . S DA=+Y
20 . ;
21 . S DIE="^FB(162.98,"_DA(1)_",""M"","
22 . S DR=".02///^S X="""_$P(MODDATA,"^",3)_""""
23 . D ^DIE K DIE
24 D BMES^XPDUTL("---Update of file 162.98 complete")
25 Q
26 ;
27DATA ;This is the DOL MOD LVL data tablenumber^mod^%
28 ;;2001-55^P1^100
29 ;;2001-55^P2^125
30 ;;2001-55^P3^150
31 ;;2001-55^P4^165
32 ;;2001-55^P5^175
33 ;;2001-55^P6^100
34 ;;2001-55^QX^75
35 ;;2001-55^QZ^75
36 ;;2001-60^51^100
37 ;;2001-60^76^100
38 ;;2001-60^77^100
39 ;;2001-60^78^100
40 ;;2001-60^79^100
41 ;;2001-80^RR^11
42 ;;2001-80^UE^75
43 ;;END
44 ;
45 ;FBXIP33A
Note: See TracBrowser for help on using the repository browser.