RAIPST16 ;HIRMFO/BNT - Post-init number one (patch twelve) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**12**;Mar 16, 1998
;
EN1 ; Add entries to the Protocol (101) file.
; *** Adding entries to the Protocol (101) file ***
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^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-PSCRIBE-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="O01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
. S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
. S RAFDA(101,"+1,",770.11)="ORM"
. S RAFDA(101,"+1,",771)="Q"
. 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 ORM",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA PSCRIBE ORM")) D Q
.. S RA101=$O(^ORD(101,"B","RA PSCRIBE ORM",0)) K RAFDA
.. 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 ITEM multiple field of those event point protocols if this type of"
.. S ^ORD(101,RA101,1,5,0)="messaging scenerio is used at a facility. This is part of the file set-up"
.. S ^ORD(101,RA101,1,6,0)="to enable HL7 message flow when exams are registered, cancelled, and when"
.. S ^ORD(101,RA101,1,7,0)="they reach the status flagged as 'examined' by the site."
.. S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
.. Q
. D MSG^RAIPST12("RA PSCRIBE ORM",101,1)
. Q
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^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-PSCRIBE-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
. S RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
. S RAFDA(101,"+1,",770.11)="ORU"
. S RAFDA(101,"+1,",771)="Q"
. 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 ORU",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA PSCRIBE ORU")) D Q
.. S RA101=$O(^ORD(101,"B","RA PSCRIBE ORU",0)) K RAFDA
.. 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 event point 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)="ITEM multiple field of the RA RPT protocol if this messaging scenerio is"
.. S ^ORD(101,RA101,1,5,0)="used in a facility. This is part of the file set-up to enable message"
.. S ^ORD(101,RA101,1,6,0)="flow when a rad/nuc med report is verified."
.. S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
.. Q
. D MSG^RAIPST12("RA PSCRIBE ORU",101,1)
. Q
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^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-TALKLINK-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="O01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
. S RAFDA(101,"+1,",770.7)="RA-TALK"
. S RAFDA(101,"+1,",770.11)="ORM"
. S RAFDA(101,"+1,",771)="Q"
. 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 ORM",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA TALKLINK ORM")) D Q
.. S RA101=$O(^ORD(101,"B","RA TALKLINK ORM",0)) K RAFDA
.. 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 ITEM multiple field of those event point protocols if this type of"
.. S ^ORD(101,RA101,1,5,0)="messaging scenerio is used at a facility. This is part of the file set-up"
.. S ^ORD(101,RA101,1,6,0)="to enable HL7 message flow when exams are registered, cancelled, and when"
.. S ^ORD(101,RA101,1,7,0)="they reach the status flagged as 'examined' by the site."
.. S ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
.. Q
. D MSG^RAIPST12("RA TALKLINK ORM",101,1)
. Q
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^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-TALKLINK-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
. S RAFDA(101,"+1,",770.7)="RA-TALK"
. S RAFDA(101,"+1,",770.11)="ORU"
. S RAFDA(101,"+1,",771)="Q"
. 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 ORU",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA TALKLINK ORU")) D Q
.. S RA101=$O(^ORD(101,"B","RA TALKLINK ORU",0)) K RAFDA
.. 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 ITEM multiple field of the RA RPT protocol if this messaging scenerio"
.. S ^ORD(101,RA101,1,5,0)="is used in a facility. This is part of the file set-up to enable message"
.. S ^ORD(101,RA101,1,6,0)="flow when a rad/nuc med report is verified."
.. S ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
.. Q
. D MSG^RAIPST12("RA TALKLINK ORU",101,1)
. Q
D EN1^RAIPST14 ; continue to add protocols and items under existing
; protocols.
; *** End adding entries to the Protocol (101) file ***
Q
RAIPST16 ;HIRMFO/BNT - Post-init number one (patch twelve) ;5/19/99
VERSION ;;5.0;Radiology/Nuclear Medicine;**12**;Mar 16, 1998
+1 ;
EN1 ; Add entries to the Protocol (101) file.
+1 ; *** Adding entries to the Protocol (101) file ***
+2 IF '$DATA(^ORD(101,"B","RA PSCRIBE ORM"))
Begin DoDot:1
+3 NEW RA101,RAFDA
+4 SET RAFDA(101,"+1,",.01)="RA PSCRIBE ORM"
+5 SET RAFDA(101,"+1,",1)="TCP Client"
+6 SET RAFDA(101,"+1,",4)="subscriber"
+7 SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
+8 SET RAFDA(101,"+1,",15)="Q"
+9 SET RAFDA(101,"+1,",20)="Q"
+10 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+11 SET RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"
+12 SET RAFDA(101,"+1,",770.3)="ACK"
+13 SET RAFDA(101,"+1,",770.4)="O01"
+14 SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
+15 SET RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
+16 SET RAFDA(101,"+1,",770.11)="ORM"
+17 SET RAFDA(101,"+1,",771)="Q"
+18 SET RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
+19 SET RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
+20 SET RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
+21 SET RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
+22 DO MSG^RAIPST12("RA PSCRIBE ORM",101)
DO UPDATE^DIE("E","RAFDA")
+23 IF $DATA(^ORD(101,"B","RA PSCRIBE ORM"))
Begin DoDot:2
+24 SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE ORM",0))
KILL RAFDA
+25 SET RAFDA(101,RA101_",",770.95)=2.3
DO FILE^DIE("E","RAFDA")
+26 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"
+27 SET ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols. It is used by the VISTA HL7 package to"
+28 SET ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients. This protocol should be entered"
+29 SET ^ORD(101,RA101,1,4,0)="in the ITEM multiple field of those event point protocols if this type of"
+30 SET ^ORD(101,RA101,1,5,0)="messaging scenerio is used at a facility. This is part of the file set-up"
+31 SET ^ORD(101,RA101,1,6,0)="to enable HL7 message flow when exams are registered, cancelled, and when"
+32 SET ^ORD(101,RA101,1,7,0)="they reach the status flagged as 'examined' by the site."
+33 SET ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
+34 QUIT
End DoDot:2
QUIT
+35 DO MSG^RAIPST12("RA PSCRIBE ORM",101,1)
+36 QUIT
End DoDot:1
+37 IF '$DATA(^ORD(101,"B","RA PSCRIBE ORU"))
Begin DoDot:1
+38 NEW RA101,RAFDA
+39 SET RAFDA(101,"+1,",.01)="RA PSCRIBE ORU"
+40 SET RAFDA(101,"+1,",1)="TCP Client"
+41 SET RAFDA(101,"+1,",4)="subscriber"
+42 SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
+43 SET RAFDA(101,"+1,",15)="Q"
+44 SET RAFDA(101,"+1,",20)="Q"
+45 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+46 SET RAFDA(101,"+1,",770.2)="RA-PSCRIBE-TCP"
+47 SET RAFDA(101,"+1,",770.3)="ACK"
+48 SET RAFDA(101,"+1,",770.4)="R01"
+49 SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
+50 SET RAFDA(101,"+1,",770.7)="RA-PSCRIBE"
+51 SET RAFDA(101,"+1,",770.11)="ORU"
+52 SET RAFDA(101,"+1,",771)="Q"
+53 SET RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
+54 SET RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
+55 SET RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
+56 SET RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
+57 DO MSG^RAIPST12("RA PSCRIBE ORU",101)
DO UPDATE^DIE("E","RAFDA")
+58 IF $DATA(^ORD(101,"B","RA PSCRIBE ORU"))
Begin DoDot:2
+59 SET RA101=$ORDER(^ORD(101,"B","RA PSCRIBE ORU",0))
KILL RAFDA
+60 SET RAFDA(101,RA101_",",770.95)=2.3
DO FILE^DIE("E","RAFDA")
+61 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT event point protocol."
+62 SET ^ORD(101,RA101,1,2,0)="The HL7 package uses this protocol to send rad/nuc med report (ORU)"
+63 SET ^ORD(101,RA101,1,3,0)="messages to TCP/IP recipients. This protocol should be entered in the"
+64 SET ^ORD(101,RA101,1,4,0)="ITEM multiple field of the RA RPT protocol if this messaging scenerio is"
+65 SET ^ORD(101,RA101,1,5,0)="used in a facility. This is part of the file set-up to enable message"
+66 SET ^ORD(101,RA101,1,6,0)="flow when a rad/nuc med report is verified."
+67 SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
+68 QUIT
End DoDot:2
QUIT
+69 DO MSG^RAIPST12("RA PSCRIBE ORU",101,1)
+70 QUIT
End DoDot:1
+71 IF '$DATA(^ORD(101,"B","RA TALKLINK ORM"))
Begin DoDot:1
+72 NEW RA101,RAFDA
+73 SET RAFDA(101,"+1,",.01)="RA TALKLINK ORM"
+74 SET RAFDA(101,"+1,",1)="TCP Client"
+75 SET RAFDA(101,"+1,",4)="subscriber"
+76 SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
+77 SET RAFDA(101,"+1,",15)="Q"
+78 SET RAFDA(101,"+1,",20)="Q"
+79 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+80 SET RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"
+81 SET RAFDA(101,"+1,",770.3)="ACK"
+82 SET RAFDA(101,"+1,",770.4)="O01"
+83 SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
+84 SET RAFDA(101,"+1,",770.7)="RA-TALK"
+85 SET RAFDA(101,"+1,",770.11)="ORM"
+86 SET RAFDA(101,"+1,",771)="Q"
+87 SET RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
+88 SET RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
+89 SET RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
+90 SET RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
+91 DO MSG^RAIPST12("RA TALKLINK ORM",101)
DO UPDATE^DIE("E","RAFDA")
+92 IF $DATA(^ORD(101,"B","RA TALKLINK ORM"))
Begin DoDot:2
+93 SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK ORM",0))
KILL RAFDA
+94 SET RAFDA(101,RA101_",",770.95)=2.3
DO FILE^DIE("E","RAFDA")
+95 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG 2.3, RA EXAMINED 2.3,"
+96 SET ^ORD(101,RA101,1,2,0)="and RA CANCEL 2.3 event protocols. It is used by the VISTA HL7 package to"
+97 SET ^ORD(101,RA101,1,3,0)="send ORM messages to TCP/IP recipients. This protocol should be entered"
+98 SET ^ORD(101,RA101,1,4,0)="in the ITEM multiple field of those event point protocols if this type of"
+99 SET ^ORD(101,RA101,1,5,0)="messaging scenerio is used at a facility. This is part of the file set-up"
+100 SET ^ORD(101,RA101,1,6,0)="to enable HL7 message flow when exams are registered, cancelled, and when"
+101 SET ^ORD(101,RA101,1,7,0)="they reach the status flagged as 'examined' by the site."
+102 SET ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
+103 QUIT
End DoDot:2
QUIT
+104 DO MSG^RAIPST12("RA TALKLINK ORM",101,1)
+105 QUIT
End DoDot:1
+106 IF '$DATA(^ORD(101,"B","RA TALKLINK ORU"))
Begin DoDot:1
+107 NEW RA101,RAFDA
+108 SET RAFDA(101,"+1,",.01)="RA TALKLINK ORU"
+109 SET RAFDA(101,"+1,",1)="TCP Client"
+110 SET RAFDA(101,"+1,",4)="subscriber"
+111 SET RAFDA(101,"+1,",12)=$$PKG^RAIPST12()
+112 SET RAFDA(101,"+1,",15)="Q"
+113 SET RAFDA(101,"+1,",20)="Q"
+114 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+115 SET RAFDA(101,"+1,",770.2)="RA-TALKLINK-TCP"
+116 SET RAFDA(101,"+1,",770.3)="ACK"
+117 SET RAFDA(101,"+1,",770.4)="R01"
+118 SET RAFDA(101,"+1,",770.6)=$$PROID^RAIPST12()
+119 SET RAFDA(101,"+1,",770.7)="RA-TALK"
+120 SET RAFDA(101,"+1,",770.11)="ORU"
+121 SET RAFDA(101,"+1,",771)="Q"
+122 SET RAFDA(101,"+1,",773.1)=$$N^RAIPST12()
+123 SET RAFDA(101,"+1,",773.2)=$$N^RAIPST12()
+124 SET RAFDA(101,"+1,",773.3)=$$N^RAIPST12()
+125 SET RAFDA(101,"+1,",773.4)=$$Y^RAIPST12()
+126 DO MSG^RAIPST12("RA TALKLINK ORU",101)
DO UPDATE^DIE("E","RAFDA")
+127 IF $DATA(^ORD(101,"B","RA TALKLINK ORU"))
Begin DoDot:2
+128 SET RA101=$ORDER(^ORD(101,"B","RA TALKLINK ORU",0))
KILL RAFDA
+129 SET RAFDA(101,RA101_",",770.95)=2.3
DO FILE^DIE("E","RAFDA")
+130 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT 2.3 event point"
+131 SET ^ORD(101,RA101,1,2,0)="protocol. The HL7 package uses this protocol to send rad/nuc med report"
+132 SET ^ORD(101,RA101,1,3,0)="(ORU) messages to TCP/IP recipients. This protocol should be entered in"
+133 SET ^ORD(101,RA101,1,4,0)="the ITEM multiple field of the RA RPT protocol if this messaging scenerio"
+134 SET ^ORD(101,RA101,1,5,0)="is used in a facility. This is part of the file set-up to enable message"
+135 SET ^ORD(101,RA101,1,6,0)="flow when a rad/nuc med report is verified."
+136 SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
+137 QUIT
End DoDot:2
QUIT
+138 DO MSG^RAIPST12("RA TALKLINK ORU",101,1)
+139 QUIT
End DoDot:1
+140 ; continue to add protocols and items under existing
DO EN1^RAIPST14
+141 ; protocols.
+142 ; *** End adding entries to the Protocol (101) file ***
+143 QUIT
