Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
547 bytes
|
Rev | Line | |
---|
[613] | 1 | HLEMSE1 ;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 | ;
|
---|
| 4 | EDIT(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
|
---|
| 15 | HELP(TYPE) ;
|
---|
| 16 | ;Displays the full description of the event type
|
---|
| 17 | D EN^HLEMSH($G(TYPE))
|
---|
| 18 | Q
|
---|
| 19 | ;
|
---|
| 20 | APPDATA(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.