LASTCNT) D .Q:$P($G(^DPT(IEN,"MPI")),U)'="" ;DURING TESTING DON'T SEND IF ALREADY SENT .Q:$D(^DPT(IEN,-9)) .Q:'$O(^AUPNPAT(IEN,41,0)) .S COUNT=COUNT+1 .I '(CNT#100) W "." .D NOW^%DTC S NOW=% .I EVENT="A01" D CREATE^AGMPHL01(4,IEN,NOW) Q .I EVENT="A03" D CREATE^AGMPHL03(1,IEN,"T"_NOW) Q .D CREATMSG^AGMPIHLO(IEN,EVENT) W !,"TOTAL "_EVENT_" MESSAGES SENT: ",COUNT Q ; FINDERR ;EP - SEACH FOR ERR IN ^HLA FROMERR ;EP K DIR S DIR(0)="DO^::E" S DIR("A")="Enter from Date" S DIR("B")="T" D ^DIR Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(Y="") S FROMERR=Y TOERR ;EP K DIR S DIR(0)="DO^::E" S DIR("A")="Enter to Date" S DIR("B")="T" D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(Y="") FROMERR S TOERR=Y_".999999" I FROMERR>TOERR D G FROMERR .W !!,"FROM DATE CAN NOT BE GREATER THAN TO DATE!!" H 2 S FROMERR=FROMERR-.00001 SHOW ;EP K DIR S DIR(0)="YO" S DIR("A")="Display originating message" S DIR("B")="N" D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(Y="") TOERR S SHOW=Y W !!,"FINDING ERR SEGMENTS IN HLA" N COUNT,MSG,DASH S COUNT=0 D DOCOUNT(.COUNT) W !!,"THERE WERE "_COUNT_" ERR ERRORS FOUND" I COUNT=0 D Q .K DIR .S DIR(0)="E" .D ^DIR S %ZIS="MQ" W ! D ^%ZIS Q:POP I $D(IO("Q")) D QUEERR Q U IO QUEPRINT ;EP ENTER FROM TASKMAN S $P(DASH,"-",81)="" N CODECNT S TOTCOUNT=0 S ESC=0 S PAGE=1 D NOW^%DTC S Y=% X ^DD("DD") S PRTDATE=Y D HDRERR S MSGDATE=FROMERR-.0001 F S MSGDATE=$O(^HLA("B",MSGDATE)) Q:MSGDATE=""!(ESC) D .Q:+MSGDATE>TOERR!(+MSGDATE(IOSL-4),(IO=IO(0)),'$D(IO("S")) K DIR S DIR(0)="E" D:'$D(ZTQUEUED) ^DIR S ESC=$G(X)=U Q:ESC D HDRERR ..I $Y>(IOSL-4),$D(ZTQUEUED) D HDRERR ..W !!,DASH ..W !,"PATIENT DFN: ",LOCALID ..W !,"HLA IEN: ",MSGIEN ..W !,"MSG ID: ",MSGID ..W !,"ORIGINATING MSG IEN: ",OMSGIEN ..W !,"ACK CODE: ",ACKCODE ..W !,$G(^HLA(MSGIEN,1,3,0)) ..S CODECNT(ACKCODE)=$G(CODECNT(ACKCODE))+1 ..I SHOW D LISTOMSG(OMSGIEN) ;LIST ORIGINATING MESSAGE D PRTERRCD(.CODECNT) ;PRINT ACK CODE COUNTS W !!!,"TOTAL ERRORS: ",TOTCOUNT I '$D(ZTQUEUED) D .U 0 .W ! .K DIR .S DIR(0)="E" .D ^DIR D ^%ZISC Q ; HDRERR ;EP - HEADER W @IOF W !,$$C^XBFUNC("MSG ERR REPORT",IOM) W ?70,"PAGE ",PAGE S PAGE=PAGE+1 W !,$$CJ^XLFSTR("DATE PRINTED: "_PRTDATE,IOM) W !,$$CJ^XLFSTR("PRINTED BY: "_$P($G(^VA(200,DUZ,0)),U),IOM) W !,DASH,!! Q ; PRTERRCD(CODECNT) ;EP N ACKCODE S ACKCODE="" F S ACKCODE=$O(CODECNT(ACKCODE)) Q:ACKCODE="" D .W !,"TOTAL "_ACKCODE_" ERRS: ",CODECNT(ACKCODE) Q ; QUEERR ; EP - QUE AE ERROR REPORT S ZTRTN="QUEPRINT^AGMPHLU1" S ZTDESC="HLO AE ERROR MESSAGE REPORT" S ZTSAVE("FROMERR")="" S ZTSAVE("TOERR")="" S ZTSAVE("SHOW")="" D ^%ZTLOAD I $D(ZTSK)[0 W !!?5,"Report Cancelled!" E W !!?5,"Report task #: ",$G(ZTSK) D HOME^%ZIS Q ; DOCOUNT(COUNT) ;EP - GET COUNT OF ERR MSGS S MSGIEN=0 F S MSGIEN=$O(^HLA(MSGIEN)) Q:'MSGIEN D .S ENTRYDT=$P($G(^HLA(MSGIEN,0)),U) .Q:ENTRYDT>TOERR!(ENTRYDT(IOSL-4),(IO=IO(0)),'$D(IO("S")) K DIR S DIR(0)="E" D:'$D(ZTQUEUED) ^DIR S ESC=$G(X)=U Q:ESC D HDREVN .I $Y>(IOSL-4),$D(ZTQUEUED) D HDREVN .I 'ONLYCNT D ..W !!,IEN_" *** "_$G(^HLA(IEN,0)) ..D LISTOMSG(IEN) .S FOUND=FOUND+1 W !,"FOUND "_FOUND_" '"_EVENT_"' EVENTS IN ^HLA WITH MSGTPYE '"_MSGTYPE I $G(ACKCODE)'="" W "' AND ACKCODE '"_ACKCODE_"'" D ^%ZISC I '$D(ZTQUEUED) D .U 0 .W ! .K DIR .S DIR(0)="E" .D ^DIR Q ; QUEEVN ;EP - S ZTRTN="FINDEVN^AGMPHLU1" S ZTDESC="MPI FIND EVENT/TYPE/ACK REPORT" S ZTSAVE("EVENT")="",ZTSAVE("MSGTYPE")="",ZTSAVE("ACKCODE")="" D ^%ZTLOAD I $D(ZTSK)[0 W !!?5,"Report Cancelled!" E W !!?5,"Report task #: ",$G(ZTSK) D HOME^%ZIS Q ; HDREVN ;EP - W @IOF W !,$$C^XBFUNC("MPI FIND EVENT/TYPE/ACK REPORT",IOM) W ?70,"PAGE ",PAGE W !,$$CJ^XLFSTR("DATE PRINTED: "_PRTDATE,IOM) W !,$$CJ^XLFSTR("PRINTED BY: "_$P($G(^VA(200,DUZ,0)),U),IOM) W !,DASH,!! S PAGE=PAGE+1 Q ; RPTBYDT ;EP - REPORT OF MSG TYPE AND EVENT BY DATE RANGE N MSGTYPE,EVENT,FROM,TO,MSGDATE,REC,MSGTYPCT,EVENTCNT,TOTMSG,TYPEEVNT,DASH,ESC ASKFROM ;EP K DIR S DIR(0)="DO^::E" S DIR("A")="Enter from Date" S DIR("B")="T" D ^DIR Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(Y="") S FROM=Y ASKTO ;EP K DIR S DIR(0)="DO^::E" S DIR("A")="Enter to Date" S DIR("B")="T" D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)!(Y="") ASKFROM S TO=Y_".999999" I FROM>TO D G ASKFROM .W !!,"FROM DATE CAN NOT BE GREATER THAN TO DATE!!" H 2 REPEAT ;EP - S TYPEEVNT="" F S TYPEEVNT=$O(TYPEEVNT(TYPEEVNT)) Q:TYPEEVNT="" S TYPEEVNT(TYPEEVNT)=0 S ESC=0 S TOTMSG=0 S MSGDATE=FROM-.01 F S MSGDATE=$O(^HLA("B",MSGDATE)) Q:MSGDATE=""!(ESC) D .Q:+MSGDATE>TO!(+MSGDATE0 D .W !!,"PATIENTS NOT POPULATED" .W !,"----------------------" .S IEN="" .F S IEN=$O(PATS(IEN)) Q:'IEN D ..W !,$P($G(^DPT(IEN,0)),U) I '$D(ZTQUEUED) D .W ! .K DIR .S DIR(0)="E" .D ^DIR Q ; FINDMFK ;EP - FIND MFK MSG WITH AN UNSUCCESFUL MFE N MSGIE,REC,COUNT,DASH S %ZIS="MQ" W ! D ^%ZIS Q:POP I $D(IO("Q")) D QUEMFK Q U IO PRTMFK ;EP - ENTRY POINT FOR TASKING S $P(DASH,"-",81)="" D NOW^%DTC S Y=% X ^DD("DD") S PRTDATE=Y S $P(DASH,"-",81)="" S PAGE=1 S ESC=0 D HDRMFK S COUNT=0 S MSGIEN=0 F S MSGIEN=$O(^HLA(MSGIEN)) Q:'MSGIEN!ESC D .Q:$P($G(^HLA(MSGIEN,0)),U,3)'="MFK" .S REC=0 F S MSGIEN=$O(^HLA(MSGIEN)) Q:'MSGIEN!ESC D .Q:$P($G(^HLA(MSGIEN,0)),U,3)'="MFK" .S REC=0 .F S REC=$O(^HLA(MSGIEN,1,REC)) Q:'REC!ESC D ..Q:$P($G(^HLA(MSGIEN,1,REC,0)),U)'="MFA" ..S RESULT=$P($G(^HLA(MSGIEN,1,REC,0)),U,5) ..Q:RESULT="S" ..S MSGID=$P($G(^HLA(MSGIEN,0)),U) ..S COUNT=COUNT+1 ..I $Y>(IOSL-4),(IO=IO(0)),'$D(IO("S")) K DIR S DIR(0)="E" D:'$D(ZTQUEUED) ^DIR S ESC=$G(X)=U Q:ESC D HDRMFK ..I $Y>(IOSL-4),$D(ZTQUEUED) D HDRMFK ..W !!,DASH ..W !,"HLA IEN: ",MSGIEN ..W !,"MSG ID: ",MSGID ..W !!,$G(^HLA(MSGIEN,1,REC-2,0)) ..W !,$G(^HLA(MSGIEN,1,REC,0)) W !!!,"COUNT OF UNSUCCESSFUL MFE: ",COUNT D ^%ZISC I '$D(ZTQUEUED) D .U 0 .W ! .K DIR .S DIR(0)="E" .D ^DIR Q ; HDRMFK ;EP - HEADER W @IOF W !,$$C^XBFUNC("UNSUCCESSFUL MFE REPORT",IOM) W ?60,"PAGE ",PAGE S PAGE=PAGE+1 W !,$$CJ^XLFSTR("DATE PRINTED: "_PRTDATE,IOM) W !,$$CJ^XLFSTR("PRINTED BY: "_$P($G(^VA(200,DUZ,0)),U),IOM) W !,DASH,!! Q ; QUEMFK ; EP - QUE MFE ERROR REPORT S ZTRTN="PRTMFK^AGMPHLU1" S ZTDESC="HLO MFE ERROR MESSAGE REPORT" D ^%ZTLOAD I $D(ZTSK)[0 W !!?5,"Report Cancelled!" E W !!?5,"Report task #: ",$G(ZTSK) D HOME^%ZIS Q ; RESETICN ;EP - CLEAR INTEGRATION CONTROL NUMBER ;OIT PROGRAMMER ONLY OPTION ;THIS IS USED IF A SITE NEEDS TO BE RELOADED INTO THE MPI ;FOR SOME REASON. PARTICULARLY WHEN A BETA SITE IS RELOADED AND THEREFORE ;PATIET ARE ASSIGNED NEW EUID BY THE MPI ONE ;EP - RESET JUST ONE PATIENT W !!,"USE THIS OPTION TO CLEAR THE INTEGRATION CONTROL NUMBER" W !,"THIS CAN BE USED WHEN A SITE NEEDS TO BE RELOADED INTO THE MPI" W !,"IF A SITE IS RELOADED THEN NEW EUIDs WILL BE ASSIGNED." W !! N DIR,DIC,DIE,DA,DR S DIR(0)="YO" S DIR("A")="RESET ALL PATIENTS" Q:$D(DTOUT)!($D(DUOUT))!(Y="") I Y="Y" D ALLRESET Q W !,"ENTER PATIENT TO RESET" D PTLK^AG Q:'$D(DFN) I '$D(^DPT(DFN,"MPI")) D G ONE .W !!,"PATIENT HAS NO ICN" .K DIR .S DIR(0)="E" .D ^DIR S DA=DFN S DIE="^DPT(" S DR="991.01///@;991.02///@" D ^DIE Q ALLRESET ;EP - RESET ALL ICNs THAT ARE POPULATED ;OIT PROGRAMMER ONLY OPTION N DIR,DIC,DIE,DA,DR S DIE="^DPT(" S DR="991.01///@;991.02///@" S DA=0 F S DA=$O(^DPT(DA)) Q:'DA D .Q:'$D(^DPT(DA,"MPI")) .D ^DIE Q ; CLEARALL ;EP - RESET ALL FOR RETESTING SESSION ;OIT PROGRAMMER ONLY OPTION ;D CLEAR ;D ALLRESET ;K ^DGCN(391.91) ;S ^DGCN(391.91,0)="TREATING FACILITY LIST^391.91PI^^" Q ;CLEAR HLO MESSAGE GLOBALS CLEAR ;EP - CLEAR HLO MESSAGE GLOBALS ;OIT PROGRAMMER ONLY OPTION ;K ^HLA,^HLB,^HLC,^HLTMP ;S ^HLA(0)="HLO MESSAGE BODY^777DI^^" ;S ^HLB(0)="HLO MESSAGES^778O^^" Q ; QUEVSENT ;EP - MSGS IN QUEUE VS TOTAL MSGS W @IOF N HLOG,PORT,MPILINK,REC,OUTCOUNT,TOTCOUNT,INCOUNT,MSGTYPE,EVENT,MPIIEN,ESC S ESC=0 S HLOG=$O(^HLCS(870,"B","MPI","")) ;MPI LOGICAL LINK S PORT=$$GET1^DIQ(870,HLOG_",",400.08,"E") ;TCP/IP PORT (OPTIMIZED) S MPILINK="MPI:"_PORT S (TOTCOUNT,OUTCOUNT,INCOUNT)=0 S TRANDATE="" F S TRANDATE=$O(^HLB("QUEUE","IN",TRANDATE)) Q:'TRANDATE D .S MSGTYPE="" .F S MSGTYPE=$O(^HLB("QUEUE","IN",TRANDATE,"RPMS-MPI",MSGTYPE)) Q:MSGTYPE="" D ..S EVENT="" ..F S EVENT=$O(^HLB("QUEUE","IN",TRANDATE,"RPMS-MPI",MSGTYPE,EVENT)) Q:EVENT="" D ...S MPIIEN="" ...F S MPIIEN=$O(^HLB("QUEUE","IN",TRANDATE,"RPMS-MPI",MSGTYPE,EVENT,MPIIEN)) Q:MPIIEN="" D ....S INCOUNT=INCOUNT+1 S MPIIEN="" F S MPIIEN=$O(^HLB("QUEUE","OUT",MPILINK,"MPI RPMS",MPIIEN)) Q:'MPIIEN D .S OUTCOUNT=OUTCOUNT+1 S MPIIEN=0 F S MPIIEN=$O(^HLB(MPIIEN)) Q:'MPIIEN D .S LINK=$P($G(^HLB(MPIIEN,0)),U,5) .Q:LINK'="MPI" .S TOTCOUNT=TOTCOUNT+1 W !!," MESSAGES IN THE IN QUEUE: ",$J($FN(INCOUNT,","),9) W !," MESSAGES IN OUT QUEUE: ",$J($FN(OUTCOUNT,","),9) W !,"TOTAL MESSAGES IN HLO GLOBALS: ",$J($FN(TOTCOUNT,","),9) I '$D(ZTQUEUED) D Q:ESC .U 0 .W ! .K DIR .S DIR(0)="E" .D ^DIR .S ESC=X=U I '$D(ZTQUEUED) G QUEVSENT Q ]]> EnsHL7 Ens.InboundAdapter 62046,52680.031739 61592,31859.341221 Log of changes fje 04/11/09 general cleanup of comments and alerts Name of the Receiving Facility to filter HL7 messages. %String Maximum number of messages to retrieve/send per poll/task. %Integer The number of messages retrieved. %Integer Information to send an alert from the business service if populated. %String Time to hang before processing another message, used to manage the throughput. %Integer Site ID. This is the STATION NUMBER %String %String ReceivingFacilityName, MaxNmbrMsgs, Throttle, SiteID %Status 0 { // If the segment # is odd and has data, check to see if there is //more data in the even node. If even has data then //add to the odd node befor processing // iSeg # 2 =1 if odd, zero if even if (iSeg # 2){ Set tHldr=$D(^HLA(tID,1,iSeg+1,0),tSegData2) if $L(tSegData2)>0 { Set tSegData=tSegData_tSegData2 Set iSeg=iSeg+1 } } //if '(iSeg # 2) { // Set tMsgTxt=tMsgTxt_tSegData // Otherwise we add a segment separator also. //} else { Set tMsgTxt=tMsgTxt_tSegData_tSS //} } } // Unlock the global in case there's another operaton that // neds to write to it. Lock -^HLA If tWriteTrace $$$TRACE("We have unlocked the HLA node") // Create the HL7 message document to send to the business // process that will route the message. Set hl7obj=##class(EnsLib.HL7.Message).ImportFromString(tMsgTxt) // Check to see that the hl7obj is an object. Set tSC= $ISOBJECT(hl7obj) // If it's not send an a message to the ENS.Alert Process. If 'tSC { Set tSC=%objlasterror Set ..AInfo=" Failed to create an HL7 message with the information retrieved from the HLA global, IEN= "_tID Set ..AInfo=..AInfo_" ERROR:= "_##class(%SYSTEM.Status).GetErrorText(tSC) Do ..BusinessHost.SendAlert(##Class(Ens.AlertRequest).%New($LB(..BusinessHost.%ConfigName,"There was an issue creating a valid HL7 message in the HLOGlobalInbound Adapter: ", ..AInfo))) Set ..AInfo="" tCommit Lock -^HLB If tWriteTrace $$$TRACE("We have unlocked the HLB node") Continue } If tWriteTrace $$$TRACE("Message is built and we're sending it to the RPMS Service.") // Send the message to the Business Host. set tSC=..BusinessHost.ProcessInput(hl7obj) Set ..NmbrMsgsSnt=..NmbrMsgsSnt+1 If tWriteTrace $$$TRACE("We returned from the RPMS Service with tSC= "_tSC_":") // If we get here we sent a message to the production and // we need to update the 16th field within the HLB global. Set X=$HOROLOG,X=($ZDATETIME(X,8,1,9)-17000000) Set Y=$PIECE($HOROLOG,",",2),Z=$ZTIME(Y,2) Set Z=$P(Z,":",1)_$P(Z,":",2) Set $p(^HLB(tid,0),tFD,16)=(X_"."_Z) // We've sent/Processed the message, we need to remove // the QUEUE node and decrement the counter by one k ^HLB("QUEUE","OUT",tNTYPE,tLLink,tid) s:+$G(^HLC("QUEUECOUNT","OUT",tNTYPE,tLLink)) ^HLC("QUEUECOUNT","OUT",tNTYPE,tLLink)=^HLC("QUEUECOUNT","OUT",tNTYPE,tLLink)-1 // Complete the transaction and unlock the global. TCommit Lock -^HLB If tWriteTrace $$$TRACE("We have unlocked the HLB node") If tWriteTrace $$$TRACE("Message was sent, QUEUE node deleted, and count decremented") // If the number of messages sent equals the Maximum Number // of message to send per interval, we set the tQuitAll // flag. If ( ..NmbrMsgsSnt =..MaxNmbrMsgs) { Set tQuitAll=1 Quit } // Set the Current Time variable Set CrrntTime = $P($H,",",2) // Set the processing time, if the start time is greater than the // current time (we passed midnight) and will always set the // processing time to a value greater than the call interval. If StrtTime > CrrntTime { Set PrcssngTime = StrtTime - CrrntTime } else { Set PrcssngTime = CrrntTime - StrtTime } // If the processing time is greater than the Call Interval // return control to the Service that called the adapter. if (PrcssngTime > ..CallInterval) { Set tQuitAll=1 Quit } // Pause the processing of messages. HANG (..Throttle/1000) } // Closing the third For loop. } // Closing the second For loop. } // Closing the first For loop. Lock -^HLB If tWriteTrace $$$TRACE("We have unlocked the HLB node") // Exiting the Inbound Adapter. Quit tSC Trap // We erred out, set the error information and roll back the last transaction. Set $ZT="",tSC=$$$EnsSystemError If tWriteTrace $$$TRACE("An error was captured and is being sent") Do ..BusinessHost.SendAlert(##Class(Ens.AlertRequest).%New($LB(..BusinessHost.%ConfigName,"There was an error in the HLOGlobalInbound Adapter: ", tSC))) TRollback Lock -^HLB,-^HLA Quit tSC ]]> EnsHL7 EnsHL7 Ens.OutboundAdapter 62426,49489.158143 61592,32226.677662 Facility number. %String Logical Link between the two systems (i.e. Den-RPMS) %String %String SiteID, LLink InboundMsg:EnsLib.HL7.Message %Status Gets the next available IEN for the ^HLB global using the same logic as NEWIEN^HLOF778A. Messages in this adapter are always inbound, TCP. 1 %Integer tMaxIEN) { lock +^HLC("FILE778","IN","TCP"):200 if $t,$g(^HLC("FILE778","IN","TCP"))>tMaxIEN { set ^HLC("FILE778","IN","TCP")=1,tIEN=1 } lock -^HLC("FILE778","IN","TCP") } set tIEN2=tIEN+200000000000 } while ($d(^HLB(tIEN2)) && (tIEN'=tStartIEN)) if (tIEN=tStartIEN) { quit "" } quit (tIEN2) ]]> Gets the next available IEN for the ^HLA global using the same logic as NEWIEN^HLOF777. Messages in this adapter are always inbound, TCP. 1 %Integer tMaxIEN) { lock +^HLC("FILE777","IN","TCP"):200 if $t,$g(^HLC("FILE777","IN","TCP"))>tMaxIEN { set ^HLC("FILE777","IN","TCP")=1,tIEN=1 } lock -^HLC("FILE777","IN","TCP") } set tIEN2=tIEN+100000000000 } while ($d(^HLA(tIEN2)) && (tIEN'=tStartIEN)) if (tIEN=tStartIEN) { quit "" } quit (tIEN2) ]]> %Persistent,%Populate,%XML.Adaptor 62388,57265.344408 61593,36022.526551 %String 1 %String 1 %String 1 %Library.CacheStorage ^AGMPI.AlertEmailAddressD AlertEmailAddressDefaultData ^AGMPI.AlertEmailAddressD ^AGMPI.AlertEmailAddressI ^AGMPI.AlertEmailAddressS listnode %%CLASSNAME Name EmailAddress EmailType %Persistent 62388,57265.632704 61593,35202.293276 %String %TimeStamp %Library.CacheStorage ^AGMPI.Alerts.AlertLogD AlertLogDefaultData ^AGMPI.Alerts.AlertLogD ^AGMPI.Alerts.AlertLogI ^AGMPI.Alerts.AlertLogS listnode %%CLASSNAME AlertText AlertDateTime 1 EnsLib.HL7.Operation.TCPOperation 62069,42121.26409 61592,33257.239869 EnsLib.HL7.Adapter.TCPOutboundAdapter Queue pRequest:EnsLib.HL7.Message,*pResponse:EnsLib.HL7.Message %Status The outbound operation that communicates with the RPMS system 1 EnsLib.HL7.Operation.Standard 62069,42348.539179 61592,33675.577319 AGMPI.Adapters.HLOGlobalOutbound Queue pRequest:EnsLib.HL7.Message,*pResponse:EnsLib.HL7.Message %Status 1 Ens.Production 62444,67033.65878 61579,45861.079022 This production transports messages between RPMS Patient Registration and the central IHS MPI 2 120 10 5 0 15 0 MPIBadMessageFile 0 Latin1 5 5 -1 1 0 AsciiLF c:\HLOTEST\BADMSG 0 Default 5 AGMPI.RPMSMessageRouting EnsLib.HL7.SearchTable ISC:EnsembleHL7 Flexible Never 0 0 0 ContentE 1Session AGMPI.RPMS Latin1 5 1 0 MPI 60 475 5 ISC:EnsembleHL7 Application Error 0 dm-z AGMPI.RPMSMessageRouting 1 BadMessage MPIOutBound RPMSOutBound -1 0 5 0 15 1 AGMPI.MPIMessageRouting EnsLib.HL7.SearchTable ISC:EnsembleHL7 MLLP Msh 0 0 1 ContentE 1Session AGMPI.MPI Latin1 30 1 0 0 0 5 5201 60 30 ISC:EnsembleHL7 0 dm-z AGMPI.MPIMessageRouting 1 BadMessage -1 0 5 0 15 1 Latin1 5 5 -1 1 0 MLLP RPMS-MPI 0 Latin1 5 30 -1 1 0 MLLP 5200 30 60 30 5 1 30 5 5 25 0 0 25 ryan.hulslander@vangent.com badaboom@badabing.com ]]> persistent Ens.BusinessProcessBPL 62384,38614.783852 61592,35734.428636 BPL Definition http://www.intersystems.com/bpl ]]> %Library.CacheStorage persistent AGMPI.Process.AlertProcess 1 Ens.BP.Context 62388,57269.194926 61592,52279.721373 %String $H %Integer 900 AGMPI.Alerts.AlertLog %TimeStamp %String %Integer %Library.CacheStorage ContextDefaultData1 listnode "Context" AlertHorolog AlertInterval AlertLog LastAlertDateTime LastAlertHorolog TimeDiff persistent AGMPI.Process.AlertProcess 1 Ens.BP.Thread 62388,57270.404856 62388,57268.977522 process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status context.AlertInterval) { Set ..%NextState="S5" } else { Set ..%NextState="S4" } } while (0) Exit Quit ..ManageState(status) Trap Set $ZT="",status=..ManageStatus(status,"S2") Goto Exit ]]> process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status %Library.CacheStorage persistent AGMPI.Process.AlertProcess 1 Ens.BP.Context 61824,37523.370219 61592,51469.207187 %String $H %Integer 900 %TimeStamp %String %Integer %Library.CacheStorage AlertProcessContextDefaultData listnode "AlertProcessContext" AlertHorolog AlertInterval AlertLog LastAlertDateTime LastAlertHorolog TimeDiff persistent AGMPI.Process.AlertProcess 1 Ens.BP.Thread 61824,37755.797124 61592,52260.890995 process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status context.AlertInterval) { Set ..%NextState="S5" } else { Set ..%NextState="S4" } } while (0) Exit Quit ..ManageState(status) Trap Set $ZT="",status=..ManageStatus(status,"S2") Goto Exit ]]> process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status process:Ens.BusinessProcess,context:Ens.BP.Context,synctimedout:%Boolean,syncresponses:%ArrayOfObjects(ELEMENTTYPE="%Library.Persistent"),request:%Library.Persistent,response:%Library.Persistent cache process,context %Status %Library.CacheStorage The Business Service receiving messages from the MPI System. 1 EnsLib.HL7.Service.TCPService 62069,45502.677605 61592,33940.955487 EnsLib.HL7.Adapter.TCPInboundAdapter pLine:Ens.StringContainer,*pLineLeftOver:Ens.StringContainer %Status A Business Service that receives messages from the RPMS system via the HLOGlobal Inbound Adapter. 1 EnsLib.HL7.Service.Standard 62069,44965.526645 61592,34079.814283 AGMPI.Adapters.HLOGlobalInbound InBndMsg:EnsLib.HL7.Message,pOutPut:EnsLib.HL7.Message %Status