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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUCCRHL7P5 13524 printed Dec 13, 2024@02:39:09 Page 2
TIUCCRHL7P5 ; CCRA/PB - TIU CCRA HL7 Msg Processing; January 6, 2006
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**344**;Jun 20, 1997;Build 11
+2 ;
+3 ;PB - Patch 344 to modify how the note and addendum text is formatted
+4 ;
+5 QUIT
DPA ;
+1 DO COMMON^TIUCCRHL7P4
+2 KILL T2,T4
SET T4="************ DISCHARGE PLANNING ADDENDUM************"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+3 ;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)
+4 ;K T2,T4 S T4="Veteran Social:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+5 KILL T2,T4
SET T4="Date:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+6 KILL T2,T4
SET T4="Original CCP Note Date (mm/dd/yyyy):"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+7 KILL T2,T4
SET T4="CCPN Number:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+8 KILL T2,T4
SET T4="Care Coordination Follow Up:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+9 KILL T2,T4
SET T4="Phone Number:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+10 KILL T2
SET T2("ADDITIONAL NOTES:")=$CHAR(160)_$CHAR(160)_"ADDITIONAL NOTES: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+11 KILL T2,T4
SET T4="Authorized for inpatient care on"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+12 KILL T2,T4
SET T4="Veteran's admitting diagnosis:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+13 KILL T2,T4
SET T4="Is case management needed?"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+14 KILL T2,T4
SET T4="Is disease management needed?"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+15 KILL T2,T4
SET T4="Anticipated discharge of"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+16 KILL T2,T4
SET T4="Anticipated discharge diagnosis:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+17 KILL T2,T4
SET T4="Requested services include:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+18 KILL T2,T4
SET T4="Skilled Nursing"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+19 KILL T2,T4
SET T4="Home Health Aide"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+20 KILL T2,T4
SET T4="IV Therapy"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+21 KILL T2,T4
SET T4="Wound Care/Dressing Change"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+22 KILL T2,T4
SET T4="Lab Services"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+23 KILL T2,T4
SET T4="Physical Therapy"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+24 KILL T2,T4
SET T4="Occupational Therapy"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+25 KILL T2,T4
SET T4="DME"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+26 KILL T2,T4
SET T4="Transportation Needs"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+27 KILL T2,T4
SET T4="Behavioral Health Services"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+28 KILL T2,T4
SET T4="Other:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+29 KILL T2,T4
SET T4="Additional Notes (Optional):"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+30 KILL T4,T2,T5
+31 QUIT
AMA ;
+1 KILL T2
SET T2("Veteran Last Name: ")=$CHAR(160)_"Veteran Last Name: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+2 KILL T2
SET T2("Veteran First Name: ")=$CHAR(160)_"Veteran First Name: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+3 ;K T2 S T2("Veteran Social: ")=$C(160)_"Social: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+4 KILL T2
SET T2("Date: ")=$CHAR(160)_"Date: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+5 KILL T2
SET T2("Original CCP Note Date (mm/dd/yyyy): ")=$CHAR(160)_"Original CCP Note Date (mm/dd/yyyy): "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+6 KILL T2
SET T2("CCPN Number: ")=$CHAR(160)_"CCPN Number: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+7 KILL T2
SET T2("CONSULT AND REFERRAL INFORMATION")=$CHAR(160)_$CHAR(160)_"CONSULT AND REFERRAL INFORMATION"_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+8 KILL T2
SET T2("Name of Referring VA Provider: ")=$CHAR(160)_"Name of Referring VA Provider: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+9 KILL T2
SET T2("Selected SEOC: ")=$CHAR(160)_"Selected SEOC: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+10 KILL T2
SET T2("Referral Number: ")=$CHAR(160)_"Referral Number: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+11 KILL T2
SET T2("Unique Consult ID: ")=$CHAR(160)_"Unique Consult ID: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+12 KILL T2,T4
SET T4="Patient Admitted (Yes/No): If yes, then please complete the Discharge Planning Addendum."
SET T2($GET(T4))=$CHAR(160)_$CHAR(160)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+13 KILL T2,T4
SET T4="Please review all notes, this note may have one or more of the following addenda associated: "
SET T2($GET(T4))=$CHAR(160)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+14 KILL T2
SET T2("Care Coordination Follow Up: ")=$CHAR(160)_"Care Coordination Follow Up: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+15 KILL T2
SET T2("Appointment Management: ")=$CHAR(160)_"Appointment Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+16 KILL T2
SET T2("Case Management: ")=$CHAR(160)_"Case Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+17 KILL T2
SET T2("Continued Stay Review: ")=$CHAR(160)_"Continued Stay Review: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+18 KILL T2
SET T2("Disease Management: ")=$CHAR(160)_"Disease Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+19 KILL T2
SET T2("Discharge Planning: ")=$CHAR(160)_"Discharge Planning: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+20 KILL T2
SET T2("Discharge Disposition: ")=$CHAR(160)_"Discharge Disposition: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+21 KILL T2
SET T2("Veteran Contact: ")=$CHAR(160)_"Veteran Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+22 KILL T2
SET T2("Provider Contact: ")=$CHAR(160)_"Provider Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+23 KILL T2
SET T2("Transfer: ")=$CHAR(160)_"Transfer: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+24 KILL T2
SET T2("Veteran Handoff: ")=$CHAR(160)_"Veteran Handoff: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+25 KILL T2
SET T2("FACILITY COMMUNITY CARE OFFICE CONTACT")=$CHAR(160)_$CHAR(160)_"FACILITY COMMUNITY CARE OFFICE CONTACT"_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+26 KILL T2
SET T2("Care Coordination Point of Contact: ")=$CHAR(160)_"Care Coordination Point of Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+27 KILL T2
SET T2("Phone Number: ")=$CHAR(160)_"Phone Number: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+28 ;K T2 S T2("VETERAN'S CAREGIVER CONTACT INFO")=$C(160)_"VETERAN'S CAREGIVER CONTACT INFO" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+29 ;S T2("VETERAN'SCAREGIVERCONTACT INFO")=$C(160)_$C(160)_"VETERAN'S CAREGIVER CONTACT INFOMATION"_$C(160)
+30 KILL T2,T4
SET T4="Is Veteran's caregiver same as next of kin listed in the demographic section of CPRS (Yes/No)?: If no, provide the following: "
SET T2($GET(T4))=$CHAR(160)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+31 KILL T2
SET T2("Veteran's Caregiver Point of Contact: ")=$CHAR(160)_"Veteran's Caregiver Point of Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+32 KILL T2
SET T2("Caregiver's Relationship to Veteran: ")=$CHAR(160)_"Caregiver's Relationship to Veteran: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+33 KILL T2
SET T2("Caregiver's Primary Phone Number: ")=$CHAR(160)_"Caregiver's Primary Phone Number: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+34 KILL T2
SET T2("PLAN: ")=$CHAR(160)_"PLAN: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+35 KILL T2
SET T2("************ APPOINTMENT MANAGEMENT ADDENDUM ************")=$CHAR(160)_"************ APPOINTMENT MANAGEMENT ADDENDUM ************"_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+36 KILL T2,T4
SET 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 ***"
Begin DoDot:1
+37 SET T2($GET(T4))=$CHAR(160)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
End DoDot:1
+38 KILL T2
SET T2("ADDITIONAL NOTES: ")=$CHAR(160)_$CHAR(160)_"ADDITIONAL NOTES: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+39 KILL T2
SET T2("Select Clinic: ")=$CHAR(160)_"Select Clinic: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+40 KILL T2
SET T2("Cardiology Appointment Location (select one):")=$CHAR(160)_"Cardiology Appointment Location (select one):"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+41 KILL T2
SET T2("VA Community Provider DoD Appointment Date (enter date): ")=$CHAR(160)_"VA Community Provider DoD Appointment Date (enter date): "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+42 KILL T2
SET T2("VA Community Provider DoD Appointment Date: ")=$CHAR(160)_"VA Community Provider DoD Appointment Date: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+43 KILL T2
SET T2("To be scheduled (date range): ")=$CHAR(160)_"To be scheduled (date range): "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+44 KILL T2
SET T2("Reason for appointment: ")=$CHAR(160)_"Reason for appointment: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+45 KILL T2
SET T2("Provider Name: Address: ")=$CHAR(160)_"Provider Name: "_$CHAR(160)_"Address: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+46 KILL T2
SET T2("City: ")=$CHAR(160)_"City: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+47 KILL T2
SET T2("State: ")=$CHAR(160)_"State: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+48 KILL T2
SET T2("Zip: ")="Zip: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+49 KILL T2
SET T2("Phone: ")=$CHAR(160)_"Phone: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+50 KILL T2
SET T2("Gastroenterology Appointment Location: ")=$CHAR(160)_"Gastroenterology Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+51 KILL T2
SET T2("VA Community Provider DoD Appointment Date: ")=$CHAR(160)_"VA Community Provider DoD Appointment Date: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+52 KILL T2
SET T2("To be scheduled Reason for appointment: ")=$CHAR(160)_"To be scheduled Reason for appointment: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+53 KILL T2
SET T2("Mental Health Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Mental Health Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+54 KILL T2
SET T2("Neurology Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Neurology Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+55 KILL T2
SET T2("Primary Care Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Primary Care Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+56 KILL T2
SET T2("Pulmonary Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Pulmonary Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+57 KILL T2
SET T2("Radiology Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Radiology Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+58 KILL T2
SET T2("Surgical Subspecialties Appointment Location: ")=$CHAR(160)_$CHAR(160)_"Surgical Subspecialties Appointment Location: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+59 KILL T2
