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

WVALERTC.m

Go to the documentation of this file.
  1. WVALERTC ;HCIOFO/FT-Display Report Data from Lab Package ;9/29/04 14:28
  1. ;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #2770 - ^TMP("LRCY",$J) references (controlled)
  1. ; #10103 - ^XLFDT calls (supported)
  1. ; #10104 - ^XLFSTR calls (supported)
  1. ;
  1. EN ; Move data from ^TMP("LRCY",$J) to ^TMP("WV RPT",$J) for display.
  1. ; Called from WVLABWP and WVPROC
  1. Q:'$D(^TMP("LRCY",$J))
  1. N WVDATE,WVLINE,WVNODE,WVRPTDT,WVSUB2,WVSUB3,WVSUB4,WVTMP
  1. S WVDATE=$O(^TMP("LRCY",$J,0)) Q:'WVDATE
  1. S WVTMP=$G(^TMP("LRCY",$J,WVDATE,0))
  1. S WVLINE=0
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)=" Collected: "_$P(WVTMP,U,1)
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="Lab Accession #: "_$P(WVTMP,U,2)
  1. D ADD
  1. S WVTMP=$G(^TMP("LRCY",$J,WVDATE,1))
  1. S ^TMP("WV RPT",$J,WVLINE,0)=" Specimen: "_$P(WVTMP,U,1)
  1. S WVSUB2=0
  1. F S WVSUB2=$O(^TMP("LRCY",$J,WVDATE,1,WVSUB2)) Q:'WVSUB2 D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",17)_^TMP("LRCY",$J,WVDATE,1,WVSUB2)
  1. .Q
  1. D ADD,BLANK
  1. I $P(WVTMP,U,2)'>0 D Q
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",18)_"** REPORT NOT YET RELEASED **"
  1. .Q
  1. S WVSUB2=1
  1. F S WVSUB2=$O(^TMP("LRCY",$J,WVDATE,WVSUB2)) Q:WVSUB2="" D
  1. .D @$E(WVSUB2,1,2)
  1. .Q
  1. ; NOTE: Calling routine should kill ^TMP("LRCY",$J)
  1. Q
  1. AH ; Clinical History
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="<Brief Clinical Hx>"
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. .Q
  1. D ADD,BLANK
  1. Q
  1. G ; Gross Description
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="<Gross Description>"
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. .Q
  1. D ADD,BLANK
  1. Q
  1. MI ; Microscopic exam/diagnosis field
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="<Microscopic Exam>"
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. .Q
  1. D ADD,BLANK
  1. Q
  1. ND ; Cytopathology Dx
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="<Cytopathology Dx>"
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. .Q
  1. D ADD,BLANK
  1. Q
  1. OT ; Topography
  1. D ADD
  1. S WVSUB3=0
  1. S ^TMP("WV RPT",$J,WVLINE,0)="Topography: "_$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:WVSUB3="" D @$E(WVSUB3,1)
  1. Q
  1. D ; Disease
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",8)_$S(WVSUB3="D1":"Diseases: ",1:$$REPEAT^XLFSTR(" ",10))_$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. Q
  1. M ; Morphology
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",8)_$P($G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)),U,1)
  1. S WVSUB4=""
  1. F S WVSUB4=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3,WVSUB4)) Q:WVSUB4="" D
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",8)_$S(WVSUB4=1:"Diseases: ",1:$$REPEAT^XLFSTR(" ",10))_$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3,WVSUB4))
  1. .Q
  1. Q
  1. P ; Procedure
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)=$$REPEAT^XLFSTR(" ",7)_$S(WVSUB3="P1":"Procedures: ",1:$$REPEAT^XLFSTR(" ",12))_$P($G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)),U,1)
  1. Q
  1. SR ; Supplementary Report
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .S WVRPTDT=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3,0))
  1. .S WVRPTDT=$$FMTE^XLFDT(WVRPTDT,"2P")
  1. .D ADD
  1. .S ^TMP("WV RPT",$J,WVLINE,0)="Supplementary Rpt: "_WVRPTDT
  1. .S WVSUB4=0
  1. .F S WVSUB4=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3,WVSUB4)) Q:'WVSUB4 D
  1. ..S WVNODE=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3,WVSUB4))
  1. ..D ADD
  1. ..S ^TMP("WV RPT",$J,WVLINE,0)=WVNODE
  1. ..Q
  1. .Q
  1. Q
  1. XI ; ICD Diagnoses
  1. D ADD
  1. S ^TMP("WV RPT",$J,WVLINE,0)="<ICD-9 Diagnoses>"
  1. S WVSUB3=0
  1. F S WVSUB3=$O(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3)) Q:'WVSUB3 D
  1. .D ADD
  1. .S WVTMP=$G(^TMP("LRCY",$J,WVDATE,WVSUB2,WVSUB3))
  1. .S ^TMP("WV RPT",$J,WVLINE,0)=$P(WVTMP,U,1)_" "_$P(WVTMP,U,2)
  1. .Q
  1. Q
  1. ADD ; Bump up line counter
  1. S WVLINE=WVLINE+1
  1. Q
  1. BLANK ; Add a blank line
  1. S ^TMP("WV RPT",$J,WVLINE,0)=" "
  1. Q