- 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 Jan 18, 2025@02:46:37 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