HLEMSL1 ;ALB/CJM,ALB/BRM - Actions for the HL7 Monitor Event Log; 2/27/01 1:25pm
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
;
SELECT ;Allows the user to change profiles, then rebuilds the Events Log
N PROF
D FULL^VALM1
S PROF=$$SELECT^HLEMP1($G(DUZ),20)
I PROF,PROF'=$G(PROFILE) D
.S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
.D INIT^HLEMSL
S VALMBCK="R"
Q
;
EDIT ;Allows the user to select a profile & edit it, then rebuilds the Events Log
N PROF
D FULL^VALM1
S PROF=$$SELECT^HLEMP1($G(DUZ),20)
I PROF D
.I $$EDIT^HLEMP(PROF)
.S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
.D INIT^HLEMSL
S VALMBCK="R"
Q
;
NEW ;Allows the user to create a new profile, then rebuilds the Events Log
N PROF,NAME,I
D FULL^VALM1
F I=1:1:20 I '$D(^HLEV(776.5,"C",DUZ,"NEW PROFILE"_I)) S NAME="NEW PROFILE"_I Q
S:$D(NAME) PROF=$$CREATE^HLEMP(DUZ,NAME)
I PROF,'$$EDIT^HLEMP(PROF) D
.I '$$DELETE^HLEMP(PROFILE) W !,"Incomplete profile couln't be deleted!"
.S PROFILE=""
I PROF,PROF'=$G(PROFILE) D
.S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
.D INIT^HLEMSL
S VALMBCK="R"
Q
;
GOSITE ;Allows the user to select a site and jump the display to it.
N SITE,START
S START=0
D FULL^VALM1
I $$PROMPT^HLEMU(776.4,.03,"",.SITE,1) D
.S START=$G(@IDX@("SITE",SITE)) Q:START
.S SITE=$P($G(^DIC(4,SITE,0)),"^",1)
.Q:'$L(SITE)
.S START=$G(@IDX@("SITE",SITE)) Q:START
.S SITE=$O(@IDX@("SITE",SITE),-1)
.I $L(SITE) S START=$G(@IDX@("SITE",SITE))
I START S VALMBG=START
S VALMBCK="R"
Q
;
CNTSITES() ;
N SITE,COUNT
Q:'$D(IDX) 0
S (COUNT,SITE)=""
F S SITE=$O(@IDX@("SITE",SITE)) Q:SITE="" S COUNT=COUNT+1
S COUNT=COUNT\2
Q COUNT
;
SELECTE ;Allows the user to select a single event for display and editing.
K DIR
S DIR("A")="Enter the number of the event to display"
S DIR(0)="N^1:"_$O(@IDX@("EVENT",9999999),-1)_":0"
D ^DIR K DIR I (Y=-1)!$D(DIRUT) S QUIT=1 Q
D EN^HLEMSE($G(@IDX@("EVENT",Y)))
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEMSL1 1978 printed Nov 22, 2024@17:07:41 Page 2
HLEMSL1 ;ALB/CJM,ALB/BRM - Actions for the HL7 Monitor Event Log; 2/27/01 1:25pm
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
+2 ;
SELECT ;Allows the user to change profiles, then rebuilds the Events Log
+1 NEW PROF
+2 DO FULL^VALM1
+3 SET PROF=$$SELECT^HLEMP1($GET(DUZ),20)
+4 IF PROF
IF PROF'=$GET(PROFILE)
Begin DoDot:1
+5 SET PROFILE=$$GET^HLEMP(PROF,.PROFILE)
+6 DO INIT^HLEMSL
End DoDot:1
+7 SET VALMBCK="R"
+8 QUIT
+9 ;
EDIT ;Allows the user to select a profile & edit it, then rebuilds the Events Log
+1 NEW PROF
+2 DO FULL^VALM1
+3 SET PROF=$$SELECT^HLEMP1($GET(DUZ),20)
+4 IF PROF
Begin DoDot:1
+5 IF $$EDIT^HLEMP(PROF)
+6 SET PROFILE=$$GET^HLEMP(PROF,.PROFILE)
+7 DO INIT^HLEMSL
End DoDot:1
+8 SET VALMBCK="R"
+9 QUIT
+10 ;
NEW ;Allows the user to create a new profile, then rebuilds the Events Log
+1 NEW PROF,NAME,I
+2 DO FULL^VALM1
+3 FOR I=1:1:20
IF '$DATA(^HLEV(776.5,"C",DUZ,"NEW PROFILE"_I))
SET NAME="NEW PROFILE"_I
QUIT
+4 if $DATA(NAME)
SET PROF=$$CREATE^HLEMP(DUZ,NAME)
+5 IF PROF
IF '$$EDIT^HLEMP(PROF)
Begin DoDot:1
+6 IF '$$DELETE^HLEMP(PROFILE)
WRITE !,"Incomplete profile couln't be deleted!"
+7 SET PROFILE=""
End DoDot:1
+8 IF PROF
IF PROF'=$GET(PROFILE)
Begin DoDot:1
+9 SET PROFILE=$$GET^HLEMP(PROF,.PROFILE)
+10 DO INIT^HLEMSL
End DoDot:1
+11 SET VALMBCK="R"
+12 QUIT
+13 ;
GOSITE ;Allows the user to select a site and jump the display to it.
+1 NEW SITE,START
+2 SET START=0
+3 DO FULL^VALM1
+4 IF $$PROMPT^HLEMU(776.4,.03,"",.SITE,1)
Begin DoDot:1
+5 SET START=$GET(@IDX@("SITE",SITE))
if START
QUIT
+6 SET SITE=$PIECE($GET(^DIC(4,SITE,0)),"^",1)
+7 if '$LENGTH(SITE)
QUIT
+8 SET START=$GET(@IDX@("SITE",SITE))
if START
QUIT
+9 SET SITE=$ORDER(@IDX@("SITE",SITE),-1)
+10 IF $LENGTH(SITE)
SET START=$GET(@IDX@("SITE",SITE))
End DoDot:1
+11 IF START
SET VALMBG=START
+12 SET VALMBCK="R"
+13 QUIT
+14 ;
CNTSITES() ;
+1 NEW SITE,COUNT
+2 if '$DATA(IDX)
QUIT 0
+3 SET (COUNT,SITE)=""
+4 FOR
SET SITE=$ORDER(@IDX@("SITE",SITE))
if SITE=""
QUIT
SET COUNT=COUNT+1
+5 SET COUNT=COUNT\2
+6 QUIT COUNT
+7 ;
SELECTE ;Allows the user to select a single event for display and editing.
+1 KILL DIR
+2 SET DIR("A")="Enter the number of the event to display"
+3 SET DIR(0)="N^1:"_$ORDER(@IDX@("EVENT",9999999),-1)_":0"
+4 DO ^DIR
KILL DIR
IF (Y=-1)!$DATA(DIRUT)
SET QUIT=1
QUIT
+5 DO EN^HLEMSE($GET(@IDX@("EVENT",Y)))
+6 SET VALMBCK="R"
+7 QUIT
