RMPRHL7 ;HINES-CIOFO/HNC - HL7 formatting information;3/13/00
;;3.0;PROSTHETICS;**45,54**;Feb 09, 1996
;
; HNC-10/13/00; Make change to Date/Time for HL7 update.
; call $$HL7TFM^XLFDT(DATE)
; and $$FMTHL7^XLFDT(DATE) per David Naber 10/00
; patch 53 and OR*3*97
Q
MSH(X) ;Format MSH segment of HL-7 message.
;FROM=RMPR PROSTHETICS - sending
N X
S X="MSH|^~\&|PROSTHETICS|"_$S(+$G(DUZ(2)):DUZ(2),1:$$SITE^VASITE())_"|||||ORM"
Q X
;
;
Q
HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
;
N X
S X=$$FMTHL7^XLFDT(DATE)
Q X
;
FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
;
;
N X
S X=$$HL7TFM^XLFDT(DATE)
Q X
;
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPRHL7 728 printed Sep 23, 2025@20:11:04 Page 2
RMPRHL7 ;HINES-CIOFO/HNC - HL7 formatting information;3/13/00
+1 ;;3.0;PROSTHETICS;**45,54**;Feb 09, 1996
+2 ;
+3 ; HNC-10/13/00; Make change to Date/Time for HL7 update.
+4 ; call $$HL7TFM^XLFDT(DATE)
+5 ; and $$FMTHL7^XLFDT(DATE) per David Naber 10/00
+6 ; patch 53 and OR*3*97
+7 QUIT
MSH(X) ;Format MSH segment of HL-7 message.
+1 ;FROM=RMPR PROSTHETICS - sending
+2 NEW X
+3 SET X="MSH|^~\&|PROSTHETICS|"_$SELECT(+$GET(DUZ(2)):DUZ(2),1:$$SITE^VASITE())_"|||||ORM"
+4 QUIT X
+5 ;
+6 ;
+7 QUIT
HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
+1 ;
+2 NEW X
+3 SET X=$$FMTHL7^XLFDT(DATE)
+4 QUIT X
+5 ;
FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
+1 ;
+2 ;
+3 NEW X
+4 SET X=$$HL7TFM^XLFDT(DATE)
+5 QUIT X
+6 ;
+7 ;END
