Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICPT606P

ICPT606P.m

Go to the documentation of this file.
  1. ICPT606P ;ALB/DW - ICPT*6.0*6 POST INSTALL ROUTINE ; 22 JUNE 1999
  1. ;;6.0;CPT/HCPCS;**6**;May 19, 1997
  1. ;
  1. ;
  1. Q
  1. POST ;This routine will delete file ^DIC(81.3, the CPT modifier file.
  1. N XPDIDTOT,ICPTX,X
  1. S X=0,XPDIDTOT=400
  1. D BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
  1. F ICPTX=1:1 S X=$O(^DIC(81.3,X)) Q:X="" K ^(X) I '(ICPTX#40) D UPDATE^XPDID(ICPTX)
  1. D BMES^XPDUTL("You must restore the CPT MODIFIER file after installation of this patch.")
  1. D MES^XPDUTL("The file is located in ICPT6_6.GBL.")
  1. Q