source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCMSG5.m@ 1796

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1VAFCMSG5 ;ALB/JRP - MESSAGE BUILDER UTILITIES;12-SEP-1996
2 ;;5.3;Registration;**91**;Jun 06, 1996
3 ;
4GETSRVR(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 ;
28NOW() ;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.