| 1 | LREPIRP8 ;DALOI/CKA - EPI-PRINT VERIFICATION REPORT ; 5/14/03
|
|---|
| 2 | ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
|
|---|
| 3 | ;PRINT VERIFICATION REPORT CONTINUED
|
|---|
| 4 | ;
|
|---|
| 5 | ;CALLED BY LREPIRP7
|
|---|
| 6 | Q
|
|---|
| 7 | PPRT1 ;Print pathogens 1,3,4,5,6,8,10,18,19,20,21,22,23
|
|---|
| 8 | D HDG^LREPIRP7 W !
|
|---|
| 9 | S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
|
|---|
| 10 | I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
|
|---|
| 11 | F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
|
|---|
| 12 | .S LRPV1=0,LROBR=0,LROBX=0
|
|---|
| 13 | .W !!,"PATIENT NAME LAST 4 DOB SEX PERIOD OF SERVICE"
|
|---|
| 14 | .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
|
|---|
| 15 | .W !,LRPID
|
|---|
| 16 | .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
|
|---|
| 17 | ..S LROBR=0,LROBX=0
|
|---|
| 18 | ..S LRPV1ND=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
|
|---|
| 19 | ..W !,$P(LRPV1ND," "),!,$P(LRPV1ND," ",2)
|
|---|
| 20 | ..I $L($P(LRPV1ND," ",2)) W !
|
|---|
| 21 | ..F S LROBR=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR)) Q:'LROBR D Q:LRQUIT
|
|---|
| 22 | ...S LROBX=0
|
|---|
| 23 | ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR))
|
|---|
| 24 | ...F S LROBX=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX)) Q:'LROBX D Q:LRQUIT
|
|---|
| 25 | ....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX))
|
|---|
| 26 | .I $Y>(IOSL-6) D NPG^LREPIRP7
|
|---|
| 27 | Q
|
|---|
| 28 | PPRT2 ;Print pathogens 7,9
|
|---|
| 29 | D HDG^LREPIRP7 W !
|
|---|
| 30 | S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
|
|---|
| 31 | I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
|
|---|
| 32 | F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
|
|---|
| 33 | .S LRPV1=0,LROBR=0,LROBX=0
|
|---|
| 34 | .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
|
|---|
| 35 | .W !,LRPID
|
|---|
| 36 | .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
|
|---|
| 37 | ..S LROBR=0,LROBX=0,LRDG1=0
|
|---|
| 38 | ..W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
|
|---|
| 39 | ..F S LRDG1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1)) Q:'LRDG1 D Q:LRQUIT
|
|---|
| 40 | ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1))
|
|---|
| 41 | ...F S LROBR=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR)) Q:'LROBR D Q:LRQUIT
|
|---|
| 42 | ....S LROBX=0
|
|---|
| 43 | ....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR))
|
|---|
| 44 | ....F S LROBX=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX)) Q:'LROBX D Q:LRQUIT
|
|---|
| 45 | .....W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"OBR",LROBR,"OBX",LROBX))
|
|---|
| 46 | ..I $Y>(IOSL-6) D NPG^LREPIRP7
|
|---|
| 47 | Q
|
|---|
| 48 | PPRT3 ;Print pathogens 2,15,16,17
|
|---|
| 49 | D HDG^LREPIRP7 W !
|
|---|
| 50 | W !!,"Name LAST 4 Accession Date Test Name Test Result"
|
|---|
| 51 | W !,"____________________________________________________________________"
|
|---|
| 52 | S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
|
|---|
| 53 | I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
|
|---|
| 54 | S LRDFN=0,LRNUM=0
|
|---|
| 55 | F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT S LRNUM=0
|
|---|
| 56 | .F S LRNUM=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,LRNUM)) Q:'LRNUM D Q:LRQUIT
|
|---|
| 57 | ..W !,^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,LRNUM)
|
|---|
| 58 | ..I $Y>(IOSL-6) D NPG^LREPIRP7
|
|---|
| 59 | Q
|
|---|
| 60 | PPRT4 ;Print pathogens 11,12,13,14
|
|---|
| 61 | D HDG^LREPIRP7 W !
|
|---|
| 62 | S LRNOPAT="",LRNOPAT=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRNOPAT))
|
|---|
| 63 | I LRNOPAT="HDG" W !!,"NO PATIENTS REPORTED FOR THE REPORT PERIOD."
|
|---|
| 64 | F S LRDFN=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN)) Q:'LRDFN D Q:LRQUIT
|
|---|
| 65 | .S LRPV1=0,LRDG1=0
|
|---|
| 66 | .S LRPID=$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PID"))
|
|---|
| 67 | .W !,LRPID
|
|---|
| 68 | .F S LRPV1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1)) Q:'LRPV1 D Q:LRQUIT
|
|---|
| 69 | ..W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1))
|
|---|
| 70 | ..S LRDG1=0
|
|---|
| 71 | ..F S LRDG1=$O(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1)) Q:'LRDG1 D Q:LRQUIT
|
|---|
| 72 | ...W !,$G(^XTMP("LREPIREP"_LRDATE,LRPATH,LRDFN,"PV1",LRPV1,"DG1",LRDG1))
|
|---|
| 73 | .I $Y>(IOSL-6) D NPG^LREPIRP7
|
|---|
| 74 | Q
|
|---|
