- 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 Jan 18, 2025@02:47:12 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