- ICPT613R ;ALB/MRY- ICPT Pre-Init Driver; 1/2/03 11:00am
- ;;6.0;CPT/HCPCS;**13**;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 istallation.
- ; The associated file saves (from %GTO) are ICPT6_13.GLB (file 81) and ICPT6_13A.GLB (files 81.1 thru 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_13.GLB (CPT file, #81)")
- D MES^XPDUTL(" and ICPT6_13A.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. >>>")
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPT613R 1333 printed Feb 18, 2025@23:11:51 Page 2
- ICPT613R ;ALB/MRY- ICPT Pre-Init Driver; 1/2/03 11:00am
- +1 ;;6.0;CPT/HCPCS;**13**;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 istallation.
- +5 ; The associated file saves (from %GTO) are ICPT6_13.GLB (file 81) and ICPT6_13A.GLB (files 81.1 thru 81.3)
- +6 ;
- EN ;- Main entry point
- +1 ;
- +2 NEW I,ICPTX,XPDIDTOT
- +3 ;- Leave header node to preserve global placement
- +4 DO BMES^XPDUTL("Deleting the CPT CATEGORY file (#81.1)...")
- +5 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.1,I))
- if I=""
- QUIT
- KILL ^(I)
- +6 DO BMES^XPDUTL("Deleting the CPT COPYRIGHT file (#81.2)...")
- +7 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.2,I))
- if I=""
- QUIT
- KILL ^(I)
- +8 DO BMES^XPDUTL("Deleting the CPT MODIFIER file (#81.3)...")
- +9 SET I=0
- FOR
- SET I=$ORDER(^DIC(81.3,I))
- if I=""
- QUIT
- KILL ^(I)
- +10 SET I=0
- SET XPDIDTOT=14700
- +11 DO BMES^XPDUTL("Deleting the CPT file (#81)...")
- +12 FOR ICPTX=1:1
- SET I=$ORDER(^ICPT(I))
- if I=""
- QUIT
- KILL ^(I)
- IF '(ICPTX#725)
- DO UPDATE^XPDID(ICPTX)
- +13 DO BMES^XPDUTL(">>> File deletions complete! Please use the appropriate global loader")
- +14 DO MES^XPDUTL(" to restore the CPT global files from ICPT6_13.GLB (CPT file, #81)")
- +15 DO MES^XPDUTL(" and ICPT6_13A.GLB [CPT CATEGORY (#81.1); CPT COPYRIGHT (#81.2)")
- +16 DO MES^XPDUTL(" and the CPT MODIFIER (#81.3) files] IMMEDIATELY after installing")
- +17 DO MES^XPDUTL(" this patch. >>>")