|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
547 bytes
|
| Line | |
|---|
| 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.
