| [613] | 1 | LREPIRP3 ;DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/14/2003
|
|---|
| 2 | ;;5.2;LAB SERVICE;**281**;Sep 27, 1994
|
|---|
| 3 | ; Reference to $$SITE^VASITE supported by IA #10112
|
|---|
| 4 | ; Reference to ^DIC(21 supported by IA #2504
|
|---|
| 5 | Q
|
|---|
| 6 | ;NTE findings of 11, 12, 13, or 14.
|
|---|
| 7 | ;SAVE PID, PV1, and DG1 data.
|
|---|
| 8 | Q
|
|---|
| 9 | PID ;
|
|---|
| 10 | D PID^LREPIRP2
|
|---|
| 11 | PV1 ;
|
|---|
| 12 | D PV1^LREPIRP2
|
|---|
| 13 | DG1 ;Save DG1 data
|
|---|
| 14 | ;^XTMP("LREPIREP"_date,PATHOGEN,dfn,"PV1",#,"DG1",#)
|
|---|
| 15 | Q
|
|---|
| 16 | HDG ;Save title heading in ^XTMP("LREPIREP"_date,"HDG",linecount)
|
|---|
| 17 | S SITE=$$SITE^VASITE
|
|---|
| 18 | S LRDTHDG=^TMP("LREPIREP",$J,1)
|
|---|
| 19 | S MSG=$E(LRSP,1,15)_"DETAILED VERIFICATION REPORT OF EPI EXTRACTED DATA"
|
|---|
| 20 | S ^XTMP("LREPIREP"_LRDATE,"HDG",1)=MSG
|
|---|
| 21 | S MSG=$E(LRSP,1,80-$L(" FROM STATION "_$P(SITE,U,3)_" "_$P(SITE,U,2))/2)_" FROM STATION "_$P(SITE,U,3)_" "_$P(SITE,U,2)
|
|---|
| 22 | S ^XTMP("LREPIREP"_LRDATE,"HDG",2)=MSG
|
|---|
| 23 | S MSG="PROCESSING PERIOD: "
|
|---|
| 24 | S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",4))
|
|---|
| 25 | S MSG=MSG_Y
|
|---|
| 26 | S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",6))
|
|---|
| 27 | S LRHDGL2=MSG_" through "_Y
|
|---|
| 28 | S ^XTMP("LREPIREP"_LRDATE,"HDG",3)=$E(LRSP,1,80-$L(LRHDGL2)/2)_LRHDGL2
|
|---|
| 29 | ;Save Heading info in ^XTMP("LREPIREP"_date,nte,"HDG",linecount)
|
|---|
| 30 | NTE11 ;NTE~11 Report of Malaria heading
|
|---|
| 31 | S ^XTMP("LREPIREP"_LRDATE,11,"HDG",1)="NTE~11-Report of Malaria"
|
|---|
| 32 | S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|---|
| 33 | S ^XTMP("LREPIREP"_LRDATE,11,"HDG",2)=MSG
|
|---|
| 34 | S MSG="coded diagnosis for malaria. Identifying information has been provided."
|
|---|
| 35 | S ^XTMP("LREPIREP"_LRDATE,11,"HDG",3)=MSG
|
|---|
| 36 | NTE12 ;NTE~12 Report of Dengue heading
|
|---|
| 37 | S MSG="NTE~12-Report of Dengue"
|
|---|
| 38 | S ^XTMP("LREPIREP"_LRDATE,12,"HDG",1)=MSG
|
|---|
| 39 | S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|---|
| 40 | S ^XTMP("LREPIREP"_LRDATE,12,"HDG",2)=MSG
|
|---|
| 41 | S MSG="coded diagnosis for dengue. Identifying information has been provided."
|
|---|
| 42 | S ^XTMP("LREPIREP"_LRDATE,12,"HDG",3)=MSG
|
|---|
| 43 | NTE13 ;NTE~13 Report of Creutzfeldt-Jakob Disease heading
|
|---|
| 44 | S MSG="NTE~13-Report of Creutzfeldt-Jakob Disease"
|
|---|
| 45 | S ^XTMP("LREPIREP"_LRDATE,13,"HDG",1)=MSG
|
|---|
| 46 | S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|---|
| 47 | S ^XTMP("LREPIREP"_LRDATE,13,"HDG",2)=MSG
|
|---|
| 48 | S MSG="coded diagnosis for Creutzfeldt-Jakob disease. Identifying information has been provided."
|
|---|
| 49 | S ^XTMP("LREPIREP"_LRDATE,13,"HDG",3)=MSG
|
|---|
| 50 | NTE14 ;NTE~14 Report of Leishmaniasis heading
|
|---|
| 51 | S MSG="NTE~14-Report of Leishmaniasis"
|
|---|
| 52 | S ^XTMP("LREPIREP"_LRDATE,14,"HDG",1)=MSG
|
|---|
| 53 | S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|---|
| 54 | S ^XTMP("LREPIREP"_LRDATE,14,"HDG",2)=MSG
|
|---|
| 55 | S MSG="coded diagnosis for Leishmania. Identifying information has been provided."
|
|---|
| 56 | S ^XTMP("LREPIREP"_LRDATE,14,"HDG",3)=MSG
|
|---|
| 57 | FOOT ;FOOTER FOR NTE 11,12,13,14
|
|---|
| 58 | S MSG="Initally, only inpatient cases will be captured; however, eventually it is"
|
|---|
| 59 | S ^XTMP("LREPIREP"_LRDATE,"FOOTNOTE",1)=MSG
|
|---|
| 60 | S MSG="anticiapted that this will include outpatient cases also."
|
|---|
| 61 | S ^XTMP("LREPIREP"_LRDATE,"FOOTNOTE",2)=MSG
|
|---|
| 62 | NTE7 ;NTE~7 Report of Legionella/Legionaire's heading
|
|---|
| 63 | S MSG="NTE~7- Report of Legionella/Legionaire's"
|
|---|
| 64 | S ^XTMP("LREPIREP"_LRDATE,7,"HDG",1)=MSG
|
|---|
| 65 | S MSG="These data note persons at your facility during the month who had an EITHER an"
|
|---|
| 66 | S ^XTMP("LREPIREP"_LRDATE,7,"HDG",2)=MSG
|
|---|
| 67 | S MSG="ICD-9 coded diagnosis for Legionella/Legionaire's disease OR a positive"
|
|---|
| 68 | S ^XTMP("LREPIREP"_LRDATE,7,"HDG",3)=MSG
|
|---|
| 69 | S MSG="culture result. Identifying information, along with specimen and culture"
|
|---|
| 70 | S ^XTMP("LREPIREP"_LRDATE,7,"HDG",4)=MSG
|
|---|
| 71 | S ^XTMP("LREPIREP"_LRDATE,7,"HDG",5)="results have been provided."
|
|---|
| 72 | NTE9 ;NTE~9 Report of Cryptosporidium heading
|
|---|
| 73 | S MSG="NTE~9-Report of Cryptosporidium"
|
|---|
| 74 | S ^XTMP("LREPIREP"_LRDATE,9,"HDG",1)=MSG
|
|---|
| 75 | S MSG="These data note persons at your facility during the month who had EITHER an"
|
|---|
| 76 | S ^XTMP("LREPIREP"_LRDATE,9,"HDG",2)=MSG
|
|---|
| 77 | S MSG="ICD-9 coded diagnosis for Cryptosporidium OR a positive culture result."
|
|---|
| 78 | S ^XTMP("LREPIREP"_LRDATE,9,"HDG",3)=MSG
|
|---|
| 79 | S ^XTMP("LREPIREP"_LRDATE,9,"HDG",4)="Identifying information, along with specimen and culture results have been"
|
|---|
| 80 | S ^XTMP("LREPIREP"_LRDATE,9,"HDG",5)="provided."
|
|---|
| 81 | ;
|
|---|
| 82 | NTE2 ;NTE 2 HEP C ANTIBODY POSITIVE HEADING
|
|---|
| 83 | S ^XTMP("LREPIREP"_LRDATE,2,"HDG",1)="NTE~2 Report of Hepatitis C antibody positive"
|
|---|
| 84 | S ^XTMP("LREPIREP"_LRDATE,2,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|---|
| 85 | S ^XTMP("LREPIREP"_LRDATE,2,"HDG",3)="positive test for hepatitis C antibody (based on accession date and not"
|
|---|
| 86 | S ^XTMP("LREPIREP"_LRDATE,2,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|---|
| 87 | S ^XTMP("LREPIREP"_LRDATE,2,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|---|
| 88 | NTE15 ;NTE 15 HEP C ANTIBODY NEGATIVE HEADING
|
|---|
| 89 | S ^XTMP("LREPIREP"_LRDATE,15,"HDG",1)="NTE~15 Report of Hepatitis C antibody negative"
|
|---|
| 90 | S ^XTMP("LREPIREP"_LRDATE,15,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|---|
| 91 | S ^XTMP("LREPIREP"_LRDATE,15,"HDG",3)="negative test for hepatitis C antibody (based on accession date and not"
|
|---|
| 92 | S ^XTMP("LREPIREP"_LRDATE,15,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|---|
| 93 | S ^XTMP("LREPIREP"_LRDATE,15,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|---|
| 94 | NTE16 ;NTE~16 HEP A ANTIBODY POSITIVE HEADINGS
|
|---|
| 95 | S ^XTMP("LREPIREP"_LRDATE,16,"HDG",1)="NTE~16 Report of Hepatitis A antibody positive"
|
|---|
| 96 | S ^XTMP("LREPIREP"_LRDATE,16,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|---|
| 97 | S ^XTMP("LREPIREP"_LRDATE,16,"HDG",3)="positive test for hepatitis A antibody (based on accession date and not"
|
|---|
| 98 | S ^XTMP("LREPIREP"_LRDATE,16,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|---|
| 99 | S ^XTMP("LREPIREP"_LRDATE,16,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|---|
| 100 | NTE17 ;NTE~17 HEP B POSITIVE HEADING
|
|---|
| 101 | S ^XTMP("LREPIREP"_LRDATE,17,"HDG",1)="NTE~17 Report of Hepatitis B positive"
|
|---|
| 102 | S ^XTMP("LREPIREP"_LRDATE,17,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|---|
| 103 | S ^XTMP("LREPIREP"_LRDATE,17,"HDG",3)="positive test for hepatitis B (based on accession date and not results"
|
|---|
| 104 | S ^XTMP("LREPIREP"_LRDATE,17,"HDG",4)="reported date). Definitions for data to be extracted are provided in"
|
|---|
| 105 | S ^XTMP("LREPIREP"_LRDATE,17,"HDG",5)="Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|---|
| 106 | UPD ;UPDATES HEADING
|
|---|
| 107 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",1)="UPDATES"
|
|---|
| 108 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",2)="This section presents patients who had a transmission of information during a"
|
|---|
| 109 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",3)="month on an EPI defined topic that was incomplete. These patients have"
|
|---|
| 110 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",4)="information that has been transmitted during the current processing month in"
|
|---|
| 111 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",5)="order to complete the EPI files. This information usually contains inpatient"
|
|---|
| 112 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",6)="information about discharge date, ICD-9 coded diagnoses and occasionally will"
|
|---|
| 113 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",7)="contain laboratory based testing. This line listing of patient, SSN, and"
|
|---|
| 114 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",8)="admission date and discharge date is provided to assist with analysis should"
|
|---|
| 115 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",9)="an processing/error report occur with your monthly automated transmission of"
|
|---|
| 116 | S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",10)="this data."
|
|---|
| 117 | PHARM ;PHARMACY DATA HEADINGS
|
|---|
| 118 | S ^XTMP("LREPIREP"_LRDATE,"PHHDG",1)="Pharmacy-based data extracted for EPI data base."
|
|---|
| 119 | HEPC ;HEP C RISK ASSESSMENT HEADING
|
|---|
| 120 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",1)="Detailed Listing of Hepatitis C Risk Assessment"
|
|---|
| 121 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",2)="These Health factors/Resolved terms for hepatitis C risk assessment are the"
|
|---|
| 122 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",3)="national Health factors used for roll-up of risk assessment data. They may not"
|
|---|
| 123 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",4)="reflect the terms actually utilized (seen) in the Clinical Reminder package at"
|
|---|
| 124 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",5)="this facility. To determine which local/facility Clinical Reminder health"
|
|---|
| 125 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",6)="factor(s) correspond(s) to the national term, please contact your facility"
|
|---|
| 126 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",7)="Clinical Reminder application coordinator. Note that hepatitis C infection"
|
|---|
| 127 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",8)="is based on a previously ICD-9 coded diagnosis of hepatitis C at your site/"
|
|---|
| 128 | S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",9)="facility."
|
|---|
| 129 | Q
|
|---|
