Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLOUSRA

HLOUSRA.m

Go to the documentation of this file.
  1. HLOUSRA ;ALB/CJM -ListManager Screen for viewing downed links;12 JUN 1997 10:00 am ;07/23/2008
  1. ;;1.6;HEALTH LEVEL SEVEN;**130,138**;Oct 13, 1995;Build 34
  1. ;
  1. S VALMSG="Down Client Links"
  1. S VALMDDF("COL 2")="COL 2^20^20^Pending Messages^H"
  1. S VALMDDF("COL 3")="COL 3^47^20^Date/Time Down^H"
  1. K VALMDDF("COL 4"),VALMDDF("COL 5")
  1. D CHGCAP^VALM("COL 1","Client Link")
  1. Q
  1. ;
  1. HELP ;Help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ;Exit code
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. S VALMBCK="R"
  1. ;
  1. Q
  1. ;
  1. D EN^VALM("HLO DOWN LINKS")
  1. D:$L($G(HLRFRSH)) @HLRFRSH
  1. Q
  1. ;
  1. RESTART ;
  1. ;Allows the user to select a link and restarts HLO messages flowing to that domain.
  1. N LINKARY
  1. S VALMBCK="R"
  1. ;
  1. S LINK=$$ASKLINK
  1. Q:LINK=""
  1. I $$GETLINK^HLOTLNK(LINK,.LINKARY) D
  1. .I $$SETOPEN^HLOTLNK(LINKARY("IEN")) K ^HLTMP("FAILING LINKS",LINK_":"_LINKARY("PORT")) S VALMSG="HLO messages across "_LINKARY("NAME")_" have been started..."
  1. .D LISTDOWN
  1. Q
  1. ;
  1. LISTDOWN ;
  1. N LINK
  1. D CLEAN^VALM10
  1. S VALMCNT=0
  1. S LINK=""
  1. F S LINK=$O(^HLTMP("FAILING LINKS",LINK)) Q:LINK="" D
  1. .N TIME,COUNT,QUE,LINKARY
  1. .I $$GETLINK^HLOTLNK($P(LINK,":"),.LINKARY)
  1. .S TIME=$G(^HLTMP("FAILING LINKS",LINK))
  1. .I '$G(LINKARY("SHUTDOWN")),TIME="" Q
  1. .I '$G(LINKARY("SHUTDOWN")),($$HDIFF^XLFDT($H,TIME,2)<300) Q
  1. .S TIME=$$HTE^XLFDT(TIME)
  1. .S COUNT=0
  1. .S QUE=""
  1. .F S QUE=$O(^HLC("QUEUECOUNT","OUT",LINK,QUE)) Q:QUE="" S COUNT=COUNT+$G(^HLC("QUEUECOUNT","OUT",LINK,QUE))
  1. .S VALMCNT=VALMCNT+1
  1. .S @VALMAR@(VALMCNT,0)=$$LJ(LINK,15)_$$RJ(COUNT,15)_" "_$$RJ(TIME,30)_" "_$S($G(LINKARY("SHUTDOWN")):"SHUTDOWN",1:"")
  1. Q
  1. ;
  1. N LINK,LINKARY
  1. S VALMBCK="R"
  1. ;
  1. S LINK=$$ASKLINK
  1. Q:LINK=""
  1. I $$GETLINK^HLOTLNK(LINK,.LINKARY) D
  1. .S LINK=LINK_":"_LINKARY("PORT")
  1. .I $$SETSHUT^HLOTLNK(LINKARY("IEN")) S VALMSG="HLO messages across "_LINKARY("NAME")_" have been stopped..."
  1. .S ^HLTMP("FAILING LINKS",LINK)=$G(^HLTMP("FAILING LINKS",LINK),$H)
  1. .S ^HLB("QUEUE","OUT",LINK)=$H
  1. .D LISTDOWN
  1. Q
  1. ;
  1. CJ(STRING,LEN) ;
  1. Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)
  1. LJ(STRING,LEN) ;
  1. Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)
  1. RJ(STRING,LEN) ;
  1. Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)
  1. ;
  1. ;returns the name
  1. N DIC,TCP,X,Y,DTOUT,DUOUT
  1. S DIC=870
  1. S DIC(0)="AENQ"
  1. S TCP=$O(^HLCS(869.1,"B","TCP",0))
  1. S DIC("A")="Select a TCP Client Link (Outgoing):"
  1. S DIC("S")="I $P(^(0),U,3)=TCP,$P(^(400),U,3)=""C"""
  1. D FULL^VALM1
  1. D ^DIC
  1. I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,"^",2)
  1. Q ""
  1. ;
  1. ASKPORT(LINKNAME) ;
  1. Q:'$L($G(LINKNAME)) 0
  1. N DIR,X,DTOUT,DUOUT,PORT
  1. S DIR(0)="N^1:65535:0"
  1. S DIR("A")="PORT"
  1. S DIR("B")=$$PORT2^HLOTLNK(LINKNAME)
  1. S DIR("?",1)="Enter to specify a port other than the one that this link is configured"
  1. S DIR("?")="to normally use, otherwise just accept the default port."
  1. D ^DIR
  1. Q:$D(DTOUT)!$D(DUOUT) 0
  1. Q X