Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LREPIRP3

LREPIRP3.m

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