source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LREPIRP9.m@ 636

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1LREPIRP9 ;DALOI/CKA-EMERGING PATHOGENS VERIFICATION REPORT ;9/30/03
2 ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
3 ; This routine contains documentation of the ^XTMP global created
4 ;for the verification report.
5 Q
6REPORT ;
7 ;^XTMP("LREPIREP"_DATE,0)="CREATION DATE^PURGE DATE(creation date+260)^description^creator"
8 ;HEADINGS
9 ;^XTMP("LREPIREP"_DATE,LRPATH,"HDG",#)
10 ;Pathogen OF 1,3,4,5,6,8,10,18,19,20,21,22,23
11 ;NTE~1 Vancomycin-resistan Enterococcus
12 ;NTE~3 Penicillin-resistant Steptococcus pneumoniae
13 ;NTE~4 Report of Clostidium difficile
14 ;NTE~5 Report of Tuberculosis
15 ;NTE~6 Report of Group A Streptococcus
16 ;NTE~8 Report of Candida Bloodstream Infections
17 ;NTE~10 Report of Escherichia coli 0157
18 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")
19 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)
20 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)
21 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)
22 ;NTES OF 11,12,13,14
23 ;NTE~11 Report of Malaria
24 ;NTE~12 Report of Dengue
25 ;NTE~13 Report of Creutzfeldt-Jakob Disease
26 ;NTE~14 Report of Leishmaniasis
27 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")
28 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)
29 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)
30 ;NTES OF 7 AND 9
31 ;NTE~7 Report of Legionella/Legionaire's
32 ;NTE~9 Report of Cryptosporidium
33 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PID")
34 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",#)
35 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"DG1",#)
36 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",#)
37 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,"PV1",LRPV1,"OBR",LROBR,"OBX",#)
38 ;NTES OF 2,15,16,17
39 ;NTE~2 Report of Hepatitis C antibody positive
40 ;NTE~15 Report of Hepatitis C antibody negative
41 ;NTE~16 Report of Hepatitis A antibody positive
42 ;NTE~17 Report of Hepatitis B positive
43 ;^XTMP("LREPIREP"_DATE,LRPATH,DFN,#)
44 ;="Name SSN Date of Test Name of Test Result of Test"
45 ;UPDATES
46 ;^XTMP("LREPIREP"_DATE,"UPDATES",#)
47 ; ="Name SSN EPI/Pathogen Admission Date Discharge Date"
48 ;
49 ;PHARMACY DATA
50 ;^XTMP("LREPIREP"_DATE,"ZXE",DRUG NAME,#)
51 ; ="SSN Name Status(Inpatient/Outpatient) Date"
52 ;RISK ASSESSMENT DATA
53 ;^XTMP("LREPIREP"_DATE,"DSP",RISK ASSESSMENT NAME,#)
54 ; ="SSN NAME Status Date"
55 Q
Note: See TracBrowser for help on using the repository browser.