source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLOUSRA.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1HLOUSRA ;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 ;
4HEADER ;
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 ;
12HELP ;Help code
13 S X="?" D DISP^XQORM1 W !!
14 Q
15 ;
16EXIT ;Exit code
17 D CLEAN^VALM10
18 D CLEAR^VALM1
19 S VALMBCK="R"
20 ;
21 Q
22 ;
23DOWNLINK ;
24 D EN^VALM("HLO DOWN LINKS")
25 D:$L($G(HLRFRSH)) @HLRFRSH
26 Q
27 ;
28RESTART ;
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 ;
40LISTDOWN ;
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 ;
59STOPLINK ;
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 ;
73CJ(STRING,LEN) ;
74 Q $$CJ^XLFSTR($E(STRING,1,LEN),LEN)
75LJ(STRING,LEN) ;
76 Q $$LJ^XLFSTR($E(STRING,1,LEN),LEN)
77RJ(STRING,LEN) ;
78 Q $$RJ^XLFSTR($E(STRING,1,LEN),LEN)
79 ;
80ASKLINK() ;
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 ""
Note: See TracBrowser for help on using the repository browser.