24 lines
547 B
Mathematica
24 lines
547 B
Mathematica
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
|