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