130 lines
8.4 KiB
Mathematica
130 lines
8.4 KiB
Mathematica
LREPIRP3 ;DALOI/CKA-EMERGING PATHOGENS HL7 REPORT CONVERSION ;5/14/2003
|
|
;;5.2;LAB SERVICE;**281**;Sep 27, 1994
|
|
; Reference to $$SITE^VASITE supported by IA #10112
|
|
; Reference to ^DIC(21 supported by IA #2504
|
|
Q
|
|
;NTE findings of 11, 12, 13, or 14.
|
|
;SAVE PID, PV1, and DG1 data.
|
|
Q
|
|
PID ;
|
|
D PID^LREPIRP2
|
|
PV1 ;
|
|
D PV1^LREPIRP2
|
|
DG1 ;Save DG1 data
|
|
;^XTMP("LREPIREP"_date,PATHOGEN,dfn,"PV1",#,"DG1",#)
|
|
Q
|
|
HDG ;Save title heading in ^XTMP("LREPIREP"_date,"HDG",linecount)
|
|
S SITE=$$SITE^VASITE
|
|
S LRDTHDG=^TMP("LREPIREP",$J,1)
|
|
S MSG=$E(LRSP,1,15)_"DETAILED VERIFICATION REPORT OF EPI EXTRACTED DATA"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HDG",1)=MSG
|
|
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)
|
|
S ^XTMP("LREPIREP"_LRDATE,"HDG",2)=MSG
|
|
S MSG="PROCESSING PERIOD: "
|
|
S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",4))
|
|
S MSG=MSG_Y
|
|
S Y=$$CDT^LREPIRP2($P($P($P(LRDTHDG,HLFS,3),LRCS,2)," ",6))
|
|
S LRHDGL2=MSG_" through "_Y
|
|
S ^XTMP("LREPIREP"_LRDATE,"HDG",3)=$E(LRSP,1,80-$L(LRHDGL2)/2)_LRHDGL2
|
|
;Save Heading info in ^XTMP("LREPIREP"_date,nte,"HDG",linecount)
|
|
NTE11 ;NTE~11 Report of Malaria heading
|
|
S ^XTMP("LREPIREP"_LRDATE,11,"HDG",1)="NTE~11-Report of Malaria"
|
|
S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|
S ^XTMP("LREPIREP"_LRDATE,11,"HDG",2)=MSG
|
|
S MSG="coded diagnosis for malaria. Identifying information has been provided."
|
|
S ^XTMP("LREPIREP"_LRDATE,11,"HDG",3)=MSG
|
|
NTE12 ;NTE~12 Report of Dengue heading
|
|
S MSG="NTE~12-Report of Dengue"
|
|
S ^XTMP("LREPIREP"_LRDATE,12,"HDG",1)=MSG
|
|
S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|
S ^XTMP("LREPIREP"_LRDATE,12,"HDG",2)=MSG
|
|
S MSG="coded diagnosis for dengue. Identifying information has been provided."
|
|
S ^XTMP("LREPIREP"_LRDATE,12,"HDG",3)=MSG
|
|
NTE13 ;NTE~13 Report of Creutzfeldt-Jakob Disease heading
|
|
S MSG="NTE~13-Report of Creutzfeldt-Jakob Disease"
|
|
S ^XTMP("LREPIREP"_LRDATE,13,"HDG",1)=MSG
|
|
S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|
S ^XTMP("LREPIREP"_LRDATE,13,"HDG",2)=MSG
|
|
S MSG="coded diagnosis for Creutzfeldt-Jakob disease. Identifying information has been provided."
|
|
S ^XTMP("LREPIREP"_LRDATE,13,"HDG",3)=MSG
|
|
NTE14 ;NTE~14 Report of Leishmaniasis heading
|
|
S MSG="NTE~14-Report of Leishmaniasis"
|
|
S ^XTMP("LREPIREP"_LRDATE,14,"HDG",1)=MSG
|
|
S MSG="These data note persons at your facility during the month who had an ICD-9"
|
|
S ^XTMP("LREPIREP"_LRDATE,14,"HDG",2)=MSG
|
|
S MSG="coded diagnosis for Leishmania. Identifying information has been provided."
|
|
S ^XTMP("LREPIREP"_LRDATE,14,"HDG",3)=MSG
|
|
FOOT ;FOOTER FOR NTE 11,12,13,14
|
|
S MSG="Initally, only inpatient cases will be captured; however, eventually it is"
|
|
S ^XTMP("LREPIREP"_LRDATE,"FOOTNOTE",1)=MSG
|
|
S MSG="anticiapted that this will include outpatient cases also."
|
|
S ^XTMP("LREPIREP"_LRDATE,"FOOTNOTE",2)=MSG
|
|
NTE7 ;NTE~7 Report of Legionella/Legionaire's heading
|
|
S MSG="NTE~7- Report of Legionella/Legionaire's"
|
|
S ^XTMP("LREPIREP"_LRDATE,7,"HDG",1)=MSG
|
|
S MSG="These data note persons at your facility during the month who had an EITHER an"
|
|
S ^XTMP("LREPIREP"_LRDATE,7,"HDG",2)=MSG
|
|
S MSG="ICD-9 coded diagnosis for Legionella/Legionaire's disease OR a positive"
|
|
S ^XTMP("LREPIREP"_LRDATE,7,"HDG",3)=MSG
|
|
S MSG="culture result. Identifying information, along with specimen and culture"
|
|
S ^XTMP("LREPIREP"_LRDATE,7,"HDG",4)=MSG
|
|
S ^XTMP("LREPIREP"_LRDATE,7,"HDG",5)="results have been provided."
|
|
NTE9 ;NTE~9 Report of Cryptosporidium heading
|
|
S MSG="NTE~9-Report of Cryptosporidium"
|
|
S ^XTMP("LREPIREP"_LRDATE,9,"HDG",1)=MSG
|
|
S MSG="These data note persons at your facility during the month who had EITHER an"
|
|
S ^XTMP("LREPIREP"_LRDATE,9,"HDG",2)=MSG
|
|
S MSG="ICD-9 coded diagnosis for Cryptosporidium OR a positive culture result."
|
|
S ^XTMP("LREPIREP"_LRDATE,9,"HDG",3)=MSG
|
|
S ^XTMP("LREPIREP"_LRDATE,9,"HDG",4)="Identifying information, along with specimen and culture results have been"
|
|
S ^XTMP("LREPIREP"_LRDATE,9,"HDG",5)="provided."
|
|
;
|
|
NTE2 ;NTE 2 HEP C ANTIBODY POSITIVE HEADING
|
|
S ^XTMP("LREPIREP"_LRDATE,2,"HDG",1)="NTE~2 Report of Hepatitis C antibody positive"
|
|
S ^XTMP("LREPIREP"_LRDATE,2,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|
S ^XTMP("LREPIREP"_LRDATE,2,"HDG",3)="positive test for hepatitis C antibody (based on accession date and not"
|
|
S ^XTMP("LREPIREP"_LRDATE,2,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|
S ^XTMP("LREPIREP"_LRDATE,2,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|
NTE15 ;NTE 15 HEP C ANTIBODY NEGATIVE HEADING
|
|
S ^XTMP("LREPIREP"_LRDATE,15,"HDG",1)="NTE~15 Report of Hepatitis C antibody negative"
|
|
S ^XTMP("LREPIREP"_LRDATE,15,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|
S ^XTMP("LREPIREP"_LRDATE,15,"HDG",3)="negative test for hepatitis C antibody (based on accession date and not"
|
|
S ^XTMP("LREPIREP"_LRDATE,15,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|
S ^XTMP("LREPIREP"_LRDATE,15,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|
NTE16 ;NTE~16 HEP A ANTIBODY POSITIVE HEADINGS
|
|
S ^XTMP("LREPIREP"_LRDATE,16,"HDG",1)="NTE~16 Report of Hepatitis A antibody positive"
|
|
S ^XTMP("LREPIREP"_LRDATE,16,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|
S ^XTMP("LREPIREP"_LRDATE,16,"HDG",3)="positive test for hepatitis A antibody (based on accession date and not"
|
|
S ^XTMP("LREPIREP"_LRDATE,16,"HDG",4)="results reported date). Definitions for data to be extracted are provided"
|
|
S ^XTMP("LREPIREP"_LRDATE,16,"HDG",5)="in Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|
NTE17 ;NTE~17 HEP B POSITIVE HEADING
|
|
S ^XTMP("LREPIREP"_LRDATE,17,"HDG",1)="NTE~17 Report of Hepatitis B positive"
|
|
S ^XTMP("LREPIREP"_LRDATE,17,"HDG",2)="This represents a line listing of persons reported during the month who had a"
|
|
S ^XTMP("LREPIREP"_LRDATE,17,"HDG",3)="positive test for hepatitis B (based on accession date and not results"
|
|
S ^XTMP("LREPIREP"_LRDATE,17,"HDG",4)="reported date). Definitions for data to be extracted are provided in"
|
|
S ^XTMP("LREPIREP"_LRDATE,17,"HDG",5)="Technical and User Guide documentation for Laboratory EPI LR*5.2*281."
|
|
UPD ;UPDATES HEADING
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",1)="UPDATES"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",2)="This section presents patients who had a transmission of information during a"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",3)="month on an EPI defined topic that was incomplete. These patients have"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",4)="information that has been transmitted during the current processing month in"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",5)="order to complete the EPI files. This information usually contains inpatient"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",6)="information about discharge date, ICD-9 coded diagnoses and occasionally will"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",7)="contain laboratory based testing. This line listing of patient, SSN, and"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",8)="admission date and discharge date is provided to assist with analysis should"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",9)="an processing/error report occur with your monthly automated transmission of"
|
|
S ^XTMP("LREPIREP"_LRDATE,"UPDHDG",10)="this data."
|
|
PHARM ;PHARMACY DATA HEADINGS
|
|
S ^XTMP("LREPIREP"_LRDATE,"PHHDG",1)="Pharmacy-based data extracted for EPI data base."
|
|
HEPC ;HEP C RISK ASSESSMENT HEADING
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",1)="Detailed Listing of Hepatitis C Risk Assessment"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",2)="These Health factors/Resolved terms for hepatitis C risk assessment are the"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",3)="national Health factors used for roll-up of risk assessment data. They may not"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",4)="reflect the terms actually utilized (seen) in the Clinical Reminder package at"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",5)="this facility. To determine which local/facility Clinical Reminder health"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",6)="factor(s) correspond(s) to the national term, please contact your facility"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",7)="Clinical Reminder application coordinator. Note that hepatitis C infection"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",8)="is based on a previously ICD-9 coded diagnosis of hepatitis C at your site/"
|
|
S ^XTMP("LREPIREP"_LRDATE,"HEPCHDG",9)="facility."
|
|
Q
|