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

RA12PST3.m

Go to the documentation of this file. 
  1. RA12PST3 ;HIRMFO/CRT - Post-init number three (patch seventeen) ;5/19/99
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998
  1.  ;
  1. EN1 ; ***   Adding/Editing entries to the Protocol (101) file   ***
  1.  ;
  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.  . S RAFDA(101,RA101_",",770.3)="@"
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . D MSG^RA12PST2("RA VOICE TCP REPORT",101)
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . Q
  1.  ;
  1.  I $D(^ORD(101,"B","RA VOICE TCP SERVER RPT")) D
  1.  . N RA101,RAFDA
  1.  . S RA101=$O(^ORD(101,"B","RA VOICE TCP SERVER RPT",0))
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,RA101_",",770.11)="@"
  1.  . D MSG^RA12PST2("RA VOICE TCP SERVER RPT",101)
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . Q
  1.  ;
  1.  D MSG^RA12PST2("RA PSCRIBE TCP REPORT",101)
  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^RA12PST2()
  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.4)="R01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  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^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . I '$D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D MSG^RA12PST2("RA PSCRIBE TCP REPORT",101,1)
  1.  I $D(^ORD(101,"B","RA PSCRIBE TCP REPORT")) D
  1.  . S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP REPORT",0)) K RAFDA
  1.  . S RAFDA(101,RA101_",",770.3)="@"
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D UPDATE^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 SUBSCRIBERS multiple of the"
  1.  . S ^ORD(101,RA101,1,5,0)="RA PSCRIBE TCP SERVER RPT protocol."
  1.  . S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  D MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101)
  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^RA12PST2()
  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^RA12PST2()
  1.  . S RAFDA(101.0775,"+2,+1,",.01)="RA PSCRIBE TCP REPORT"
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . I '$D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D MSG^RA12PST2("RA PSCRIBE TCP SERVER RPT",101,1)
  1.  I $D(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT")) D
  1.  . S RA101=$O(^ORD(101,"B","RA PSCRIBE TCP SERVER RPT",0)) K RAFDA
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,RA101_",",770.11)="@"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D UPDATE^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.  ;
  1.  D MSG^RA12PST2("RA TALKLINK TCP REPORT",101)
  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^RA12PST2()
  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.4)="R01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  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^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()
  1.  . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . I '$D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D MSG^RA12PST2("RA TALKLINK TCP REPORT",101,1)
  1.  I $D(^ORD(101,"B","RA TALKLINK TCP REPORT")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TALKLINK TCP REPORT",0)) K RAFDA
  1.  . S RAFDA(101,RA101_",",770.3)="@"
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D UPDATE^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 SUBSCRIBERS multiple of the"
  1.  . S ^ORD(101,RA101,1,5,0)="RA TALKLINK TCP SERVER RPT protocol."
  1.  . S ^ORD(101,RA101,1,0)="^^5^5^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  D MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101)
  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^RA12PST2()
  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^RA12PST2()
  1.  . S RAFDA(101.0775,"+2,+1,",.01)="RA TALKLINK TCP REPORT"
  1.  . D UPDATE^DIE("E","RAFDA")
  1.  . I '$D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D MSG^RA12PST2("RA TALKLINK TCP SERVER RPT",101,1)
  1.  I $D(^ORD(101,"B","RA TALKLINK TCP SERVER RPT")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TALKLINK TCP SERVER RPT",0)) K RAFDA
  1.  . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,RA101_",",770.11)="@"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D UPDATE^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.  ;
  1.  D EN1^RA12PST4 ; Add/Edit further protocols for HL7 version 2.3.
  1.  ;
  1.  Q