- 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)
- HLEMSE ;ALB/CJM -ListManager Screen for dsiplaying an Event;12 JUN 1997 10:00 am
- +1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
- +2 ;
- EN(EVENT) ;Entry point to viewing a single HL7 Monitor Event
- +1 ;Input: EVENT is the ien of an event
- +2 ;Output: none
- +3 ;
- +4 NEW IDX
- +5 IF '$GET(EVENT)
- QUIT
- +6 ;
- +7 SET IDX="^TMP(""HLEM"",$J,""EVENT"")"
- +8 DO WAIT^DICD
- +9 DO EN^VALM("HLEM DISPLAY ONE EVENT")
- +10 QUIT
- +11 ;
- +12 ;
- HDR ;Header code
- +1 QUIT
- +2 ;
- INIT ;Init variables and list array
- +1 IF '$$GET^HLEME(EVENT,.EVENT)
- QUIT
- +2 DO DISPLAY
- +3 DO HDR
- +4 SET VALMBCK="R"
- +5 QUIT
- +6 ;
- DISPLAY ;Build event screen
- +1 DO CLEAN^VALM10
- +2 NEW ETYPE,I,STATION
- +3 KILL @IDX,VALMHDR
- +4 SET VALMBG=1
- SET (COUNT,VALMCNT)=0
- +5 ;
- +6 ;Build header
- +7 ;D HDR
- +8 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Event ID:",1,"H")
- +9 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("ID"),19)
- +10 SET ETYPE=$$GET^HLEMT(EVENT("TYPE"),.ETYPE)
- +11 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Event Type:",1,"H")
- +12 SET VALMCNT=$$SET^HLEMSU(VALMCNT,ETYPE("CODE"),19)
- +13 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"Count:",40,"H")
- +14 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("COUNT"),52)
- +15 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Descr:",1,"H")
- +16 SET VALMCNT=$$SET^HLEMSU(VALMCNT,ETYPE("BRIEF"),8)
- +17 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Site of Event:",1,"H")
- +18 SET STATION=$$STATION^HLEMSU(EVENT("SITE"))
- +19 IF EVENT("SITE")
- SET VALMCNT=$$SET^HLEMSU(VALMCNT,$PIECE(STATION,"^",1)_" #"_$PIECE(STATION,"^",2),19)
- +20 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"DT/TM of Event:",1,"H")
- +21 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$EXTRACT($$X(.01,EVENT("DT/TM")),1,18),19)
- +22 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"DT/TM Reported:",40,"H")
- +23 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$EXTRACT($$X(.17,EVENT("DT/TM CREATED")),1,18),57)
- +24 SET VALMCNT=$$INC^HLEMU(.VALMCNT)
- +25 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Status Information:",1,"RH")
- +26 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Urgent:",1,"H")
- +27 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.12,EVENT("URGENT")),19,$SELECT(EVENT("URGENT"):"BH",1:""))
- +28 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Automated Action:",1,"H")
- +29 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.05,EVENT("ACTION STATUS")),19)
- +30 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"DT/TM:",45,"H")
- +31 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$EXTRACT($$X(.09,EVENT("DT/TM ACTION")),1,18),52)
- +32 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Review Status:",1,"H")
- +33 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.06,EVENT("REVIEW STATUS")),19)
- +34 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Reviewer:",1,"H")
- +35 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.08,EVENT("REVIEWER")),19)
- +36 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"Date:",45,"H")
- +37 SET VALMCNT=$$SET^HLEMSU(VALMCNT,$$X(.07,EVENT("DT/TM REVIEWED")),52)
- +38 IF $LENGTH(EVENT("MSG ID"))
- Begin DoDot:1
- +39 SET VALMCNT=$$INC^HLEMU(.VALMCNT)
- +40 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"HL7 Message Information:",1,"RH")
- +41 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Mssg ID:",1,"H")
- +42 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG ID"),19)
- +43 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"Type:",40,"H")
- +44 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG TYPE")_"~"_EVENT("MSG EVENT"),54)
- +45 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Sending App:",1,"H")
- +46 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("APPLICATION"),19)
- +47 SET VALMCNT=$$SET^HLEMSU(VALMCNT,"Logical Link:",40,"H")
- +48 SET VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG LINK"),54)
- End DoDot:1
- +49 SET VALMCNT=$$INC^HLEMU(.VALMCNT)
- +50 SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),"Notes: ",1,"RH")
- +51 SET I=0
- FOR
- SET I=$ORDER(^HLEV(776.4,EVENT("IEN"),1,I))
- IF 'I
- QUIT
- SET VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$GET(^HLEV(776.4,EVENT("IEN"),1,I,0)),1)
- +52 QUIT
- +53 ;
- 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 KILL @IDX
- +4 QUIT
- +5 ;
- EXPND ;Expand code
- +1 QUIT
- +2 ;
- X(FIELD,VALUE) ;
- +1 ;changes a field value in file 774.4 to external form
- +2 QUIT $$EXTERNAL^DILFD(776.4,FIELD,"F",VALUE)
