Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RGMTHLP

RGMTHLP.m

Go to the documentation of this file.
  1. RGMTHLP ;BIR/CML-MPI/PD HL7 MESSAGE STATUS REPORT ;12/12/00
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**21**;30 Apr 99
  1. S QFLG=1
  1. CHK ;
  1. I '$D(^XTMP("RGMT","HL")) D G QUIT
  1. .W !!,$C(7),"The option ""Compile MPI/PD HL7 Data"" must have"
  1. .W !,"run to completion before this report can be printed!"
  1. I '$D(^XTMP("RGMT","HL","@@@@","STOPPED")) D G QUIT
  1. .W !!,$C(7),"The option ""Compile MPI/PD HL7 Data"" is currently running."
  1. .W !,"This report cannot be generated until the compile has run to completion."
  1. .W !!,"Please try again later.",!
  1. W @IOF
  1. I $D(^XTMP("RGMT","HL","@@@@","RANGE")) D
  1. .W !!,"Data has been compiled for ",^XTMP("RGMT","HL","@@@@","RANGE"),"."
  1. .W !,"Use the ""Compile MPI/PD HL7 Data"" option if this range is not sufficient."
  1. ;
  1. REP ;Ask for type of report
  1. K DIR,DIRUT,DTOUT,DUOUT
  1. W !!
  1. S DIR(0)="SAM^D:Detailed;S:Summary;"
  1. S DIR("A")="Select TYPE of Report - (D)etailed or (S)ummary: "
  1. D ^DIR K DIR G:$D(DIRUT) QUIT
  1. G:Y="D" ^RGMTHLPD
  1. ;
  1. BEGIN ; Produce SUMMARY Report
  1. W !!,"This option allows you to print information found during the ""Compile MPI/PD"
  1. W !,"HL7 Data"" compilation. The report is sorted by RELATED EVENT PROTOCOL, date,"
  1. W !,"transmission type, and status. The total number of messages for each date,"
  1. W !,"transmission type, and status are displayed."
  1. ;
  1. ASK1 ;Ask for Date Range
  1. W !!,"Enter date range for data to be included in report."
  1. K DIR,DIRUT,DTOUT,DUOUT
  1. S DIR(0)="DAO^:DT:EPX",DIR("A")="Beginning Date for Report: "
  1. D ^DIR K DIR G:$D(DIRUT) QUIT S RGBDT=Y
  1. S DIR(0)="DAO^"_RGBDT_":DT:EPX"
  1. S DIR("A")="Ending Date for Report: "
  1. D ^DIR K DIR G:$D(DIRUT) QUIT S RGEDT=Y
  1. ;
  1. DEV ;
  1. W !!,"The right margin for this report is 80.",!!
  1. S ZTSAVE("RGBDT")="",ZTSAVE("RGEDT")=""
  1. D EN^XUTMDEVQ("START^RGMTHLP","MPI/PD - Print HL7 Message Status (SUMMARY)") I 'POP Q
  1. W !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  1. G QUIT
  1. ;
  1. START ;Print report
  1. S (PG,QFLG)=0,U="^",$P(LN,"-",81)="",SITE=$P($$SITE^VASITE(),U,2)
  1. S PRGBDT=$$FMTE^XLFDT(RGBDT),PRGEDT=$$FMTE^XLFDT(RGEDT)
  1. D NOW^%DTC S HDT=$$FMTE^XLFDT($E(%,1,12))
  1. D HDR
  1. S STOPDT=RGEDT_".9"
  1. S REPNM="@@@@"
  1. F S REPNM=$O(^XTMP("RGMT","HL",REPNM)) Q:REPNM="" Q:QFLG D
  1. .D:$Y+3>IOSL HDR Q:QFLG
  1. .W !!,REPNM,":" D
  1. ..S RGDT=RGBDT-.1
  1. ..F S RGDT=$O(^XTMP("RGMT","HL",REPNM,RGDT)) Q:'RGDT Q:RGDT>STOPDT Q:QFLG D
  1. ...D:$Y+4>IOSL HDR Q:QFLG
  1. ...W !!?4,$$FMTE^XLFDT(RGDT) D
  1. ....S TYPE="",TYPECNT=0
  1. ....F S TYPE=$O(^XTMP("RGMT","HL",REPNM,RGDT,TYPE)) Q:TYPE="" Q:QFLG D
  1. .....S TYPECNT=TYPECNT+1
  1. .....W:TYPE="O"&(TYPECNT>1) !
  1. .....W ?25,$S(TYPE="O":"OUTGOING",1:"INCOMING") S TOTCNT=0 D
  1. ......S STATCNT=0,STAT=""
  1. ......F S STAT=$O(^XTMP("RGMT","HL",REPNM,RGDT,TYPE,STAT)) Q:STAT="" Q:QFLG D
  1. .......W:STATCNT>0 !
  1. .......S STATCNT=STATCNT+1
  1. .......W ?41,STAT S CNT=0 D W ?69,$J(CNT,6) S TOTCNT=TOTCNT+CNT
  1. ........S IEN=0
  1. ........F S IEN=$O(^XTMP("RGMT","HL",REPNM,RGDT,TYPE,STAT,IEN)) Q:'IEN Q:QFLG S CNT=CNT+1
  1. ......I STATCNT>1 W !?69,"-------",!?59,"TOTAL",?69,$J(TOTCNT,6),!
  1. ;
  1. QUIT ;
  1. I $E(IOST)="C"&('QFLG) S DIR(0)="E" D D ^DIR K DIR
  1. .S SS=22-$Y F JJ=1:1:SS W !
  1. K %,CNT,HDT,IEN,IEN0,JJ,LN,MSGID,PG,PRGBDT,PRGEDT,QFLG,REP,REPNM,RGBDT
  1. K RGDT,RGEDT,SITE,SS,STAT,STATCNT,STATNM,STOPDT,TOTCNT,TYPE,TYPECNT,X,Y,ZTSK
  1. W:$E(IOST)'="C" @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
  1. Q
  1. ;
  1. HDR ;HEADER
  1. I $E(IOST)="C" S SS=22-$Y F JJ=1:1:SS W !
  1. I $E(IOST)="C",PG>0 S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
  1. S PG=PG+1 W:$Y!($E(IOST)="C") @IOF
  1. W !,"MPI/PD HL7 MESSAGE STATUS REPORT - SUMMARY (",PRGBDT," to ",PRGEDT,")"
  1. W ?72,"Page: ",PG,!,"Printed at ",SITE," on ",HDT
  1. W !!,"RELATED EVENT PROTOCOL",!?23,"TRANSMISSION",!?4,"DATE",?27,"TYPE"
  1. W ?41,"STATUS",?69,"TOTAL",!,LN
  1. Q