- 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 ---[H[J[2J[HLREPIRP9 2263 printed Feb 18, 2025@23:40:24 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
