- ICPT69PR ;ALB/GTS- ICPT Pre-Init Driver; 2/15/2001 ; 3/1/01 8:58am
- ;;6.0;CPT/HCPCS;**9**;May 19, 1997
- ;
- ;- This routine will delete the data in the CPT global files (#81-81.3).
- ; These files MUST be reloaded upon completion of the patch installation.
- ; The associated file saves (from %GTO) are ICPT6_9.GLB (file 81) and ICPT6_9A.GLB (files 81.1-81.3)
- ;
- EN ;- Main entry point
- ;
- N I,ICPTX,XPDIDTOT
- ;
- ;- Leave header node to preserve global placement
- D BMES^XPDUTL("Deleting the CPT CATEGORY file (#81.1)...")
- S I=0 F S I=$O(^DIC(81.1,I)) Q:I="" K ^(I)
- D BMES^XPDUTL("Deleting the CPT COPYRIGHT file (#81.2)...")
- S I=0 F S I=$O(^DIC(81.2,I)) Q:I="" K ^(I)
- D BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
- S I=0 F S I=$O(^DIC(81.3,I)) Q:I="" K ^(I)
- S I=0,XPDIDTOT=14700
- D BMES^XPDUTL("Deleting the CPT file (#81)...")
- F ICPTX=1:1 S I=$O(^ICPT(I)) Q:I="" K ^(I) I '(ICPTX#725) D UPDATE^XPDID(ICPTX)
- D BMES^XPDUTL(">>> File deletions complete! Please use the appropriate global loader")
- D MES^XPDUTL(" to restore the CPT global files from ICPT6_9.GLB (CPT file, #81)")
- D MES^XPDUTL(" and ICPT6_9A.GLB [CPT CATEGORY (#81.1); CPT COPYRIGHT (#81.2)")
- D MES^XPDUTL(" and the CPT MODIFIER (#81.3) files] IMMEDIATELY after installing")
- D MES^XPDUTL(" this patch. >>>")
- ENQ Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPT69PR 1348 printed Feb 18, 2025@23:12:01 Page 2
- ICPT69PR ;ALB/GTS- ICPT Pre-Init Driver; 2/15/2001 ; 3/1/01 8:58am
- +1 ;;6.0;CPT/HCPCS;**9**;May 19, 1997
- +2 ;
- +3 ;- This routine will delete the data in the CPT global files (#81-81.3).
- +4 ; These files MUST be reloaded upon completion of the patch installation.
- +5 ; The associated file saves (from %GTO) are ICPT6_9.GLB (file 81) and ICPT6_9A.GLB (files 81.1-81.3)
- +6 ;
- EN ;- Main entry point
- +1 ;
- +2 NEW I,ICPTX,XPDIDTOT
- +3 ;
- +4 ;- Leave header node to preserve global placement
- +5 DO BMES^XPDUTL("Deleting the CPT CATEGORY file (#81.1)...")
- +6 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.1,I))
- if I=""
- QUIT
- KILL ^(I)
- +7 DO BMES^XPDUTL("Deleting the CPT COPYRIGHT file (#81.2)...")
- +8 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.2,I))
- if I=""
- QUIT
- KILL ^(I)
- +9 DO BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
- +10 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.3,I))
- if I=""
- QUIT
- KILL ^(I)
- +11 SET I=0
- SET XPDIDTOT=14700
- +12 DO BMES^XPDUTL("Deleting the CPT file (#81)...")
- +13 FOR ICPTX=1:1
- SET I=$ORDER(^ICPT(I))
- if I=""
- QUIT
- KILL ^(I)
- IF '(ICPTX#725)
- DO UPDATE^XPDID(ICPTX)
- +14 DO BMES^XPDUTL(">>> File deletions complete! Please use the appropriate global loader")
- +15 DO MES^XPDUTL(" to restore the CPT global files from ICPT6_9.GLB (CPT file, #81)")
- +16 DO MES^XPDUTL(" and ICPT6_9A.GLB [CPT CATEGORY (#81.1); CPT COPYRIGHT (#81.2)")
- +17 DO MES^XPDUTL(" and the CPT MODIFIER (#81.3) files] IMMEDIATELY after installing")
- +18 DO MES^XPDUTL(" this patch. >>>")
- ENQ QUIT
