Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.2 KB
|
Line | |
---|
1 | VAFCMSG5 ;ALB/JRP - MESSAGE BUILDER UTILITIES;12-SEP-1996
|
---|
2 | ;;5.3;Registration;**91**;Jun 06, 1996
|
---|
3 | ;
|
---|
4 | GETSRVR(EVNTTYPE) ;Get pointer to HL7 Server Protocol for given event type
|
---|
5 | ;
|
---|
6 | ;Input : EVNTTYPE - Event type to build list for (Defaults to A08)
|
---|
7 | ; Currently supported events:
|
---|
8 | ; A04, A08, A28
|
---|
9 | ;Output : SRVRPTR - Pointer to HL7 Server Protocol (value for HLEID)
|
---|
10 | ;Notes : Zero (0) will be returned if the event does not have an
|
---|
11 | ; associated HL7 Server Protocol or the HL7 Server Protocol
|
---|
12 | ; can not be found in the PROTOCOL file (#101)
|
---|
13 | ;
|
---|
14 | ;Check input
|
---|
15 | S EVNTTYPE=$G(EVNTTYPE)
|
---|
16 | S:(EVNTTYPE="") EVNTTYPE="A08"
|
---|
17 | ;Declare variables
|
---|
18 | N SRVRNAME,X,OK
|
---|
19 | ;Check for supported event
|
---|
20 | S OK=0
|
---|
21 | F X="A04","A08","A28" I X=EVNTTYPE S OK=1 Q
|
---|
22 | Q:('OK) 0
|
---|
23 | ;Determine name of HL7 Server Protocol
|
---|
24 | S SRVRNAME="VAFC ADT-"_EVNTTYPE_" SERVER"
|
---|
25 | ;Return pointer to HL7 Server Prototol
|
---|
26 | Q +$O(^ORD(101,"B",SRVRNAME,0))
|
---|
27 | ;
|
---|
28 | NOW() ;Function call that returns the current date/time in FileMan format
|
---|
29 | ;
|
---|
30 | ;Input : None
|
---|
31 | ;Output : Current date/time in FileMan format
|
---|
32 | ;
|
---|
33 | ;Declare variables
|
---|
34 | N %,%H,%I,X,Y
|
---|
35 | ;Get current date/time
|
---|
36 | D NOW^%DTC
|
---|
37 | ;Return current date/time
|
---|
38 | Q %
|
---|
Note:
See
TracBrowser
for help on using the repository browser.