| 1 | HLOUSRA ;ALB/CJM -ListManager Screen for viewing downed links;12 JUN 1997 10:00 am
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**130**;Oct 13, 1995;Build 10
|
|---|
| 3 | ;
|
|---|
| 4 | HEADER ;
|
|---|
| 5 | S VALMSG="Down Client Links"
|
|---|
| 6 | S VALMDDF("COL 2")="COL 2^20^20^Pending Messages^H"
|
|---|
| 7 | S VALMDDF("COL 3")="COL 3^47^20^Date/Time Down^H"
|
|---|
| 8 | K VALMDDF("COL 4"),VALMDDF("COL 5")
|
|---|
| 9 | D CHGCAP^VALM("COL 1","Client Link")
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | HELP ;Help code
|
|---|
| 13 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | EXIT ;Exit code
|
|---|
| 17 | D CLEAN^VALM10
|
|---|
| 18 | D CLEAR^VALM1
|
|---|
| 19 | S VALMBCK="R"
|
|---|
| 20 | ;
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | DOWNLINK ;
|
|---|
| 24 | D EN^VALM("HLO DOWN LINKS")
|
|---|
| 25 | D:$L($G(HLRFRSH)) @HLRFRSH
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | RESTART ;
|
|---|
| 29 | ;Allows the user to select a link and restarts HLO messages flowing to that domain.
|
|---|
| 30 | N LINKARY
|
|---|
| 31 | S VALMBCK="R"
|
|---|
| 32 | ;
|
|---|
| 33 | S LINK=$$ASKLINK
|
|---|
| 34 | Q:LINK=""
|
|---|
| 35 | I $$GETLINK^HLOTLNK(LINK,.LINKARY) D
|
|---|
| 36 | .I $$SETOPEN^HLOTLNK(LINKARY("IEN")) K ^HLTMP("FAILING LINKS",LINK_":"_LINKARY("PORT")) S VALMSG="HLO messages across "_LINKARY("NAME")_" have been started..."
|
|---|
| 37 | .D LISTDOWN
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | LISTDOWN ;
|
|---|
| 41 | N LINK
|
|---|
| 42 | D CLEAN^VALM10
|
|---|
| 43 | S VALMCNT=0
|
|---|
| 44 | S LINK=""
|
|---|
| 45 | F S LINK=$O(^HLTMP("FAILING LINKS",LINK)) Q:LINK="" D
|
|---|
| 46 | .N TIME,COUNT,QUE,LINKARY
|
|---|
| 47 | .I $$GETLINK^HLOTLNK($P(LINK,":"),.LINKARY)
|
|---|
| 48 | .S TIME=$G(^HLTMP("FAILING LINKS",LINK))
|
|---|
| 49 | .I '$G(LINKARY("SHUTDOWN")),TIME="" Q
|
|---|
| 50 | .I '$G(LINKARY("SHUTDOWN")),($$HDIFF^XLFDT($H,TIME,2)<300) Q
|
|---|
| 51 | .S TIME=$$HTE^XLFDT(TIME)
|
|---|
| 52 | .S COUNT=0
|
|---|
| 53 | .S QUE=""
|
|---|
| 54 | .F S QUE=$O(^HLC("QUEUECOUNT","OUT",LINK,QUE)) Q:QUE="" S COUNT=COUNT+$G(^HLC("QUEUECOUNT","OUT",LINK,QUE))
|
|---|
| 55 | .S VALMCNT=VALMCNT+1
|
|---|
| 56 | .S @VALMAR@(VALMCNT,0)=$$LJ(LINK,15)_$$RJ(COUNT,15)_" "_$$RJ(TIME,30)_" "_$S($G(LINKARY("SHUTDOWN")):"SHUTDOWN",1:"")
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | STOPLINK ;
|
|---|
| 60 | N LINK,LINKARY
|
|---|
| 61 | S VALMBCK="R"
|
|---|
| 62 | ;
|
|---|
| 63 | S LINK=$$ASKLINK
|
|---|
| 64 | Q:LINK=""
|
|---|
| 65 | I $$GETLINK^HLOTLNK(LINK,.LINKARY) D
|
|---|
| 66 | .S LINK=LINK_":"_LINKARY("PORT")
|
|---|
| 67 | .I $$SETSHUT^HLOTLNK(LINKARY("IEN")) S VALMSG="HLO messages across "_LINKARY("NAME")_" have been stopped..."
|
|---|
| 68 | .S ^HLTMP("FAILING LINKS",LINK)=$G(^HLTMP("FAILING LINKS",LINK),$H)
|
|---|
| 69 | .S ^HLB("QUEUE","OUT",LINK)=$H
|
|---|
| 70 | .D LISTDOWN
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
| 73 | CJ(STRING,LEN) ;
|
|---|
| 74 | Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)
|
|---|
| 75 | LJ(STRING,LEN) ;
|
|---|
| 76 | Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)
|
|---|
| 77 | RJ(STRING,LEN) ;
|
|---|
| 78 | Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)
|
|---|
| 79 | ;
|
|---|
| 80 | ASKLINK() ;
|
|---|
| 81 | ;returns the name
|
|---|
| 82 | N DIC,TCP,X,Y,DTOUT,DUOUT
|
|---|
| 83 | S DIC=870
|
|---|
| 84 | S DIC(0)="AENQ"
|
|---|
| 85 | S TCP=$O(^HLCS(869.1,"B","TCP",0))
|
|---|
| 86 | S DIC("A")="Select a TCP Client Link (Outgoing):"
|
|---|
| 87 | S DIC("S")="I $P(^(0),U,3)=TCP,$P(^(400),U,3)=""C"""
|
|---|
| 88 | D FULL^VALM1
|
|---|
| 89 | D ^DIC
|
|---|
| 90 | I +Y'=-1,'$D(DTOUT),'$D(DUOUT) Q $P(Y,"^",2)
|
|---|
| 91 | Q ""
|
|---|
