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

LREPIRP4.m

Go to the documentation of this file.
  1. LREPIRP4 ;DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/13/03
  1. ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
  1. ; Reference to ^DIC(21 supported by IA #2504
  1. ;This routine builds the ^XTMP global for REF #s 2,15,16,17
  1. ;^XTMP("LREPIREP"_LRDATE,LRTYPE,DFN,#)
  1. Q
  1. OBX ;RESULTS
  1. I $P(LRTMP,HLFS,3)="ST" D
  1. .S TST=$P(LRTMP,HLFS,4),TSTNM=$P(TST,LRCS,5)
  1. .;S:TSTNM="" TSTNM=$P(TST,LRCS,5)
  1. .S OV=$P(LRTMP,HLFS,6)
  1. I $P(LRTMP,HLFS,3)="CE" D
  1. .S TSTNM=""
  1. .S OV=$P($P(LRTMP,HLFS,6),LRCS,2)
  1. S ENTRY=$P(LRTMP,HLFS,5)
  1. S FD=$$CDT($P(LRTMP,HLFS,15)),RR=$P(LRTMP,HLFS,8)
  1. S UN=$P(LRTMP,HLFS,7),AF=""
  1. S ^XTMP("LREPIREP"_LRDATE,LRTYPE,DFN,LRCNT)=LRNAME_$E(LRSP,1,25-$L(LRNAME))_SSN_" "_LRACCDT_$E(LRSP,1,16-$L(LRACCDT))_TSTNM_" "_OV
  1. S LRCNT=LRCNT+1
  1. Q
  1. PV1 ;
  1. S TYPE=$P(LRTMP,HLFS,3)
  1. S ENC=$S(TYPE="O":"Accession ",1:"Admission ")_"Date "
  1. S TYPE=$S(TYPE="U":"Update",TYPE="I":"Inpatient ",1:"Outpatient")
  1. S MSG=TYPE_" "_ENC_$$CDT($P(LRTMP,HLFS,45))
  1. Q:$P(LRTMP,HLFS,46)=""
  1. S MSG=" Discharge Date "_$$CDT($P(LRTMP,HLFS,46))
  1. S MSG=MSG_" Discharge Disposition "_$P($P(LRTMP,HLFS,37),LRCS,2)
  1. S ^TMP($J,"RPT",LRTYPE,DFN,"PV1",LRPV1)=MSG
  1. K TYPE
  1. Q
  1. CDT(DATE) ;CONVERTS THE DATE AND TIME
  1. S X=$E(DATE,5,6)_"-"_$E(DATE,7,8)_"-"_$E(DATE,1,4)
  1. S:$E(DATE,9,12)'="" X=X_"@"_$E(DATE,9,12)
  1. S:X="--" X=""
  1. Q X