Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLEMSL

HLEMSL.m

Go to the documentation of this file.
  1. HLEMSL ;ALB/CJM -List Manager Screen for Event List;12 JUN 1997 10:00 am
  1. ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
  1. ;
  1. EN ;Entry point to viewing the HL7 Monitor Event Log
  1. ;
  1. N IDX,SITE,PROFILE
  1. S PROFILE=$$PROFILE
  1. Q:'PROFILE
  1. I PROFILE S PROFILE=$$GET^HLEMP(PROFILE,.PROFILE)
  1. ;
  1. S IDX="^TMP(""HLEM"",$J,""EVENTS"")"
  1. D WAIT^DICD
  1. D EN^VALM("HLEM DISPLAY EVENTS")
  1. Q
  1. ;
  1. PROFILE() ;returns the profile to use in building the display.
  1. ; 1)First checks if there is a default profile, if so,returns it
  1. ; 2)If no default profile, but the user has exactly 1 profile, ruturs that
  1. ; 3) If multiple profiles, asks the user to select one.
  1. ; 4) If the user has no profile, he is asked to create one.
  1. ;Input: DUZ must be defined
  1. ;Output: function returns profile's ien, or "" if not successful
  1. ;
  1. N PROFILE
  1. ;get the user's profile
  1. I '$G(DUZ) W !,"** Your DUZ is not defined, please report this to your IRM!" Q ""
  1. S PROFILE=$$FDEFAULT^HLEMP(DUZ)
  1. I 'PROFILE D
  1. .;there is no default profile, check for others
  1. .S PROFILE=$$SELECT^HLEMP1($G(DUZ),10)
  1. I 'PROFILE,$$ASKYESNO^HLEMU("You need a profile before viewing the HL7 Monitor Event Log,would you like to create a new profile now","YES") D
  1. .N NAME,I
  1. .F I=1:1:20 I '$D(^HLEV(776.5,"C",DUZ,"NEW PROFILE"_I)) S NAME="NEW PROFILE"_I Q
  1. .S:$D(NAME) PROFILE=$$CREATE^HLEMP(DUZ,NAME)
  1. .I PROFILE,'$$EDIT^HLEMP(PROFILE) D
  1. ..I '$$DELETE^HLEMP(PROFILE) W !,"Incomplete profile couln't be deleted!"
  1. ..S PROFILE=""
  1. Q PROFILE
  1. ;
  1. HDR ;Header code
  1. S VALMHDR(1)="# TYPE DT/TM APP MSG REVIEW CNT"
  1. Q
  1. ;
  1. INIT ;Init variables and list array
  1. D BLD
  1. S VALMSG="USER PROFILE: "_PROFILE("NAME")
  1. D HDR
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. BLD ;Build event log screen
  1. D CLEAN^VALM10
  1. N SITE,TIME,TYPE,STATUS,COUNT
  1. K @IDX,VALMHDR
  1. S VALMBG=1,(COUNT,VALMCNT)=0
  1. ;
  1. ;Build header
  1. D HDR
  1. ;
  1. ;Build list area
  1. ;what sites to include? Put in alphabetical order
  1. S SITE="" F S SITE=$O(^HLEV(776.4,"D",SITE)) Q:'SITE D
  1. .I 'PROFILE("ALL SITES"),'$D(PROFILE("SITES",SITE)) Q
  1. .N STATION
  1. .S STATION=$$STATION^HLEMSU(SITE) S:$L($P(STATION,"^")) SITE($P(STATION,"^"))=SITE
  1. ;
  1. S SITE=""
  1. F S SITE=$O(SITE(SITE)) Q:'$L(SITE) D
  1. .N FIRST
  1. .S FIRST=1
  1. .S TYPE=0
  1. .F S TYPE=$O(^HLEV(776.4,"D",SITE(SITE),TYPE)) Q:'TYPE D:(PROFILE("ALL TYPES"))!($D(PROFILE("TYPES",TYPE)))
  1. ..;maintain an index for the event type
  1. ..S @IDX@("SITE",SITE(SITE),"TYPE",TYPE)=VALMCNT
  1. ..S TIME=PROFILE("START")
  1. ..F S TIME=$O(^HLEV(776.4,"D",SITE(SITE),TYPE,TIME)) Q:'TIME D
  1. ...S STATUS=""
  1. ...S STATUS=$O(^HLEV(776.4,"D",SITE(SITE),TYPE,TIME,STATUS)) Q:'$L(STATUS) D
  1. ....N EVENTIEN
  1. ....S EVENTIEN=0
  1. ....F S EVENTIEN=$O(^HLEV(776.4,"D",SITE(SITE),TYPE,TIME,STATUS,EVENTIEN)) Q:'EVENTIEN D
  1. .....N EVENT
  1. .....Q:'$$GET^HLEME(EVENTIEN,.EVENT)
  1. .....I PROFILE("URGENT"),'EVENT("URGENT") Q
  1. .....I 'PROFILE("ALL APPS") Q:'$L(EVENT("APPLICATION")) Q:'$D(PROFILE(EVENT("APPLICATION")))
  1. .....;
  1. .....;if this is the first event for this site,display a header
  1. .....I FIRST D S FIRST=0
  1. ......;S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),$$CENTER^HLEMSU("SITE: "_SITE_" STATION #: "_$P($$STATION^HLEMSU(SITE(SITE)),"^",2)),1,"RUH")
  1. ......I $$SET^HLEMSU(VALMCNT,$$LJ^XLFSTR($E($G(@IDX@(VALMCNT,0)),4,80),77),4,"U")
  1. ......S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),SITE_" STATION #: "_$P($$STATION^HLEMSU(SITE(SITE)),"^",2),1,"H")
  1. ......;also, maintain an index for searching
  1. ......S @IDX@("SITE",SITE(SITE))=VALMCNT
  1. ......S @IDX@("SITE",SITE)=VALMCNT
  1. .....;
  1. .....;display the event
  1. .....D DISPLAY(.EVENT,.VALMCNT,.COUNT)
  1. Q
  1. ;
  1. DISPLAY(EVENT,VALMCNT,COUNT) ;
  1. ;Adds one line for an event to the list, increments the counts of lines and events, and maintains the search index for events on the list
  1. ;
  1. N CODE,TIME
  1. S @IDX@("EVENT",$$INC^HLEMU(.COUNT))=EVENT("IEN")
  1. S VALMCNT=$$SET^HLEMSU($$INC^HLEMU(.VALMCNT),COUNT,1,"R")
  1. S VALMCNT=$$SET^HLEMSU(VALMCNT,$$CODE^HLEMT(EVENT("TYPE")),6)
  1. S VALMCNT=$$SET^HLEMSU(VALMCNT,$$FMTE^XLFDT($E(EVENT("DT/TM"),1,12),2),17)
  1. S VALMCNT=$$SET^HLEMSU(VALMCNT,$E(EVENT("APPLICATION"),1,15),32)
  1. I $L(EVENT("MSG TYPE")) S VALMCNT=$$SET^HLEMSU(VALMCNT,EVENT("MSG TYPE")_"~"_EVENT("MSG EVENT"),48)
  1. S VALMCNT=$$SET^HLEMSU(VALMCNT,$E($$EXTERNAL^DILFD(776.4,.06,"F",EVENT("REVIEW STATUS")),1,15),57)
  1. I EVENT("COUNT")>1 S VALNCNT=$$SET^HLEMSU(VALMCNT,EVENT("COUNT"),72)
  1. I EVENT("URGENT") S VALMCNT=$$SET^HLEMSU(VALMCNT,"*",79,"BRH")
  1. Q
  1. ;
  1. HELP ;Help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ;Exit code
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. K @IDX
  1. Q
  1. ;
  1. EXPND ;Expand code
  1. Q