LREPIRP1 ;VA/DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/14/03
;;5.2;LAB SERVICE;**1030**;NOV 01, 1997
;;5.2;LAB SERVICE;**281**;Sep 27, 1994
; Reference to $$SITE^VASITE supported by IA # 10112
; Reference to ^DIC(21 supported by IA #2504
Q
;SUMMARY VERIFICATION REPORT HEADING
SUMHD1 S SITE=$$SITE^VASITE
S MSG="SUMMARY VERIFICATION REPORT OF EPI EXTRACTED DATA"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
S MSG="FROM STATION "_$P(SITE,U,3)_" "_$P(SITE,U,2)
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
SUMHD2 S MSG="",^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
S MSG="Processing Month "_LRHDGL2
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
S MSG=LRSP_LRSP_$E(LRSP,1,7)_"Number of"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=LRSP_$E(LRSP,1,24)_"Number of Persons with"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=$E(LRSP,1,2)_"Emerging Pathogen"_LRSP_$E(LRSP,1,3)_"Occurrences Occurrence"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="________________________________________________________________________________"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
Q
NOTE1 S MSG="",^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="For definitions of case ascertainment for each category, please refer to"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="documentation in Laboratory EPI Patch LR*5.2*281 Technical and"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="User Guide in conjunction with your local parameter set-up of this process."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=""
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="If you feel that these numbers are in error, please verify with the local"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="facility personnel responsible for setting the EPI Laboratory Search/Extract"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="parameters. However, do not change these parameters if they are incorrect"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="without fully reading the documentation; this will be crucial in order to"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="avoid any misalignment with the concomitant Hepatitis C Extract patches"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="(PXRM*1.5*1, VA-National EPI DB Update, LR*5.2*260, PSJ*5*48, Hepatitis C"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="Initiative, and PSO*7*45, Hepatitis C Initiative). In particular, the"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="hepatitis C antibody positive, hepatitis C antibody negative, hepatitis A"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="antibody positive and hepatitis B positive will be especially sensitive to"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="changes, and concomitant changes of all of the patches may need to occur."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
Q
SUMHD3 S MSG=LRSP_LRSP_$E(LRSP,1,1)_"Number of Persons"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=LRSP_LRSP_$E(LRSP,1,1)_"with the Term and"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=LRSP_LRSP_$E(LRSP,1,1)_"Transmitted For"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=$E(LRSP,1,18)_"Nationally rolled-up resolution term"_$E(LRSP,1,7)_"National Roll-up"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="_______________________________________________________________________________"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
Q
NOTE2 S MSG="This table represents only those who had a once-lifetime resolution of the"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="National Clinical Reminder for Risk Assessment for Hepatitis C. This"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="resolution will only occur once during the care of a patient (unless actively"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="changed by a point-of-care practitioner at a later date)."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
Q
NOTE3 S MSG="1. For Microbiology Lab Package Organism results/isolates (e.g."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="Enterococcus, or Streptococcus pneumoniae), the number corresponding"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="to the name represents the total number reported from your local"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="microbiology package during the processing month. The number"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="corresponding to the line 'Patients with...<Microbiology Lab"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="Result/isolates> (e.g. Patients with Enterococcus or Patients with"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="Streptococcus pneumoniae) represents the number of individual"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="patients from whom the results were isolated."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="2. For non-microbiology results (e.g. chemistry/serology results such"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="as Hepatitis C antibody), the number corresponding to the name"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="represents the TOTAL number of <named> tests done at your facility"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="during the processing month. The number corresponding to the line"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="<Patients with...<non-Microbiology test> (e.g. Hepatitis C antibody)"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="represents the number of individuals on whom the test(s) was/were"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="performed. This does not represent the number of persons who had a positive"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG=" test result."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="3. These results have been obtained based on specimen accession"
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
S MSG="date and not results reported dating."
S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
Q
LREPIRP1 ;VA/DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/14/03
+1 ;;5.2;LAB SERVICE;**1030**;NOV 01, 1997
+2 ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
+3 ; Reference to $$SITE^VASITE supported by IA # 10112
+4 ; Reference to ^DIC(21 supported by IA #2504
+5 QUIT
+6 ;SUMMARY VERIFICATION REPORT HEADING
SUMHD1 SET SITE=$$SITE^VASITE
+1 SET MSG="SUMMARY VERIFICATION REPORT OF EPI EXTRACTED DATA"
+2 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
SET MSG=""
+3 SET MSG="FROM STATION "_$PIECE(SITE,U,3)_" "_$PIECE(SITE,U,2)
+4 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
SET MSG=""
SUMHD2 SET MSG=""
SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
SET MSG=""
+1 SET MSG="Processing Month "_LRHDGL2
+2 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
SET MSG=""
+3 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
SET MSG=""
+4 SET MSG=LRSP_LRSP_$EXTRACT(LRSP,1,7)_"Number of"
+5 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+6 SET MSG=LRSP_$EXTRACT(LRSP,1,24)_"Number of Persons with"
+7 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+8 SET MSG=$EXTRACT(LRSP,1,2)_"Emerging Pathogen"_LRSP_$EXTRACT(LRSP,1,3)_"Occurrences Occurrence"
+9 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+10 SET MSG="________________________________________________________________________________"
+11 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+12 QUIT
NOTE1 SET MSG=""
SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+1 SET MSG="For definitions of case ascertainment for each category, please refer to"
+2 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+3 SET MSG="documentation in Laboratory EPI Patch LR*5.2*281 Technical and"
+4 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+5 SET MSG="User Guide in conjunction with your local parameter set-up of this process."
+6 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+7 SET MSG=""
+8 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+9 SET MSG="If you feel that these numbers are in error, please verify with the local"
+10 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+11 SET MSG="facility personnel responsible for setting the EPI Laboratory Search/Extract"
+12 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+13 SET MSG="parameters. However, do not change these parameters if they are incorrect"
+14 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+15 SET MSG="without fully reading the documentation; this will be crucial in order to"
+16 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+17 SET MSG="avoid any misalignment with the concomitant Hepatitis C Extract patches"
+18 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+19 SET MSG="(PXRM*1.5*1, VA-National EPI DB Update, LR*5.2*260, PSJ*5*48, Hepatitis C"
+20 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+21 SET MSG="Initiative, and PSO*7*45, Hepatitis C Initiative). In particular, the"
+22 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+23 SET MSG="hepatitis C antibody positive, hepatitis C antibody negative, hepatitis A"
+24 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+25 SET MSG="antibody positive and hepatitis B positive will be especially sensitive to"
+26 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+27 SET MSG="changes, and concomitant changes of all of the patches may need to occur."
+28 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+29 QUIT
SUMHD3 SET MSG=LRSP_LRSP_$EXTRACT(LRSP,1,1)_"Number of Persons"
+1 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+2 SET MSG=LRSP_LRSP_$EXTRACT(LRSP,1,1)_"with the Term and"
+3 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+4 SET MSG=LRSP_LRSP_$EXTRACT(LRSP,1,1)_"Transmitted For"
+5 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+6 SET MSG=$EXTRACT(LRSP,1,18)_"Nationally rolled-up resolution term"_$EXTRACT(LRSP,1,7)_"National Roll-up"
+7 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+8 SET MSG="_______________________________________________________________________________"
+9 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+10 QUIT
NOTE2 SET MSG="This table represents only those who had a once-lifetime resolution of the"
+1 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+2 SET MSG="National Clinical Reminder for Risk Assessment for Hepatitis C. This"
+3 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+4 SET MSG="resolution will only occur once during the care of a patient (unless actively"
+5 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+6 SET MSG="changed by a point-of-care practitioner at a later date)."
+7 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+8 QUIT
NOTE3 SET MSG="1. For Microbiology Lab Package Organism results/isolates (e.g."
+1 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+2 SET MSG="Enterococcus, or Streptococcus pneumoniae), the number corresponding"
+3 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+4 SET MSG="to the name represents the total number reported from your local"
+5 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+6 SET MSG="microbiology package during the processing month. The number"
+7 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+8 SET MSG="corresponding to the line 'Patients with...<Microbiology Lab"
+9 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+10 SET MSG="Result/isolates> (e.g. Patients with Enterococcus or Patients with"
+11 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+12 SET MSG="Streptococcus pneumoniae) represents the number of individual"
+13 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+14 SET MSG="patients from whom the results were isolated."
+15 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+16 SET MSG="2. For non-microbiology results (e.g. chemistry/serology results such"
+17 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+18 SET MSG="as Hepatitis C antibody), the number corresponding to the name"
+19 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+20 SET MSG="represents the TOTAL number of <named> tests done at your facility"
+21 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+22 SET MSG="during the processing month. The number corresponding to the line"
+23 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+24 SET MSG="<Patients with...<non-Microbiology test> (e.g. Hepatitis C antibody)"
+25 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+26 SET MSG="represents the number of individuals on whom the test(s) was/were"
+27 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+28 SET MSG="performed. This does not represent the number of persons who had a positive"
+29 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+30 SET MSG=" test result."
+31 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+32 SET MSG="3. These results have been obtained based on specimen accession"
+33 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+34 SET MSG="date and not results reported dating."
+35 SET ^TMP($JOB,"MSG",MSGCNT)=MSG
SET MSGCNT=MSGCNT+1
+36 QUIT
