Routine: RAIPST16

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 ***

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

RAIPST16.m