- 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 ---[H[J[2J[HIB20P217 1012 printed Dec 13, 2024@02:01:53 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