RA12PST3 ;HIRMFO/CRT - Post-init number three (patch seventeen) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998
;
EN1 ; *** Adding/Editing entries to the Protocol (101) file ***
;
I $D(^ORD(101,"B","RA VOICE TCP REPORT")) D
. N RA101,RAFDA
. S RA101=$O(^ORD(101,"B","RA VOICE TCP REPORT",0))
. S RAFDA(101,RA101_",",771)="D ^RAHLTCPB"
. S RAFDA(101,RA101_",",770.3)="@"
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. D MSG^RA12PST2("RA VOICE TCP REPORT",101)
. D UPDATE^DIE("E","RAFDA")
. Q
;
I $D(^ORD(101,"B","RA VOICE TCP SERVER RPT")) D
. N RA101,RAFDA
. S RA101=$O(^ORD(101,"B","RA VOICE TCP SERVER RPT",0))
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,RA101_",",770.11)="@"
. D MSG^RA12PST2("RA VOICE TCP SERVER RPT",101)
. D UPDATE^DIE("E","RAFDA")
. Q
;
D MSG^RA12PST2("RA PSCRIBE TCP REPORT",101)
I '$D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA PSCRIBE TCP REPORT"
. S RAFDA(101,"+1,",1)="Client for PowerScribe TCP rpt"
. S RAFDA(101,"+1,",4)="subscriber"
. S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
. S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
. S RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,"+1,",770.7)="PSCRIBE-RA"
. S RAFDA(101,"+1,",770.11)="ACK"
. S RAFDA(101,"+1,",771)="D ^RAHLTCPB"
. S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
. D UPDATE^DIE("E","RAFDA")
. I '$D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D MSG^RA12PST2("RA PSCRIBE TCP REPORT",101,1)
I $D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D
. S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP REPORT",0)) K RAFDA
. S RAFDA(101,RA101_",",770.3)="@"
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,RA101_",",770.95)=2.3
. D UPDATE^DIE("E","RAFDA")
. S ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
. S ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
. S ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
. S ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the SUBSCRIBERS multiple of the"
. S ^ORD(101,RA101,1,5,0)="RA PSCRIBE TCP SERVER RPT protocol."
. S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
. Q
;
D MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101)
I '$D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA PSCRIBE TCP SERVER RPT"
. S RAFDA(101,"+1,",1)="PowerScribe TCP sends report to VISTA"
. S RAFDA(101,"+1,",4)="event driver"
. S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
. S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
. S RAFDA(101,"+1,",770.1)="RA-PSCRIBE-TCP"
. S RAFDA(101,"+1,",770.3)="ORU"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
. S RAFDA(101.0775,"+2,+1,",.01)="RA PSCRIBE TCP REPORT"
. D UPDATE^DIE("E","RAFDA")
. I '$D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101,1)
I $D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D
. S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT",0)) K RAFDA
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,RA101_",",770.11)="@"
. S RAFDA(101,RA101_",",770.95)=2.3
. D UPDATE^DIE("E","RAFDA")
. S ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
. S ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
. S ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
. S ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
. S ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
. Q
;
D MSG^RA12PST2("RA TALKLINK TCP REPORT",101)
I '$D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA TALKLINK TCP REPORT"
. S RAFDA(101,"+1,",1)="Client for TalkStation TCP rpt"
. S RAFDA(101,"+1,",4)="subscriber"
. S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
. S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
. S RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,"+1,",770.7)="TALK-RA"
. S RAFDA(101,"+1,",770.11)="ACK"
. S RAFDA(101,"+1,",771)="D ^RAHLTCPB"
. S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
. S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
. D UPDATE^DIE("E","RAFDA")
. I '$D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D MSG^RA12PST2("RA TALKLINK TCP REPORT",101,1)
I $D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D
. S RA101=$O(^ORD(101,"B","RA TALKLINK TCP REPORT",0)) K RAFDA
. S RAFDA(101,RA101_",",770.3)="@"
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,RA101_",",770.95)=2.3
. D UPDATE^DIE("E","RAFDA")
. S ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
. S ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
. S ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
. S ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the SUBSCRIBERS multiple of the"
. S ^ORD(101,RA101,1,5,0)="RA TALKLINK TCP SERVER RPT protocol."
. S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
. Q
;
D MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101)
I '$D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA TALKLINK TCP SERVER RPT"
. S RAFDA(101,"+1,",1)="TalkStation TCP sends report to VISTA"
. S RAFDA(101,"+1,",4)="event driver"
. S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
. S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
. S RAFDA(101,"+1,",770.1)="RA-TALKLINK-TCP"
. S RAFDA(101,"+1,",770.3)="ORU"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
. S RAFDA(101.0775,"+2,+1,",.01)="RA TALKLINK TCP REPORT"
. D UPDATE^DIE("E","RAFDA")
. I '$D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101,1)
I $D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D
. S RA101=$O(^ORD(101,"B","RA TALKLINK TCP SERVER RPT",0)) K RAFDA
. S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
. S RAFDA(101,RA101_",",770.11)="@"
. S RAFDA(101,RA101_",",770.95)=2.3
. D UPDATE^DIE("E","RAFDA")
. S ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
. S ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
. S ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
. S ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
. S ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
. Q
;
D EN1^RA12PST4 ; Add/Edit further protocols for HL7 version 2.3.
;
Q
RA12PST3 ;HIRMFO/CRT - Post-init number three (patch seventeen) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998
+1 ;
EN1 ; *** Adding/Editing entries to the Protocol (101) file ***
+1 ;
+2 IF $DATA(^ORD(101,"B","RA VOICE TCP REPORT"))
Begin DoDot:1
+3 NEW RA101,RAFDA
+4 SET RA101=$ORDER(^ORD(101,"B","RA VOICE TCP REPORT",0))
+5 SET RAFDA(101,RA101_",",771)="D ^RAHLTCPB"
+6 SET RAFDA(101,RA101_",",770.3)="@"
+7 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+8 DO MSG^RA12PST2("RA VOICE TCP REPORT",101)
+9 DO UPDATE^DIE("E","RAFDA")
+10 QUIT
End DoDot:1
+11 ;
+12 IF $DATA(^ORD(101,"B","RA VOICE TCP SERVER RPT"))
Begin DoDot:1
+13 NEW RA101,RAFDA
+14 SET RA101=$ORDER(^ORD(101,"B","RA VOICE TCP SERVER RPT",0))
+15 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+16 SET RAFDA(101,RA101_",",770.11)="@"
+17 DO MSG^RA12PST2("RA VOICE TCP SERVER RPT",101)
+18 DO UPDATE^DIE("E","RAFDA")
+19 QUIT
End DoDot:1
+20 ;
+21 DO MSG^RA12PST2("RA PSCRIBE TCP REPORT",101)
+22 IF '$DATA(^ORD(101,"B","RA PSCRIBE TCP REPORT"))
Begin DoDot:1
+23 NEW RA101,RAFDA
+24 SET RAFDA(101,"+1,",.01)="RA PSCRIBE TCP REPORT"
+25 SET RAFDA(101,"+1,",1)="Client for PowerScribe TCP rpt"
+26 SET RAFDA(101,"+1,",4)="subscriber"
+27 SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
+28 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+29 SET RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
+30 SET RAFDA(101,"+1,",770.4)="R01"
+31 SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
+32 SET RAFDA(101,"+1,",770.7)="PSCRIBE-RA"
+33 SET RAFDA(101,"+1,",770.11)="ACK"
+34 SET RAFDA(101,"+1,",771)="D ^RAHLTCPB"
+35 SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()
+36 SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
+37 SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
+38 SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
+39 DO UPDATE^DIE("E","RAFDA")
+40 IF '$DATA(^ORD(101,"B","RA PSCRIBE TCP REPORT"))
DO MSG^RA12PST2("RA PSCRIBE TCP REPORT",101,1)
End DoDot:1
+41 IF $DATA(^ORD(101,"B","RA PSCRIBE TCP REPORT"))
Begin DoDot:1
+42 SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE TCP REPORT",0))
KILL RAFDA
+43 SET RAFDA(101,RA101_",",770.3)="@"
+44 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+45 SET RAFDA(101,RA101_",",770.95)=2.3
+46 DO UPDATE^DIE("E","RAFDA")
+47 SET ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
+48 SET ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
+49 SET ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
+50 SET ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the SUBSCRIBERS multiple of the"
+51 SET ^ORD(101,RA101,1,5,0)="RA PSCRIBE TCP SERVER RPT protocol."
+52 SET ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
+53 QUIT
End DoDot:1
+54 ;
+55 DO MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101)
+56 IF '$DATA(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT"))
Begin DoDot:1
+57 NEW RA101,RAFDA
+58 SET RAFDA(101,"+1,",.01)="RA PSCRIBE TCP SERVER RPT"
+59 SET RAFDA(101,"+1,",1)="PowerScribe TCP sends report to VISTA"
+60 SET RAFDA(101,"+1,",4)="event driver"
+61 SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
+62 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+63 SET RAFDA(101,"+1,",770.1)="RA-PSCRIBE-TCP"
+64 SET RAFDA(101,"+1,",770.3)="ORU"
+65 SET RAFDA(101,"+1,",770.4)="R01"
+66 SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
+67 SET RAFDA(101.0775,"+2,+1,",.01)="RA PSCRIBE TCP REPORT"
+68 DO UPDATE^DIE("E","RAFDA")
+69 IF '$DATA(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT"))
DO MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101,1)
End DoDot:1
+70 IF $DATA(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT"))
Begin DoDot:1
+71 SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT",0))
KILL RAFDA
+72 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+73 SET RAFDA(101,RA101_",",770.11)="@"
+74 SET RAFDA(101,RA101_",",770.95)=2.3
+75 DO UPDATE^DIE("E","RAFDA")
+76 SET ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
+77 SET ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
+78 SET ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
+79 SET ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
+80 SET ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
+81 QUIT
End DoDot:1
+82 ;
+83 DO MSG^RA12PST2("RA TALKLINK TCP REPORT",101)
+84 IF '$DATA(^ORD(101,"B","RA TALKLINK TCP REPORT"))
Begin DoDot:1
+85 NEW RA101,RAFDA
+86 SET RAFDA(101,"+1,",.01)="RA TALKLINK TCP REPORT"
+87 SET RAFDA(101,"+1,",1)="Client for TalkStation TCP rpt"
+88 SET RAFDA(101,"+1,",4)="subscriber"
+89 SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
+90 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+91 SET RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
+92 SET RAFDA(101,"+1,",770.4)="R01"
+93 SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
+94 SET RAFDA(101,"+1,",770.7)="TALK-RA"
+95 SET RAFDA(101,"+1,",770.11)="ACK"
+96 SET RAFDA(101,"+1,",771)="D ^RAHLTCPB"
+97 SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()
+98 SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
+99 SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
+100 SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
+101 DO UPDATE^DIE("E","RAFDA")
+102 IF '$DATA(^ORD(101,"B","RA TALKLINK TCP REPORT"))
DO MSG^RA12PST2("RA TALKLINK TCP REPORT",101,1)
End DoDot:1
+103 IF $DATA(^ORD(101,"B","RA TALKLINK TCP REPORT"))
Begin DoDot:1
+104 SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK TCP REPORT",0))
KILL RAFDA
+105 SET RAFDA(101,RA101_",",770.3)="@"
+106 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+107 SET RAFDA(101,RA101_",",770.95)=2.3
+108 DO UPDATE^DIE("E","RAFDA")
+109 SET ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
+110 SET ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
+111 SET ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
+112 SET ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the SUBSCRIBERS multiple of the"
+113 SET ^ORD(101,RA101,1,5,0)="RA TALKLINK TCP SERVER RPT protocol."
+114 SET ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
+115 QUIT
End DoDot:1
+116 ;
+117 DO MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101)
+118 IF '$DATA(^ORD(101,"B","RA TALKLINK TCP SERVER RPT"))
Begin DoDot:1
+119 NEW RA101,RAFDA
+120 SET RAFDA(101,"+1,",.01)="RA TALKLINK TCP SERVER RPT"
+121 SET RAFDA(101,"+1,",1)="TalkStation TCP sends report to VISTA"
+122 SET RAFDA(101,"+1,",4)="event driver"
+123 SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()
+124 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+125 SET RAFDA(101,"+1,",770.1)="RA-TALKLINK-TCP"
+126 SET RAFDA(101,"+1,",770.3)="ORU"
+127 SET RAFDA(101,"+1,",770.4)="R01"
+128 SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
+129 SET RAFDA(101.0775,"+2,+1,",.01)="RA TALKLINK TCP REPORT"
+130 DO UPDATE^DIE("E","RAFDA")
+131 IF '$DATA(^ORD(101,"B","RA TALKLINK TCP SERVER RPT"))
DO MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101,1)
End DoDot:1
+132 IF $DATA(^ORD(101,"B","RA TALKLINK TCP SERVER RPT"))
Begin DoDot:1
+133 SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK TCP SERVER RPT",0))
KILL RAFDA
+134 SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
+135 SET RAFDA(101,RA101_",",770.11)="@"
+136 SET RAFDA(101,RA101_",",770.95)=2.3
+137 DO UPDATE^DIE("E","RAFDA")
+138 SET ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
+139 SET ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
+140 SET ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
+141 SET ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
+142 SET ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
+143 QUIT
End DoDot:1
+144 ;
+145 ; Add/Edit further protocols for HL7 version 2.3.
DO EN1^RA12PST4
+146 ;
+147 QUIT
