ICPT63PR ;ALB/ESD - ICPT Pre-Init Driver; 2/10/98
;;6.0;CPT/HCPCS;**3**;May 19, 1997
;
;- This routine will delete the data in the ^ICPT global (file #81).
; This file MUST be reloaded upon completion of the patch installation.
;
;
EN ;- Main entry point
;
N I,ICPTX,XPDIDTOT
;
;- Leave header node to preserve global placement
S I=0
S XPDIDTOT=14300
D BMES^XPDUTL("Deleting the CPT file (#81)...")
F ICPTX=1:1 S I=$O(^ICPT(I)) Q:I="" K ^(I) I '(ICPTX#650) D UPDATE^XPDID(ICPTX)
D BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
D MES^XPDUTL(" to restore the CPT global file from ICPT6_3.GBL IMMEDIATELY after")
D MES^XPDUTL(" installing this patch. >>>")
ENQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICPT63PR 744 printed Nov 22, 2024@16:55:44 Page 2
ICPT63PR ;ALB/ESD - ICPT Pre-Init Driver; 2/10/98
+1 ;;6.0;CPT/HCPCS;**3**;May 19, 1997
+2 ;
+3 ;- This routine will delete the data in the ^ICPT global (file #81).
+4 ; This file MUST be reloaded upon completion of the patch installation.
+5 ;
+6 ;
EN ;- Main entry point
+1 ;
+2 NEW I,ICPTX,XPDIDTOT
+3 ;
+4 ;- Leave header node to preserve global placement
+5 SET I=0
+6 SET XPDIDTOT=14300
+7 DO BMES^XPDUTL("Deleting the CPT file (#81)...")
+8 FOR ICPTX=1:1
SET I=$ORDER(^ICPT(I))
if I=""
QUIT
KILL ^(I)
IF '(ICPTX#650)
DO UPDATE^XPDID(ICPTX)
+9 DO BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
+10 DO MES^XPDUTL(" to restore the CPT global file from ICPT6_3.GBL IMMEDIATELY after")
+11 DO MES^XPDUTL(" installing this patch. >>>")
ENQ QUIT
