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 ---[H[J[2J[HFBXIP111 905 printed Nov 22, 2024@17:11:17 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
