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