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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEMSA 1146 printed Oct 16, 2024@17:58:17 Page 2
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
