Last change
on this file since 1693 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
698 bytes
|
Rev | Line | |
---|
[628] | 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.