source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LREPIRP6.m@ 619

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

initial load of WorldVistAEHR

File size: 6.2 KB
RevLine 
[613]1LREPIRP6 ;DALOI/CKA-EMERGING PATHOGENS DETAILED VERIFICATION REPORT ;5/14/2003
2 ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
3 ; Reference to ^DIC(21 supported by IA #2504
4 Q
5 ;HEADINGS of 1,3,4,5,6,8,10,18,19,20,21,22,23
6 ;Save in ^XTMP("LREPIREP"_date,path,"HDG",#)
7CDT(DATE) ;CONVERTS THE DATE AND TIME
8 S X=$E(DATE,5,6)_"-"_$E(DATE,7,8)_"-"_$E(DATE,1,4)
9 S:$E(DATE,9,12)'="" X=X_"@"_$E(DATE,9,12)
10 S:X="--" X=""
11 Q X
12HDGS ;1-VANCOMYCIN-RESISTANT ENTEROCOCCUS
13 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",1)="NTE~1-Report of Vancomycin-resistant Enterococcus"
14 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",2)="These data note persons at your facility during the month who had a positive"
15 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",3)="result for Vancomycin-resistant Enterococcus. Identifying information, along "
16 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",4)="with specimen and culture results have been provided."
17 ;
18 ;3-PENICILLIN-RESISTANT STREPTOCOCCUS PNEUMONIAE
19 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",1)="NTE~3-Report of Pencillin-resistant Streptococcus pneumoniae"
20 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",2)="These data note persons at your facility during the month who had a positive"
21 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",3)="result for Penicillin-resistant Streptococcus pneumoniae. Identifying"
22 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",4)=" information, along with specimen and culture results have been provided."
23 ;
24 ;4-clostridium difficile
25 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",1)="NTE~4-Report of Clostridium difficile"
26 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",2)="These data note persons at your facility during the month who had a positive"
27 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",3)="result for Clostridium difficile. Identifying information, along "
28 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",4)="with specimen and culture results have been provided."
29 ;
30 ;5-TUBERCULOSIS
31 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",1)="NTE~5-Report of Tuberculosis"
32 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",2)="These data note persons at your facility during the month who had a positive"
33 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",3)="result for Mycobacterium tuberculosis. Identifying information, along "
34 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",4)="with specimen and culture results have been provided."
35 ;
36 ;6-Group A Streptococcus
37 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",1)="NTE~6-Report of Group A Streptococcus"
38 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",2)="These data note persons at your facility during the month who had a positive"
39 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",3)="result for Group A Streptococcus. Identifying information, along "
40 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",4)="with specimen and culture results have been provided."
41 ;
42 ;8 - Candida Bloodstream Infections
43 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",1)="NTE~8-Report of Candida bloodstream infections"
44 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",2)="These data note persons at your facility during the month who had a positive"
45 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",3)="result for Candida (or other yeast) bloodstream infections. Identifying"
46 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",4)="information, along with specimen and culture results have been provided."
47 ;
48 ;10- Escherichia coli O157
49 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",1)="NTE~10-Report of Escherichia coli O157"
50 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",2)="These data note persons at your facility during the month who had a positive"
51 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",3)="result for Escherichia coli serotype O157. Identifying information, along "
52 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",4)="with specimen and culture results have been provided."
53 ;18-All Staphylococcus aureus
54 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",1)="NTE~18-Report of All Staphylococcus aureus"
55 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",2)="These data note persons at your facility during the month who had a positive"
56 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",3)="result for all Staphylococcus aureus. Identifying information, along "
57 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",4)="with specimen and culture results have been provided."
58 ;19-Methicillin-resistant Staphylococcus aureus
59 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",1)="NTE~19-Report of methicillin-resistant Staphylococcus"
60 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",2)="These data note persons at your facility during the month who had a positive"
61 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",3)="result for methicillin-resistant Staphylococcus aureus. Identifying"
62 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",4)="information, along with specimen and culture results have been provided."
63 ;20-Vancomycin-resistant Staphylococcus aureus
64 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",1)="NTE~20-Vancomycin-resistant Staphylococcus aureus"
65 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",2)="These data note persons at your facility during the month who had a positive"
66 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",3)="result for Vancomycin-resistant Staphylococcus aureus. Identifying information,"
67 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",4)="along with specimen and culture results have been provided."
68 ;
69 ;21-Vancomycin-resistant coagulase negative Staphylococcus
70 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",1)="NTE~21-Vancomycin-resistant coagulase negative Staphylococcus"
71 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",2)="These data note persons at your facility during the month who had a positive"
72 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",3)="result for Vancomycin-resistant coagulase negative staphylococcus. Identifying"
73 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",4)="information, along with specimen and culture results have been provided."
74 ;
75 ;22-All Streptococcus pneumoniae
76 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",1)="NTE~22-All Streptococcus pneumoniae"
77 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",2)="These data note persons at your facility during the month who had a positive"
78 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",3)="result for all Streptococcus pneumoniae. Identifying information, along "
79 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",4)="with specimen and culture results have been provided."
80 ;
81 ;23- All enterococci
82 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",1)="NTE~23- All Enterococci"
83 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",2)="These data note persons at your facility during the month who had a positive"
84 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",3)="result for all Enterococci. Identifying information, along "
85 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",4)="with specimen and culture results have been provided."
86 ;
87 Q
Note: See TracBrowser for help on using the repository browser.