Routine: ICPT607P

ICPT607P ;ALB/DW - ICPT*6.0*7 POST INSTALL ROUTINE ; 9/21/1999

 ;;6.0;CPT/HCPCS;**7**;May 19, 1997

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_7.GBL.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPT607P   523     printed  Apr 09, 2024@20:51:09                                                                                                                                                                                                     Page 2

ICPT607P  ;ALB/DW - ICPT*6.0*7 POST INSTALL ROUTINE ; 9/21/1999

 +1       ;;6.0;CPT/HCPCS;**7**;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_7.GBL.")

 +7        QUIT

ICPT607P.m