HLEMSH ;ALB/CJM -ListManager Screen for displaying an Event;12 JUN 1997 10:00 am
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
;
EN(TYPE) ;Entry point to viewing of help for a type of event
;Input: TYPE is the ien of an HL7 MONITOR EVENT TYPE
;Output: none
;
Q:'$G(TYPE)
;
D WAIT^DICD
D EN^VALM("HLEM EVENT HELP")
Q
;
INIT ;Init variables and list array
S VALMAR="^HLEV(776.3,TYPE,3)"
S VALMCNT=$P($G(@VALMAR@(0)),"^",3)
I 'VALMCNT S VALMAR="VALMAR",@VALMAR@(1,0)="NO HELP AVAILABLE!",VALMCNT=1
S VALMBG=1
S VALMBCK="R"
Q
;
;
HELP ;Help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ;Exit code
D CLEAN^VALM10
D CLEAR^VALM1
;
Q
;
EXPND ;Expand code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEMSH 707 printed Dec 13, 2024@01:57:32 Page 2
HLEMSH ;ALB/CJM -ListManager Screen for displaying an Event;12 JUN 1997 10:00 am
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
+2 ;
EN(TYPE) ;Entry point to viewing of help for a type of event
+1 ;Input: TYPE is the ien of an HL7 MONITOR EVENT TYPE
+2 ;Output: none
+3 ;
+4 if '$GET(TYPE)
QUIT
+5 ;
+6 DO WAIT^DICD
+7 DO EN^VALM("HLEM EVENT HELP")
+8 QUIT
+9 ;
INIT ;Init variables and list array
+1 SET VALMAR="^HLEV(776.3,TYPE,3)"
+2 SET VALMCNT=$PIECE($GET(@VALMAR@(0)),"^",3)
+3 IF 'VALMCNT
SET VALMAR="VALMAR"
SET @VALMAR@(1,0)="NO HELP AVAILABLE!"
SET VALMCNT=1
+4 SET VALMBG=1
+5 SET VALMBCK="R"
+6 QUIT
+7 ;
+8 ;
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 ;
+4 QUIT
+5 ;
EXPND ;Expand code
+1 QUIT
