- 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 Apr 23, 2025@17:59:59 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
