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
