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

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

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

 +2       ;

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

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

 +2       ;Output:  none

 +3       ;

 +4        IF '$GET(TYPE)

               QUIT 

 +5       ;

 +6        DO WAIT^DICD

 +7        DO EN^VALM("HLEM EVENT HELP")

 +8        QUIT 

 +9       ;

INIT      ;Init variables and list array

 +1        SET VALMAR="^HLEV(776.3,TYPE,3)"

 +2        SET VALMCNT=$PIECE($GET(@VALMAR@(0)),"^",3)

 +3        IF 'VALMCNT

               SET VALMAR="VALMAR"

               SET @VALMAR@(1,0)="NO HELP AVAILABLE!"

               SET VALMCNT=1

 +4        SET VALMBG=1

 +5        SET VALMBCK="R"

 +6        QUIT 

 +7       ;

 +8       ;

HELP      ;Help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ;Exit code

 +1        DO CLEAN^VALM10

 +2        DO CLEAR^VALM1

 +3       ;

 +4        QUIT 

 +5       ;

EXPND     ;Expand code

 +1        QUIT