©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUCCRHL7P5 ; CCRA/PB - TIU CCRA HL7 Msg Processing; January 6, 2006
;;1.0;TEXT INTEGRATION UTILITIES;**344**;Jun 20, 1997;Build 11
;
;PB - Patch 344 to modify how the note and addendum text is formatted
;
Q
DPA ;
D COMMON^TIUCCRHL7P4
K T2,T4 S T4="************ DISCHARGE PLANNING ADDENDUM************",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4=" "_$C(160)_" VETERAN'S"_$C(160)_"CAREGIVER"_$C(160)_"CONTACT INFO",T2(T4)=$C(160)_$C(160)_"VETERAN'S CAREGIVER CONTACT INFOMATION"_$C(160)
;K T2,T4 S T4="Veteran Social:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Date:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Original CCP Note Date (mm/dd/yyyy):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="CCPN Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Care Coordination Follow Up:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Phone Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("ADDITIONAL NOTES:")=$C(160)_$C(160)_"ADDITIONAL NOTES: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Authorized for inpatient care on",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Veteran's admitting diagnosis:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Is case management needed?",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Is disease management needed?",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Anticipated discharge of",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Anticipated discharge diagnosis:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Requested services include:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Skilled Nursing",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Home Health Aide",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="IV Therapy",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Wound Care/Dressing Change",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Lab Services",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Physical Therapy",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Occupational Therapy",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="DME",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Transportation Needs",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Behavioral Health Services",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Other:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Additional Notes (Optional):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T4,T2,T5
Q
AMA ;
K T2 S T2("Veteran Last Name: ")=$C(160)_"Veteran Last Name: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Veteran First Name: ")=$C(160)_"Veteran First Name: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2 S T2("Veteran Social: ")=$C(160)_"Social: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Date: ")=$C(160)_"Date: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Original CCP Note Date (mm/dd/yyyy): ")=$C(160)_"Original CCP Note Date (mm/dd/yyyy): " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("CCPN Number: ")=$C(160)_"CCPN Number: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("CONSULT AND REFERRAL INFORMATION")=$C(160)_$C(160)_"CONSULT AND REFERRAL INFORMATION"_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Name of Referring VA Provider: ")=$C(160)_"Name of Referring VA Provider: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Selected SEOC: ")=$C(160)_"Selected SEOC: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Referral Number: ")=$C(160)_"Referral Number: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Unique Consult ID: ")=$C(160)_"Unique Consult ID: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Patient Admitted (Yes/No): If yes, then please complete the Discharge Planning Addendum.",T2($G(T4))=$C(160)_$C(160)_$G(T4) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Please review all notes, this note may have one or more of the following addenda associated: ",T2($G(T4))=$C(160)_$G(T4) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Care Coordination Follow Up: ")=$C(160)_"Care Coordination Follow Up: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Appointment Management: ")=$C(160)_"Appointment Management: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Case Management: ")=$C(160)_"Case Management: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Continued Stay Review: ")=$C(160)_"Continued Stay Review: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Disease Management: ")=$C(160)_"Disease Management: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Discharge Planning: ")=$C(160)_"Discharge Planning: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Discharge Disposition: ")=$C(160)_"Discharge Disposition: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Veteran Contact: ")=$C(160)_"Veteran Contact: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Provider Contact: ")=$C(160)_"Provider Contact: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Transfer: ")=$C(160)_"Transfer: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Veteran Handoff: ")=$C(160)_"Veteran Handoff: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("FACILITY COMMUNITY CARE OFFICE CONTACT")=$C(160)_$C(160)_"FACILITY COMMUNITY CARE OFFICE CONTACT"_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Care Coordination Point of Contact: ")=$C(160)_"Care Coordination Point of Contact: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Phone Number: ")=$C(160)_"Phone Number: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2 S T2("VETERAN'S CAREGIVER CONTACT INFO")=$C(160)_"VETERAN'S CAREGIVER CONTACT INFO" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;S T2("VETERAN'SCAREGIVERCONTACT INFO")=$C(160)_$C(160)_"VETERAN'S CAREGIVER CONTACT INFOMATION"_$C(160)
K T2,T4 S T4="Is Veteran's caregiver same as next of kin listed in the demographic section of CPRS (Yes/No)?: If no, provide the following: ",T2($G(T4))=$C(160)_$G(T4) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Veteran's Caregiver Point of Contact: ")=$C(160)_"Veteran's Caregiver Point of Contact: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Caregiver's Relationship to Veteran: ")=$C(160)_"Caregiver's Relationship to Veteran: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Caregiver's Primary Phone Number: ")=$C(160)_"Caregiver's Primary Phone Number: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("PLAN: ")=$C(160)_"PLAN: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("************ APPOINTMENT MANAGEMENT ADDENDUM ************")=$C(160)_"************ APPOINTMENT MANAGEMENT ADDENDUM ************"_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="*** CC Plan may include specialty and associated appointment information, date of surgery, post-op needs, post d/c appointment, and any other care coordination plan ***" D
.S T2($G(T4))=$C(160)_$G(T4) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("ADDITIONAL NOTES: ")=$C(160)_$C(160)_"ADDITIONAL NOTES: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Select Clinic: ")=$C(160)_"Select Clinic: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Cardiology Appointment Location (select one):")=$C(160)_"Cardiology Appointment Location (select one):" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("VA Community Provider DoD Appointment Date (enter date): ")=$C(160)_"VA Community Provider DoD Appointment Date (enter date): " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("VA Community Provider DoD Appointment Date: ")=$C(160)_"VA Community Provider DoD Appointment Date: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("To be scheduled (date range): ")=$C(160)_"To be scheduled (date range): " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Reason for appointment: ")=$C(160)_"Reason for appointment: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Provider Name: Address: ")=$C(160)_"Provider Name: "_$C(160)_"Address: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("City: ")=$C(160)_"City: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("State: ")=$C(160)_"State: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Zip: ")="Zip: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Phone: ")=$C(160)_"Phone: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Gastroenterology Appointment Location: ")=$C(160)_"Gastroenterology Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("VA Community Provider DoD Appointment Date: ")=$C(160)_"VA Community Provider DoD Appointment Date: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("To be scheduled Reason for appointment: ")=$C(160)_"To be scheduled Reason for appointment: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Mental Health Appointment Location: ")=$C(160)_$C(160)_"Mental Health Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Neurology Appointment Location: ")=$C(160)_$C(160)_"Neurology Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Primary Care Appointment Location: ")=$C(160)_$C(160)_"Primary Care Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Pulmonary Appointment Location: ")=$C(160)_$C(160)_"Pulmonary Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Radiology Appointment Location: ")=$C(160)_$C(160)_"Radiology Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Surgical Subspecialties Appointment Location: ")=$C(160)_$C(160)_"Surgical Subspecialties Appointment Location: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Other (Specify): ")=$C(160)_$C(160)_"Other (Specify): "_$c(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T4
K T4,T2,T5
Q
DISP ;
D COMMON^TIUCCRHL7P4
K T2,T4 S T4="************ DISCHARGE DISPOSITION ADDENDUM"_$C(160)_"************",T2(T4)=$C(10)_"************ DISCHARGE DISPOSITION ADDENDUM************" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Veteran Social:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Date:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Original CCP Note Date (mm/dd/yyyy):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="CCPN Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Care Coordination Follow Up:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Phone Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge Disposition",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Name of Contact:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Select One:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to home",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge home"_$c(160)_"with family/other (Comment):",T2(T4)=$C(10)_"Discharge home with family/other (Comment):" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to Contract Nursing Home",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to Acute Rehab",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to Long Term Acute Care",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to Skilled Nursing Facility",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Discharge to Other:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Death (enter date/time if known):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T4,T2,T5
K T4,T2,T5
Q
DMA ;
D COMMON^TIUCCRHL7P4
K T2,T4 S T4="************ DISEASE MANAGEMENT ADDENDUM",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Veteran Social:",T2(T4)=$C(160)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Date:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Original CCP Note Date (mm/dd/yyyy):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="CCPN Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="ADDTIONAL NOTES:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Recommend that Veteran receive",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Warm handoff (if clinically indicated) to disease management coordinator on",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Additional Notes (Optional):",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Caregiver's Alternate Phone Number:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2,T4 S T4="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T4,T2,T5
Q