- 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