RA12PST4.m

RA12PST4 ;HIRMFO/CRT - Post-init number four (patch seventeen) ;5/19/99

VERSION ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998

 ;

EN1 ; Add/Edit PowerScribe/TalkStation entries to the Protocol (101) file.

 ;

 D MSG^RA12PST2("RA TCP ORM",101)

 I $D(^ORD(101,"B","RA TCP ORM")) D

 . S RA101=$O(^ORD(101,"B","RA TCP ORM",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . D FILE^DIE("E","RAFDA")

 ;

 D MSG^RA12PST2("RA TCP ORU",101)

 I $D(^ORD(101,"B","RA TCP ORU")) D

 . S RA101=$O(^ORD(101,"B","RA TCP ORU",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . D FILE^DIE("E","RAFDA")

 ;

 ; *** Adding/Editing PowerScribe entries to Protocol (101) file ***

 ;

 D MSG^RA12PST2("RA PSCRIBE ORM",101)

 I '$D(^ORD(101,"B","RA PSCRIBE ORM")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA PSCRIBE ORM"

 . S RAFDA(101,"+1,",1)="TCP Client"

 . S RAFDA(101,"+1,",4)="subscriber"

 . S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 . S RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"

 . S RAFDA(101,"+1,",770.4)="O01"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"

 . S RAFDA(101,"+1,",770.11)="ACK"

 . S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 . D UPDATE^DIE("E","RAFDA")

 . I '$D(^ORD(101,"B","RA PSCRIBE ORM")) D MSG^RA12PST2("RA PSCRIBE ORM",101,1)

 I $D(^ORD(101,"B","RA PSCRIBE ORM")) D

 . S RA101=$O(^ORD(101,"B","RA PSCRIBE ORM",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . S RAFDA(101,RA101_",",770.95)=2.3

 . D FILE^DIE("E","RAFDA")

 . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"

 . S ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"

 . S ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"

 . S ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"

 . S ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"

 . S ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered,"

 . S ^ORD(101,RA101,1,7,0)="cancelled and when they reach the status flagged as 'examined' by the site."

 . S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"

 . Q

 ;

 D MSG^RA12PST2("RA PSCRIBE ORU",101)

 I '$D(^ORD(101,"B","RA PSCRIBE ORU")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA PSCRIBE ORU"

 . S RAFDA(101,"+1,",1)="TCP Client"

 . S RAFDA(101,"+1,",4)="subscriber"

 . S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 . S RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"

 . S RAFDA(101,"+1,",770.4)="R01"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"

 . S RAFDA(101,"+1,",770.11)="ACK"

 . S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 . D UPDATE^DIE("E","RAFDA")

 . I '$D(^ORD(101,"B","RA PSCRIBE ORU")) D MSG^RA12PST2("RA PSCRIBE ORU",101,1)

 I $D(^ORD(101,"B","RA PSCRIBE ORU")) D

 . S RA101=$O(^ORD(101,"B","RA PSCRIBE ORU",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . S RAFDA(101,RA101_",",770.95)=2.3

 . D FILE^DIE("E","RAFDA")

 . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event protocol."

 . S ^ORD(101,RA101,1,2,0)="The HL7 package uses this protocol to send rad/nuc med report (ORU)"

 . S ^ORD(101,RA101,1,3,0)="messages to TCP/IP recipients.  This protocol should be entered in the"

 . S ^ORD(101,RA101,1,4,0)="SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this messaging"

 . S ^ORD(101,RA101,1,5,0)="scenario is used in a facility.  This is part of the file set-up to"

 . S ^ORD(101,RA101,1,6,0)="enable message flow when a rad/nuc med report is verified."

 . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 . Q

 ;

 ; *** End Adding/Editing PowerScribe entries in Protocol File ***

 ;

 ; *** Adding/Editing TalkStation entries in Protocol (101) File ***

 ;

 D MSG^RA12PST2("RA TALKLINK ORM",101)

 I '$D(^ORD(101,"B","RA TALKLINK ORM")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA TALKLINK ORM"

 . S RAFDA(101,"+1,",1)="TCP Client"

 . S RAFDA(101,"+1,",4)="subscriber"

 . S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 . S RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"

 . S RAFDA(101,"+1,",770.4)="O01"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,"+1,",770.7)="RA-TALK"

 . S RAFDA(101,"+1,",770.11)="ACK"

 . S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 . D UPDATE^DIE("E","RAFDA")

 . I '$D(^ORD(101,"B","RA TALKLINK ORM")) D MSG^RA12PST2("RA TALKLINK ORM",101,1)

 I $D(^ORD(101,"B","RA TALKLINK ORM")) D

 . S RA101=$O(^ORD(101,"B","RA TALKLINK ORM",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . S RAFDA(101,RA101_",",770.95)=2.3

 . D FILE^DIE("E","RAFDA")

 . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"

 . S ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"

 . S ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"

 . S ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"

 . S ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"

 . S ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered, cancelled,"

 . S ^ORD(101,RA101,1,7,0)="and when they reach the status flagged as 'examined' by the site."

 . S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"

 . Q

 ;

 D MSG^RA12PST2("RA TALKLINK ORU",101)

 I '$D(^ORD(101,"B","RA TALKLINK ORU")) D

 . N RA101,RAFDA

 . S RAFDA(101,"+1,",.01)="RA TALKLINK ORU"

 . S RAFDA(101,"+1,",1)="TCP Client"

 . S RAFDA(101,"+1,",4)="subscriber"

 . S RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 . S RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 . S RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"

 . S RAFDA(101,"+1,",770.4)="R01"

 . S RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,"+1,",770.7)="RA-TALK"

 . S RAFDA(101,"+1,",770.11)="ACK"

 . S RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 . S RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 . D UPDATE^DIE("E","RAFDA")

 . I '$D(^ORD(101,"B","RA TALKLINK ORU")) D MSG^RA12PST2("RA TALKLINK ORU",101,1)

 I $D(^ORD(101,"B","RA TALKLINK ORU")) D

 . S RA101=$O(^ORD(101,"B","RA TALKLINK ORU",0)) K RAFDA

 . S RAFDA(101,RA101_",",770.3)="@"

 . S RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 . S RAFDA(101,RA101_",",770.11)="ACK"

 . S RAFDA(101,RA101_",",770.95)=2.3

 . D FILE^DIE("E","RAFDA")

 . S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event point"

 . S ^ORD(101,RA101,1,2,0)="protocol.  The HL7 package uses this protocol to send rad/nuc med report"

 . S ^ORD(101,RA101,1,3,0)="(ORU) messages to TCP/IP recipients.  This protocol should be entered in"

 . S ^ORD(101,RA101,1,4,0)="the SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this"

 . S ^ORD(101,RA101,1,5,0)="messaging scenario is used in a facility.  This is part of the file set-up"

 . S ^ORD(101,RA101,1,6,0)="to enable message flow when a rad/nuc med report is verified."

 . S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 . Q

 ;

 ; *** End Adding/Editing TalkStation entries in Protocol file ***

 ;

 D EN1^RA12PST5 ; Edit existing HL7 Version 2.3 Event Driver Protocols

 ;

 Q

RA12PST4  ;HIRMFO/CRT - Post-init number four (patch seventeen) ;5/19/99

VERSION   ;;5.0;Radiology/Nuclear Medicine;**17**;Mar 16, 1998

 +1       ;

EN1       ; Add/Edit PowerScribe/TalkStation entries to the Protocol (101) file.

 +1       ;

 +2        DO MSG^RA12PST2("RA TCP ORM",101)

 +3        IF $DATA(^ORD(101,"B","RA TCP ORM"))

               Begin DoDot:1

 +4                SET RA101=$ORDER(^ORD(101,"B","RA TCP ORM",0))

                   KILL RAFDA

 +5                SET RAFDA(101,RA101_",",770.3)="@"

 +6                SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +7                SET RAFDA(101,RA101_",",770.11)="ACK"

 +8                DO FILE^DIE("E","RAFDA")

               End DoDot:1

 +9       ;

 +10       DO MSG^RA12PST2("RA TCP ORU",101)

 +11       IF $DATA(^ORD(101,"B","RA TCP ORU"))

               Begin DoDot:1

 +12               SET RA101=$ORDER(^ORD(101,"B","RA TCP ORU",0))

                   KILL RAFDA

 +13               SET RAFDA(101,RA101_",",770.3)="@"

 +14               SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +15               SET RAFDA(101,RA101_",",770.11)="ACK"

 +16               DO FILE^DIE("E","RAFDA")

               End DoDot:1

 +17      ;

 +18      ; *** Adding/Editing PowerScribe entries to Protocol (101) file ***

 +19      ;

 +20       DO MSG^RA12PST2("RA PSCRIBE ORM",101)

 +21       IF '$DATA(^ORD(101,"B","RA PSCRIBE ORM"))

               Begin DoDot:1

 +22               NEW RA101,RAFDA

 +23               SET RAFDA(101,"+1,",.01)="RA PSCRIBE ORM"

 +24               SET RAFDA(101,"+1,",1)="TCP Client"

 +25               SET RAFDA(101,"+1,",4)="subscriber"

 +26               SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 +27               SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +28               SET RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"

 +29               SET RAFDA(101,"+1,",770.4)="O01"

 +30               SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 +31               SET RAFDA(101,"+1,",770.7)="RA-PSCRIBE"

 +32               SET RAFDA(101,"+1,",770.11)="ACK"

 +33               SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 +34               SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 +35               SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 +36               SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 +37               DO UPDATE^DIE("E","RAFDA")

 +38               IF '$DATA(^ORD(101,"B","RA PSCRIBE ORM"))

                       DO MSG^RA12PST2("RA PSCRIBE ORM",101,1)

               End DoDot:1

 +39       IF $DATA(^ORD(101,"B","RA PSCRIBE ORM"))

               Begin DoDot:1

 +40               SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE ORM",0))

                   KILL RAFDA

 +41               SET RAFDA(101,RA101_",",770.3)="@"

 +42               SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +43               SET RAFDA(101,RA101_",",770.11)="ACK"

 +44               SET RAFDA(101,RA101_",",770.95)=2.3

 +45               DO FILE^DIE("E","RAFDA")

 +46               SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"

 +47               SET ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"

 +48               SET ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"

 +49               SET ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"

 +50               SET ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"

 +51               SET ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered,"

 +52               SET ^ORD(101,RA101,1,7,0)="cancelled and when they reach the status flagged as 'examined' by the site."

 +53               SET ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"

 +54               QUIT 

               End DoDot:1

 +55      ;

 +56       DO MSG^RA12PST2("RA PSCRIBE ORU",101)

 +57       IF '$DATA(^ORD(101,"B","RA PSCRIBE ORU"))

               Begin DoDot:1

 +58               NEW RA101,RAFDA

 +59               SET RAFDA(101,"+1,",.01)="RA PSCRIBE ORU"

 +60               SET RAFDA(101,"+1,",1)="TCP Client"

 +61               SET RAFDA(101,"+1,",4)="subscriber"

 +62               SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 +63               SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +64               SET RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"

 +65               SET RAFDA(101,"+1,",770.4)="R01"

 +66               SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 +67               SET RAFDA(101,"+1,",770.7)="RA-PSCRIBE"

 +68               SET RAFDA(101,"+1,",770.11)="ACK"

 +69               SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 +70               SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 +71               SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 +72               SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 +73               DO UPDATE^DIE("E","RAFDA")

 +74               IF '$DATA(^ORD(101,"B","RA PSCRIBE ORU"))

                       DO MSG^RA12PST2("RA PSCRIBE ORU",101,1)

               End DoDot:1

 +75       IF $DATA(^ORD(101,"B","RA PSCRIBE ORU"))

               Begin DoDot:1

 +76               SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE ORU",0))

                   KILL RAFDA

 +77               SET RAFDA(101,RA101_",",770.3)="@"

 +78               SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +79               SET RAFDA(101,RA101_",",770.11)="ACK"

 +80               SET RAFDA(101,RA101_",",770.95)=2.3

 +81               DO FILE^DIE("E","RAFDA")

 +82               SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event protocol."

 +83               SET ^ORD(101,RA101,1,2,0)="The HL7 package uses this protocol to send rad/nuc med report (ORU)"

 +84               SET ^ORD(101,RA101,1,3,0)="messages to TCP/IP recipients.  This protocol should be entered in the"

 +85               SET ^ORD(101,RA101,1,4,0)="SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this messaging"

 +86               SET ^ORD(101,RA101,1,5,0)="scenario is used in a facility.  This is part of the file set-up to"

 +87               SET ^ORD(101,RA101,1,6,0)="enable message flow when a rad/nuc med report is verified."

 +88               SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 +89               QUIT 

               End DoDot:1

 +90      ;

 +91      ; *** End Adding/Editing PowerScribe entries in Protocol File ***

 +92      ;

 +93      ; *** Adding/Editing TalkStation entries in Protocol (101) File ***

 +94      ;

 +95       DO MSG^RA12PST2("RA TALKLINK ORM",101)

 +96       IF '$DATA(^ORD(101,"B","RA TALKLINK ORM"))

               Begin DoDot:1

 +97               NEW RA101,RAFDA

 +98               SET RAFDA(101,"+1,",.01)="RA TALKLINK ORM"

 +99               SET RAFDA(101,"+1,",1)="TCP Client"

 +100              SET RAFDA(101,"+1,",4)="subscriber"

 +101              SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 +102              SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +103              SET RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"

 +104              SET RAFDA(101,"+1,",770.4)="O01"

 +105              SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 +106              SET RAFDA(101,"+1,",770.7)="RA-TALK"

 +107              SET RAFDA(101,"+1,",770.11)="ACK"

 +108              SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 +109              SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 +110              SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 +111              SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 +112              DO UPDATE^DIE("E","RAFDA")

 +113              IF '$DATA(^ORD(101,"B","RA TALKLINK ORM"))

                       DO MSG^RA12PST2("RA TALKLINK ORM",101,1)

               End DoDot:1

 +114      IF $DATA(^ORD(101,"B","RA TALKLINK ORM"))

               Begin DoDot:1

 +115              SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK ORM",0))

                   KILL RAFDA

 +116              SET RAFDA(101,RA101_",",770.3)="@"

 +117              SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +118              SET RAFDA(101,RA101_",",770.11)="ACK"

 +119              SET RAFDA(101,RA101_",",770.95)=2.3

 +120              DO FILE^DIE("E","RAFDA")

 +121              SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"

 +122              SET ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols.  It is used by the VISTA HL7 package to"

 +123              SET ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients.  This protocol should be entered"

 +124              SET ^ORD(101,RA101,1,4,0)="in the SUBSCRIBERS multiple field of those event point protocols if this"

 +125              SET ^ORD(101,RA101,1,5,0)="type of messaging scenerio is used at a facility.  This is part of the"

 +126              SET ^ORD(101,RA101,1,6,0)="file set-up to enable HL7 message flow when exams are registered, cancelled,"

 +127              SET ^ORD(101,RA101,1,7,0)="and when they reach the status flagged as 'examined' by the site."

 +128              SET ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"

 +129              QUIT 

               End DoDot:1

 +130     ;

 +131      DO MSG^RA12PST2("RA TALKLINK ORU",101)

 +132      IF '$DATA(^ORD(101,"B","RA TALKLINK ORU"))

               Begin DoDot:1

 +133              NEW RA101,RAFDA

 +134              SET RAFDA(101,"+1,",.01)="RA TALKLINK ORU"

 +135              SET RAFDA(101,"+1,",1)="TCP Client"

 +136              SET RAFDA(101,"+1,",4)="subscriber"

 +137              SET RAFDA(101,"+1,",12)=$$PKG^RA12PST2()

 +138              SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +139              SET RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"

 +140              SET RAFDA(101,"+1,",770.4)="R01"

 +141              SET RAFDA(101,"+1,",770.6)=$$PROID^RA12PST2()

 +142              SET RAFDA(101,"+1,",770.7)="RA-TALK"

 +143              SET RAFDA(101,"+1,",770.11)="ACK"

 +144              SET RAFDA(101,"+1,",773.1)=$$N^RA12PST2()

 +145              SET RAFDA(101,"+1,",773.2)=$$N^RA12PST2()

 +146              SET RAFDA(101,"+1,",773.3)=$$N^RA12PST2()

 +147              SET RAFDA(101,"+1,",773.4)=$$Y^RA12PST2()

 +148              DO UPDATE^DIE("E","RAFDA")

 +149              IF '$DATA(^ORD(101,"B","RA TALKLINK ORU"))

                       DO MSG^RA12PST2("RA TALKLINK ORU",101,1)

               End DoDot:1

 +150      IF $DATA(^ORD(101,"B","RA TALKLINK ORU"))

               Begin DoDot:1

 +151              SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK ORU",0))

                   KILL RAFDA

 +152              SET RAFDA(101,RA101_",",770.3)="@"

 +153              SET RAFDA(101,RA101_",",770.6)=$$PROID^RA12PST2()

 +154              SET RAFDA(101,RA101_",",770.11)="ACK"

 +155              SET RAFDA(101,RA101_",",770.95)=2.3

 +156              DO FILE^DIE("E","RAFDA")

 +157              SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event point"

 +158              SET ^ORD(101,RA101,1,2,0)="protocol.  The HL7 package uses this protocol to send rad/nuc med report"

 +159              SET ^ORD(101,RA101,1,3,0)="(ORU) messages to TCP/IP recipients.  This protocol should be entered in"

 +160              SET ^ORD(101,RA101,1,4,0)="the SUBSCRIBERS multiple field of the RA RPT 2.3 protocol if this"

 +161              SET ^ORD(101,RA101,1,5,0)="messaging scenario is used in a facility.  This is part of the file set-up"

 +162              SET ^ORD(101,RA101,1,6,0)="to enable message flow when a rad/nuc med report is verified."

 +163              SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"

 +164              QUIT 

               End DoDot:1

 +165     ;

 +166     ; *** End Adding/Editing TalkStation entries in Protocol file ***

 +167     ;

 +168     ; Edit existing HL7 Version 2.3 Event Driver Protocols

           DO EN1^RA12PST5

 +169     ;

 +170      QUIT