- 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 Feb 19, 2025@00:28:06 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 %
