source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMSH.m@ 1111

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

initial load of WorldVistAEHR

File size: 673 bytes
RevLine 
[613]1HLEMSH ;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 ;
4EN(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 ;
14INIT ;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 ;
23HELP ;Help code
24 S X="?" D DISP^XQORM1 W !!
25 Q
26 ;
27EXIT ;Exit code
28 D CLEAN^VALM10
29 D CLEAR^VALM1
30 ;
31 Q
32 ;
33EXPND ;Expand code
34 Q
Note: See TracBrowser for help on using the repository browser.