source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEMT.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1HLEMT ;ALB/CJM-HL7 - APIs for Monitor Event Types ;02/04/2004
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
3 ;
4FIND(CODE,PACKAGE) ;
5 ;Description: Finds an event type.
6 ;Input:
7 ; CODE - the string value of the code
8 ; PACKAGE - the name (.01 field) of a package in the Package file representing the application that dessigned/created the code.
9 ;Output:
10 ; Function returns 0 on failue, ien of event type if successful
11 ;
12 Q:('$L($G(CODE))) 0
13 Q:'$L($G(PACKAGE)) 0
14 Q $O(^HLEV(776.3,"C",CODE,PACKAGE,0))
15 ;
16GET(IEN,ETYPE) ;
17 ;Description - given the ien, it returns an array containing the event type
18 ;Input:
19 ; IEN - ien of event type
20 ; ETYPE - pass by reference, the return array
21 ;Output:
22 ; function returns 0 on failure, 1 on success
23 ; ETYPE(
24 ; "ACTION" - <tag>^<routine> - the routine that should be executed when events of this type occur
25 ; "BRIEF" - brief description
26 ; "CODE" - the event type code
27 ; "CATEGORY" - category of event type, set of codes
28 ; "CONGLOMERATE" - 1=events of this type are conglomerated, 0 is no
29 ; "CONGLOMERATE","HOURS" - #of hours to conglomerate
30 ; "DAYS" - # of days to keep events of this type before purge
31 ; "IEN" -the ien
32 ; "PACKAGE" - ien of the package that assigned the code
33 ; "REVIEW" - 0=not required, 1=required, 2=only if action fails
34 ; "SITES",<IEN of DOMAIN>=<screen if defined> - list of domains to send server messages
35 ; "URGENT" - 0=NO,1=YES,2=IF ACTIONFAILS
36 ;
37 Q:'$G(IEN) 0
38 N NODE,I,DOMAIN
39 K ETYPE
40 S ETYPE("IEN")=IEN
41 S NODE=$G(^HLEV(776.3,IEN,0))
42 Q:'$L(NODE) 0
43 S ETYPE("CODE")=$P(NODE,"^")
44 S ETYPE("PACKAGE")=$P(NODE,"^",2)
45 S ETYPE("CATEGORY")=$P(NODE,"^",3)
46 S ETYPE("URGENT")=$P(NODE,"^",4)
47 S ETYPE("CONGLOMERATE")=$P(NODE,"^",5)
48 S ETYPE("CONGLOMERATE","HOURS")=$P(NODE,"^",6)
49 S ETYPE("REVIEW")=$P(NODE,"^",7)
50 S ETYPE("DAYS")=$P(NODE,"^",9)
51 S ETYPE("ACTIVE")=$P(NODE,"^",10)
52 S ETYPE("ACTION")=$E($G(^HLEV(776.3,IEN,1)),1,20)
53 S I=0 F S I=$O(^HLEV(776.3,IEN,2,I)) Q:'I S DOMAIN=+$G(^HLEV(776.3,IEN,2,I,0)) S:DOMAIN ETYPE("DOMAIN",DOMAIN)=$G(^HLEV(776.3,IEN,2,I,1))
54 S ETYPE("BRIEF")=$P($G(^HLEV(776.3,IEN,4)),"^")
55 Q 1
56 ;
57CODE(EVENT) ;
58 ;Given the event type ien, returns the code
59 Q:'$G(EVENT) ""
60 Q $P($G(^HLEV(776.3,EVENT,0)),"^")
61BRIEF(EVENT) ;
62 ;Given the event type ien, returns the brief desciption
63 Q:'$G(EVENT) ""
64 Q $P($G(^HLEV(776.3,EVENT,4)),"^")
65 ;
66CONG(TYPE) ;
67 ;Input:
68 ; TYPE - ien of event type
69 ;Output:
70 ; function returns 0 if this is NOT a conglomerated event, 1 if it is
71 ;
72 Q $P($G(^HLEV(776.3,TYPE,0)),"^",5)
73HOURS(TYPE) ;
74 ;Description - returns #of hours overwhich to congregate events of this type
75 ;Input:
76 ; TYPE - ien of event type
77 ;Output:
78 ; function returns # of hours, 0 if not to be conglomerated
79 ;
80 Q:'$$CONG(TYPE) 0
81 Q $P($G(^HLEV(776.3,TYPE,0)),"^",6)
Note: See TracBrowser for help on using the repository browser.