source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRHL7.m@ 1437

Last change on this file since 1437 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 698 bytes
Line 
1RMPRHL7 ;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
9MSH(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
17HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
18 ;
19 N X
20 S X=$$FMTHL7^XLFDT(DATE)
21 Q X
22 ;
23FMDATE(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.