LREPIRP6.m

LREPIRP6 ;VA/DALOI/CKA-EMERGING PATHOGENS DETAILED VERIFICATION REPORT ;5/14/2003

 ;;5.2;LAB SERVICE;**1030**;NOV 01, 1997

 ;;5.2;LAB SERVICE;**281**;Sep 27, 1994

 ; Reference to ^DIC(21 supported by IA #2504

 Q

 ;HEADINGS of 1,3,4,5,6,8,10,18,19,20,21,22,23

 ;Save in ^XTMP("LREPIREP"_date,path,"HDG",#)

CDT(DATE) ;CONVERTS THE DATE AND TIME

 S X=$E(DATE,5,6)_"-"_$E(DATE,7,8)_"-"_$E(DATE,1,4)

 S:$E(DATE,9,12)'="" X=X_"@"_$E(DATE,9,12)

 S:X="--" X=""

 Q X

HDGS ;1-VANCOMYCIN-RESISTANT ENTEROCOCCUS

 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",1)="NTE~1-Report of Vancomycin-resistant Enterococcus"

 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",3)="result for Vancomycin-resistant Enterococcus.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,1,"HDG",4)="with specimen and culture results have been provided."

 ;

 ;3-PENICILLIN-RESISTANT STREPTOCOCCUS PNEUMONIAE

 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",1)="NTE~3-Report of Pencillin-resistant Streptococcus pneumoniae"

 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",3)="result for Penicillin-resistant Streptococcus pneumoniae.  Identifying"

 S ^XTMP("LREPIREP"_LRDATE,3,"HDG",4)=" information, along with specimen and culture results have been provided."

 ;

 ;4-clostridium difficile

 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",1)="NTE~4-Report of Clostridium difficile"

 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",3)="result for Clostridium difficile.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,4,"HDG",4)="with specimen and culture results have been provided."

 ;

 ;5-TUBERCULOSIS

 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",1)="NTE~5-Report of Tuberculosis"

 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",3)="result for Mycobacterium tuberculosis.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,5,"HDG",4)="with specimen and culture results have been provided."

 ;

 ;6-Group A Streptococcus

 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",1)="NTE~6-Report of Group A Streptococcus"

 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",3)="result for Group A Streptococcus.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,6,"HDG",4)="with specimen and culture results have been provided."

 ;

 ;8 - Candida Bloodstream Infections

 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",1)="NTE~8-Report of Candida bloodstream infections"

 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",3)="result for Candida (or other yeast) bloodstream infections.  Identifying"

 S ^XTMP("LREPIREP"_LRDATE,8,"HDG",4)="information, along with specimen and culture results have been provided."

 ;

 ;10- Escherichia coli O157

 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",1)="NTE~10-Report of Escherichia coli O157"

 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",3)="result for Escherichia coli serotype O157.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,10,"HDG",4)="with specimen and culture results have been provided."

 ;18-All Staphylococcus aureus

 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",1)="NTE~18-Report of All Staphylococcus aureus"

 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",3)="result for all Staphylococcus aureus.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,18,"HDG",4)="with specimen and culture results have been provided."

 ;19-Methicillin-resistant Staphylococcus aureus

 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",1)="NTE~19-Report of methicillin-resistant Staphylococcus"

 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",3)="result for methicillin-resistant Staphylococcus aureus.  Identifying"

 S ^XTMP("LREPIREP"_LRDATE,19,"HDG",4)="information, along with specimen and culture results have been provided."

 ;20-Vancomycin-resistant Staphylococcus aureus

 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",1)="NTE~20-Vancomycin-resistant Staphylococcus aureus"

 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",3)="result for Vancomycin-resistant Staphylococcus aureus.  Identifying information,"

 S ^XTMP("LREPIREP"_LRDATE,20,"HDG",4)="along with specimen and culture results have been provided."

 ;

 ;21-Vancomycin-resistant coagulase negative Staphylococcus

 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",1)="NTE~21-Vancomycin-resistant coagulase negative Staphylococcus"

 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",3)="result for Vancomycin-resistant coagulase negative staphylococcus.  Identifying"

 S ^XTMP("LREPIREP"_LRDATE,21,"HDG",4)="information, along with specimen and culture results have been provided."

 ;

 ;22-All Streptococcus pneumoniae

 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",1)="NTE~22-All Streptococcus pneumoniae"

 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",3)="result for all Streptococcus pneumoniae.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,22,"HDG",4)="with specimen and culture results have been provided."

 ;

 ;23- All enterococci

 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",1)="NTE~23- All Enterococci"

 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",2)="These data note persons at your facility during the month who had a positive"

 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",3)="result for all Enterococci.  Identifying information, along "

 S ^XTMP("LREPIREP"_LRDATE,23,"HDG",4)="with specimen and culture results have been provided."

 ;

 Q

LREPIRP6  ;VA/DALOI/CKA-EMERGING PATHOGENS DETAILED VERIFICATION REPORT ;5/14/2003

 +1       ;;5.2;LAB SERVICE;**1030**;NOV 01, 1997

 +2       ;;5.2;LAB SERVICE;**281**;Sep 27, 1994

 +3       ; Reference to ^DIC(21 supported by IA #2504

 +4        QUIT 

 +5       ;HEADINGS of 1,3,4,5,6,8,10,18,19,20,21,22,23

 +6       ;Save in ^XTMP("LREPIREP"_date,path,"HDG",#)

CDT(DATE) ;CONVERTS THE DATE AND TIME

 +1        SET X=$EXTRACT(DATE,5,6)_"-"_$EXTRACT(DATE,7,8)_"-"_$EXTRACT(DATE,1,4)

 +2        IF $EXTRACT(DATE,9,12)'=""

               SET X=X_"@"_$EXTRACT(DATE,9,12)

 +3        IF X="--"

               SET X=""

 +4        QUIT X

HDGS      ;1-VANCOMYCIN-RESISTANT ENTEROCOCCUS

 +1        SET ^XTMP("LREPIREP"_LRDATE,1,"HDG",1)="NTE~1-Report of Vancomycin-resistant Enterococcus"

 +2        SET ^XTMP("LREPIREP"_LRDATE,1,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +3        SET ^XTMP("LREPIREP"_LRDATE,1,"HDG",3)="result for Vancomycin-resistant Enterococcus.  Identifying information, along "

 +4        SET ^XTMP("LREPIREP"_LRDATE,1,"HDG",4)="with specimen and culture results have been provided."

 +5       ;

 +6       ;3-PENICILLIN-RESISTANT STREPTOCOCCUS PNEUMONIAE

 +7        SET ^XTMP("LREPIREP"_LRDATE,3,"HDG",1)="NTE~3-Report of Pencillin-resistant Streptococcus pneumoniae"

 +8        SET ^XTMP("LREPIREP"_LRDATE,3,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +9        SET ^XTMP("LREPIREP"_LRDATE,3,"HDG",3)="result for Penicillin-resistant Streptococcus pneumoniae.  Identifying"

 +10       SET ^XTMP("LREPIREP"_LRDATE,3,"HDG",4)=" information, along with specimen and culture results have been provided."

 +11      ;

 +12      ;4-clostridium difficile

 +13       SET ^XTMP("LREPIREP"_LRDATE,4,"HDG",1)="NTE~4-Report of Clostridium difficile"

 +14       SET ^XTMP("LREPIREP"_LRDATE,4,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +15       SET ^XTMP("LREPIREP"_LRDATE,4,"HDG",3)="result for Clostridium difficile.  Identifying information, along "

 +16       SET ^XTMP("LREPIREP"_LRDATE,4,"HDG",4)="with specimen and culture results have been provided."

 +17      ;

 +18      ;5-TUBERCULOSIS

 +19       SET ^XTMP("LREPIREP"_LRDATE,5,"HDG",1)="NTE~5-Report of Tuberculosis"

 +20       SET ^XTMP("LREPIREP"_LRDATE,5,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +21       SET ^XTMP("LREPIREP"_LRDATE,5,"HDG",3)="result for Mycobacterium tuberculosis.  Identifying information, along "

 +22       SET ^XTMP("LREPIREP"_LRDATE,5,"HDG",4)="with specimen and culture results have been provided."

 +23      ;

 +24      ;6-Group A Streptococcus

 +25       SET ^XTMP("LREPIREP"_LRDATE,6,"HDG",1)="NTE~6-Report of Group A Streptococcus"

 +26       SET ^XTMP("LREPIREP"_LRDATE,6,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +27       SET ^XTMP("LREPIREP"_LRDATE,6,"HDG",3)="result for Group A Streptococcus.  Identifying information, along "

 +28       SET ^XTMP("LREPIREP"_LRDATE,6,"HDG",4)="with specimen and culture results have been provided."

 +29      ;

 +30      ;8 - Candida Bloodstream Infections

 +31       SET ^XTMP("LREPIREP"_LRDATE,8,"HDG",1)="NTE~8-Report of Candida bloodstream infections"

 +32       SET ^XTMP("LREPIREP"_LRDATE,8,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +33       SET ^XTMP("LREPIREP"_LRDATE,8,"HDG",3)="result for Candida (or other yeast) bloodstream infections.  Identifying"

 +34       SET ^XTMP("LREPIREP"_LRDATE,8,"HDG",4)="information, along with specimen and culture results have been provided."

 +35      ;

 +36      ;10- Escherichia coli O157

 +37       SET ^XTMP("LREPIREP"_LRDATE,10,"HDG",1)="NTE~10-Report of Escherichia coli O157"

 +38       SET ^XTMP("LREPIREP"_LRDATE,10,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +39       SET ^XTMP("LREPIREP"_LRDATE,10,"HDG",3)="result for Escherichia coli serotype O157.  Identifying information, along "

 +40       SET ^XTMP("LREPIREP"_LRDATE,10,"HDG",4)="with specimen and culture results have been provided."

 +41      ;18-All Staphylococcus aureus

 +42       SET ^XTMP("LREPIREP"_LRDATE,18,"HDG",1)="NTE~18-Report of All Staphylococcus aureus"

 +43       SET ^XTMP("LREPIREP"_LRDATE,18,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +44       SET ^XTMP("LREPIREP"_LRDATE,18,"HDG",3)="result for all Staphylococcus aureus.  Identifying information, along "

 +45       SET ^XTMP("LREPIREP"_LRDATE,18,"HDG",4)="with specimen and culture results have been provided."

 +46      ;19-Methicillin-resistant Staphylococcus aureus

 +47       SET ^XTMP("LREPIREP"_LRDATE,19,"HDG",1)="NTE~19-Report of methicillin-resistant Staphylococcus"

 +48       SET ^XTMP("LREPIREP"_LRDATE,19,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +49       SET ^XTMP("LREPIREP"_LRDATE,19,"HDG",3)="result for methicillin-resistant Staphylococcus aureus.  Identifying"

 +50       SET ^XTMP("LREPIREP"_LRDATE,19,"HDG",4)="information, along with specimen and culture results have been provided."

 +51      ;20-Vancomycin-resistant Staphylococcus aureus

 +52       SET ^XTMP("LREPIREP"_LRDATE,20,"HDG",1)="NTE~20-Vancomycin-resistant Staphylococcus aureus"

 +53       SET ^XTMP("LREPIREP"_LRDATE,20,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +54       SET ^XTMP("LREPIREP"_LRDATE,20,"HDG",3)="result for Vancomycin-resistant Staphylococcus aureus.  Identifying information,"

 +55       SET ^XTMP("LREPIREP"_LRDATE,20,"HDG",4)="along with specimen and culture results have been provided."

 +56      ;

 +57      ;21-Vancomycin-resistant coagulase negative Staphylococcus

 +58       SET ^XTMP("LREPIREP"_LRDATE,21,"HDG",1)="NTE~21-Vancomycin-resistant coagulase negative Staphylococcus"

 +59       SET ^XTMP("LREPIREP"_LRDATE,21,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +60       SET ^XTMP("LREPIREP"_LRDATE,21,"HDG",3)="result for Vancomycin-resistant coagulase negative staphylococcus.  Identifying"

 +61       SET ^XTMP("LREPIREP"_LRDATE,21,"HDG",4)="information, along with specimen and culture results have been provided."

 +62      ;

 +63      ;22-All Streptococcus pneumoniae

 +64       SET ^XTMP("LREPIREP"_LRDATE,22,"HDG",1)="NTE~22-All Streptococcus pneumoniae"

 +65       SET ^XTMP("LREPIREP"_LRDATE,22,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +66       SET ^XTMP("LREPIREP"_LRDATE,22,"HDG",3)="result for all Streptococcus pneumoniae.  Identifying information, along "

 +67       SET ^XTMP("LREPIREP"_LRDATE,22,"HDG",4)="with specimen and culture results have been provided."

 +68      ;

 +69      ;23- All enterococci

 +70       SET ^XTMP("LREPIREP"_LRDATE,23,"HDG",1)="NTE~23- All Enterococci"

 +71       SET ^XTMP("LREPIREP"_LRDATE,23,"HDG",2)="These data note persons at your facility during the month who had a positive"

 +72       SET ^XTMP("LREPIREP"_LRDATE,23,"HDG",3)="result for all Enterococci.  Identifying information, along "

 +73       SET ^XTMP("LREPIREP"_LRDATE,23,"HDG",4)="with specimen and culture results have been provided."

 +74      ;

 +75       QUIT