| [613] | 1 | HLEMSL1 ;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 | ;
|
|---|
| 4 | SELECT ;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 | ;
|
|---|
| 14 | EDIT ;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 | ;
|
|---|
| 25 | NEW ;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 | ;
|
|---|
| 39 | GOSITE ;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 | ;
|
|---|
| 54 | CNTSITES() ;
|
|---|
| 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 | ;
|
|---|
| 62 | SELECTE ;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
|
|---|
