GMRCICMT ;SLC/JFR - IFC Possible Erroneous Comments Report; Jan 19,2024@14:05
;;3.0;CONSULT/REQUEST TRACKING;**193,199,196**;DEC 27, 1997;Build 3
;
;
Q
EN ; Main
N DASHES,TAB
N GEXIT,GMRCO,GMRCISIT,GMRCRO,GMRCACT,GMRCSITE,GMRCX,GMRCX2,GMRCX3,GMBEG,GIDX
N GMRCDA,GMRCDA0,GMRCDA2,GMRCDA3,GMRCTYPE,GMRCCMT,GMRCLINE,REMNUM,ANS,GMRCPG
N ACTCNT,TOTCNT,ACTTYPE,PTNM,PTSSN,REMSIT,ZTQUEUED,ZTREQ,GIDX,GMRCODT
N %ZIS,POP,IO,GEXIT,NMIDX,GMRCNM
D BEGDT
S %ZIS="QM" D ^%ZIS
I POP D HOME^%ZIS Q
I $D(IO("Q")) D D ^%ZISC,HOME^%ZIS Q
. N ZTRTN,ZTSK,ZTIO,ZTDTH,ZTDESC
. S ZTRTN="MAKERPT^GMRCICMT"_"("_GMBEG_")",ZTDESC="IFC Possible Erroneous Comments Report"
. S ZTIO=ION,ZTDTH=$H
. D ^%ZTLOAD
. I $G(ZTSK) W !,"Queued to Print, Task # ",ZTSK
. E W !,"Sorry, Try again Later"
I '$D(IO("Q")) D
. D MAKERPT(GMBEG)
. D ^%ZISC,HOME^%ZIS
Q
BEGDT ;
N %DT,X,Y
S GEXIT=0,GMBEG=""
W @IOF
W !!,"Enter beginning date for the IFC selection:",!
K %DT
S %DT="AEX"
S %DT("B")="07/01/2020"
S %DT("A")="Beginning Date: "
D ^%DT S GMBEG=+$G(Y)
I Y<1 S GEXIT=1 Q
I GMBEG'>0 D
. S %DT("B")=$$FMTE^XLFDT(GMBEG,"5Z")
W @IOF
Q
MAKERPT(GMBEG) ;
K ^TMP("GMRCICMT",$J)
D GETIFCS
S TOTCNT=^TMP("GMRCICMT",$J,"TOTCNT")
I $D(ZTQUEUED) S ZTREQ="@"
U IO
S TAB=$$REPEAT^XLFSTR(" ",79)
S REMNUM=0,ANS="",GMRCPG=0,ACTCNT=0
; Loop the ^TMP global of selected IFCs and write records
; GMRCO = consult internal entry number
; GMRCDA = activity internal entry number
I '$D(^TMP("GMRCICMT",$J)) S GMBEG="" S TOTCNT=0 D HDR(.GMRCPG),NOREC Q
S GMRCSITE=0
F S GMRCSITE=$O(^TMP("GMRCICMT",$J,GMRCSITE)) Q:('GMRCSITE) D
. S GMRCO=0
. F S GMRCO=$O(^TMP("GMRCICMT",$J,GMRCSITE,+GMRCO)) Q:('GMRCO) D
.. S GMRCDA=0
.. F S GMRCDA=$O(^TMP("GMRCICMT",$J,GMRCSITE,+GMRCO,+GMRCDA)) Q:('GMRCDA) D
... D RPTACT
... Q
.. Q
. Q
W !,$$CJ^XLFSTR("End of Report",80),!!
K ^TMP("GMRCICMT",$J)
Q
GETIFCS ; Get IFCs
S GMRCO="",GMRCISIT="",GMRCRO="",TOTCNT=0,ACTCNT=0,GIDX=0
S GMRCISIT=0
F S GMRCISIT=$O(^GMR(123,"AIFC",GMRCISIT)) Q:'GMRCISIT D
. S GMRCRO=0
. F S GMRCRO=$O(^GMR(123,"AIFC",GMRCISIT,GMRCRO)) Q:'GMRCRO D
.. S GMRCO=$O(^GMR(123,"AIFC",GMRCISIT,GMRCRO,0))
.. I $P($G(^GMR(123,GMRCO,12)),U,5)="P" D ACTS
. Q
Q
ACTS ; Get IFC activities
N ERRCMT,CMTIDX,I
S (GMRCACT,CMTIDX,I)=0,ERRCMT=""
F S GMRCACT=$O(^GMR(123,GMRCO,40,GMRCACT)) Q:'GMRCACT D
. S GIDX=GIDX+1 H:'(GIDX#10000) 1
. ; Get only COMPLETE/UPDATE activities
. S ACTTYPE=$P(^GMR(123,GMRCO,40,GMRCACT,0),U,2)
. Q:ACTTYPE'=10
. ; Do not include any IFCs before the begin date
. S GMRCX=$P(^GMR(123,GMRCO,40,GMRCACT,0),U,1)
. Q:(GMRCX<GMBEG)
. ; Look for associated results or remote associated results to screen out admin completes
. I ($D(^GMR(123,GMRCO,50,"AR")))!($D(^GMR(123,GMRCO,51,"AR"))) D
.. S CMTIDX=0 S CMTIDX=$P($G(^GMR(123,GMRCO,40,GMRCACT,1,0)),U,4) ;p196
.. F I=1:1:CMTIDX S ERRCMT=$S(I=1:$G(^GMR(123,GMRCO,40,GMRCACT,1,I,0)),1:ERRCMT_" "_$G(^GMR(123,GMRCO,40,GMRCACT,1,I,0))) ;p196
.. I CMTIDX>0 D
... I $TR(ERRCMT,"")'="" D
.... S ^TMP("GMRCICMT",$J,GMRCISIT,GMRCO,GMRCACT,0)="" S TOTCNT=TOTCNT+1
... Q
.. Q
. Q
S ^TMP("GMRCICMT",$J,"TOTCNT")=TOTCNT
Q
RPTACT ;
S GMRCACT="",GMRCLINE="",GMRCX="",GMRCX2="",GMRCISIT=0
S TAB=$$REPEAT^XLFSTR(" ",22)
S GMRCODT=$P(^GMR(123,+GMRCO,0),"^",1)
S X=GMRCODT D REGDTM^GMRCU
S GMRCODT=X
S NMIDX=$P(^GMR(123,+GMRCO,0),U,5)
S GMRCNM=$P($G(^GMR(123.5,NMIDX,0)),U,1)
S GMRCDA0=$G(^GMR(123,+GMRCO,40,+GMRCDA,0))
S GMRCTYPE=$P(GMRCDA0,"^",2)
I GMRCTYPE'=10 Q
S GMRCDA2=$G(^GMR(123,+GMRCO,40,+GMRCDA,2))
S GMRCDA3=$G(^GMR(123,+GMRCO,40,+GMRCDA,3))
I $D(^GMR(123,+GMRCO,40,+GMRCDA,2)) D
. S GMRCISIT=$P(^GMR(123,+GMRCO,0),U,23) Q:'GMRCISIT
. S GMRCISIT=$$GET1^DIQ(4,GMRCISIT,.01)
; Only reporting if comments exist
D RPTCSLT
D RPTCMTS
Q
RPTCSLT ;
I (ACTCNT#3)=0 D HDR(.GMRCPG)
S ACTCNT=ACTCNT+1
W !,"Possible Erroneous Comment: "_$TR($J(ACTCNT,10)," ")_"/"_$TR($J(TOTCNT,10)," ")
S PTNM="Patient Name: "_$$GET1^DIQ(123,+GMRCO,.02,"E")
S PTSSN="SSN: "_$$GET1^DIQ(2,$P(^GMR(123,+GMRCO,0),U,2),.09)
S REMSIT="Receiving Site: "_$$GET1^DIQ(4,$P(^GMR(123,+GMRCO,0),U,23),.01)
S REMNUM="Remote Consult #: "_$P(^GMR(123,+GMRCO,0),U,22)
W !," "
W !,"Consult #: ",GMRCO
W !,PTNM,$$REPEAT^XLFSTR(" ",51-$L(PTNM)),PTSSN
W !,REMSIT,$$REPEAT^XLFSTR(" ",51-$L(REMSIT)),REMNUM
; GMRCX/GMRCX2 are scratch pad variables
S GMRCX="Action: "_$P($G(^GMR(123.1,+GMRCTYPE,0)),"^",1)
S:'$L(GMRCX) GMRCX="Action: "_GMRCTYPE
S GMRCX2="Activity #:"_+GMRCDA
W !,GMRCX2,$$REPEAT^XLFSTR(" ",51-$L(GMRCX2)),GMRCX
S GMRCX="" S GMRCX=$P($O(^GMR(123,+GMRCO,50,"AR",GMRCX)),";",1)
I GMRCX="" S GMRCX=$P($O(^GMR(123,+GMRCO,51,"AR",GMRCX)),";",1)
W !,"TIU Document #: ",GMRCX
W !," "
W !,"Activity Date/Time File Entry Date/Time Service Name"
W !,$$REPEAT^XLFSTR("-",79)
S DASHES=$$REPEAT^XLFSTR("-",79)
;Add on Date/time of Actual Activity, File Entry Date/Time, and Service Name
S X=$P(GMRCDA0,"^",3) D REGDTM^GMRCU
S GMRCX2=X_" "_$S($P(GMRCDA2,"^",3)]"":$P(GMRCDA2,"^",3),1:$E(TAB,1,3))
W !,GMRCX2_$E(TAB,1,21-$L(GMRCX2))_GMRCODT_$E(TAB,1,22-$L(GMRCODT))_GMRCNM
W !," "
Q
RPTCMTS ;
S GMRCCMT=0,GMRCLINE=""
F S GMRCCMT=$O(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT)) Q:'+GMRCCMT D
. I $D(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT,0)) D
.. S GMRCLINE=$G(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT,0))
.. W !,GMRCLINE
W !," "
W !,$$REPEAT^XLFSTR("=",79)
Q
NOREC ; Print the no records found message
W !!,$$CJ^XLFSTR("No IFC possible erroneous comments to report",80),!
Q
HDR(PAGE) ; Print the page hdr and increment page number
;
S PAGE=PAGE+1
I PAGE>1 W $C(12)
W !,"IFC Possible Erroneous Comments Report"
W ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE
W !,$$REPEAT^XLFSTR("-",78)
I PAGE=1 D
. S GMRCX="Total IFC Activities to Review: "_TOTCNT
. W !,$$CJ^XLFSTR(GMRCX,80),!
. W !,$$REPEAT^XLFSTR("*",79)
. W !,"No automated modification will be made to inter-facility consults that are "
. W !,"identified with possible erroneous comments at this time."
. W !,$$REPEAT^XLFSTR("*",79),!
. W !,$$REPEAT^XLFSTR("=",79)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCICMT 6262 printed Dec 13, 2024@01:45:59 Page 2
GMRCICMT ;SLC/JFR - IFC Possible Erroneous Comments Report; Jan 19,2024@14:05
+1 ;;3.0;CONSULT/REQUEST TRACKING;**193,199,196**;DEC 27, 1997;Build 3
+2 ;
+3 ;
+4 QUIT
EN ; Main
+1 NEW DASHES,TAB
+2 NEW GEXIT,GMRCO,GMRCISIT,GMRCRO,GMRCACT,GMRCSITE,GMRCX,GMRCX2,GMRCX3,GMBEG,GIDX
+3 NEW GMRCDA,GMRCDA0,GMRCDA2,GMRCDA3,GMRCTYPE,GMRCCMT,GMRCLINE,REMNUM,ANS,GMRCPG
+4 NEW ACTCNT,TOTCNT,ACTTYPE,PTNM,PTSSN,REMSIT,ZTQUEUED,ZTREQ,GIDX,GMRCODT
+5 NEW %ZIS,POP,IO,GEXIT,NMIDX,GMRCNM
+6 DO BEGDT
+7 SET %ZIS="QM"
DO ^%ZIS
+8 IF POP
DO HOME^%ZIS
QUIT
+9 IF $DATA(IO("Q"))
Begin DoDot:1
+10 NEW ZTRTN,ZTSK,ZTIO,ZTDTH,ZTDESC
+11 SET ZTRTN="MAKERPT^GMRCICMT"_"("_GMBEG_")"
SET ZTDESC="IFC Possible Erroneous Comments Report"
+12 SET ZTIO=ION
SET ZTDTH=$HOROLOG
+13 DO ^%ZTLOAD
+14 IF $GET(ZTSK)
WRITE !,"Queued to Print, Task # ",ZTSK
+15 IF '$TEST
WRITE !,"Sorry, Try again Later"
End DoDot:1
DO ^%ZISC
DO HOME^%ZIS
QUIT
+16 IF '$DATA(IO("Q"))
Begin DoDot:1
+17 DO MAKERPT(GMBEG)
+18 DO ^%ZISC
DO HOME^%ZIS
End DoDot:1
+19 QUIT
BEGDT ;
+1 NEW %DT,X,Y
+2 SET GEXIT=0
SET GMBEG=""
+3 WRITE @IOF
+4 WRITE !!,"Enter beginning date for the IFC selection:",!
+5 KILL %DT
+6 SET %DT="AEX"
+7 SET %DT("B")="07/01/2020"
+8 SET %DT("A")="Beginning Date: "
+9 DO ^%DT
SET GMBEG=+$GET(Y)
+10 IF Y<1
SET GEXIT=1
QUIT
+11 IF GMBEG'>0
Begin DoDot:1
+12 SET %DT("B")=$$FMTE^XLFDT(GMBEG,"5Z")
End DoDot:1
+13 WRITE @IOF
+14 QUIT
MAKERPT(GMBEG) ;
+1 KILL ^TMP("GMRCICMT",$JOB)
+2 DO GETIFCS
+3 SET TOTCNT=^TMP("GMRCICMT",$JOB,"TOTCNT")
+4 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+5 USE IO
+6 SET TAB=$$REPEAT^XLFSTR(" ",79)
+7 SET REMNUM=0
SET ANS=""
SET GMRCPG=0
SET ACTCNT=0
+8 ; Loop the ^TMP global of selected IFCs and write records
+9 ; GMRCO = consult internal entry number
+10 ; GMRCDA = activity internal entry number
+11 IF '$DATA(^TMP("GMRCICMT",$JOB))
SET GMBEG=""
SET TOTCNT=0
DO HDR(.GMRCPG)
DO NOREC
QUIT
+12 SET GMRCSITE=0
+13 FOR
SET GMRCSITE=$ORDER(^TMP("GMRCICMT",$JOB,GMRCSITE))
if ('GMRCSITE)
QUIT
Begin DoDot:1
+14 SET GMRCO=0
+15 FOR
SET GMRCO=$ORDER(^TMP("GMRCICMT",$JOB,GMRCSITE,+GMRCO))
if ('GMRCO)
QUIT
Begin DoDot:2
+16 SET GMRCDA=0
+17 FOR
SET GMRCDA=$ORDER(^TMP("GMRCICMT",$JOB,GMRCSITE,+GMRCO,+GMRCDA))
if ('GMRCDA)
QUIT
Begin DoDot:3
+18 DO RPTACT
+19 QUIT
End DoDot:3
+20 QUIT
End DoDot:2
+21 QUIT
End DoDot:1
+22 WRITE !,$$CJ^XLFSTR("End of Report",80),!!
+23 KILL ^TMP("GMRCICMT",$JOB)
+24 QUIT
GETIFCS ; Get IFCs
+1 SET GMRCO=""
SET GMRCISIT=""
SET GMRCRO=""
SET TOTCNT=0
SET ACTCNT=0
SET GIDX=0
+2 SET GMRCISIT=0
+3 FOR
SET GMRCISIT=$ORDER(^GMR(123,"AIFC",GMRCISIT))
if 'GMRCISIT
QUIT
Begin DoDot:1
+4 SET GMRCRO=0
+5 FOR
SET GMRCRO=$ORDER(^GMR(123,"AIFC",GMRCISIT,GMRCRO))
if 'GMRCRO
QUIT
Begin DoDot:2
+6 SET GMRCO=$ORDER(^GMR(123,"AIFC",GMRCISIT,GMRCRO,0))
+7 IF $PIECE($GET(^GMR(123,GMRCO,12)),U,5)="P"
DO ACTS
End DoDot:2
+8 QUIT
End DoDot:1
+9 QUIT
ACTS ; Get IFC activities
+1 NEW ERRCMT,CMTIDX,I
+2 SET (GMRCACT,CMTIDX,I)=0
SET ERRCMT=""
+3 FOR
SET GMRCACT=$ORDER(^GMR(123,GMRCO,40,GMRCACT))
if 'GMRCACT
QUIT
Begin DoDot:1
+4 SET GIDX=GIDX+1
if '(GIDX#10000)
HANG 1
+5 ; Get only COMPLETE/UPDATE activities
+6 SET ACTTYPE=$PIECE(^GMR(123,GMRCO,40,GMRCACT,0),U,2)
+7 if ACTTYPE'=10
QUIT
+8 ; Do not include any IFCs before the begin date
+9 SET GMRCX=$PIECE(^GMR(123,GMRCO,40,GMRCACT,0),U,1)
+10 if (GMRCX<GMBEG)
QUIT
+11 ; Look for associated results or remote associated results to screen out admin completes
+12 IF ($DATA(^GMR(123,GMRCO,50,"AR")))!($DATA(^GMR(123,GMRCO,51,"AR")))
Begin DoDot:2
+13 ;p196
SET CMTIDX=0
SET CMTIDX=$PIECE($GET(^GMR(123,GMRCO,40,GMRCACT,1,0)),U,4)
+14 ;p196
FOR I=1:1:CMTIDX
SET ERRCMT=$SELECT(I=1:$GET(^GMR(123,GMRCO,40,GMRCACT,1,I,0)),1:ERRCMT_" "_$GET(^GMR(123,GMRCO,40,GMRCACT,1,I,0)))
+15 IF CMTIDX>0
Begin DoDot:3
+16 IF $TRANSLATE(ERRCMT,"")'=""
Begin DoDot:4
+17 SET ^TMP("GMRCICMT",$JOB,GMRCISIT,GMRCO,GMRCACT,0)=""
SET TOTCNT=TOTCNT+1
End DoDot:4
+18 QUIT
End DoDot:3
+19 QUIT
End DoDot:2
+20 QUIT
End DoDot:1
+21 SET ^TMP("GMRCICMT",$JOB,"TOTCNT")=TOTCNT
+22 QUIT
RPTACT ;
+1 SET GMRCACT=""
SET GMRCLINE=""
SET GMRCX=""
SET GMRCX2=""
SET GMRCISIT=0
+2 SET TAB=$$REPEAT^XLFSTR(" ",22)
+3 SET GMRCODT=$PIECE(^GMR(123,+GMRCO,0),"^",1)
+4 SET X=GMRCODT
DO REGDTM^GMRCU
+5 SET GMRCODT=X
+6 SET NMIDX=$PIECE(^GMR(123,+GMRCO,0),U,5)
+7 SET GMRCNM=$PIECE($GET(^GMR(123.5,NMIDX,0)),U,1)
+8 SET GMRCDA0=$GET(^GMR(123,+GMRCO,40,+GMRCDA,0))
+9 SET GMRCTYPE=$PIECE(GMRCDA0,"^",2)
+10 IF GMRCTYPE'=10
QUIT
+11 SET GMRCDA2=$GET(^GMR(123,+GMRCO,40,+GMRCDA,2))
+12 SET GMRCDA3=$GET(^GMR(123,+GMRCO,40,+GMRCDA,3))
+13 IF $DATA(^GMR(123,+GMRCO,40,+GMRCDA,2))
Begin DoDot:1
+14 SET GMRCISIT=$PIECE(^GMR(123,+GMRCO,0),U,23)
if 'GMRCISIT
QUIT
+15 SET GMRCISIT=$$GET1^DIQ(4,GMRCISIT,.01)
End DoDot:1
+16 ; Only reporting if comments exist
+17 DO RPTCSLT
+18 DO RPTCMTS
+19 QUIT
RPTCSLT ;
+1 IF (ACTCNT#3)=0
DO HDR(.GMRCPG)
+2 SET ACTCNT=ACTCNT+1
+3 WRITE !,"Possible Erroneous Comment: "_$TRANSLATE($JUSTIFY(ACTCNT,10)," ")_"/"_$TRANSLATE($JUSTIFY(TOTCNT,10)," ")
+4 SET PTNM="Patient Name: "_$$GET1^DIQ(123,+GMRCO,.02,"E")
+5 SET PTSSN="SSN: "_$$GET1^DIQ(2,$PIECE(^GMR(123,+GMRCO,0),U,2),.09)
+6 SET REMSIT="Receiving Site: "_$$GET1^DIQ(4,$PIECE(^GMR(123,+GMRCO,0),U,23),.01)
+7 SET REMNUM="Remote Consult #: "_$PIECE(^GMR(123,+GMRCO,0),U,22)
+8 WRITE !," "
+9 WRITE !,"Consult #: ",GMRCO
+10 WRITE !,PTNM,$$REPEAT^XLFSTR(" ",51-$LENGTH(PTNM)),PTSSN
+11 WRITE !,REMSIT,$$REPEAT^XLFSTR(" ",51-$LENGTH(REMSIT)),REMNUM
+12 ; GMRCX/GMRCX2 are scratch pad variables
+13 SET GMRCX="Action: "_$PIECE($GET(^GMR(123.1,+GMRCTYPE,0)),"^",1)
+14 if '$LENGTH(GMRCX)
SET GMRCX="Action: "_GMRCTYPE
+15 SET GMRCX2="Activity #:"_+GMRCDA
+16 WRITE !,GMRCX2,$$REPEAT^XLFSTR(" ",51-$LENGTH(GMRCX2)),GMRCX
+17 SET GMRCX=""
SET GMRCX=$PIECE($ORDER(^GMR(123,+GMRCO,50,"AR",GMRCX)),";",1)
+18 IF GMRCX=""
SET GMRCX=$PIECE($ORDER(^GMR(123,+GMRCO,51,"AR",GMRCX)),";",1)
+19 WRITE !,"TIU Document #: ",GMRCX
+20 WRITE !," "
+21 WRITE !,"Activity Date/Time File Entry Date/Time Service Name"
+22 WRITE !,$$REPEAT^XLFSTR("-",79)
+23 SET DASHES=$$REPEAT^XLFSTR("-",79)
+24 ;Add on Date/time of Actual Activity, File Entry Date/Time, and Service Name
+25 SET X=$PIECE(GMRCDA0,"^",3)
DO REGDTM^GMRCU
+26 SET GMRCX2=X_" "_$SELECT($PIECE(GMRCDA2,"^",3)]"":$PIECE(GMRCDA2,"^",3),1:$EXTRACT(TAB,1,3))
+27 WRITE !,GMRCX2_$EXTRACT(TAB,1,21-$LENGTH(GMRCX2))_GMRCODT_$EXTRACT(TAB,1,22-$LENGTH(GMRCODT))_GMRCNM
+28 WRITE !," "
+29 QUIT
RPTCMTS ;
+1 SET GMRCCMT=0
SET GMRCLINE=""
+2 FOR
SET GMRCCMT=$ORDER(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT))
if '+GMRCCMT
QUIT
Begin DoDot:1
+3 IF $DATA(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT,0))
Begin DoDot:2
+4 SET GMRCLINE=$GET(^GMR(123,+GMRCO,40,+GMRCDA,1,GMRCCMT,0))
+5 WRITE !,GMRCLINE
End DoDot:2
End DoDot:1
+6 WRITE !," "
+7 WRITE !,$$REPEAT^XLFSTR("=",79)
+8 QUIT
NOREC ; Print the no records found message
+1 WRITE !!,$$CJ^XLFSTR("No IFC possible erroneous comments to report",80),!
+2 QUIT
HDR(PAGE) ; Print the page hdr and increment page number
+1 ;
+2 SET PAGE=PAGE+1
+3 IF PAGE>1
WRITE $CHAR(12)
+4 WRITE !,"IFC Possible Erroneous Comments Report"
+5 WRITE ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE
+6 WRITE !,$$REPEAT^XLFSTR("-",78)
+7 IF PAGE=1
Begin DoDot:1
+8 SET GMRCX="Total IFC Activities to Review: "_TOTCNT
+9 WRITE !,$$CJ^XLFSTR(GMRCX,80),!
+10 WRITE !,$$REPEAT^XLFSTR("*",79)
+11 WRITE !,"No automated modification will be made to inter-facility consults that are "
+12 WRITE !,"identified with possible erroneous comments at this time."
+13 WRITE !,$$REPEAT^XLFSTR("*",79),!
+14 WRITE !,$$REPEAT^XLFSTR("=",79)
End DoDot:1
+15 QUIT
