HLEMSA.m

HLEMSA ;ALB/CJM -ListManager Screen for displaying Application-specific data stored with the event;12 JUN 1997 10:00 am

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

 ;

EN(EVENT) ;Entry point to viewing an event's application-specific data

 ;Input:  EVENT is the ien of an event

 ;Output:  none

 ;

 N IDX

 Q:'$G(EVENT)

 ;

 S IDX="^TMP(""HLEM APP DATA"",$J)"

 D WAIT^DICD

 D EN^VALM("HLEM DISPLAY APPLICATION DATA")

 Q

 ;

 ;

HDR ;Header code

 ;S VALMHDR(1)="#   EVENT       DT/TM           APPLICATION    MSG      REVIEW        CNT"

 Q

 ;

INIT ;Init variables and list array

 D BLD

 S VALMBCK="R"

 Q

 ;

BLD ;Build array of application data

 D CLEAN^VALM10

 N I

 K @IDX,VALMHDR

 S VALMBG=1,(COUNT,VALMCNT)=0

 ;

 ;Build header

 ;D HDR

 S I=0 F  S I=$O(^HLEV(776.4,EVENT,3,I)) Q:'I  D

 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$G(^HLEV(776.4,EVENT,3,I,0))_"  =",1,"H")

 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$P($G(^HLEV(776.4,EVENT,3,I,2)),"^"),5)

 Q

 ;

HELP ;Help code

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

 Q

 ;

EXIT ;Exit code

 D CLEAN^VALM10

 D CLEAR^VALM1

 K @IDX

 Q

 ;

EXPND ;Expand code

 Q