source: FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLEMSE.m@ 636

HLEMSE ;ALB/CJM -ListManager Screen for dsiplaying an Event;12 JUN 1997 10:00 am
 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
 ;
EN(EVENT) ;Entry point to viewing a single HL7 Monitor Event
 ;Input:  EVENT is the ien of an event
 ;Output:  none
 ;
 N IDX
 Q:'$G(EVENT)
 ;
 S IDX="^TMP(""HLEM"",$J,""EVENT"")"
 D WAIT^DICD
 D EN^VALM("HLEM DISPLAY ONE EVENT")
 Q
 ;
 ;
HDR ;Header code
 Q
 ;
INIT ;Init variables and list array
 Q:'$$GET^HLEME(EVENT,.EVENT)
 D DISPLAY
 D HDR
 S VALMBCK="R"
 Q
 ;
DISPLAY ;Build event screen
 D CLEAN^VALM10
 N ETYPE,I,STATION
 K @IDX,VALMHDR
 S VALMBG=1,(COUNT,VALMCNT)=0
 ;
 ;Build header
 ;D HDR
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Event ID:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("ID"),19)
 S ETYPE=$$GET^HLEMT(EVENT("TYPE"),.ETYPE)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Event Type:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,ETYPE("CODE"),19)
 S VALMCNT=$$SET^HLEMSU(VALMCNT,"Count:",40,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("COUNT"),52)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Descr:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,ETYPE("BRIEF"),8)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Site of Event:",1,"H")
 S STATION=$$STATION^HLEMSU(EVENT("SITE"))
 S:EVENT("SITE") VALMCNT=$$SET^HLEMSU(VALMCNT,$P(STATION,"^",1)_" #"_$P(STATION,"^",2),19)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"DT/TM of Event:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$E($$X(.01,EVENT("DT/TM")),1,18),19)
 S VALMCNT=$$SET^HLEMSU(VALMCNT,"DT/TM Reported:",40,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$E($$X(.17,EVENT("DT/TM CREATED")),1,18),57)
 S VALMCNT=$$INC^HLEMU(.VALMCNT)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Status Information:",1,"RH")
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Urgent:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.12,EVENT("URGENT")),19,$S(EVENT("URGENT"):"BH",1:""))
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Automated Action:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.05,EVENT("ACTION STATUS")),19)
 S VALMCNT=$$SET^HLEMSU(VALMCNT,"DT/TM:",45,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$E($$X(.09,EVENT("DT/TM ACTION")),1,18),52)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Review Status:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.06,EVENT("REVIEW STATUS")),19)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Reviewer:",1,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.08,EVENT("REVIEWER")),19)
 S VALMCNT=$$SET^HLEMSU(VALMCNT,"Date:",45,"H")
 S VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.07,EVENT("DT/TM REVIEWED")),52)
 I $L(EVENT("MSG ID")) D
 .S VALMCNT=$$INC^HLEMU(.VALMCNT)
 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"HL7 Message Information:",1,"RH")
 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Mssg ID:",1,"H")
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG ID"),19)
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,"Type:",40,"H")
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG TYPE")_"~"_EVENT("MSG EVENT"),54)
 .S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Sending App:",1,"H")
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("APPLICATION"),19)
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,"Logical Link:",40,"H")
 .S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG LINK"),54)
 S VALMCNT=$$INC^HLEMU(.VALMCNT)
 S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Notes:       ",1,"RH")
 S I=0 F  S I=$O(^HLEV(776.4,EVENT("IEN"),1,I)) Q:'I  S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$G(^HLEV(776.4,EVENT("IEN"),1,I,0)),1)
 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
 ;
X(FIELD,VALUE) ;
 ;changes a field value in file 774.4 to external form
 Q $$EXTERNAL^DILFD(776.4,FIELD,"F",VALUE)