ICPT606P ;ALB/DW - ICPT*6.0*6 POST INSTALL ROUTINE ; 22 JUNE 1999
;;6.0;CPT/HCPCS;**6**;May 19, 1997
;
;
Q
POST ;This routine will delete file ^DIC(81.3, the CPT modifier file.
N XPDIDTOT,ICPTX,X
S X=0,XPDIDTOT=400
D BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
F ICPTX=1:1 S X=$O(^DIC(81.3,X)) Q:X="" K ^(X) I '(ICPTX#40) D UPDATE^XPDID(ICPTX)
D BMES^XPDUTL("You must restore the CPT MODIFIER file after installation of this patch.")
D MES^XPDUTL("The file is located in ICPT6_6.GBL.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPT606P 526 printed Dec 13, 2024@01:45:23 Page 2
ICPT606P ;ALB/DW - ICPT*6.0*6 POST INSTALL ROUTINE ; 22 JUNE 1999
+1 ;;6.0;CPT/HCPCS;**6**;May 19, 1997
+2 ;
+3 ;
+4 QUIT
POST ;This routine will delete file ^DIC(81.3, the CPT modifier file.
+1 NEW XPDIDTOT,ICPTX,X
+2 SET X=0
SET XPDIDTOT=400
+3 DO BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
+4 FOR ICPTX=1:1
SET X=$ORDER(^DIC(81.3,X))
if X=""
QUIT
KILL ^(X)
IF '(ICPTX#40)
DO UPDATE^XPDID(ICPTX)
+5 DO BMES^XPDUTL("You must restore the CPT MODIFIER file after installation of this patch.")
+6 DO MES^XPDUTL("The file is located in ICPT6_6.GBL.")
+7 QUIT
