GMRCP50A.m

GMRCP50A ;ISP/TDP - PRE INSTALL ROUTINE FOR GMRC*3*50 ; 11/15/2006

 ;;3.0;CONSULT/REQUEST TRACKING;**50**;DEC 27, 1997;Build 8

 Q

MSG ;Send Mailman message to installer

 N GMRC0,GMRCACT,GMRCADT,GMRCC,GMRCCIEN,GMRCCNT,GMRCCPRS,GMRCDFN,GMRCDT

 N GMRCFDT,GMRCID,GMRCIEN,GMRCIFC,GMRCMSG,GMRCPARM,GMRCPG,GMRCPRV,GMRCSPC

 N GMRCSVC,GMRCTPG,GMRCTXT,GMRCWHO,XMDUZ,XMERR,XMSUB,XMTEXT,XMY,Y

 S GMRCTTL=GMRCTTL-GMRCITL

 I DUZ="" N DUZ S DUZ=.5

 S XMDUZ=DUZ,XMTEXT="GMRCTXT"

 S GMRCPARM("FROM")="PATCH GMRC*3.0*50 PRE-INIT"

 S XMY(DUZ)=""

 S GMRCDFN=""

 F GMRCIFC="GMRCP50","GMRCP50 IFC" D

 . S GMRCPG=0

 . I GMRCIFC="GMRCP50" S GMRCTPG=GMRCTTL/500 I GMRCTPG#1 S GMRCTPG=$P(GMRCTPG,".")+1

 . I GMRCIFC="GMRCP50 IFC" S GMRCTPG=GMRCITL/500 I GMRCTPG#1 S GMRCTPG=$P(GMRCTPG,".")+1

 . F GMRCPG=1:1:GMRCTPG D

 .. K GMRCTXT

 .. S GMRCC=0

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="This message ("_GMRCPG_" of "_GMRCTPG_") has been sent by patch GMRC*3.0*50 at the"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="completion of the pre-init routine."

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 .. I GMRCIFC="GMRCP50" D

 ... S XMSUB="SIGNIFICANT FINDINGS VALUES ARE INVALID (MSG "_GMRCPG_" of "_GMRCTPG_")"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="This message was sent because Consult records were found which contained an"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Ampersand as the Significant Finding.  Since these can not be corrected"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="automatically, this message was created to assist in a manual correction of"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="this data.  We are hopeful that the following data will contain enough"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="information to allow your site to make the corrections, or at least give you"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="the information needed to research the specific consult and determine what"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="the Significant Finding should have been.  It is important to understand the"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="comments from the Significant Finding are fine and the only problem"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="needing correction is the Significant Finding value itself (Yes/No/Unknown)."

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Per guidance from HIMSS, it is preferable that an audit trail exist for this"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="fix.  A disclaimer should be added, if possible.  To correct the"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Significant Finding, you can use the Action, Consult Tracking menu on the"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Consults tab of CPRS GUI.  The person making this change will need the"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="appropriate update authority for the Consult Services involved.  It should"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="also be noted the significant finding will display as ""Unknown"" despite"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="the ampersand (""&"") stored in the data file."

 .. I GMRCIFC="GMRCP50 IFC" D

 ... S XMSUB="IFC SIGNIFICANT FINDINGS VALUES ARE INVALID (MSG "_GMRCPG_" of "_GMRCTPG_")"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="This message was sent because Inter-Facility Consult records were found"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="which contained an Ampersand as the Significant Finding.  Since these can"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="not be corrected by the requesting (sending) site, this message was created"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="to alert you of these entries.  The Consulting (receiving) site(s) will need"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="to correct these entries and should receive a similar message when they"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="install this patch.  You can use this list as a record of Inter-Facility"

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Consults needing to be corrected by the Consulting (receiving) site(s)."

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="PATIENT IDENTIFIER"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  CONSULT DATE(IEN)"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  TO SERVICE                                                   STATUS"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="    ACTIVITY            ACTIVITY DATE          RESPONSIBLE PERSON"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="    ACTIVITY COMMENTS"

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="==============================================================================="

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 .. S GMRCSPC="                                                            "

 .. S GMRCCNT=0

 .. F  S GMRCDFN=$O(^TMP(GMRCIFC,$J,GMRCDFN)) Q:GMRCDFN=""  D  Q:GMRCCNT>499

 ... S GMRCID=$S(NMFLG:GMRCDFN,1:$G(^TMP(GMRCIFC,$J,GMRCDFN,0)))

 ... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)=GMRCID

 ... S GMRCDT=0

 ... F  S GMRCDT=$O(^TMP(GMRCIFC,$J,GMRCDFN,GMRCDT)) Q:GMRCDT=""  D

 .... S GMRCIEN=0

 .... F  S GMRCIEN=$O(^TMP(GMRCIFC,$J,GMRCDFN,GMRCDT,GMRCIEN)) Q:GMRCIEN=""  D

 ..... S GMRCCIEN=0

 ..... S GMRC0=$G(^TMP(GMRCIFC,$J,GMRCDFN,GMRCDT,GMRCIEN,0))

 ..... ;S GMRCIEN=$P(GMRC0,U,1)

 ..... S Y=GMRCDT

 ..... D DD^%DT

 ..... I Y=-1 S Y="DATE ERROR"

 ..... S GMRCFDT=Y

 ..... S GMRCFDT=$E(GMRCFDT_" ("_GMRCIEN_")"_GMRCSPC,1,33)

 ..... S GMRCSVC=$E($P(GMRC0,U,2)_GMRCSPC,1,60)_" "

 ..... S GMRCCPRS=$E($P(GMRC0,U,3)_GMRCSPC,1,15)

 ..... S GMRCACT=$E($P(GMRC0,U,4)_GMRCSPC,1,20)

 ..... S GMRCADT=$P(GMRC0,U,5)

 ..... S Y=0

 ..... I GMRCADT S Y=GMRCADT D DD^%DT I Y=-1 S Y="DATE ERROR"

 ..... I 'GMRCADT S Y="ACTIVITY DATE UNK"

 ..... S GMRCADT=$E(Y_GMRCSPC,1,23)

 ..... S GMRCWHO=$E($P(GMRC0,U,6)_GMRCSPC,1,32)

 ..... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "_GMRCFDT

 ..... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "_GMRCSVC_GMRCCPRS

 ..... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="    "_GMRCACT_GMRCADT_GMRCWHO

 ..... F  S GMRCCIEN=$O(^TMP(GMRCIFC,$J,GMRCDFN,GMRCDT,GMRCIEN,GMRCCIEN)) Q:GMRCCIEN=""  D

 ...... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="    "_$G(^TMP(GMRCIFC,$J,GMRCDFN,GMRCDT,GMRCIEN,GMRCCIEN))

 ..... S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 ..... S GMRCCNT=GMRCCNT+1

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="  "

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Total records in this message: "_GMRCCNT

 .. S GMRCC=GMRCC+1,GMRCTXT(GMRCC)="Total records containing a Significant Finding of an ampersand: "_$S(GMRCIFC="GMRCP50":GMRCTTL,1:GMRCITL)

 .. D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY,.GMRCPARM,"","")

 .. S GMRCMSG(1)=" "

 .. S GMRCMSG(2)="******************************************************************************"

 .. I GMRCIFC="GMRCP50" D

 ... S GMRCMSG(3)="** Message ("_$S($L(GMRCPG)=1:$J("0"_GMRCPG,2),1:GMRCPG)_" of "_$S($L(GMRCTPG)=1:$J("0"_GMRCTPG,2),1:GMRCTPG)_") containing Consult records which have an ampersand as **"

 ... S GMRCMSG(4)="** the Significant Finding was "_$S($D(XMERR):"not sent due to an error in the message      **",1:"sent to the "_$S(DUZ=.5:"postmaster.  Please forward this **",1:"user.  Please forward this       **"))

 ... I $D(XMERR) S GMRCMSG(5)="** setup.                                                                   **"

 ... I $D(XMERR) S GMRCMSG(6)="** Dumping message to screen.                                               **"

 ... I '$D(XMERR) S GMRCMSG(5)="** message to the appropriate staff, which includes the clinical            **"

 ... I '$D(XMERR) S GMRCMSG(6)="** coordinator, for further action.                                         **"

 .. I GMRCIFC="GMRCP50 IFC" D

 ... S GMRCMSG(3)="** Message ("_$S($L(GMRCPG)=1:$J("0"_GMRCPG,2),1:GMRCPG)_" of "_$S($L(GMRCTPG)=1:$J("0"_GMRCTPG,2),1:GMRCTPG)_") containing Inter-Facility Consult records which have  **"

 ... S GMRCMSG(4)="** an ampersand as the Significant Finding was "_$S($D(XMERR):"not sent due to an error in  **",1:"sent to the "_$S(DUZ=.5:"postmaster.      **",1:"user.            **"))

 ... I $D(XMERR) S GMRCMSG(5)="** the message setup.                                                       **"

 ... I $D(XMERR) S GMRCMSG(6)="** Dumping message to screen.                                               **"

 ... I '$D(XMERR) S GMRCMSG(5)="** Please forward this message to the appropriate staff, which includes the **"

 ... I '$D(XMERR) S GMRCMSG(6)="** clinical coordinator, for further action.                                **"

 .. S GMRCMSG(7)="******************************************************************************"

 .. D BMES^XPDUTL(.GMRCMSG)

 .. I $D(XMERR) D BMES^XPDUTL("  "),BMES^XPDUTL(.GMRCTXT)

 . K ^TMP(GMRCIFC,$J)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCP50A   8490     printed  Apr 09, 2024@20:52:12                                                                                                                                                                                                    Page 2

GMRCP50A  ;ISP/TDP - PRE INSTALL ROUTINE FOR GMRC*3*50 ; 11/15/2006

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**50**;DEC 27, 1997;Build 8

 +2        QUIT 

MSG       ;Send Mailman message to installer

 +1        NEW GMRC0,GMRCACT,GMRCADT,GMRCC,GMRCCIEN,GMRCCNT,GMRCCPRS,GMRCDFN,GMRCDT

 +2        NEW GMRCFDT,GMRCID,GMRCIEN,GMRCIFC,GMRCMSG,GMRCPARM,GMRCPG,GMRCPRV,GMRCSPC

 +3        NEW GMRCSVC,GMRCTPG,GMRCTXT,GMRCWHO,XMDUZ,XMERR,XMSUB,XMTEXT,XMY,Y

 +4        SET GMRCTTL=GMRCTTL-GMRCITL

 +5        IF DUZ=""

               NEW DUZ

               SET DUZ=.5

 +6        SET XMDUZ=DUZ

           SET XMTEXT="GMRCTXT"

 +7        SET GMRCPARM("FROM")="PATCH GMRC*3.0*50 PRE-INIT"

 +8        SET XMY(DUZ)=""

 +9        SET GMRCDFN=""

 +10       FOR GMRCIFC="GMRCP50","GMRCP50 IFC"

               Begin DoDot:1

 +11               SET GMRCPG=0

 +12               IF GMRCIFC="GMRCP50"

                       SET GMRCTPG=GMRCTTL/500

                       IF GMRCTPG#1

                           SET GMRCTPG=$PIECE(GMRCTPG,".")+1

 +13               IF GMRCIFC="GMRCP50 IFC"

                       SET GMRCTPG=GMRCITL/500

                       IF GMRCTPG#1

                           SET GMRCTPG=$PIECE(GMRCTPG,".")+1

 +14               FOR GMRCPG=1:1:GMRCTPG

                       Begin DoDot:2

 +15                       KILL GMRCTXT

 +16                       SET GMRCC=0

 +17                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="This message ("_GMRCPG_" of "_GMRCTPG_") has been sent by patch GMRC*3.0*50 at the"

 +18                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="completion of the pre-init routine."

 +19                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  "

 +20                       IF GMRCIFC="GMRCP50"

                               Begin DoDot:3

 +21                               SET XMSUB="SIGNIFICANT FINDINGS VALUES ARE INVALID (MSG "_GMRCPG_" of "_GMRCTPG_")"

 +22                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="This message was sent because Consult records were found which contained an"

 +23                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="Ampersand as the Significant Finding.  Since these can not be corrected"

 +24                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="automatically, this message was created to assist in a manual correction of"

 +25                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="this data.  We are hopeful that the following data will contain enough"

 +26                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="information to allow your site to make the corrections, or at least give you"

 +27                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="the information needed to research the specific consult and determine what"

 +28                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="the Significant Finding should have been.  It is important to understand the"

 +29                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="comments from the Significant Finding are fine and the only problem"

 +30                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="needing correction is the Significant Finding value itself (Yes/No/Unknown)."

 +31                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="Per guidance from HIMSS, it is preferable that an audit trail exist for this"

 +32                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="fix.  A disclaimer should be added, if possible.  To correct the"

 +33                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="Significant Finding, you can use the Action, Consult Tracking menu on the"

 +34                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="Consults tab of CPRS GUI.  The person making this change will need the"

 +35                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="appropriate update authority for the Consult Services involved.  It should"

 +36                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="also be noted the significant finding will display as ""Unknown"" despite"

 +37                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="the ampersand (""&"") stored in the data file."

                               End DoDot:3

 +38                       IF GMRCIFC="GMRCP50 IFC"

                               Begin DoDot:3

 +39                               SET XMSUB="IFC SIGNIFICANT FINDINGS VALUES ARE INVALID (MSG "_GMRCPG_" of "_GMRCTPG_")"

 +40                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="This message was sent because Inter-Facility Consult records were found"

 +41                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="which contained an Ampersand as the Significant Finding.  Since these can"

 +42                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="not be corrected by the requesting (sending) site, this message was created"

 +43                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="to alert you of these entries.  The Consulting (receiving) site(s) will need"

 +44                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="to correct these entries and should receive a similar message when they"

 +45                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="install this patch.  You can use this list as a record of Inter-Facility"

 +46                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)="Consults needing to be corrected by the Consulting (receiving) site(s)."

                               End DoDot:3

 +47                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  "

 +48                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="PATIENT IDENTIFIER"

 +49                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  CONSULT DATE(IEN)"

 +50                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  TO SERVICE                                                   STATUS"

 +51                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="    ACTIVITY            ACTIVITY DATE          RESPONSIBLE PERSON"

 +52                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="    ACTIVITY COMMENTS"

 +53                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="==============================================================================="

 +54                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  "

 +55                       SET GMRCSPC="                                                            "

 +56                       SET GMRCCNT=0

 +57                       FOR 

                               SET GMRCDFN=$ORDER(^TMP(GMRCIFC,$JOB,GMRCDFN))

                               if GMRCDFN=""

                                   QUIT 

                               Begin DoDot:3

 +58                               SET GMRCID=$SELECT(NMFLG:GMRCDFN,1:$GET(^TMP(GMRCIFC,$JOB,GMRCDFN,0)))

 +59                               SET GMRCC=GMRCC+1

                                   SET GMRCTXT(GMRCC)=GMRCID

 +60                               SET GMRCDT=0

 +61                               FOR 

                                       SET GMRCDT=$ORDER(^TMP(GMRCIFC,$JOB,GMRCDFN,GMRCDT))

                                       if GMRCDT=""

                                           QUIT 

                                       Begin DoDot:4

 +62                                       SET GMRCIEN=0

 +63                                       FOR 

                                               SET GMRCIEN=$ORDER(^TMP(GMRCIFC,$JOB,GMRCDFN,GMRCDT,GMRCIEN))

                                               if GMRCIEN=""

                                                   QUIT 

                                               Begin DoDot:5

 +64                                               SET GMRCCIEN=0

 +65                                               SET GMRC0=$GET(^TMP(GMRCIFC,$JOB,GMRCDFN,GMRCDT,GMRCIEN,0))

 +66      ;S GMRCIEN=$P(GMRC0,U,1)

 +67                                               SET Y=GMRCDT

 +68                                               DO DD^%DT

 +69                                               IF Y=-1

                                                       SET Y="DATE ERROR"

 +70                                               SET GMRCFDT=Y

 +71                                               SET GMRCFDT=$EXTRACT(GMRCFDT_" ("_GMRCIEN_")"_GMRCSPC,1,33)

 +72                                               SET GMRCSVC=$EXTRACT($PIECE(GMRC0,U,2)_GMRCSPC,1,60)_" "

 +73                                               SET GMRCCPRS=$EXTRACT($PIECE(GMRC0,U,3)_GMRCSPC,1,15)

 +74                                               SET GMRCACT=$EXTRACT($PIECE(GMRC0,U,4)_GMRCSPC,1,20)

 +75                                               SET GMRCADT=$PIECE(GMRC0,U,5)

 +76                                               SET Y=0

 +77                                               IF GMRCADT

                                                       SET Y=GMRCADT

                                                       DO DD^%DT

                                                       IF Y=-1

                                                           SET Y="DATE ERROR"

 +78                                               IF 'GMRCADT

                                                       SET Y="ACTIVITY DATE UNK"

 +79                                               SET GMRCADT=$EXTRACT(Y_GMRCSPC,1,23)

 +80                                               SET GMRCWHO=$EXTRACT($PIECE(GMRC0,U,6)_GMRCSPC,1,32)

 +81                                               SET GMRCC=GMRCC+1

                                                   SET GMRCTXT(GMRCC)="  "_GMRCFDT

 +82                                               SET GMRCC=GMRCC+1

                                                   SET GMRCTXT(GMRCC)="  "_GMRCSVC_GMRCCPRS

 +83                                               SET GMRCC=GMRCC+1

                                                   SET GMRCTXT(GMRCC)="    "_GMRCACT_GMRCADT_GMRCWHO

 +84                                               FOR 

                                                       SET GMRCCIEN=$ORDER(^TMP(GMRCIFC,$JOB,GMRCDFN,GMRCDT,GMRCIEN,GMRCCIEN))

                                                       if GMRCCIEN=""

                                                           QUIT 

                                                       Begin DoDot:6

 +85                                                       SET GMRCC=GMRCC+1

                                                           SET GMRCTXT(GMRCC)="    "_$GET(^TMP(GMRCIFC,$JOB,GMRCDFN,GMRCDT,GMRCIEN,GMRCCIEN))

                                                       End DoDot:6

 +86                                               SET GMRCC=GMRCC+1

                                                   SET GMRCTXT(GMRCC)="  "

 +87                                               SET GMRCCNT=GMRCCNT+1

                                               End DoDot:5

                                       End DoDot:4

                               End DoDot:3

                               if GMRCCNT>499

                                   QUIT 

 +88                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  "

 +89                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="  "

 +90                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="Total records in this message: "_GMRCCNT

 +91                       SET GMRCC=GMRCC+1

                           SET GMRCTXT(GMRCC)="Total records containing a Significant Finding of an ampersand: "_$SELECT(GMRCIFC="GMRCP50":GMRCTTL,1:GMRCITL)

 +92                       DO SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY,.GMRCPARM,"","")

 +93                       SET GMRCMSG(1)=" "

 +94                       SET GMRCMSG(2)="******************************************************************************"

 +95                       IF GMRCIFC="GMRCP50"

                               Begin DoDot:3

 +96                               SET GMRCMSG(3)="** Message ("_$SELECT($LENGTH(GMRCPG)=1:$JUSTIFY("0"_GMRCPG,2),1:GMRCPG)_" of "_$SELECT($LENGTH(GMRCTPG)=1:$JUSTIFY("0"_GMRCTPG,2),1:GMRCTPG)_") containing Consult records which have an ampersand as **"

 +97                               SET GMRCMSG(4)="** the Significant Finding was "_$SELECT($DATA(XMERR):"not sent due to an error in the message      **",1:"sent to the "_$SELECT(DUZ=.5:"postmaster.  Please forward this **",1:"user.  Please forward this 

      **"))

 +98                               IF $DATA(XMERR)

                                       SET GMRCMSG(5)="** setup.                                                                   **"

 +99                               IF $DATA(XMERR)

                                       SET GMRCMSG(6)="** Dumping message to screen.                                               **"

 +100                              IF '$DATA(XMERR)

                                       SET GMRCMSG(5)="** message to the appropriate staff, which includes the clinical            **"

 +101                              IF '$DATA(XMERR)

                                       SET GMRCMSG(6)="** coordinator, for further action.                                         **"

                               End DoDot:3

 +102                      IF GMRCIFC="GMRCP50 IFC"

                               Begin DoDot:3

 +103                              SET GMRCMSG(3)="** Message ("_$SELECT($LENGTH(GMRCPG)=1:$JUSTIFY("0"_GMRCPG,2),1:GMRCPG)_" of "_$SELECT($LENGTH(GMRCTPG)=1:$JUSTIFY("0"_GMRCTPG,2),1:GMRCTPG)_") containing Inter-Facility Consult records which have  **"

 +104                              SET GMRCMSG(4)="** an ampersand as the Significant Finding was "_$SELECT($DATA(XMERR):"not sent due to an error in  **",1:"sent to the "_$SELECT(DUZ=.5:"postmaster.      **",1:"user.            **"))

 +105                              IF $DATA(XMERR)

                                       SET GMRCMSG(5)="** the message setup.                                                       **"

 +106                              IF $DATA(XMERR)

                                       SET GMRCMSG(6)="** Dumping message to screen.                                               **"

 +107                              IF '$DATA(XMERR)

                                       SET GMRCMSG(5)="** Please forward this message to the appropriate staff, which includes the **"

 +108                              IF '$DATA(XMERR)

                                       SET GMRCMSG(6)="** clinical coordinator, for further action.                                **"

                               End DoDot:3

 +109                      SET GMRCMSG(7)="******************************************************************************"

 +110                      DO BMES^XPDUTL(.GMRCMSG)

 +111                      IF $DATA(XMERR)

                               DO BMES^XPDUTL("  ")

                               DO BMES^XPDUTL(.GMRCTXT)

                       End DoDot:2

 +112              KILL ^TMP(GMRCIFC,$JOB)

               End DoDot:1

 +113      QUIT