|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.1 KB
|
| Rev | Line | |
|---|
| [613] | 1 | HLEMSA ;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 | ;
|
|---|
| 4 | EN(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 | ;
|
|---|
| 17 | HDR ;Header code
|
|---|
| 18 | ;S VALMHDR(1)="# EVENT DT/TM APPLICATION MSG REVIEW CNT"
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | INIT ;Init variables and list array
|
|---|
| 22 | D BLD
|
|---|
| 23 | S VALMBCK="R"
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | BLD ;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 | ;
|
|---|
| 39 | HELP ;Help code
|
|---|
| 40 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | EXIT ;Exit code
|
|---|
| 44 | D CLEAN^VALM10
|
|---|
| 45 | D CLEAR^VALM1
|
|---|
| 46 | K @IDX
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | EXPND ;Expand code
|
|---|
| 50 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
