HLEMSH.m

HLEMSH ;ALB/CJM -ListManager Screen for displaying an Event;12 JUN 1997 10:00 am

 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995

 ;

EN(TYPE) ;Entry point to viewing of help for a type of event

 ;Input: TYPE is the ien of an HL7 MONITOR EVENT TYPE

 ;Output:  none

 ;

 Q:'$G(TYPE)

 ;

 D WAIT^DICD

 D EN^VALM("HLEM EVENT HELP")

 Q

 ;

INIT ;Init variables and list array

 S VALMAR="^HLEV(776.3,TYPE,3)"

 S VALMCNT=$P($G(@VALMAR@(0)),"^",3)

 I 'VALMCNT S VALMAR="VALMAR",@VALMAR@(1,0)="NO HELP AVAILABLE!",VALMCNT=1

 S VALMBG=1

 S VALMBCK="R"

 Q

 ;

 ;

HELP ;Help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ;Exit code

 D CLEAN^VALM10

 D CLEAR^VALM1

 ;

 Q

 ;

EXPND ;Expand code

 Q