RAIPST13.m

RAIPST13 ;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 HL LL Protocol Param (869.2) file, HL Logical

 ; Link (870) file, HL7 Application Param (771) and the Protocol (101)

 ; file.

 ; ***    Add entries to HL LL Protocol Param (869.2) file     ***

 I '$D(^HLCS(869.2,"B","RA-PSCRIBE LLP")) D

 . N RAFDA S RAFDA(869.2,"+1,",.01)="RA-PSCRIBE LLP"

 . S RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 . S RAFDA(869.2,"+1,",400.03)=$$CLIENT^RAIPST12()

 . S RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 . D MSG^RAIPST12("RA-PSCRIBE LLP",869.2),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(869.2,"B","RA-PSCRIBE LLP")) MSG^RAIPST12("RA-PSCRIBE LLP",869.2,1)

 . Q

 I '$D(^HLCS(869.2,"B","PSCRIBE-RA LLP")) D

 . N RAFDA S RAFDA(869.2,"+1,",.01)="PSCRIBE-RA LLP"

 . S RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 . S RAFDA(869.2,"+1,",400.03)=$$SLISTN^RAIPST12()

 . S RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 . D MSG^RAIPST12("PSCRIBE-RA LLP",869.2),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(869.2,"B","PSCRIBE-RA LLP")) MSG^RAIPST12("PSCRIBE-RA LLP",869.2,1)

 . Q

 I '$D(^HLCS(869.2,"B","TALK-RA LLP")) D

 . N RAFDA S RAFDA(869.2,"+1,",.01)="TALK-RA LLP"

 . S RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 . S RAFDA(869.2,"+1,",400.03)=$$SLISTN^RAIPST12()

 . S RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 . D MSG^RAIPST12("TALK-RA LLP",869.2),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(869.2,"B","TALK-RA LLP")) MSG^RAIPST12("TALK-RA LLP",869.2,1)

 . Q

 I '$D(^HLCS(869.2,"B","RA-TALK LLP")) D

 . N RAFDA S RAFDA(869.2,"+1,",.01)="RA-TALK LLP"

 . S RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 . S RAFDA(869.2,"+1,",400.03)=$$CLIENT^RAIPST12()

 . S RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 . D MSG^RAIPST12("RA-TALK LLP",869.2),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(869.2,"B","RA-TALK LLP")) MSG^RAIPST12("RA-TALK LLP",869.2,1)

 . Q

 ; *** End adding entries to HL LL Protocol Param (869.2) file ***

 D BMES^XPDUTL(" ") ; greater readability

 ; ***    Add entries to HL Logical Link (870) file     ***

 I '$D(^HLCS(870,"B","RA-PSCRIBE")) D

 . N RAFDA S RAFDA(870,"+1,",.01)="RA-PSCRIBE"

 . S RAFDA(870,"+1,",2)="TCP"  ;IHS/ITSC/CLS 04/24/2003

 . D MSG^RAIPST12("RA-PSCRIBE",870),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(870,"B","RA-PSCRIBE")) MSG^RAIPST12("RA-PSCRIBE",870,1)

 . Q

 I '$D(^HLCS(870,"B","PSCRIBE-RA")) D

 . N RAFDA S RAFDA(870,"+1,",.01)="PSCRIBE-RA"

 . S RAFDA(870,"+1,",2)="TCP"  ;IHS/ITSC/CLS 04/24/2003

 . D MSG^RAIPST12("PSCRIBE-RA",870),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(870,"B","PSCRIBE-RA")) MSG^RAIPST12("PSCRIBE-RA",870,1)

 . Q

 I '$D(^HLCS(870,"B","TALK-RA")) D

 . N RAFDA S RAFDA(870,"+1,",.01)="TALK-RA"

 . S RAFDA(870,"+1,",2)="TCP"  ;IHS/ITSC/CLS 04/24/2003

 . D MSG^RAIPST12("TALK-RA",870),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(870,"B","TALK-RA")) MSG^RAIPST12("TALK-RA",870,1)

 . Q

 I '$D(^HLCS(870,"B","RA-TALK")) D

 . N RAFDA S RAFDA(870,"+1,",.01)="RA-TALK"

 . S RAFDA(870,"+1,",2)="TCP"  ;IHS/ITSC/CLS 04/24/2003

 . D MSG^RAIPST12("RA-TALK",870),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HLCS(870,"B","RA-TALK")) MSG^RAIPST12("RA-TALK",870,1)

 . Q

 ; *** End adding entries to HL Logical Link (870) file ***

 D BMES^XPDUTL(" ") ; greater readability

 ; ***    Add entries to HL7 Application Param (771) file     ***

 I '$D(^HL(771,"B","RA-VOICE-SERVER")) D

 . N RAFDA S RAFDA(771,"+1,",.01)="RA-VOICE-SERVER"

 . S RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 . S RAFDA(771,"+1,",7)=$$US^RAIPST12()

 . S RAFDA(771,"+1,",100)="|"

 . S RAFDA(771,"+1,",101)="~\&"  ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

 . D MSG^RAIPST12("RA-VOICE-SERVER",771),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HL(771,"B","RA-VOICE-SERVER")) MSG^RAIPST12("RA-VOICE-SERVER",771,1)

 . Q

 I '$D(^HL(771,"B","RA-PSCRIBE-TCP")) D

 . N RAFDA S RAFDA(771,"+1,",.01)="RA-PSCRIBE-TCP"

 . S RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 . S RAFDA(771,"+1,",7)=$$US^RAIPST12()

 . S RAFDA(771,"+1,",100)="|"

 . S RAFDA(771,"+1,",101)="~\&"  ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

 . D MSG^RAIPST12("RA-PSCRIBE-TCP",771),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HL(771,"B","RA-PSCRIBE-TCP")) MSG^RAIPST12("RA-PSCRIBE-TCP",771,1)

 . Q

 I '$D(^HL(771,"B","RA-TALKLINK-TCP")) D

 . N RAFDA S RAFDA(771,"+1,",.01)="RA-TALKLINK-TCP"

 . S RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 . S RAFDA(771,"+1,",7)=$$US^RAIPST12()

 . S RAFDA(771,"+1,",100)="|"

 . S RAFDA(771,"+1,",101)="~\&"  ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

 . D MSG^RAIPST12("RA-TALKLINK-TCP",771),UPDATE^DIE("E","RAFDA")

 . D:'$D(^HL(771,"B","RA-TALKLINK-TCP")) MSG^RAIPST12("RA-TALKLINK-TCP",771,1)

 . Q

 ; *** End adding entries to HL7 Application Param (771) file ***

 D BMES^XPDUTL(" ") ; greater readability

 D EN1^RAIPST16

 Q

RAIPST13  ;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 HL LL Protocol Param (869.2) file, HL Logical

 +1       ; Link (870) file, HL7 Application Param (771) and the Protocol (101)

 +2       ; file.

 +3       ; ***    Add entries to HL LL Protocol Param (869.2) file     ***

 +4        IF '$DATA(^HLCS(869.2,"B","RA-PSCRIBE LLP"))

               Begin DoDot:1

 +5                NEW RAFDA

                   SET RAFDA(869.2,"+1,",.01)="RA-PSCRIBE LLP"

 +6                SET RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 +7                SET RAFDA(869.2,"+1,",400.03)=$$CLIENT^RAIPST12()

 +8                SET RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 +9                DO MSG^RAIPST12("RA-PSCRIBE LLP",869.2)

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

 +10               IF '$DATA(^HLCS(869.2,"B","RA-PSCRIBE LLP"))

                       DO MSG^RAIPST12("RA-PSCRIBE LLP",869.2,1)

 +11               QUIT 

               End DoDot:1

 +12       IF '$DATA(^HLCS(869.2,"B","PSCRIBE-RA LLP"))

               Begin DoDot:1

 +13               NEW RAFDA

                   SET RAFDA(869.2,"+1,",.01)="PSCRIBE-RA LLP"

 +14               SET RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 +15               SET RAFDA(869.2,"+1,",400.03)=$$SLISTN^RAIPST12()

 +16               SET RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 +17               DO MSG^RAIPST12("PSCRIBE-RA LLP",869.2)

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

 +18               IF '$DATA(^HLCS(869.2,"B","PSCRIBE-RA LLP"))

                       DO MSG^RAIPST12("PSCRIBE-RA LLP",869.2,1)

 +19               QUIT 

               End DoDot:1

 +20       IF '$DATA(^HLCS(869.2,"B","TALK-RA LLP"))

               Begin DoDot:1

 +21               NEW RAFDA

                   SET RAFDA(869.2,"+1,",.01)="TALK-RA LLP"

 +22               SET RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 +23               SET RAFDA(869.2,"+1,",400.03)=$$SLISTN^RAIPST12()

 +24               SET RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 +25               DO MSG^RAIPST12("TALK-RA LLP",869.2)

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

 +26               IF '$DATA(^HLCS(869.2,"B","TALK-RA LLP"))

                       DO MSG^RAIPST12("TALK-RA LLP",869.2,1)

 +27               QUIT 

               End DoDot:1

 +28       IF '$DATA(^HLCS(869.2,"B","RA-TALK LLP"))

               Begin DoDot:1

 +29               NEW RAFDA

                   SET RAFDA(869.2,"+1,",.01)="RA-TALK LLP"

 +30               SET RAFDA(869.2,"+1,",.02)=$$TCP^RAIPST12()

 +31               SET RAFDA(869.2,"+1,",400.03)=$$CLIENT^RAIPST12()

 +32               SET RAFDA(869.2,"+1,",400.04)=$$Y^RAIPST12()

 +33               DO MSG^RAIPST12("RA-TALK LLP",869.2)

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

 +34               IF '$DATA(^HLCS(869.2,"B","RA-TALK LLP"))

                       DO MSG^RAIPST12("RA-TALK LLP",869.2,1)

 +35               QUIT 

               End DoDot:1

 +36      ; *** End adding entries to HL LL Protocol Param (869.2) file ***

 +37      ; greater readability

           DO BMES^XPDUTL(" ")

 +38      ; ***    Add entries to HL Logical Link (870) file     ***

 +39       IF '$DATA(^HLCS(870,"B","RA-PSCRIBE"))

               Begin DoDot:1

 +40               NEW RAFDA

                   SET RAFDA(870,"+1,",.01)="RA-PSCRIBE"

 +41      ;IHS/ITSC/CLS 04/24/2003

                   SET RAFDA(870,"+1,",2)="TCP"

 +42               DO MSG^RAIPST12("RA-PSCRIBE",870)

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

 +43               IF '$DATA(^HLCS(870,"B","RA-PSCRIBE"))

                       DO MSG^RAIPST12("RA-PSCRIBE",870,1)

 +44               QUIT 

               End DoDot:1

 +45       IF '$DATA(^HLCS(870,"B","PSCRIBE-RA"))

               Begin DoDot:1

 +46               NEW RAFDA

                   SET RAFDA(870,"+1,",.01)="PSCRIBE-RA"

 +47      ;IHS/ITSC/CLS 04/24/2003

                   SET RAFDA(870,"+1,",2)="TCP"

 +48               DO MSG^RAIPST12("PSCRIBE-RA",870)

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

 +49               IF '$DATA(^HLCS(870,"B","PSCRIBE-RA"))

                       DO MSG^RAIPST12("PSCRIBE-RA",870,1)

 +50               QUIT 

               End DoDot:1

 +51       IF '$DATA(^HLCS(870,"B","TALK-RA"))

               Begin DoDot:1

 +52               NEW RAFDA

                   SET RAFDA(870,"+1,",.01)="TALK-RA"

 +53      ;IHS/ITSC/CLS 04/24/2003

                   SET RAFDA(870,"+1,",2)="TCP"

 +54               DO MSG^RAIPST12("TALK-RA",870)

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

 +55               IF '$DATA(^HLCS(870,"B","TALK-RA"))

                       DO MSG^RAIPST12("TALK-RA",870,1)

 +56               QUIT 

               End DoDot:1

 +57       IF '$DATA(^HLCS(870,"B","RA-TALK"))

               Begin DoDot:1

 +58               NEW RAFDA

                   SET RAFDA(870,"+1,",.01)="RA-TALK"

 +59      ;IHS/ITSC/CLS 04/24/2003

                   SET RAFDA(870,"+1,",2)="TCP"

 +60               DO MSG^RAIPST12("RA-TALK",870)

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

 +61               IF '$DATA(^HLCS(870,"B","RA-TALK"))

                       DO MSG^RAIPST12("RA-TALK",870,1)

 +62               QUIT 

               End DoDot:1

 +63      ; *** End adding entries to HL Logical Link (870) file ***

 +64      ; greater readability

           DO BMES^XPDUTL(" ")

 +65      ; ***    Add entries to HL7 Application Param (771) file     ***

 +66       IF '$DATA(^HL(771,"B","RA-VOICE-SERVER"))

               Begin DoDot:1

 +67               NEW RAFDA

                   SET RAFDA(771,"+1,",.01)="RA-VOICE-SERVER"

 +68               SET RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 +69               SET RAFDA(771,"+1,",7)=$$US^RAIPST12()

 +70               SET RAFDA(771,"+1,",100)="|"

 +71      ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

                   SET RAFDA(771,"+1,",101)="~\&"

 +72               DO MSG^RAIPST12("RA-VOICE-SERVER",771)

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

 +73               IF '$DATA(^HL(771,"B","RA-VOICE-SERVER"))

                       DO MSG^RAIPST12("RA-VOICE-SERVER",771,1)

 +74               QUIT 

               End DoDot:1

 +75       IF '$DATA(^HL(771,"B","RA-PSCRIBE-TCP"))

               Begin DoDot:1

 +76               NEW RAFDA

                   SET RAFDA(771,"+1,",.01)="RA-PSCRIBE-TCP"

 +77               SET RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 +78               SET RAFDA(771,"+1,",7)=$$US^RAIPST12()

 +79               SET RAFDA(771,"+1,",100)="|"

 +80      ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

                   SET RAFDA(771,"+1,",101)="~\&"

 +81               DO MSG^RAIPST12("RA-PSCRIBE-TCP",771)

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

 +82               IF '$DATA(^HL(771,"B","RA-PSCRIBE-TCP"))

                       DO MSG^RAIPST12("RA-PSCRIBE-TCP",771,1)

 +83               QUIT 

               End DoDot:1

 +84       IF '$DATA(^HL(771,"B","RA-TALKLINK-TCP"))

               Begin DoDot:1

 +85               NEW RAFDA

                   SET RAFDA(771,"+1,",.01)="RA-TALKLINK-TCP"

 +86               SET RAFDA(771,"+1,",2)=$$ACTIVE^RAIPST12()

 +87               SET RAFDA(771,"+1,",7)=$$US^RAIPST12()

 +88               SET RAFDA(771,"+1,",100)="|"

 +89      ;IHS/ITSC/CLS 08/03/2003 replaced "^~\&"

                   SET RAFDA(771,"+1,",101)="~\&"

 +90               DO MSG^RAIPST12("RA-TALKLINK-TCP",771)

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

 +91               IF '$DATA(^HL(771,"B","RA-TALKLINK-TCP"))

                       DO MSG^RAIPST12("RA-TALKLINK-TCP",771,1)

 +92               QUIT 

               End DoDot:1

 +93      ; *** End adding entries to HL7 Application Param (771) file ***

 +94      ; greater readability

           DO BMES^XPDUTL(" ")

 +95       DO EN1^RAIPST16

 +96       QUIT