|
Last change
on this file since 619 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.
