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

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

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

 +2       ;

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

 +1       ;Input:  EVENT is the ien of an event

 +2       ;Output:  none

 +3       ;

 +4        NEW IDX

 +5        IF '$GET(EVENT)

               QUIT 

 +6       ;

 +7        SET IDX="^TMP(""HLEM APP DATA"",$J)"

 +8        DO WAIT^DICD

 +9        DO EN^VALM("HLEM DISPLAY APPLICATION DATA")

 +10       QUIT 

 +11      ;

 +12      ;

HDR       ;Header code

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

 +2        QUIT 

 +3       ;

INIT      ;Init variables and list array

 +1        DO BLD

 +2        SET VALMBCK="R"

 +3        QUIT 

 +4       ;

BLD       ;Build array of application data

 +1        DO CLEAN^VALM10

 +2        NEW I

 +3        KILL @IDX,VALMHDR

 +4        SET VALMBG=1

           SET (COUNT,VALMCNT)=0

 +5       ;

 +6       ;Build header

 +7       ;D HDR

 +8        SET I=0

           FOR 

               SET I=$ORDER(^HLEV(776.4,EVENT,3,I))

               IF 'I

                   QUIT 

               Begin DoDot:1

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

 +10               SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$PIECE($GET(^HLEV(776.4,EVENT,3,I,2)),"^"),5)

               End DoDot:1

 +11       QUIT 

 +12      ;

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        KILL @IDX

 +4        QUIT 

 +5       ;

EXPND     ;Expand code

 +1        QUIT