HLPAT67 ;SFCIOFO/JIC POSTINIT ;12/07/2000 16:10
;;1.6;HEALTH LEVEL SEVEN;**67**;JUL 17, 1995
ENTER ; For Cache/NT sites which have patch HL*1.6*39 installed,
; for every TCP link to a VA site, set the SAY HELO field to YES
D BMES^XPDUTL("Checking to see if the post-init should run:")
I ^%ZOSF("OS")'["OpenM" D Q
. D MES^XPDUTL("This is not a Cache/NT site. Post-init not needed.")
E D
. D MES^XPDUTL("This is a Cache/NT site. Post-init needed.")
I '$$PATCH^XPDUTL("HL*1.6*39") D Q
. D MES^XPDUTL("HL*1.6*39 is not installed. Post-init will not run.")
. D MES^XPDUTL("You will have to manually identify TCP VA links and")
. D MES^XPDUTL("set their SAY HELO field to YES.")
E D
. D MES^XPDUTL("HL*1.6*39 is installed. Post-init will run.")
D BMES^XPDUTL("Post-init will identify all TCP links to VA sites (name starts with 'VA')")
D MES^XPDUTL("and set the SAY HELO field to YES:")
N HLTCP,HLL,HLNAME
S HLTCP=$O(^HLCS(869.1,"B","TCP",0)) Q:'HLTCP
S HLL=0
F S HLL=$O(^HLCS(870,"ALLP",HLTCP,HLL)) Q:'HLL D
. S HLNAME=$P($G(^HLCS(870,HLL,0)),U,1)
. I $E(HLNAME,1,2)'="VA",HLNAME'="MPIVA" Q ; must be link to VA site
. D MES^XPDUTL("ien="_HLL_", name="_$P(^HLCS(870,HLL,0),U,1))
. S $P(^HLCS(870,HLL,400),U,7)="Y"
D BMES^XPDUTL("The SAY HELO field was set to YES for the above TCP Links.")
D MES^XPDUTL("Please review this. If any is not a VA site, set its SAY HELO field to NO.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLPAT67 1445 printed Nov 22, 2024@17:09:47 Page 2
HLPAT67 ;SFCIOFO/JIC POSTINIT ;12/07/2000 16:10
+1 ;;1.6;HEALTH LEVEL SEVEN;**67**;JUL 17, 1995
ENTER ; For Cache/NT sites which have patch HL*1.6*39 installed,
+1 ; for every TCP link to a VA site, set the SAY HELO field to YES
+2 DO BMES^XPDUTL("Checking to see if the post-init should run:")
+3 IF ^%ZOSF("OS")'["OpenM"
Begin DoDot:1
+4 DO MES^XPDUTL("This is not a Cache/NT site. Post-init not needed.")
End DoDot:1
QUIT
+5 IF '$TEST
Begin DoDot:1
+6 DO MES^XPDUTL("This is a Cache/NT site. Post-init needed.")
End DoDot:1
+7 IF '$$PATCH^XPDUTL("HL*1.6*39")
Begin DoDot:1
+8 DO MES^XPDUTL("HL*1.6*39 is not installed. Post-init will not run.")
+9 DO MES^XPDUTL("You will have to manually identify TCP VA links and")
+10 DO MES^XPDUTL("set their SAY HELO field to YES.")
End DoDot:1
QUIT
+11 IF '$TEST
Begin DoDot:1
+12 DO MES^XPDUTL("HL*1.6*39 is installed. Post-init will run.")
End DoDot:1
+13 DO BMES^XPDUTL("Post-init will identify all TCP links to VA sites (name starts with 'VA')")
+14 DO MES^XPDUTL("and set the SAY HELO field to YES:")
+15 NEW HLTCP,HLL,HLNAME
+16 SET HLTCP=$ORDER(^HLCS(869.1,"B","TCP",0))
if 'HLTCP
QUIT
+17 SET HLL=0
+18 FOR
SET HLL=$ORDER(^HLCS(870,"ALLP",HLTCP,HLL))
if 'HLL
QUIT
Begin DoDot:1
+19 SET HLNAME=$PIECE($GET(^HLCS(870,HLL,0)),U,1)
+20 ; must be link to VA site
IF $EXTRACT(HLNAME,1,2)'="VA"
IF HLNAME'="MPIVA"
QUIT
+21 DO MES^XPDUTL("ien="_HLL_", name="_$PIECE(^HLCS(870,HLL,0),U,1))
+22 SET $PIECE(^HLCS(870,HLL,400),U,7)="Y"
End DoDot:1
+23 DO BMES^XPDUTL("The SAY HELO field was set to YES for the above TCP Links.")
+24 DO MES^XPDUTL("Please review this. If any is not a VA site, set its SAY HELO field to NO.")
+25 QUIT
