source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LREPIRP1.m@ 899

Last change on this file since 899 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 5.9 KB
Line 
1LREPIRP1 ;DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/14/03
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 Q
6 ;SUMMARY VERIFICATION REPORT HEADING
7SUMHD1 S SITE=$$SITE^VASITE
8 S MSG="SUMMARY VERIFICATION REPORT OF EPI EXTRACTED DATA"
9 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
10 S MSG="FROM STATION "_$P(SITE,U,3)_" "_$P(SITE,U,2)
11 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
12SUMHD2 S MSG="",^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
13 S MSG="Processing Month "_LRHDGL2
14 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
15 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1,MSG=""
16 S MSG=LRSP_LRSP_$E(LRSP,1,7)_"Number of"
17 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
18 S MSG=LRSP_$E(LRSP,1,24)_"Number of Persons with"
19 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
20 S MSG=$E(LRSP,1,2)_"Emerging Pathogen"_LRSP_$E(LRSP,1,3)_"Occurrences Occurrence"
21 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
22 S MSG="________________________________________________________________________________"
23 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
24 Q
25NOTE1 S MSG="",^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
26 S MSG="For definitions of case ascertainment for each category, please refer to"
27 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
28 S MSG="documentation in Laboratory EPI Patch LR*5.2*281 Technical and"
29 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
30 S MSG="User Guide in conjunction with your local parameter set-up of this process."
31 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
32 S MSG=""
33 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
34 S MSG="If you feel that these numbers are in error, please verify with the local"
35 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
36 S MSG="facility personnel responsible for setting the EPI Laboratory Search/Extract"
37 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
38 S MSG="parameters. However, do not change these parameters if they are incorrect"
39 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
40 S MSG="without fully reading the documentation; this will be crucial in order to"
41 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
42 S MSG="avoid any misalignment with the concomitant Hepatitis C Extract patches"
43 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
44 S MSG="(PXRM*1.5*1, VA-National EPI DB Update, LR*5.2*260, PSJ*5*48, Hepatitis C"
45 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
46 S MSG="Initiative, and PSO*7*45, Hepatitis C Initiative). In particular, the"
47 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
48 S MSG="hepatitis C antibody positive, hepatitis C antibody negative, hepatitis A"
49 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
50 S MSG="antibody positive and hepatitis B positive will be especially sensitive to"
51 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
52 S MSG="changes, and concomitant changes of all of the patches may need to occur."
53 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
54 Q
55SUMHD3 S MSG=LRSP_LRSP_$E(LRSP,1,1)_"Number of Persons"
56 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
57 S MSG=LRSP_LRSP_$E(LRSP,1,1)_"with the Term and"
58 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
59 S MSG=LRSP_LRSP_$E(LRSP,1,1)_"Transmitted For"
60 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
61 S MSG=$E(LRSP,1,18)_"Nationally rolled-up resolution term"_$E(LRSP,1,7)_"National Roll-up"
62 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
63 S MSG="_______________________________________________________________________________"
64 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
65 Q
66NOTE2 S MSG="This table represents only those who had a once-lifetime resolution of the"
67 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
68 S MSG="National Clinical Reminder for Risk Assessment for Hepatitis C. This"
69 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
70 S MSG="resolution will only occur once during the care of a patient (unless actively"
71 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
72 S MSG="changed by a point-of-care practitioner at a later date)."
73 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
74 Q
75NOTE3 S MSG="1. For Microbiology Lab Package Organism results/isolates (e.g."
76 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
77 S MSG="Enterococcus, or Streptococcus pneumoniae), the number corresponding"
78 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
79 S MSG="to the name represents the total number reported from your local"
80 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
81 S MSG="microbiology package during the processing month. The number"
82 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
83 S MSG="corresponding to the line 'Patients with...<Microbiology Lab"
84 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
85 S MSG="Result/isolates> (e.g. Patients with Enterococcus or Patients with"
86 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
87 S MSG="Streptococcus pneumoniae) represents the number of individual"
88 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
89 S MSG="patients from whom the results were isolated."
90 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
91 S MSG="2. For non-microbiology results (e.g. chemistry/serology results such"
92 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
93 S MSG="as Hepatitis C antibody), the number corresponding to the name"
94 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
95 S MSG="represents the TOTAL number of <named> tests done at your facility"
96 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
97 S MSG="during the processing month. The number corresponding to the line"
98 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
99 S MSG="<Patients with...<non-Microbiology test> (e.g. Hepatitis C antibody)"
100 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
101 S MSG="represents the number of individuals on whom the test(s) was/were"
102 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
103 S MSG="performed. This does not represent the number of persons who had a positive"
104 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
105 S MSG=" test result."
106 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
107 S MSG="3. These results have been obtained based on specimen accession"
108 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
109 S MSG="date and not results reported dating."
110 S ^TMP($J,"MSG",MSGCNT)=MSG,MSGCNT=MSGCNT+1
111 Q
Note: See TracBrowser for help on using the repository browser.