HLPAT67.m

HLPAT67 ;SFCIOFO/JIC POSTINIT ;12/07/2000  16:10 [ 04/02/2003   8:38 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

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

HLPAT67   ;SFCIOFO/JIC POSTINIT ;12/07/2000  16:10 [ 04/02/2003   8:38 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;;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