source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMSA.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1HLEMSA ;ALB/CJM -ListManager Screen for displaying Application-specific data stored with the event;12 JUN 1997 10:00 am
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
3 ;
4EN(EVENT) ;Entry point to viewing an event's application-specific data
5 ;Input: EVENT is the ien of an event
6 ;Output: none
7 ;
8 N IDX
9 Q:'$G(EVENT)
10 ;
11 S IDX="^TMP(""HLEM APP DATA"",$J)"
12 D WAIT^DICD
13 D EN^VALM("HLEM DISPLAY APPLICATION DATA")
14 Q
15 ;
16 ;
17HDR ;Header code
18 ;S VALMHDR(1)="# EVENT DT/TM APPLICATION MSG REVIEW CNT"
19 Q
20 ;
21INIT ;Init variables and list array
22 D BLD
23 S VALMBCK="R"
24 Q
25 ;
26BLD ;Build array of application data
27 D CLEAN^VALM10
28 N I
29 K @IDX,VALMHDR
30 S VALMBG=1,(COUNT,VALMCNT)=0
31 ;
32 ;Build header
33 ;D HDR
34 S I=0 F S I=$O(^HLEV(776.4,EVENT,3,I)) Q:'I D
35 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$G(^HLEV(776.4,EVENT,3,I,0))_" =",1,"H")
36 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$P($G(^HLEV(776.4,EVENT,3,I,2)),"^"),5)
37 Q
38 ;
39HELP ;Help code
40 S X="?" D DISP^XQORM1 W !!
41 Q
42 ;
43EXIT ;Exit code
44 D CLEAN^VALM10
45 D CLEAR^VALM1
46 K @IDX
47 Q
48 ;
49EXPND ;Expand code
50 Q
Note: See TracBrowser for help on using the repository browser.