FBXIP33A.m

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 ---FBXIP33A   1280     printed  Apr 09, 2024@21:05                                                                                                                                                                                                       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