LREPIPH ;DALOI/RLM-EMERGING PATHOGENS HL7 SEGMENT BUILDER ;1/1/98
;;5.2;LAB SERVICE;**260,281**;Sep 27, 1994
; Reference to ^ICD9 supported by IA #10082
; Reference to ^PXD(811.9 supported by IA #1256
; Reference to ^PSDRUG supported by IA #221-A
; Reference to FIDATA^PXRM supported by IA #2182
Q
RXNT ;Findings Data
K FINDINGS S LRNTE1=1,(LRDRSQ1,LRDRSEQ)=0
S LRDRSEQ=LRDRSEQ+1
M FINDINGS=^TMP("LREPISRCH",$J,DFN,"FIND")
S LRFIND=0 F S LRFIND=$O(FINDINGS(LRFIND)) Q:'LRFIND D
. ;S LRENDTX=$G(FINDINGS(LRFIND,"DATE"))
. ;D PV1
. I $D(FINDINGS(LRFIND,"DRUG")) S LRDRSQ1=LRDRSEQ D DRUG
. I $D(FINDINGS(LRFIND,"FINDING")) D FIND
. S LRDRSQ1=0 Q
K FINDINGS,^TMP("LREPISRCH",$J,DFN) S LRPVVV=0 Q
DRUG ;
D PV1
S LRDRUG=+FINDINGS(LRFIND,"FINDING")
S LRDRGC=$P($G(^PSDRUG(LRDRUG,2)),"^",4)
S LRDATA="ZXE"_HLFS_LRDRGC_HLFS_FINDINGS(LRFIND,"DRUG")_LRCS_"NDC"_HLFS_FINDINGS(LRFIND,"DSUP")_HLFS_$$HLDATE^HLFNC($G(FINDINGS(LRFIND,"RDATE")))_HLFS_$$HLDATE^HLFNC($G(FINDINGS(LRFIND,"DATE")))_HLFS
S LRDATA=LRDATA_$$HLDATE^HLFNC($G(FINDINGS(LRFIND,"STOPDATE")))_HLFS_+LRDRSQ1
;S LRDATA="RXO"_HLFS_LRDRGC_LRCS_FINDINGS(LRFIND,"DRUG")_LRCS_"NDC"_HLFS_LRDRGC_HLFS_HLFS_FINDINGS(LRFIND,"DSUP")_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_+LRDRSQ1
S LRCNT=LRCNT+1,^TMP("HLS",$J,LRCNT)=$$UP^XLFSTR(LRDATA),LRMSGSZ=LRMSGSZ+$L(LRDATA)
S ^TMP("LREPIREP",$J,LRCNT)=$$UP^XLFSTR(LRDATA)
K LRDRGC S LRDRSEQ=LRDRSEQ+1 Q ;S LRPVVV=0 Q
FIND ;
;Q:$D(FINDINGS(LRFIND,"RDATE")) ;Don't send DSP if RX data is sent.
D PV1
S LRTRM=$P($G(FINDINGS(LRFIND,"TERM")),"^")
S LRTOLD=$G(FINDINGS(LRFIND,"ALTTRM")) I LRTOLD'?1.N S LRTOLD="00"
S LRDATA="DSP"_HLFS_LRNTE1_HLFS_HLFS_$$HLDATE^HLFNC(FINDINGS(LRFIND,"DATE"),"TS")_LRCS_LRTRM_LRCS_LRTOLD_LRCS_$G(FINDINGS(LRFIND,"RESULT"))_LRCS_$G(FINDINGS(LRFIND,"S/N"))_HLFS_HLFS_+LRDRSQ1
S ^TMP($J,"HEP",LRTOLD)=$G(^TMP($J,"HEP",LRTOLD))+1
S LRNTE1=LRNTE1+1,LRCNT=LRCNT+1,^TMP("HLS",$J,LRCNT)=$$UP^XLFSTR(LRDATA),LRMSGSZ=LRMSGSZ+$L(LRDATA)
S ^TMP("LREPIREP",$J,LRCNT)=$$UP^XLFSTR(LRDATA)
Q ;S LRPVVV=0 Q
PV1 ;Build PV1
Q:$G(LRPVVV)
S LRPTY=$P(^TMP($J,LRPROT,DFN,LRENDT),U)
S:$P(^TMP($J,LRPROT,DFN,LRENDT),U,3)="UPDT" LRPTY="U"
I $P($G(FINDINGS(LRFIND)),"^",2)]"",$P($G(FINDINGS(LRFIND)),"^",2)'="U" S LRPTY=$P($G(FINDINGS(LRFIND)),"^",2)
I LRPTY'="I",LRPTY'="O",LRPTY'="U" S LRPTY="U"
S LRDATA="PV1|"_LRPV1_"|"_LRPTY_"||||||||||||||||||||||||||||||||||||||||||"_$$HLDATE^HLFNC(LRENDT)
S LRCNT=LRCNT+1,^TMP("HLS",$J,LRCNT)=$$UP^XLFSTR(LRDATA),LRMSGSZ=LRMSGSZ+$L(LRDATA),LRPV1=LRPV1+1
S ^TMP("LREPIREP",$J,LRCNT)=$$UP^XLFSTR(LRDATA)
S LRPVVV=1
Q
ZEOR ;LREPIPH
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLREPIPH 2663 printed Apr 09, 2024@21:20:32 Page 2
LREPIPH ;DALOI/RLM-EMERGING PATHOGENS HL7 SEGMENT BUILDER ;1/1/98
+1 ;;5.2;LAB SERVICE;**260,281**;Sep 27, 1994
+2 ; Reference to ^ICD9 supported by IA #10082
+3 ; Reference to ^PXD(811.9 supported by IA #1256
+4 ; Reference to ^PSDRUG supported by IA #221-A
+5 ; Reference to FIDATA^PXRM supported by IA #2182
+6 QUIT
RXNT ;Findings Data
+1 KILL FINDINGS
SET LRNTE1=1
SET (LRDRSQ1,LRDRSEQ)=0
+2 SET LRDRSEQ=LRDRSEQ+1
+3 MERGE FINDINGS=^TMP("LREPISRCH",$JOB,DFN,"FIND")
+4 SET LRFIND=0
FOR
SET LRFIND=$ORDER(FINDINGS(LRFIND))
if 'LRFIND
QUIT
Begin DoDot:1
+5 ;S LRENDTX=$G(FINDINGS(LRFIND,"DATE"))
+6 ;D PV1
+7 IF $DATA(FINDINGS(LRFIND,"DRUG"))
SET LRDRSQ1=LRDRSEQ
DO DRUG
+8 IF $DATA(FINDINGS(LRFIND,"FINDING"))
DO FIND
+9 SET LRDRSQ1=0
QUIT
End DoDot:1
+10 KILL FINDINGS,^TMP("LREPISRCH",$JOB,DFN)
SET LRPVVV=0
QUIT
DRUG ;
+1 DO PV1
+2 SET LRDRUG=+FINDINGS(LRFIND,"FINDING")
+3 SET LRDRGC=$PIECE($GET(^PSDRUG(LRDRUG,2)),"^",4)
+4 SET LRDATA="ZXE"_HLFS_LRDRGC_HLFS_FINDINGS(LRFIND,"DRUG")_LRCS_"NDC"_HLFS_FINDINGS(LRFIND,"DSUP")_HLFS_$$HLDATE^HLFNC($GET(FINDINGS(LRFIND,"RDATE")))_HLFS_$$HLDATE^HLFNC($GET(FINDINGS(LRFIND,"DATE")))_HLFS
+5 SET LRDATA=LRDATA_$$HLDATE^HLFNC($GET(FINDINGS(LRFIND,"STOPDATE")))_HLFS_+LRDRSQ1
+6 ;S LRDATA="RXO"_HLFS_LRDRGC_LRCS_FINDINGS(LRFIND,"DRUG")_LRCS_"NDC"_HLFS_LRDRGC_HLFS_HLFS_FINDINGS(LRFIND,"DSUP")_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_HLFS_+LRDRSQ1
+7 SET LRCNT=LRCNT+1
SET ^TMP("HLS",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
SET LRMSGSZ=LRMSGSZ+$LENGTH(LRDATA)
+8 SET ^TMP("LREPIREP",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
+9 ;S LRPVVV=0 Q
KILL LRDRGC
SET LRDRSEQ=LRDRSEQ+1
QUIT
FIND ;
+1 ;Q:$D(FINDINGS(LRFIND,"RDATE")) ;Don't send DSP if RX data is sent.
+2 DO PV1
+3 SET LRTRM=$PIECE($GET(FINDINGS(LRFIND,"TERM")),"^")
+4 SET LRTOLD=$GET(FINDINGS(LRFIND,"ALTTRM"))
IF LRTOLD'?1.N
SET LRTOLD="00"
+5 SET LRDATA="DSP"_HLFS_LRNTE1_HLFS_HLFS_$$HLDATE^HLFNC(FINDINGS(LRFIND,"DATE"),"TS")_LRCS_LRTRM_LRCS_LRTOLD_LRCS_$GET(FINDINGS(LRFIND,"RESULT"))_LRCS_$GET(FINDINGS(LRFIND,"S/N"))_HLFS_HLFS_+LRDRSQ1
+6 SET ^TMP($JOB,"HEP",LRTOLD)=$GET(^TMP($JOB,"HEP",LRTOLD))+1
+7 SET LRNTE1=LRNTE1+1
SET LRCNT=LRCNT+1
SET ^TMP("HLS",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
SET LRMSGSZ=LRMSGSZ+$LENGTH(LRDATA)
+8 SET ^TMP("LREPIREP",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
+9 ;S LRPVVV=0 Q
QUIT
PV1 ;Build PV1
+1 if $GET(LRPVVV)
QUIT
+2 SET LRPTY=$PIECE(^TMP($JOB,LRPROT,DFN,LRENDT),U)
+3 if $PIECE(^TMP($JOB,LRPROT,DFN,LRENDT),U,3)="UPDT"
SET LRPTY="U"
+4 IF $PIECE($GET(FINDINGS(LRFIND)),"^",2)]""
IF $PIECE($GET(FINDINGS(LRFIND)),"^",2)'="U"
SET LRPTY=$PIECE($GET(FINDINGS(LRFIND)),"^",2)
+5 IF LRPTY'="I"
IF LRPTY'="O"
IF LRPTY'="U"
SET LRPTY="U"
+6 SET LRDATA="PV1|"_LRPV1_"|"_LRPTY_"||||||||||||||||||||||||||||||||||||||||||"_$$HLDATE^HLFNC(LRENDT)
+7 SET LRCNT=LRCNT+1
SET ^TMP("HLS",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
SET LRMSGSZ=LRMSGSZ+$LENGTH(LRDATA)
SET LRPV1=LRPV1+1
+8 SET ^TMP("LREPIREP",$JOB,LRCNT)=$$UP^XLFSTR(LRDATA)
+9 SET LRPVVV=1
+10 QUIT
ZEOR ;LREPIPH
