|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
673 bytes
|
| Line | |
|---|
| 1 | HLEMSH ;ALB/CJM -ListManager Screen for displaying an Event;12 JUN 1997 10:00 am
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
|
|---|
| 3 | ;
|
|---|
| 4 | EN(TYPE) ;Entry point to viewing of help for a type of event
|
|---|
| 5 | ;Input: TYPE is the ien of an HL7 MONITOR EVENT TYPE
|
|---|
| 6 | ;Output: none
|
|---|
| 7 | ;
|
|---|
| 8 | Q:'$G(TYPE)
|
|---|
| 9 | ;
|
|---|
| 10 | D WAIT^DICD
|
|---|
| 11 | D EN^VALM("HLEM EVENT HELP")
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ;Init variables and list array
|
|---|
| 15 | S VALMAR="^HLEV(776.3,TYPE,3)"
|
|---|
| 16 | S VALMCNT=$P($G(@VALMAR@(0)),"^",3)
|
|---|
| 17 | I 'VALMCNT S VALMAR="VALMAR",@VALMAR@(1,0)="NO HELP AVAILABLE!",VALMCNT=1
|
|---|
| 18 | S VALMBG=1
|
|---|
| 19 | S VALMBCK="R"
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | ;
|
|---|
| 23 | HELP ;Help code
|
|---|
| 24 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | EXIT ;Exit code
|
|---|
| 28 | D CLEAN^VALM10
|
|---|
| 29 | D CLEAR^VALM1
|
|---|
| 30 | ;
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | EXPND ;Expand code
|
|---|
| 34 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
