Routine: ZZHLGHB1

ZZHLGHB1 ; HOIFO/WAA - Routine to get HL7 Data from HL logical links ;6/27/08

 ; version 1.4

 ;;;;;Jun 27, 2008;Build 88

EN1 ; [Procedure] Entry Point for Message Array

 S CNT=0

 K ARRAY

 D LINK

 D HEAD

 D BODY

 D TAIL

 S FILE="AXPINT$DISK:[AXPINT]HL7LINK.REP"

 O FILE:"NWS":1

 Q:'$T

 S CNT=-1 F  S CNT=$O(ARRAY(CNT)) Q:CNT=""  U FILE W ARRAY(CNT),!

 C FILE

LINK ;Loop through INPUT for all the links.

 N CCNT,NAME

 S CCNT=0,NAME=""

 F  S NAME=$O(^HLCS(870,"B",NAME)) Q:NAME=""  S INPUT(CCNT)=NAME,CCNT=CCNT+1

BLD(LINK) ; This subroutine will gather all the logical links and place them into input

 N NAME,IP,PORT,STAT,IEN,SUNODE

 S NAME=LINK

 S IEN=$O(^HLCS(870,"B",NAME,0))

 I $G(^HLCS(870,IEN,0))="" D  Q

 S IP=$$GET1^DIQ(870,IEN,400.01,"E")

 I IP="" S IP=$$GET1^DIQ(870,IEN,400.08,"E")

 S PORT=$$GET1^DIQ(870,IEN,400.02,"E")

 S SUNODE=$$GET1^DIQ(870,IEN,400.06,"E")

 S STAT=$$GET1^DIQ(870,IEN,4,"E")

 Q:($P($G(LinkFilter),"=",1)="FILTER")&'(NAME[$P($G(LinkFilter),"=",2))

 Q:($P($G(IPFilter),"=",1)="FILTER")&'(IP[$P($G(IPFilter),"=",2))

 Q:($P($G(PortFilter),"=",1)="FILTER")&'(PORT[$P($G(PortFilter),"=",2))

 Q:($P($G(StatusFilter),"=",1)="FILTER")&'(STAT[$P($G(StatusFilter),"=",2))

 S ARRAY(CNT)="<tr>",CNT=CNT+1

 S ARRAY(CNT)="<td>"

 I ($P($G(LinkFilter),"=",1)="HIGHLIGHT")&(NAME[$P($G(LinkFilter),"=",2)) S ARRAY(CNT)="<td bgcolor=""#0099FF"">"

 S ARRAY(CNT)=ARRAY(CNT)_NAME_"</td>",CNT=CNT+1

 S ARRAY(CNT)="<td>"

 I ($P($G(IPFilter),"=",1)="HIGHLIGHT")&(IP[$P($G(IPFilter),"=",2)) S ARRAY(CNT)="<td bgcolor=""#0099FF"">"

 S ARRAY(CNT)=ARRAY(CNT)_IP_"  </td>",CNT=CNT+1

 S ARRAY(CNT)="<td>"

 I ($P($G(PortFilter),"=",1)="HIGHLIGHT")&(PORT[$P($G(PortFilter),"=",2)) S ARRAY(CNT)="<td bgcolor=""#0099FF"">"

 S ARRAY(CNT)=ARRAY(CNT)_PORT_"  </td>",CNT=CNT+1

 S ARRAY(CNT)="<td>"

 I ($P($G(StatusFilter),"=",1)="HIGHLIGHT")&(STAT[$P($G(StatusFilter),"=",2)) S ARRAY(CNT)="<td bgcolor=""#0099FF"">"

 S ARRAY(CNT)=ARRAY(CNT)_STAT_"  </td>",CNT=CNT+1

 ;S ARRAY(CNT)="<td>"_SUNODE_"</td>",CNT=CNT+1

 S ARRAY(CNT)="</tr>",CNT=CNT+1

HEAD ; Build head of HTML Table

 S ARRAY(CNT)="<!DOCTYPE html PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">",CNT=CNT+1

 S ARRAY(CNT)="<HTML>",CNT=CNT+1

 S ARRAY(CNT)="<HEAD>",CNT=CNT+1

 S ARRAY(CNT)="<meta content=""text/html;charset=ISO-8859-1"" http-equiv=""Content-Type"">",CNT=CNT+1

 S ARRAY(CNT)="<title>HL LOGICAL LINK STATUS DISPLAY</title>",CNT=CNT+1

 S ARRAY(CNT)="</HEAD>",CNT=CNT+1

 S ARRAY(CNT)="<BODY>",CNT=CNT+1

TAIL ; Build Tail of HTML Table

 S ARRAY(CNT)="</BODY>",CNT=CNT+1

 S ARRAY(CNT)="</HTML>",CNT=CNT+1

BODY ; Build body of report

 N LNK

 S LNK=""

 S ARRAY(CNT)="<BR><TABLE STYLE=""width: 6.5in; text-align: left;"" border=""1"" cellpadding=""3"" cellspacing=""2"">",CNT=CNT+1

 S ARRAY(CNT)="<TBODY>",CNT=CNT+1

 D HDR

 F  S LNK=$O(INPUT(LNK)) Q:LNK=""  D BLD(INPUT(LNK))

 S ARRAY="</TBODY>",CNT=CNT+1

 S ARRAY="</TABLE>",CNT=CNT+1

HDR ; Build the row with all the col labels

 S ARRAY(CNT)="<tr>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>Node</b></td>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>Configuration</b></td>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>Namespace</b></td></tr>",CNT=CNT+1

 S ARRAY(CNT)="<tr>",CNT=CNT+1

 S ARRAY(CNT)="<td>"_$ZU(110)_"</td>",CNT=CNT+1

 S ARRAY(CNT)="<td>"_$P($ZU(86),"*",2)_"</td>",CNT=CNT+1

 S ARRAY(CNT)="<td>"_$ZU(5)_"</td></tr></table>",CNT=CNT+1

 S ARRAY(CNT)="<BR><TABLE STYLE=""width: 6.5in; text-align: left;"" border=""1"" cellpadding=""3"" cellspacing=""2"">",CNT=CNT+1

 S ARRAY(CNT)="<tr>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>HL Logical Link</b><br></td>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>IP</b><br></td>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>Port</b><br></td>",CNT=CNT+1

 S ARRAY(CNT)="<td><b>Status</b><br></td>",CNT=CNT+1

 ; S ARRAY(CNT)="<td><b>Total Time:</b><br></td>",CNT=CNT+1

 ; S ARRAY(CNT)="<td><b>Notes:</b><br></td>",CNT=CNT+1

 S ARRAY(CNT)="</tr>",CNT=CNT+1

ZZHLGHB1.m