VAFCMSG5 ;ALB/JRP - MESSAGE BUILDER UTILITIES;12-SEP-1996
;;5.3;Registration;**91**;Jun 06, 1996
;
GETSRVR(EVNTTYPE) ;Get pointer to HL7 Server Protocol for given event type
;
;Input : EVNTTYPE - Event type to build list for (Defaults to A08)
; Currently supported events:
; A04, A08, A28
;Output : SRVRPTR - Pointer to HL7 Server Protocol (value for HLEID)
;Notes : Zero (0) will be returned if the event does not have an
; associated HL7 Server Protocol or the HL7 Server Protocol
; can not be found in the PROTOCOL file (#101)
;
;Check input
S EVNTTYPE=$G(EVNTTYPE)
S:(EVNTTYPE="") EVNTTYPE="A08"
;Declare variables
N SRVRNAME,X,OK
;Check for supported event
S OK=0
F X="A04","A08","A28" I X=EVNTTYPE S OK=1 Q
Q:('OK) 0
;Determine name of HL7 Server Protocol
S SRVRNAME="VAFC ADT-"_EVNTTYPE_" SERVER"
;Return pointer to HL7 Server Prototol
Q +$O(^ORD(101,"B",SRVRNAME,0))
;
NOW() ;Function call that returns the current date/time in FileMan format
;
;Input : None
;Output : Current date/time in FileMan format
;
;Declare variables
N %,%H,%I,X,Y
;Get current date/time
D NOW^%DTC
;Return current date/time
Q %
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFCMSG5 1244 printed Oct 16, 2024@19:02:36 Page 2
VAFCMSG5 ;ALB/JRP - MESSAGE BUILDER UTILITIES;12-SEP-1996
+1 ;;5.3;Registration;**91**;Jun 06, 1996
+2 ;
GETSRVR(EVNTTYPE) ;Get pointer to HL7 Server Protocol for given event type
+1 ;
+2 ;Input : EVNTTYPE - Event type to build list for (Defaults to A08)
+3 ; Currently supported events:
+4 ; A04, A08, A28
+5 ;Output : SRVRPTR - Pointer to HL7 Server Protocol (value for HLEID)
+6 ;Notes : Zero (0) will be returned if the event does not have an
+7 ; associated HL7 Server Protocol or the HL7 Server Protocol
+8 ; can not be found in the PROTOCOL file (#101)
+9 ;
+10 ;Check input
+11 SET EVNTTYPE=$GET(EVNTTYPE)
+12 if (EVNTTYPE="")
SET EVNTTYPE="A08"
+13 ;Declare variables
+14 NEW SRVRNAME,X,OK
+15 ;Check for supported event
+16 SET OK=0
+17 FOR X="A04","A08","A28"
IF X=EVNTTYPE
SET OK=1
QUIT
+18 if ('OK)
QUIT 0
+19 ;Determine name of HL7 Server Protocol
+20 SET SRVRNAME="VAFC ADT-"_EVNTTYPE_" SERVER"
+21 ;Return pointer to HL7 Server Prototol
+22 QUIT +$ORDER(^ORD(101,"B",SRVRNAME,0))
+23 ;
NOW() ;Function call that returns the current date/time in FileMan format
+1 ;
+2 ;Input : None
+3 ;Output : Current date/time in FileMan format
+4 ;
+5 ;Declare variables
+6 NEW %,%H,%I,X,Y
+7 ;Get current date/time
+8 DO NOW^%DTC
+9 ;Return current date/time
+10 QUIT %
