- 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
- 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