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

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