HLEMSE1.m

HLEMSE1 ;ALB/CJM,ALB/BRM - Actions for an individual event; 10/23/00 9:49am ; 2/27/01 1:25pm

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 ;

EDIT(EVENT) ;

 ;Allows the user to edit the notes and review status of an event

 I '$G(EVENT) S VALMBCK="" Q

 K DIE,DR,DA

 S DIE=776.4

 S DA=EVENT

 S DR="1;.06"

 D ^DIE

 K DIE,DR

 D INIT^HLEMSE

 Q

HELP(TYPE) ;

 ;Displays the full description of the event type

 D EN^HLEMSH($G(TYPE))

 Q

 ;

APPDATA(EVENT) ;

 ;Displays the application-specific data that was stored with the event

 D EN^HLEMSA($G(EVENT))

 Q