51 lines
1.1 KiB
Mathematica
51 lines
1.1 KiB
Mathematica
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
|