Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRHL7

RMPRHL7.m

Go to the documentation of this file.
  1. RMPRHL7 ;HINES-CIOFO/HNC - HL7 formatting information;3/13/00
  1. ;;3.0;PROSTHETICS;**45,54**;Feb 09, 1996
  1. ;
  1. ; HNC-10/13/00; Make change to Date/Time for HL7 update.
  1. ; call $$HL7TFM^XLFDT(DATE)
  1. ; and $$FMTHL7^XLFDT(DATE) per David Naber 10/00
  1. ; patch 53 and OR*3*97
  1. Q
  1. MSH(X) ;Format MSH segment of HL-7 message.
  1. ;FROM=RMPR PROSTHETICS - sending
  1. N X
  1. S X="MSH|^~\&|PROSTHETICS|"_$S(+$G(DUZ(2)):DUZ(2),1:$$SITE^VASITE())_"|||||ORM"
  1. Q X
  1. ;
  1. ;
  1. Q
  1. HL7DT(DATE) ;Convert Fileman Date to HL-7 Date
  1. ;
  1. N X
  1. S X=$$FMTHL7^XLFDT(DATE)
  1. Q X
  1. ;
  1. FMDATE(DATE) ;Convert HL-7 formatted date to a Fileman formatted date
  1. ;
  1. ;
  1. N X
  1. S X=$$HL7TFM^XLFDT(DATE)
  1. Q X
  1. ;
  1. ;END