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

RA12PST4.m

Go to the documentation of this file. 
  1. RA12PST4 ;HIRMFO/CRT - Post-init number four (patch seventeen) ;5/19/99
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998
  1.  ;
  1. EN1 ; Add/Edit PowerScribe/TalkStation entries to the Protocol (101) file.
  1.  ;
  1.  D MSG^RA12PST2("RA TCP ORM",101)
  1.  I $D(^ORD(101,"B","RA TCP ORM")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TCP ORM",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.11)="ACK"
  1.  . D FILE^DIE("E","RAFDA")
  1.  ;
  1.  D MSG^RA12PST2("RA TCP ORU",101)
  1.  I $D(^ORD(101,"B","RA TCP ORU")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TCP ORU",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.11)="ACK"
  1.  . D FILE^DIE("E","RAFDA")
  1.  ;
  1.  ; *** Adding/Editing PowerScribe entries to Protocol (101) file ***
  1.  ;
  1.  D MSG^RA12PST2("RA PSCRIBE ORM",101)
  1.  I '$D(^ORD(101,"B","RA PSCRIBE ORM")) D
  1.  . N RA101,RAFDA
  1.  . S RAFDA(101,"+1,",.01)="RA PSCRIBE ORM"
  1.  . S RAFDA(101,"+1,",1)="TCP Client"
  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-PSCRIBE-TCP"
  1.  . S RAFDA(101,"+1,",770.4)="O01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
  1.  . S RAFDA(101,"+1,",770.11)="ACK"
  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 ORM")) D MSG^RA12PST2("RA PSCRIBE ORM",101,1)
  1.  I $D(^ORD(101,"B","RA PSCRIBE ORM")) D
  1.  . S RA101=$O(^ORD(101,"B","RA PSCRIBE ORM",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.11)="ACK"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D FILE^DIE("E","RAFDA")
  1.  . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"
  1.  . S ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"
  1.  . S ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"
  1.  . S ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"
  1.  . S ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"
  1.  . S ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered,"
  1.  . S ^ORD(101,RA101,1,7,0)="cancelled and when they reach the status flagged as 'examined' by the site."
  1.  . S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  D MSG^RA12PST2("RA PSCRIBE ORU",101)
  1.  I '$D(^ORD(101,"B","RA PSCRIBE ORU")) D
  1.  . N RA101,RAFDA
  1.  . S RAFDA(101,"+1,",.01)="RA PSCRIBE ORU"
  1.  . S RAFDA(101,"+1,",1)="TCP Client"
  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-PSCRIBE-TCP"
  1.  . S RAFDA(101,"+1,",770.4)="R01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
  1.  . S RAFDA(101,"+1,",770.11)="ACK"
  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 ORU")) D MSG^RA12PST2("RA PSCRIBE ORU",101,1)
  1.  I $D(^ORD(101,"B","RA PSCRIBE ORU")) D
  1.  . S RA101=$O(^ORD(101,"B","RA PSCRIBE ORU",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.11)="ACK"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D FILE^DIE("E","RAFDA")
  1.  . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event protocol."
  1.  . S ^ORD(101,RA101,1,2,0)="The HL7 package uses this protocol to send rad/nuc med report (ORU)"
  1.  . S ^ORD(101,RA101,1,3,0)="messages to TCP/IP recipients.  This protocol should be entered in the"
  1.  . S ^ORD(101,RA101,1,4,0)="SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this messaging"
  1.  . S ^ORD(101,RA101,1,5,0)="scenario is used in a facility.  This is part of the file set-up to"
  1.  . S ^ORD(101,RA101,1,6,0)="enable message flow when a rad/nuc med report is verified."
  1.  . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  ; *** End Adding/Editing PowerScribe entries in Protocol File ***
  1.  ;
  1.  ; *** Adding/Editing TalkStation entries in Protocol (101) File ***
  1.  ;
  1.  D MSG^RA12PST2("RA TALKLINK ORM",101)
  1.  I '$D(^ORD(101,"B","RA TALKLINK ORM")) D
  1.  . N RA101,RAFDA
  1.  . S RAFDA(101,"+1,",.01)="RA TALKLINK ORM"
  1.  . S RAFDA(101,"+1,",1)="TCP Client"
  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-TALKLINK-TCP"
  1.  . S RAFDA(101,"+1,",770.4)="O01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,"+1,",770.7)="RA-TALK"
  1.  . S RAFDA(101,"+1,",770.11)="ACK"
  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 ORM")) D MSG^RA12PST2("RA TALKLINK ORM",101,1)
  1.  I $D(^ORD(101,"B","RA TALKLINK ORM")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TALKLINK ORM",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.11)="ACK"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D FILE^DIE("E","RAFDA")
  1.  . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"
  1.  . S ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"
  1.  . S ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"
  1.  . S ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"
  1.  . S ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"
  1.  . S ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered, cancelled,"
  1.  . S ^ORD(101,RA101,1,7,0)="and when they reach the status flagged as 'examined' by the site."
  1.  . S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  D MSG^RA12PST2("RA TALKLINK ORU",101)
  1.  I '$D(^ORD(101,"B","RA TALKLINK ORU")) D
  1.  . N RA101,RAFDA
  1.  . S RAFDA(101,"+1,",.01)="RA TALKLINK ORU"
  1.  . S RAFDA(101,"+1,",1)="TCP Client"
  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-TALKLINK-TCP"
  1.  . S RAFDA(101,"+1,",770.4)="R01"
  1.  . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()
  1.  . S RAFDA(101,"+1,",770.7)="RA-TALK"
  1.  . S RAFDA(101,"+1,",770.11)="ACK"
  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 ORU")) D MSG^RA12PST2("RA TALKLINK ORU",101,1)
  1.  I $D(^ORD(101,"B","RA TALKLINK ORU")) D
  1.  . S RA101=$O(^ORD(101,"B","RA TALKLINK ORU",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.11)="ACK"
  1.  . S RAFDA(101,RA101_",",770.95)=2.3
  1.  . D FILE^DIE("E","RAFDA")
  1.  . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event point"
  1.  . S ^ORD(101,RA101,1,2,0)="protocol.  The HL7 package uses this protocol to send rad/nuc med report"
  1.  . S ^ORD(101,RA101,1,3,0)="(ORU) messages to TCP/IP recipients.  This protocol should be entered in"
  1.  . S ^ORD(101,RA101,1,4,0)="the SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this"
  1.  . S ^ORD(101,RA101,1,5,0)="messaging scenario is used in a facility.  This is part of the file set-up"
  1.  . S ^ORD(101,RA101,1,6,0)="to enable message flow when a rad/nuc med report is verified."
  1.  . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
  1.  . Q
  1.  ;
  1.  ; *** End Adding/Editing TalkStation entries in Protocol file ***
  1.  ;
  1.  D EN1^RA12PST5 ; Edit existing HL7 Version 2.3 Event Driver Protocols
  1.  ;
  1.  Q