RAAIPST1 ;HIRMFO/GJC - Post-init number one (patch four) ;1/7/98 08:27
VERSION ;;5.0;Radiology/Nuclear Medicine;**4**;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-MED LLP")) D
. N RAFDA S RAFDA(869.2,"+1,",.01)="RA-MED LLP"
. S RAFDA(869.2,"+1,",.02)=$$TCP()
. S RAFDA(869.2,"+1,",400.03)=$$CLIENT()
. S RAFDA(869.2,"+1,",400.04)=$$Y()
. D MSG^RAAIPST2("RA-MED LLP",869.2),UPDATE^DIE("E","RAFDA")
. D:'$D(^HLCS(869.2,"B","RA-MED LLP")) MSG^RAAIPST2("RA-MED LLP",869.2,1)
. Q
I '$D(^HLCS(869.2,"B","MED-RA LLP")) D
. N RAFDA S RAFDA(869.2,"+1,",.01)="MED-RA LLP"
. S RAFDA(869.2,"+1,",.02)=$$TCP()
. S RAFDA(869.2,"+1,",400.03)=$$SLISTN()
. S RAFDA(869.2,"+1,",400.04)=$$Y()
. D MSG^RAAIPST2("MED-RA LLP",869.2),UPDATE^DIE("E","RAFDA")
. D:'$D(^HLCS(869.2,"B","MED-RA LLP")) MSG^RAAIPST2("MED-RA 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-MED")) D
. N RAFDA S RAFDA(870,"+1,",.01)="RA-MED"
. S RAFDA(870,"+1,",2)="TCP" ;IHS/ITSC/CLS 04/25/2003
. D MSG^RAAIPST2("RA-MED",870),UPDATE^DIE("E","RAFDA")
. D:'$D(^HLCS(870,"B","RA-MED")) MSG^RAAIPST2("RA-MED",870,1)
. Q
I '$D(^HLCS(870,"B","MED-RA")) D
. N RAFDA S RAFDA(870,"+1,",.01)="MED-RA"
. S RAFDA(870,"+1,",2)="TCP" ;IHS/ITSC/CLS 04/25/2003
. D MSG^RAAIPST2("MED-RA",870),UPDATE^DIE("E","RAFDA")
. D:'$D(^HLCS(870,"B","MED-RA")) MSG^RAAIPST2("MED-RA",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-SERVER-IMG")) D
. N RAFDA S RAFDA(771,"+1,",.01)="RA-SERVER-IMG"
. S RAFDA(771,"+1,",2)=$$ACTIVE()
. S RAFDA(771,"+1,",7)=$$US()
. D MSG^RAAIPST2("RA-SERVER-IMG",771),UPDATE^DIE("E","RAFDA")
. D:'$D(^HL(771,"B","RA-SERVER-IMG")) MSG^RAAIPST2("RA-SERVER-IMG",771,1)
. Q
I '$D(^HL(771,"B","RA-CLIENT-TCP")) D
. N RAFDA S RAFDA(771,"+1,",.01)="RA-CLIENT-TCP"
. S RAFDA(771,"+1,",2)=$$ACTIVE()
. S RAFDA(771,"+1,",7)=$$US()
. D MSG^RAAIPST2("RA-CLIENT-TCP",771),UPDATE^DIE("E","RAFDA")
. D:'$D(^HL(771,"B","RA-CLIENT-TCP")) MSG^RAAIPST2("RA-CLIENT-TCP",771,1)
. Q
; *** End adding entries to HL7 Application Param (771) file ***
D BMES^XPDUTL(" ") ; greater readability
; *** Adding entries to the Protocol (101) file ***
I '$D(^ORD(101,"B","RA TCP ORM")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA TCP ORM"
. S RAFDA(101,"+1,",1)="TCP Client"
. S RAFDA(101,"+1,",4)="subscriber"
. S RAFDA(101,"+1,",12)="RADIOLOGY/NUCLEAR MEDICINE"
. 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-CLIENT-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="O01"
. S RAFDA(101,"+1,",770.6)="" ;IHS/ITSC/CLS 04/25/2003
. S RAFDA(101,"+1,",770.7)="RA-MED"
. S RAFDA(101,"+1,",770.11)="ORM"
. S RAFDA(101,"+1,",771)="Q"
. S RAFDA(101,"+1,",773.1)=$$N(),RAFDA(101,"+1,",773.2)=$$N()
. S RAFDA(101,"+1,",773.3)=$$N(),RAFDA(101,"+1,",773.4)=$$Y()
. D MSG^RAAIPST2("RA TCP ORM",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA TCP ORM")) D Q
.. S RA101=$O(^ORD(101,"B","RA TCP ORM",0)) K RAFDA
.. S RAFDA(101,RA101_",",770.95)=2.1 D FILE^DIE("E","RAFDA")
.. S ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG, RA EXAMINED, and RA"
.. S ^ORD(101,RA101,1,2,0)="CANCEL event protocols. It is used by the VISTA HL7 package to send"
.. S ^ORD(101,RA101,1,3,0)="ORM messages to TCP/IP recipients. This protocol should be entered in the"
.. S ^ORD(101,RA101,1,4,0)="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^RAAIPST2("RA TCP ORM",101,1)
. Q
I '$D(^ORD(101,"B","RA TCP ORU")) D
. N RA101,RAFDA
. S RAFDA(101,"+1,",.01)="RA TCP ORU"
. S RAFDA(101,"+1,",1)="TCP Client"
. S RAFDA(101,"+1,",4)="subscriber"
. S RAFDA(101,"+1,",12)="RADIOLOGY/NUCLEAR MEDICINE"
. 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-CLIENT-TCP"
. S RAFDA(101,"+1,",770.3)="ACK"
. S RAFDA(101,"+1,",770.4)="R01"
. S RAFDA(101,"+1,",770.6)="" ;IHS/ITSC/CLS 04/25/2003
. S RAFDA(101,"+1,",770.7)="RA-MED"
. S RAFDA(101,"+1,",770.11)="ORU"
. S RAFDA(101,"+1,",771)="Q"
. S RAFDA(101,"+1,",773.1)=$$N(),RAFDA(101,"+1,",773.2)=$$N()
. S RAFDA(101,"+1,",773.3)=$$N(),RAFDA(101,"+1,",773.4)=$$Y()
. D MSG^RAAIPST2("RA TCP ORU",101),UPDATE^DIE("E","RAFDA")
. I $D(^ORD(101,"B","RA TCP ORU")) D Q
.. S RA101=$O(^ORD(101,"B","RA TCP ORU",0)) K RAFDA
.. S RAFDA(101,RA101_",",770.95)=2.1 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^RAAIPST2("RA TCP ORU",101,1)
. Q
D EN1^RAAIPST2 ; continue to add protocols and items under existing
; protocols.
; *** End adding entries to the Protocol (101) file ***
Q
ACTIVE() ; return 'ACTIVE', for ACTIVE/INACTIVE (2) field in file
; 771
Q "ACTIVE"
CLIENT() ; return 'CLIENT (SENDER)', for CLIENT/SERVER (400.03) field
; in file 869.2
Q "CLIENT (SENDER)"
MSG(ENTRY,FILE,ERR) ; display a status message pertaining to the addition
; of entries to files: 869.2, 870, 771 & 101. Display a status message
; when items are added to the Protocol (101) file.
; Variable list:
; ENTRY-> value of the .01 field for a particular file (60 chars max)
; FILE -> file # where the data will be added
; ERR -> err message? 1 if yes, else null
N RACNT,RATXT,STRING,WORDS S RACNT=1,RATXT(RACNT)=" "
S:$G(ERR) STRING="* ERROR * "
S STRING=$G(STRING)_"Adding '"_$E(ENTRY,1,40)_"' to the "
S STRING=$G(STRING)_$E($P($G(^DIC(FILE,0)),"^"),1,40)_" file."
S:$G(ERR)&($D(DIERR)) STRING=$G(STRING)_" "_$E($G(^TMP("DIERR",$J,1,"TEXT",1)),1,115) ; display the 1st error text encountered! (there may be more errors. Because of possible string length error display only the first error.)
S:$G(ERR) STRING=$G(STRING)_" IRM should investigate."
F D Q:STRING=""
. S WORDS=$L($E(STRING,1,71)," ")
. S RACNT=RACNT+1,RATXT(RACNT)=$P(STRING," ",1,WORDS)
. S STRING=$P(STRING," ",WORDS+1,999)
. Q
D MES^XPDUTL(.RATXT)
Q
N() ; return 'NO', for various fields in file 101
Q "NO"
SLISTN() ; return 'SINGLE LISTENER', for CLIENT/SERVER (400.03) field
; in file 869.2
Q "SINGLE LISTENER"
TCP() ; return 'TCP' for LLP TYPE (.02) field in file 869.2
Q "TCP"
US() ; return 'US', for COUNTRY CODE (7) field in file 771
Q "US"
Y() ; return 'YES', for PERMANENT (400.04) field in file 869.2
Q "YES"
RAAIPST1 ;HIRMFO/GJC - Post-init number one (patch four) ;1/7/98 08:27
VERSION ;;5.0;Radiology/Nuclear Medicine;**4**;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-MED LLP"))
Begin DoDot:1
+5 NEW RAFDA
SET RAFDA(869.2,"+1,",.01)="RA-MED LLP"
+6 SET RAFDA(869.2,"+1,",.02)=$$TCP()
+7 SET RAFDA(869.2,"+1,",400.03)=$$CLIENT()
+8 SET RAFDA(869.2,"+1,",400.04)=$$Y()
+9 DO MSG^RAAIPST2("RA-MED LLP",869.2)
DO UPDATE^DIE("E","RAFDA")
+10 IF '$DATA(^HLCS(869.2,"B","RA-MED LLP"))
DO MSG^RAAIPST2("RA-MED LLP",869.2,1)
+11 QUIT
End DoDot:1
+12 IF '$DATA(^HLCS(869.2,"B","MED-RA LLP"))
Begin DoDot:1
+13 NEW RAFDA
SET RAFDA(869.2,"+1,",.01)="MED-RA LLP"
+14 SET RAFDA(869.2,"+1,",.02)=$$TCP()
+15 SET RAFDA(869.2,"+1,",400.03)=$$SLISTN()
+16 SET RAFDA(869.2,"+1,",400.04)=$$Y()
+17 DO MSG^RAAIPST2("MED-RA LLP",869.2)
DO UPDATE^DIE("E","RAFDA")
+18 IF '$DATA(^HLCS(869.2,"B","MED-RA LLP"))
DO MSG^RAAIPST2("MED-RA LLP",869.2,1)
+19 QUIT
End DoDot:1
+20 ; *** End adding entries to HL LL Protocol Param (869.2) file ***
+21 ; greater readability
DO BMES^XPDUTL(" ")
+22 ; *** Add entries to HL Logical Link (870) file ***
+23 IF '$DATA(^HLCS(870,"B","RA-MED"))
Begin DoDot:1
+24 NEW RAFDA
SET RAFDA(870,"+1,",.01)="RA-MED"
+25 ;IHS/ITSC/CLS 04/25/2003
SET RAFDA(870,"+1,",2)="TCP"
+26 DO MSG^RAAIPST2("RA-MED",870)
DO UPDATE^DIE("E","RAFDA")
+27 IF '$DATA(^HLCS(870,"B","RA-MED"))
DO MSG^RAAIPST2("RA-MED",870,1)
+28 QUIT
End DoDot:1
+29 IF '$DATA(^HLCS(870,"B","MED-RA"))
Begin DoDot:1
+30 NEW RAFDA
SET RAFDA(870,"+1,",.01)="MED-RA"
+31 ;IHS/ITSC/CLS 04/25/2003
SET RAFDA(870,"+1,",2)="TCP"
+32 DO MSG^RAAIPST2("MED-RA",870)
DO UPDATE^DIE("E","RAFDA")
+33 IF '$DATA(^HLCS(870,"B","MED-RA"))
DO MSG^RAAIPST2("MED-RA",870,1)
+34 QUIT
End DoDot:1
+35 ; *** End adding entries to HL Logical Link (870) file ***
+36 ; greater readability
DO BMES^XPDUTL(" ")
+37 ; *** Add entries to HL7 Application Param (771) file ***
+38 IF '$DATA(^HL(771,"B","RA-SERVER-IMG"))
Begin DoDot:1
+39 NEW RAFDA
SET RAFDA(771,"+1,",.01)="RA-SERVER-IMG"
+40 SET RAFDA(771,"+1,",2)=$$ACTIVE()
+41 SET RAFDA(771,"+1,",7)=$$US()
+42 DO MSG^RAAIPST2("RA-SERVER-IMG",771)
DO UPDATE^DIE("E","RAFDA")
+43 IF '$DATA(^HL(771,"B","RA-SERVER-IMG"))
DO MSG^RAAIPST2("RA-SERVER-IMG",771,1)
+44 QUIT
End DoDot:1
+45 IF '$DATA(^HL(771,"B","RA-CLIENT-TCP"))
Begin DoDot:1
+46 NEW RAFDA
SET RAFDA(771,"+1,",.01)="RA-CLIENT-TCP"
+47 SET RAFDA(771,"+1,",2)=$$ACTIVE()
+48 SET RAFDA(771,"+1,",7)=$$US()
+49 DO MSG^RAAIPST2("RA-CLIENT-TCP",771)
DO UPDATE^DIE("E","RAFDA")
+50 IF '$DATA(^HL(771,"B","RA-CLIENT-TCP"))
DO MSG^RAAIPST2("RA-CLIENT-TCP",771,1)
+51 QUIT
End DoDot:1
+52 ; *** End adding entries to HL7 Application Param (771) file ***
+53 ; greater readability
DO BMES^XPDUTL(" ")
+54 ; *** Adding entries to the Protocol (101) file ***
+55 IF '$DATA(^ORD(101,"B","RA TCP ORM"))
Begin DoDot:1
+56 NEW RA101,RAFDA
+57 SET RAFDA(101,"+1,",.01)="RA TCP ORM"
+58 SET RAFDA(101,"+1,",1)="TCP Client"
+59 SET RAFDA(101,"+1,",4)="subscriber"
+60 SET RAFDA(101,"+1,",12)="RADIOLOGY/NUCLEAR MEDICINE"
+61 SET RAFDA(101,"+1,",15)="Q"
+62 SET RAFDA(101,"+1,",20)="Q"
+63 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+64 SET RAFDA(101,"+1,",770.2)="RA-CLIENT-TCP"
+65 SET RAFDA(101,"+1,",770.3)="ACK"
+66 SET RAFDA(101,"+1,",770.4)="O01"
+67 ;IHS/ITSC/CLS 04/25/2003
SET RAFDA(101,"+1,",770.6)=""
+68 SET RAFDA(101,"+1,",770.7)="RA-MED"
+69 SET RAFDA(101,"+1,",770.11)="ORM"
+70 SET RAFDA(101,"+1,",771)="Q"
+71 SET RAFDA(101,"+1,",773.1)=$$N()
SET RAFDA(101,"+1,",773.2)=$$N()
+72 SET RAFDA(101,"+1,",773.3)=$$N()
SET RAFDA(101,"+1,",773.4)=$$Y()
+73 DO MSG^RAAIPST2("RA TCP ORM",101)
DO UPDATE^DIE("E","RAFDA")
+74 IF $DATA(^ORD(101,"B","RA TCP ORM"))
Begin DoDot:2
+75 SET RA101=$ORDER(^ORD(101,"B","RA TCP ORM",0))
KILL RAFDA
+76 SET RAFDA(101,RA101_",",770.95)=2.1
DO FILE^DIE("E","RAFDA")
+77 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA REG, RA EXAMINED, and RA"
+78 SET ^ORD(101,RA101,1,2,0)="CANCEL event protocols. It is used by the VISTA HL7 package to send"
+79 SET ^ORD(101,RA101,1,3,0)="ORM messages to TCP/IP recipients. This protocol should be entered in the"
+80 SET ^ORD(101,RA101,1,4,0)="ITEM multiple field of those event point protocols if this type of"
+81 SET ^ORD(101,RA101,1,5,0)="messaging scenerio is used at a facility. This is part of the file set-up"
+82 SET ^ORD(101,RA101,1,6,0)="to enable HL7 message flow when exams are registered, cancelled, and when"
+83 SET ^ORD(101,RA101,1,7,0)="they reach the status flagged as 'examined' by the site."
+84 SET ^ORD(101,RA101,1,0)="^^7^7^"_$$DT^XLFDT()_"^^"
+85 QUIT
End DoDot:2
QUIT
+86 DO MSG^RAAIPST2("RA TCP ORM",101,1)
+87 QUIT
End DoDot:1
+88 IF '$DATA(^ORD(101,"B","RA TCP ORU"))
Begin DoDot:1
+89 NEW RA101,RAFDA
+90 SET RAFDA(101,"+1,",.01)="RA TCP ORU"
+91 SET RAFDA(101,"+1,",1)="TCP Client"
+92 SET RAFDA(101,"+1,",4)="subscriber"
+93 SET RAFDA(101,"+1,",12)="RADIOLOGY/NUCLEAR MEDICINE"
+94 SET RAFDA(101,"+1,",15)="Q"
+95 SET RAFDA(101,"+1,",20)="Q"
+96 SET RAFDA(101,"+1,",99)=$$FMTH^XLFDT($$NOW^XLFDT())
+97 SET RAFDA(101,"+1,",770.2)="RA-CLIENT-TCP"
+98 SET RAFDA(101,"+1,",770.3)="ACK"
+99 SET RAFDA(101,"+1,",770.4)="R01"
+100 ;IHS/ITSC/CLS 04/25/2003
SET RAFDA(101,"+1,",770.6)=""
+101 SET RAFDA(101,"+1,",770.7)="RA-MED"
+102 SET RAFDA(101,"+1,",770.11)="ORU"
+103 SET RAFDA(101,"+1,",771)="Q"
+104 SET RAFDA(101,"+1,",773.1)=$$N()
SET RAFDA(101,"+1,",773.2)=$$N()
+105 SET RAFDA(101,"+1,",773.3)=$$N()
SET RAFDA(101,"+1,",773.4)=$$Y()
+106 DO MSG^RAAIPST2("RA TCP ORU",101)
DO UPDATE^DIE("E","RAFDA")
+107 IF $DATA(^ORD(101,"B","RA TCP ORU"))
Begin DoDot:2
+108 SET RA101=$ORDER(^ORD(101,"B","RA TCP ORU",0))
KILL RAFDA
+109 SET RAFDA(101,RA101_",",770.95)=2.1
DO FILE^DIE("E","RAFDA")
+110 SET ^ORD(101,RA101,1,1,0)="This protocol is used in conjunction with the RA RPT event point protocol."
+111 SET ^ORD(101,RA101,1,2,0)="The HL7 package uses this protocol to send rad/nuc med report (ORU)"
+112 SET ^ORD(101,RA101,1,3,0)="messages to TCP/IP recipients. This protocol should be entered in the"
+113 SET ^ORD(101,RA101,1,4,0)="ITEM multiple field of the RA RPT protocol if this messaging scenerio is"
+114 SET ^ORD(101,RA101,1,5,0)="used in a facility. This is part of the file set-up to enable message"
+115 SET ^ORD(101,RA101,1,6,0)="flow when a rad/nuc med report is verified."
+116 SET ^ORD(101,RA101,1,0)="^^6^6^"_$$DT^XLFDT()_"^^"
+117 QUIT
End DoDot:2
QUIT
+118 DO MSG^RAAIPST2("RA TCP ORU",101,1)
+119 QUIT
End DoDot:1
+120 ; continue to add protocols and items under existing
DO EN1^RAAIPST2
+121 ; protocols.
+122 ; *** End adding entries to the Protocol (101) file ***
+123 QUIT
ACTIVE() ; return 'ACTIVE', for ACTIVE/INACTIVE (2) field in file
+1 ; 771
+2 QUIT "ACTIVE"
CLIENT() ; return 'CLIENT (SENDER)', for CLIENT/SERVER (400.03) field
+1 ; in file 869.2
+2 QUIT "CLIENT (SENDER)"
MSG(ENTRY,FILE,ERR) ; display a status message pertaining to the addition
+1 ; of entries to files: 869.2, 870, 771 & 101. Display a status message
+2 ; when items are added to the Protocol (101) file.
+3 ; Variable list:
+4 ; ENTRY-> value of the .01 field for a particular file (60 chars max)
+5 ; FILE -> file # where the data will be added
+6 ; ERR -> err message? 1 if yes, else null
+7 NEW RACNT,RATXT,STRING,WORDS
SET RACNT=1
SET RATXT(RACNT)=" "
+8 IF $GET(ERR)
SET STRING="* ERROR * "
+9 SET STRING=$GET(STRING)_"Adding '"_$EXTRACT(ENTRY,1,40)_"' to the "
+10 SET STRING=$GET(STRING)_$EXTRACT($PIECE($GET(^DIC(FILE,0)),"^"),1,40)_" file."
+11 ; display the 1st error text encountered! (there may be more errors. Because of possible string length error display only the first error.)
IF $GET(ERR)&($DATA(DIERR))
SET STRING=$GET(STRING)_" "_$EXTRACT($GET(^TMP("DIERR",$JOB,1,"TEXT",1)),1,115)
+12 IF $GET(ERR)
SET STRING=$GET(STRING)_" IRM should investigate."
+13 FOR
Begin DoDot:1
+14 SET WORDS=$LENGTH($EXTRACT(STRING,1,71)," ")
+15 SET RACNT=RACNT+1
SET RATXT(RACNT)=$PIECE(STRING," ",1,WORDS)
+16 SET STRING=$PIECE(STRING," ",WORDS+1,999)
+17 QUIT
End DoDot:1
IF STRING=""
QUIT
+18 DO MES^XPDUTL(.RATXT)
+19 QUIT
N() ; return 'NO', for various fields in file 101
+1 QUIT "NO"
SLISTN() ; return 'SINGLE LISTENER', for CLIENT/SERVER (400.03) field
+1 ; in file 869.2
+2 QUIT "SINGLE LISTENER"
TCP() ; return 'TCP' for LLP TYPE (.02) field in file 869.2
+1 QUIT "TCP"
US() ; return 'US', for COUNTRY CODE (7) field in file 771
+1 QUIT "US"
Y() ; return 'YES', for PERMANENT (400.04) field in file 869.2
+1 QUIT "YES"
