source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMSE1.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 547 bytes
Line 
1HLEMSE1 ;ALB/CJM,ALB/BRM - Actions for an individual event; 10/23/00 9:49am ; 2/27/01 1:25pm
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
3 ;
4EDIT(EVENT) ;
5 ;Allows the user to edit the notes and review status of an event
6 I '$G(EVENT) S VALMBCK="" Q
7 K DIE,DR,DA
8 S DIE=776.4
9 S DA=EVENT
10 S DR="1;.06"
11 D ^DIE
12 K DIE,DR
13 D INIT^HLEMSE
14 Q
15HELP(TYPE) ;
16 ;Displays the full description of the event type
17 D EN^HLEMSH($G(TYPE))
18 Q
19 ;
20APPDATA(EVENT) ;
21 ;Displays the application-specific data that was stored with the event
22 D EN^HLEMSA($G(EVENT))
23 Q
Note: See TracBrowser for help on using the repository browser.