Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RAIPST14

RAIPST14.m

Go to the documentation of this file.
  1. RAIPST14 ;HIRMFO/BNT - Post-init number two (patch twelve) ;5/19/99
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;**12**;Mar 16, 1998
  1. ;
  1. EN1 ; *** Adding/Editing entries to the Protocol (101) file ***
  1. I $D(^ORD(101,"B","RA VOICE TCP REPORT")) D
  1. . N RA101,RAFDA
  1. . S RA101=$O(^ORD(101,"B","RA VOICE TCP REPORT",0))
  1. . S RAFDA(101,RA101_",",771)="D ^RAHLTCPB"
  1. . D MES^XPDUTL("Changing GENERATE/PROCESS ROUTINE (field 771) for RA VOICE TCP REPORT protocol")
  1. . D FILE^DIE("E","RAFDA")
  1. . Q
  1. ;
  1. I '$D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D
  1. . N RA101,RAFDA
  1. . S RAFDA(101,"+1,",.01)="RA PSCRIBE TCP REPORT"
  1. . S RAFDA(101,"+1,",1)="Client for PowerScribe TCP rpt"
  1. . S RAFDA(101,"+1,",4)="subscriber"
  1. . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
  1. . S RAFDA(101,"+1,",15)="Q"
  1. . S RAFDA(101,"+1,",20)="Q"
  1. . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
  1. . S RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
  1. . S RAFDA(101,"+1,",770.3)="ORU"
  1. . S RAFDA(101,"+1,",770.4)="R01"
  1. . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
  1. . S RAFDA(101,"+1,",770.7)="PSCRIBE-RA"
  1. . S RAFDA(101,"+1,",770.11)="ACK"
  1. . S RAFDA(101,"+1,",771)="D ^RAHLTCPB"
  1. . S RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
  1. . D MSG^RAIPST12("RA PSCRIBE TCP REPORT",101),UPDATE^DIE("E","RAFDA")
  1. . I $D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D Q
  1. .. S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP REPORT",0)) K RAFDA
  1. .. S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")
  1. .. S ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
  1. .. S ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
  1. .. S ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
  1. .. S ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the ITEM multiple of the RA"
  1. .. S ^ORD(101,RA101,1,5,0)="PSCRIBE TCP SERVER RPT protocol."
  1. .. S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
  1. .. Q
  1. . D MSG^RAIPST12("RA PSCRIBE TCP REPORT",101,1)
  1. . Q
  1. I '$D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D
  1. . N RA101,RAFDA
  1. . S RAFDA(101,"+1,",.01)="RA PSCRIBE TCP SERVER RPT"
  1. . S RAFDA(101,"+1,",1)="PowerScribe TCP sends report to VISTA"
  1. . S RAFDA(101,"+1,",4)="event driver"
  1. . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
  1. . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
  1. . S RAFDA(101,"+1,",770.1)="RA-PSCRIBE-TCP"
  1. . S RAFDA(101,"+1,",770.3)="ORU"
  1. . S RAFDA(101,"+1,",770.4)="R01"
  1. . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
  1. . S RAFDA(101,"+1,",772)="Q"
  1. . S RAFDA(101.01,"+2,+1,",.01)="RA PSCRIBE TCP REPORT"
  1. . D MSG^RAIPST12("RA PSCRIBE TCP SERVER RPT",101),UPDATE^DIE("E","RAFDA")
  1. . I $D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D Q
  1. .. S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT",0)) K RAFDA
  1. .. S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")
  1. .. S ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
  1. .. S ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
  1. .. S ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
  1. .. S ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
  1. .. S ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
  1. .. Q
  1. . D MSG^RAIPST12("RA PSCRIBE TCP SERVER RPT",101,1)
  1. . Q
  1. I '$D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D
  1. . N RA101,RAFDA
  1. . S RAFDA(101,"+1,",.01)="RA TALKLINK TCP REPORT"
  1. . S RAFDA(101,"+1,",1)="Client for TalkStation TCP rpt"
  1. . S RAFDA(101,"+1,",4)="subscriber"
  1. . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
  1. . S RAFDA(101,"+1,",15)="Q"
  1. . S RAFDA(101,"+1,",20)="Q"
  1. . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
  1. . S RAFDA(101,"+1,",770.2)="RA-VOICE-SERVER"
  1. . S RAFDA(101,"+1,",770.3)="ORU"
  1. . S RAFDA(101,"+1,",770.4)="R01"
  1. . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
  1. . S RAFDA(101,"+1,",770.7)="TALK-RA"
  1. . S RAFDA(101,"+1,",770.11)="ACK"
  1. . S RAFDA(101,"+1,",771)="D ^RAHLTCPB"
  1. . S RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
  1. . S RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
  1. . D MSG^RAIPST12("RA TALKLINK TCP REPORT",101),UPDATE^DIE("E","RAFDA")
  1. . I $D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D Q
  1. .. S RA101=$O(^ORD(101,"B","RA TALKLINK TCP REPORT",0)) K RAFDA
  1. .. S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")
  1. .. S ^ORD(101,RA101,1,1,0)="Subscriber protocol for sending report to VISTA Radiology/Nuclear"
  1. .. S ^ORD(101,RA101,1,2,0)="Medicine. This protocol is used by the HL7 package to process messages"
  1. .. S ^ORD(101,RA101,1,3,0)="sent to VISTA from a COTS voice recognition unit using TCP/IP for message"
  1. .. S ^ORD(101,RA101,1,4,0)="flow. This protocol should be entered in the ITEM multiple of the RA"
  1. .. S ^ORD(101,RA101,1,5,0)="TALKLINK TCP SERVER RPT protocol."
  1. .. S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
  1. .. Q
  1. . D MSG^RAIPST12("RA TALKLINK TCP REPORT",101,1)
  1. . Q
  1. I '$D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D
  1. . N RA101,RAFDA
  1. . S RAFDA(101,"+1,",.01)="RA TALKLINK TCP SERVER RPT"
  1. . S RAFDA(101,"+1,",1)="TalkStation TCP sends report to VISTA"
  1. . S RAFDA(101,"+1,",4)="event driver"
  1. . S RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
  1. . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
  1. . S RAFDA(101,"+1,",770.1)="RA-TALKLINK-TCP"
  1. . S RAFDA(101,"+1,",770.3)="ORU"
  1. . S RAFDA(101,"+1,",770.4)="R01"
  1. . S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
  1. . S RAFDA(101,"+1,",772)="Q"
  1. . S RAFDA(101.01,"+2,+1,",.01)="RA TALKLINK TCP REPORT"
  1. . D MSG^RAIPST12("RA TALKLINK TCP SERVER RPT",101),UPDATE^DIE("E","RAFDA")
  1. . I $D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D Q
  1. .. S RA101=$O(^ORD(101,"B","RA TALKLINK TCP SERVER RPT",0)) K RAFDA
  1. .. S RAFDA(101,RA101_",",770.95)=2.3 D FILE^DIE("E","RAFDA")
  1. .. S ^ORD(101,RA101,1,1,0)="Driver protocol for sending report to VISTA Radiology/Nuclear Medicine."
  1. .. S ^ORD(101,RA101,1,2,0)="This protocol is used by the HL7 package to process radiology/nuclear med"
  1. .. S ^ORD(101,RA101,1,3,0)="reports coming into VISTA from commercial voice recognition units using"
  1. .. S ^ORD(101,RA101,1,4,0)="TCP/IP for message flow."
  1. .. S ^ORD(101,RA101,1,0)="^^4^4^"_$$DT^XLFDT()_"^^"
  1. .. Q
  1. . D MSG^RAIPST12("RA TALKLINK TCP SERVER RPT",101,1)
  1. . Q
  1. D EN1^RAIPST15 ; Add new event driver protocols for HL7 version 2.3.
  1. ;
  1. Q