- 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 Feb 19, 2025@00:01:23 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