|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.2 KB
|
| Rev | Line | |
|---|
| [613] | 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.
