IB20P217.m

IB20P217 ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE for IB*2.0*217 ;04/02/2003

 ;;2.0;INTEGRATED BILLING;**217**;21-MAR-94

 ;

ENV ; environment check

 ; No special environment check at this time.

PRE ; set up check points for pre-init

 N %

 S %=$$NEWCP^XPDUTL("SUP","SUP^IB20P217")

 Q

 ;

SUP ; set new value into SUPRESS BULLETIN field of IBCE MESSAGES SERVER option

 ; change the value from NO to YES.  Resolves NOIS SBY-0403-30897

 D BMES^XPDUTL("Updating SUPRESS BULLETIN value for IBCE MESSAGES SERVER option.")

 N DA,IBFL,IBROOT,IBERR

 S DA=""

 I $D(^DIC(19,"B","IBCE MESSAGES SERVER")) S DA=$O(^DIC(19,"B","IBCE MESSAGES SERVER",""))

 I DA=""  D ERRMSG("IBCE MESSAGES SERVER option not found") G EXIT

 S IBFL="",IBROOT(19,DA_",",224)="Y"

 D FILE^DIE(IBFL,"IBROOT","IBERR")

 I $D(IBERR("DIERR")) D ERRMSG(IBERR("DIERR",1,"TEXT",1)) G EXIT

 D BMES^XPDUTL("Pre-init completed successfully.")

EXIT Q

 ;

ERRMSG(TXT) ; Write error message

 D BMES^XPDUTL("Update failed.  "_TXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P217   1012     printed  Oct 16, 2024@18:02:36                                                                                                                                                                                                    Page 2

IB20P217  ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE for IB*2.0*217 ;04/02/2003

 +1       ;;2.0;INTEGRATED BILLING;**217**;21-MAR-94

 +2       ;

ENV       ; environment check

 +1       ; No special environment check at this time.

PRE       ; set up check points for pre-init

 +1        NEW %

 +2        SET %=$$NEWCP^XPDUTL("SUP","SUP^IB20P217")

 +3        QUIT 

 +4       ;

SUP       ; set new value into SUPRESS BULLETIN field of IBCE MESSAGES SERVER option

 +1       ; change the value from NO to YES.  Resolves NOIS SBY-0403-30897

 +2        DO BMES^XPDUTL("Updating SUPRESS BULLETIN value for IBCE MESSAGES SERVER option.")

 +3        NEW DA,IBFL,IBROOT,IBERR

 +4        SET DA=""

 +5        IF $DATA(^DIC(19,"B","IBCE MESSAGES SERVER"))

               SET DA=$ORDER(^DIC(19,"B","IBCE MESSAGES SERVER",""))

 +6        IF DA=""

               DO ERRMSG("IBCE MESSAGES SERVER option not found")

               GOTO EXIT

 +7        SET IBFL=""

           SET IBROOT(19,DA_",",224)="Y"

 +8        DO FILE^DIE(IBFL,"IBROOT","IBERR")

 +9        IF $DATA(IBERR("DIERR"))

               DO ERRMSG(IBERR("DIERR",1,"TEXT",1))

               GOTO EXIT

 +10       DO BMES^XPDUTL("Pre-init completed successfully.")

EXIT       QUIT 

 +1       ;

ERRMSG(TXT) ; Write error message

 +1        DO BMES^XPDUTL("Update failed.  "_TXT)

 +2        QUIT