IB20P413 ;ALB/SBW - Pre and Post install APIs ;16 June 2009
;;2.0;INTEGRATED BILLING;**413**;21-MAR-94;Build 9
;
DELB ;Delete the existing traditional "B" x-ref which will be updated to be
;a New Style Index of Regular Type for all 40 characters of the Name
;(#.01) field in the TYPE OF PLAN (#355.1) file.
N ERRMSG
D BMES^XPDUTL("Traditionl 'B' cross-reference on TYPE OF PLAN (#355.1) file will be removed.")
D DELIX^DDMOD(355.1,.01,1,"K",,"ERRMSG")
I $D(ERRMSG) D
. D BMES^XPDUTL("Error occured when removing Old 'B' cross-reference.")
. D BMES^XPDUTL($G(ERRMSG("DIERR",1,"TEXT",1)))
. D BMES^XPDUTL("Contact National Help Desk for assistances.")
;
Q
REINDEX ;Re-index 355.1 "B" x-ref. X-ref was updated from being limited
;to the first 30 characters of the 40 character .01 field to using
;the entire 40 characters for the x-ref.
;
;write message to user about cross-reference re-indexing
D BMES^XPDUTL("New 'B' cross-reference on TYPE OF PLAN (#355.1) file will be re-indexed")
N DIK
S DIK="^IBE(355.1,",DIK(1)=".01^B"
D ENALL^DIK
D BMES^XPDUTL("Re-index completed")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P413 1125 printed Oct 16, 2024@18:03:27 Page 2
IB20P413 ;ALB/SBW - Pre and Post install APIs ;16 June 2009
+1 ;;2.0;INTEGRATED BILLING;**413**;21-MAR-94;Build 9
+2 ;
DELB ;Delete the existing traditional "B" x-ref which will be updated to be
+1 ;a New Style Index of Regular Type for all 40 characters of the Name
+2 ;(#.01) field in the TYPE OF PLAN (#355.1) file.
+3 NEW ERRMSG
+4 DO BMES^XPDUTL("Traditionl 'B' cross-reference on TYPE OF PLAN (#355.1) file will be removed.")
+5 DO DELIX^DDMOD(355.1,.01,1,"K",,"ERRMSG")
+6 IF $DATA(ERRMSG)
Begin DoDot:1
+7 DO BMES^XPDUTL("Error occured when removing Old 'B' cross-reference.")
+8 DO BMES^XPDUTL($GET(ERRMSG("DIERR",1,"TEXT",1)))
+9 DO BMES^XPDUTL("Contact National Help Desk for assistances.")
End DoDot:1
+10 ;
+11 QUIT
REINDEX ;Re-index 355.1 "B" x-ref. X-ref was updated from being limited
+1 ;to the first 30 characters of the 40 character .01 field to using
+2 ;the entire 40 characters for the x-ref.
+3 ;
+4 ;write message to user about cross-reference re-indexing
+5 DO BMES^XPDUTL("New 'B' cross-reference on TYPE OF PLAN (#355.1) file will be re-indexed")
+6 NEW DIK
+7 SET DIK="^IBE(355.1,"
SET DIK(1)=".01^B"
+8 DO ENALL^DIK
+9 DO BMES^XPDUTL("Re-index completed")
+10 QUIT
