IB20P413.m

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 ---IB20P413   1125     printed  Apr 09, 2024@21:28:12                                                                                                                                                                                                    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