FBXIP111.m

FBXIP111 ;ALB/RC -FB*3.5*111 POST INSTALL ROUTINE ; 12/21/09 11:28am

 ;;3.5;FEE BASIS;**111**;JAN 30, 1995;Build 17

 Q

EN ;pre-install entry point

 ;create KIDS checkpoints with call backs

 N FBX,Y

 S FBX="PRE" D

 .S Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP111")

 .I 'Y D BMES^XPDUTL("ERROR creating "_FBX_" checkpoint.")

 Q

PRE ;begin pre-install

 D DEL

 Q

DEL ;update entries with the wrong conversion category

 D BMES^XPDUTL("Deleting entries in the FEE BASIS MODIFIER TABLE INDEX (#162.98) file.")

 N FBTBLNO,FBTBLNM,FBTBLIEN

 F FBTBLNO=1:1:359 D

 .S FBTBLNM="2009-"_$S($L(FBTBLNO)=1:"00"_FBTBLNO,$L(FBTBLNO)=2:"0"_FBTBLNO,1:FBTBLNO)

 .N DA,DIK

 .S DIK="^FB(162.98,"

 .S DA=$$FIND1^DIC(162.98,,"MX",FBTBLNM)

 .I 'DA D BMES^XPDUTL("Modifier Table "_FBTBLNO_" not found, please verify this entry in the FEE BASIS MODIFIER TABLE INDEX file (#162.98).") Q

 .D ^DIK K DIK,DA

 Q

 ;FBXIP111

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBXIP111   905     printed  Apr 09, 2024@21:05:09                                                                                                                                                                                                     Page 2

FBXIP111  ;ALB/RC -FB*3.5*111 POST INSTALL ROUTINE ; 12/21/09 11:28am

 +1       ;;3.5;FEE BASIS;**111**;JAN 30, 1995;Build 17

 +2        QUIT 

EN        ;pre-install entry point

 +1       ;create KIDS checkpoints with call backs

 +2        NEW FBX,Y

 +3        SET FBX="PRE"

           Begin DoDot:1

 +4            SET Y=$$NEWCP^XPDUTL(FBX,FBX_"^FBXIP111")

 +5            IF 'Y

                   DO BMES^XPDUTL("ERROR creating "_FBX_" checkpoint.")

           End DoDot:1

 +6        QUIT 

PRE       ;begin pre-install

 +1        DO DEL

 +2        QUIT 

DEL       ;update entries with the wrong conversion category

 +1        DO BMES^XPDUTL("Deleting entries in the FEE BASIS MODIFIER TABLE INDEX (#162.98) file.")

 +2        NEW FBTBLNO,FBTBLNM,FBTBLIEN

 +3        FOR FBTBLNO=1:1:359

               Begin DoDot:1

 +4                SET FBTBLNM="2009-"_$SELECT($LENGTH(FBTBLNO)=1:"00"_FBTBLNO,$LENGTH(FBTBLNO)=2:"0"_FBTBLNO,1:FBTBLNO)

 +5                NEW DA,DIK

 +6                SET DIK="^FB(162.98,"

 +7                SET DA=$$FIND1^DIC(162.98,,"MX",FBTBLNM)

 +8                IF 'DA

                       DO BMES^XPDUTL("Modifier Table "_FBTBLNO_" not found, please verify this entry in the FEE BASIS MODIFIER TABLE INDEX file (#162.98).")

                       QUIT 

 +9                DO ^DIK

                   KILL DIK,DA

               End DoDot:1

 +10       QUIT 

 +11      ;FBXIP111