Routine: GMRCP88I

GMRCP88I ;SP/WAT - Pre/post init for GMRC*3.0*88 ;05/08/17  13:51

 ;;3.0;CONSULT/REQUEST TRACKING;**88**;DEC 27, 1997;Build 153

POST ;set param value

 ;;EN^XPAR ICR #2263

 N GMRCPARM,GMRCVAL,GMRCERR

 S GMRCPARM="GMRC FSC HCP SUPPORT EMAIL",GMRCVAL="vafschcpsupport@domain.ext"

 D BMES^XPDUTL("Setting value for parameter "_GMRCPARM)

 D EN^XPAR("SYS",GMRCPARM,1,GMRCVAL,.GMRCERR)

 I +$G(GMRCERR)>0 D MES^XPDUTL("  ERROR #"_$P(GMRCERR,U)_": "_$P(GMRCERR,U,2)) Q

 D MES^XPDUTL("  DONE")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCP88I   498     printed  Dec 13, 2024@01:46:35                                                                                                                                                                                                     Page 2

GMRCP88I  ;SP/WAT - Pre/post init for GMRC*3.0*88 ;05/08/17  13:51

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**88**;DEC 27, 1997;Build 153

POST      ;set param value

 +1       ;;EN^XPAR ICR #2263

 +2        NEW GMRCPARM,GMRCVAL,GMRCERR

 +3        SET GMRCPARM="GMRC FSC HCP SUPPORT EMAIL"

           SET GMRCVAL="vafschcpsupport@domain.ext"

 +4        DO BMES^XPDUTL("Setting value for parameter "_GMRCPARM)

 +5        DO EN^XPAR("SYS",GMRCPARM,1,GMRCVAL,.GMRCERR)

 +6        IF +$GET(GMRCERR)>0

               DO MES^XPDUTL("  ERROR #"_$PIECE(GMRCERR,U)_": "_$PIECE(GMRCERR,U,2))

               QUIT

 +7        DO MES^XPDUTL("  DONE")

 +8        QUIT

GMRCP88I.m