Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLEMSL1

HLEMSL1.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. SELECT ;Allows the user to change profiles, then rebuilds the Events Log
  1. N PROF
  1. D FULL^VALM1
  1. S PROF=$$SELECT^HLEMP1($G(DUZ),20)
  1. I PROF,PROF'=$G(PROFILE) D
  1. .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
  1. .D INIT^HLEMSL
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. EDIT ;Allows the user to select a profile & edit it, then rebuilds the Events Log
  1. N PROF
  1. D FULL^VALM1
  1. S PROF=$$SELECT^HLEMP1($G(DUZ),20)
  1. I PROF D
  1. .I $$EDIT^HLEMP(PROF)
  1. .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
  1. .D INIT^HLEMSL
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. NEW ;Allows the user to create a new profile, then rebuilds the Events Log
  1. N PROF,NAME,I
  1. D FULL^VALM1
  1. F I=1:1:20 I '$D(^HLEV(776.5,"C",DUZ,"NEW PROFILE"_I)) S NAME="NEW PROFILE"_I Q
  1. S:$D(NAME) PROF=$$CREATE^HLEMP(DUZ,NAME)
  1. I PROF,'$$EDIT^HLEMP(PROF) D
  1. .I '$$DELETE^HLEMP(PROFILE) W !,"Incomplete profile couln't be deleted!"
  1. .S PROFILE=""
  1. I PROF,PROF'=$G(PROFILE) D
  1. .S PROFILE=$$GET^HLEMP(PROF,.PROFILE)
  1. .D INIT^HLEMSL
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. GOSITE ;Allows the user to select a site and jump the display to it.
  1. N SITE,START
  1. S START=0
  1. D FULL^VALM1
  1. I $$PROMPT^HLEMU(776.4,.03,"",.SITE,1) D
  1. .S START=$G(@IDX@("SITE",SITE)) Q:START
  1. .S SITE=$P($G(^DIC(4,SITE,0)),"^",1)
  1. .Q:'$L(SITE)
  1. .S START=$G(@IDX@("SITE",SITE)) Q:START
  1. .S SITE=$O(@IDX@("SITE",SITE),-1)
  1. .I $L(SITE) S START=$G(@IDX@("SITE",SITE))
  1. I START S VALMBG=START
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. CNTSITES() ;
  1. N SITE,COUNT
  1. Q:'$D(IDX) 0
  1. S (COUNT,SITE)=""
  1. F S SITE=$O(@IDX@("SITE",SITE)) Q:SITE="" S COUNT=COUNT+1
  1. S COUNT=COUNT\2
  1. Q COUNT
  1. ;
  1. SELECTE ;Allows the user to select a single event for display and editing.
  1. K DIR
  1. S DIR("A")="Enter the number of the event to display"
  1. S DIR(0)="N^1:"_$O(@IDX@("EVENT",9999999),-1)_":0"
  1. D ^DIR K DIR I (Y=-1)!$D(DIRUT) S QUIT=1 Q
  1. D EN^HLEMSE($G(@IDX@("EVENT",Y)))
  1. S VALMBCK="R"
  1. Q