source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMSL1.m@ 1211

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1HLEMSL1 ;ALB/CJM,ALB/BRM - Actions for the HL7 Monitor Event Log; 2/27/01 1:25pm
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
3 ;
4SELECT ;Allows the user to change profiles, then rebuilds the Events Log
5 N PROF
6 D FULL^VALM1
7 S PROF=$$SELECT^HLEMP1($G(DUZ),20)
8 I PROF,PROF'=$G(PROFILE) D
9 .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
10 .D INIT^HLEMSL
11 S VALMBCK="R"
12 Q
13 ;
14EDIT ;Allows the user to select a profile & edit it, then rebuilds the Events Log
15 N PROF
16 D FULL^VALM1
17 S PROF=$$SELECT^HLEMP1($G(DUZ),20)
18 I PROF D
19 .I $$EDIT^HLEMP(PROF)
20 .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
21 .D INIT^HLEMSL
22 S VALMBCK="R"
23 Q
24 ;
25NEW ;Allows the user to create a new profile, then rebuilds the Events Log
26 N PROF,NAME,I
27 D FULL^VALM1
28 F I=1:1:20 I '$D(^HLEV(776.5,"C",DUZ,"NEW PROFILE"_I)) S NAME="NEW PROFILE"_I Q
29 S:$D(NAME) PROF=$$CREATE^HLEMP(DUZ,NAME)
30 I PROF,'$$EDIT^HLEMP(PROF) D
31 .I '$$DELETE^HLEMP(PROFILE) W !,"Incomplete profile couln't be deleted!"
32 .S PROFILE=""
33 I PROF,PROF'=$G(PROFILE) D
34 .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
35 .D INIT^HLEMSL
36 S VALMBCK="R"
37 Q
38 ;
39GOSITE ;Allows the user to select a site and jump the display to it.
40 N SITE,START
41 S START=0
42 D FULL^VALM1
43 I $$PROMPT^HLEMU(776.4,.03,"",.SITE,1) D
44 .S START=$G(@IDX@("SITE",SITE)) Q:START
45 .S SITE=$P($G(^DIC(4,SITE,0)),"^",1)
46 .Q:'$L(SITE)
47 .S START=$G(@IDX@("SITE",SITE)) Q:START
48 .S SITE=$O(@IDX@("SITE",SITE),-1)
49 .I $L(SITE) S START=$G(@IDX@("SITE",SITE))
50 I START S VALMBG=START
51 S VALMBCK="R"
52 Q
53 ;
54CNTSITES() ;
55 N SITE,COUNT
56 Q:'$D(IDX) 0
57 S (COUNT,SITE)=""
58 F S SITE=$O(@IDX@("SITE",SITE)) Q:SITE="" S COUNT=COUNT+1
59 S COUNT=COUNT\2
60 Q COUNT
61 ;
62SELECTE ;Allows the user to select a single event for display and editing.
63 K DIR
64 S DIR("A")="Enter the number of the event to display"
65 S DIR(0)="N^1:"_$O(@IDX@("EVENT",9999999),-1)_":0"
66 D ^DIR K DIR I (Y=-1)!$D(DIRUT) S QUIT=1 Q
67 D EN^HLEMSE($G(@IDX@("EVENT",Y)))
68 S VALMBCK="R"
69 Q
Note: See TracBrowser for help on using the repository browser.