LREPIRP9.m

LREPIRP9 ;DALOI/CKA-EMERGING PATHOGENS VERIFICATION REPORT ;9/30/03

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

 ; This routine contains documentation of the ^XTMP global created

 ;for the verification report.

 Q

REPORT ;

 ;^XTMP("LREPIREP"_DATE,0)="CREATION DATE^PURGE DATE(creation date+260)^description^creator"

 ;HEADINGS

 ;^XTMP("LREPIREP"_DATE,LRPATH,"HDG",#)

 ;Pathogen OF 1,3,4,5,6,8,10,18,19,20,21,22,23

 ;NTE~1 Vancomycin-resistan Enterococcus

 ;NTE~3 Penicillin-resistant Steptococcus pneumoniae

 ;NTE~4 Report of Clostidium difficile

 ;NTE~5 Report of Tuberculosis

 ;NTE~6 Report of Group A Streptococcus

 ;NTE~8 Report of Candida Bloodstream Infections

 ;NTE~10 Report of Escherichia coli 0157

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)

 ;NTES OF 11,12,13,14

 ;NTE~11 Report of Malaria

 ;NTE~12 Report of Dengue

 ;NTE~13 Report of Creutzfeldt-Jakob Disease

 ;NTE~14 Report of Leishmaniasis

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)

 ;NTES OF 7 AND 9

 ;NTE~7 Report of Legionella/Legionaire's

 ;NTE~9 Report of Cryptosporidium

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)

 ;NTES OF 2,15,16,17

 ;NTE~2 Report of Hepatitis C antibody positive

 ;NTE~15 Report of Hepatitis C antibody negative

 ;NTE~16 Report of Hepatitis A antibody positive

 ;NTE~17 Report of Hepatitis B positive

 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,#)

 ;="Name  SSN  Date of Test  Name of Test  Result of Test"

 ;UPDATES

 ;^XTMP("LREPIREP"_DATE,"UPDATES",#)

 ;  ="Name  SSN  EPI/Pathogen  Admission Date   Discharge Date"

 ;

 ;PHARMACY DATA

 ;^XTMP("LREPIREP"_DATE,"ZXE",DRUG NAME,#)

 ;  ="SSN  Name  Status(Inpatient/Outpatient) Date"

 ;RISK ASSESSMENT DATA

 ;^XTMP("LREPIREP"_DATE,"DSP",RISK ASSESSMENT NAME,#)

 ;  ="SSN  NAME  Status  Date"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LREPIRP9   2263     printed  Apr 09, 2024@21:16:40                                                                                                                                                                                                    Page 2

LREPIRP9  ;DALOI/CKA-EMERGING PATHOGENS VERIFICATION REPORT ;9/30/03

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

 +2       ; This routine contains documentation of the ^XTMP global created

 +3       ;for the verification report.

 +4        QUIT 

REPORT    ;

 +1       ;^XTMP("LREPIREP"_DATE,0)="CREATION DATE^PURGE DATE(creation date+260)^description^creator"

 +2       ;HEADINGS

 +3       ;^XTMP("LREPIREP"_DATE,LRPATH,"HDG",#)

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

 +5       ;NTE~1 Vancomycin-resistan Enterococcus

 +6       ;NTE~3 Penicillin-resistant Steptococcus pneumoniae

 +7       ;NTE~4 Report of Clostidium difficile

 +8       ;NTE~5 Report of Tuberculosis

 +9       ;NTE~6 Report of Group A Streptococcus

 +10      ;NTE~8 Report of Candida Bloodstream Infections

 +11      ;NTE~10 Report of Escherichia coli 0157

 +12      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 +13      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 +14      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)

 +15      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)

 +16      ;NTES OF 11,12,13,14

 +17      ;NTE~11 Report of Malaria

 +18      ;NTE~12 Report of Dengue

 +19      ;NTE~13 Report of Creutzfeldt-Jakob Disease

 +20      ;NTE~14 Report of Leishmaniasis

 +21      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 +22      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 +23      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)

 +24      ;NTES OF 7 AND 9

 +25      ;NTE~7 Report of Legionella/Legionaire's

 +26      ;NTE~9 Report of Cryptosporidium

 +27      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")

 +28      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)

 +29      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)

 +30      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)

 +31      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)

 +32      ;NTES OF 2,15,16,17

 +33      ;NTE~2 Report of Hepatitis C antibody positive

 +34      ;NTE~15 Report of Hepatitis C antibody negative

 +35      ;NTE~16 Report of Hepatitis A antibody positive

 +36      ;NTE~17 Report of Hepatitis B positive

 +37      ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,#)

 +38      ;="Name  SSN  Date of Test  Name of Test  Result of Test"

 +39      ;UPDATES

 +40      ;^XTMP("LREPIREP"_DATE,"UPDATES",#)

 +41      ;  ="Name  SSN  EPI/Pathogen  Admission Date   Discharge Date"

 +42      ;

 +43      ;PHARMACY DATA

 +44      ;^XTMP("LREPIREP"_DATE,"ZXE",DRUG NAME,#)

 +45      ;  ="SSN  Name  Status(Inpatient/Outpatient) Date"

 +46      ;RISK ASSESSMENT DATA

 +47      ;^XTMP("LREPIREP"_DATE,"DSP",RISK ASSESSMENT NAME,#)

 +48      ;  ="SSN  NAME  Status  Date"

 +49       QUIT