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

LREPIRP8.m

Go to the documentation of this file.
  1. LREPIRP8 ;DALOI/CKA - EPI-PRINT VERIFICATION REPORT ; 5/14/03
  1. ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
  1. ;PRINT VERIFICATION REPORT CONTINUED
  1. ;
  1. ;CALLED BY LREPIRP7
  1. Q
  1. PPRT1 ;Print pathogens 1,3,4,5,6,8,10,18,19,20,21,22,23
  1. D HDG^LREPIRP7 W !
  1. S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
  1. I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
  1. F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
  1. .S LRPV1=0,LROBR=0,LROBX=0
  1. .W !!,"PATIENT NAME LAST 4 DOB SEX PERIOD OF SERVICE"
  1. .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
  1. .W !,LRPID
  1. .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
  1. ..S LROBR=0,LROBX=0
  1. ..S LRPV1ND=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
  1. ..W !,$P(LRPV1ND," "),!,$P(LRPV1ND," ",2)
  1. ..I $L($P(LRPV1ND," ",2)) W !
  1. ..F S LROBR=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR)) Q:'LROBR D Q:LRQUIT
  1. ...S LROBX=0
  1. ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR))
  1. ...F S LROBX=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX)) Q:'LROBX D Q:LRQUIT
  1. ....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX))
  1. .I $Y>(IOSL-6) D NPG^LREPIRP7
  1. Q
  1. PPRT2 ;Print pathogens 7,9
  1. D HDG^LREPIRP7 W !
  1. S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
  1. I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
  1. F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
  1. .S LRPV1=0,LROBR=0,LROBX=0
  1. .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
  1. .W !,LRPID
  1. .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
  1. ..S LROBR=0,LROBX=0,LRDG1=0
  1. ..W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
  1. ..F S LRDG1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1)) Q:'LRDG1 D Q:LRQUIT
  1. ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1))
  1. ...F S LROBR=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR)) Q:'LROBR D Q:LRQUIT
  1. ....S LROBX=0
  1. ....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR))
  1. ....F S LROBX=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX)) Q:'LROBX D Q:LRQUIT
  1. .....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX))
  1. ..I $Y>(IOSL-6) D NPG^LREPIRP7
  1. Q
  1. PPRT3 ;Print pathogens 2,15,16,17
  1. D HDG^LREPIRP7 W !
  1. W !!,"Name LAST 4 Accession Date Test Name Test Result"
  1. W !,"____________________________________________________________________"
  1. S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
  1. I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
  1. S LRDFN=0,LRNUM=0
  1. F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT S LRNUM=0
  1. .F S LRNUM=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,LRNUM)) Q:'LRNUM D Q:LRQUIT
  1. ..W !,^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,LRNUM)
  1. ..I $Y>(IOSL-6) D NPG^LREPIRP7
  1. Q
  1. PPRT4 ;Print pathogens 11,12,13,14
  1. D HDG^LREPIRP7 W !
  1. S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
  1. I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
  1. F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
  1. .S LRPV1=0,LRDG1=0
  1. .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
  1. .W !,LRPID
  1. .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
  1. ..W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
  1. ..S LRDG1=0
  1. ..F S LRDG1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1)) Q:'LRDG1 D Q:LRQUIT
  1. ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1))
  1. .I $Y>(IOSL-6) D NPG^LREPIRP7
  1. Q