Last change
on this file since 1005 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
698 bytes
|
Line | |
---|
1 | RMPRHL7 ;HINES-CIOFO/HNC - HL7 formatting information;3/13/00
|
---|
2 | ;;3.0;PROSTHETICS;**45,54**;Feb 09, 1996
|
---|
3 | ;
|
---|
4 | ; HNC-10/13/00; Make change to Date/Time for HL7 update.
|
---|
5 | ; call $$HL7TFM^XLFDT(DATE)
|
---|
6 | ; and $$FMTHL7^XLFDT(DATE) per David Naber 10/00
|
---|
7 | ; patch 53 and OR*3*97
|
---|
8 | Q
|
---|
9 | MSH(X) ;Format MSH segment of HL-7 message.
|
---|
10 | ;FROM=RMPR PROSTHETICS - sending
|
---|
11 | N X
|
---|
12 | S X="MSH|^~\&|PROSTHETICS|"_$S(+$G(DUZ(2)):DUZ(2),1:$$SITE^VASITE())_"|||||ORM"
|
---|
13 | Q X
|
---|
14 | ;
|
---|
15 | ;
|
---|
16 | Q
|
---|
17 | HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
|
---|
18 | ;
|
---|
19 | N X
|
---|
20 | S X=$$FMTHL7^XLFDT(DATE)
|
---|
21 | Q X
|
---|
22 | ;
|
---|
23 | FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
|
---|
24 | ;
|
---|
25 | ;
|
---|
26 | N X
|
---|
27 | S X=$$HL7TFM^XLFDT(DATE)
|
---|
28 | Q X
|
---|
29 | ;
|
---|
30 | ;END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.