TIUCCRHL7P6 ; 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
CCPN ;
K T2 S T2("CCP Note Create Date:")=$C(160)_"CCP Note Create Date:"_$C(160) 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("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)_"Veteran 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("CONSULT AND REFERRAL INFORMATION")=$C(160)_"CONSULT AND REFERRAL INFORMATION" 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"_$C(160)_"the Discharge"_$C(160)_"Planning Addendum." I $G(T4)'="" D
.S T2($G(T4))=$C(160)_"Patient Admitted (Yes/No): If yes, then please complete the Discharge Planning Addendum." S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Chief Complaint: ")=$C(160)_"Chief Complaint: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Risks (e.g. clinical or biophysical risks identified from S/T tool or brief chart review, such as dementia, homelessness, no family support, etc. If unknown, state ""Unknown""): " D
. S T2($G(T4))=$C(160)_$G(T4) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Level of Care Coordination: ")=$C(160)_"Level of Care Coordination: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="BasicPlease review all notes, this note may have one or more of the following addenda associated: " I $G(T4)'="" D
.S T2($G(T4))=$C(160)_"Basic Please review all notes, this note may have one or more of the following addenda associated: "_$C(160) 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("Note for Appointment Management Addendum Appointment Management: ")=$C(160)_"Note for Appointment Management Addendum 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)_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Care Coordination Point of Contact: "_$C(160))="Care Coordination Point of Contact: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Phone Number:")="Phone Number: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
;K T2 S T2("VETERAN'S CAREGIVER CONTACT INFO ")=$C(160)_"VETERAN'S CAREGIVER CONTACT INFO "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
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 Primary Phone Number:")=$C(160)_"Caregiver's Primary Phone Number: "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("Caregiver's Alternate Phone Number:")="Caregiver's Alternate Phone Number: " S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2 S T2("PLAN: ")=$C(13)_"PLAN: "_$C(10) 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)_$C(160) 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 T4,T2,T5
Q
CCFUA ;
D COMMON^TIUCCRHL7P4
K T2 S T2("************ CARE COORDINATION FOLLOW UP ADDENDUM ************")=$C(10)_"************ CARE COORDINATION FOLLOW UP ADDENDUM ************"_$C(10) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Chart Review" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Contact to/from Veteran/Family/Caregiver" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Contact to/from Hospital or Case Manager" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Edit Facility Contact Information:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Facility Community Care Office Contact:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Phone Number:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Enter/Edit Caregiver Information:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Who is providing care for the Veteran? (Select One)" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Individual Veteran's Point of Contact:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Relationship to Veteran:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Alternative Phone Number:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Agency Agency Point of Contact:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Email Address:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Appointment n Clinic:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="(Cardiology, Gastroenterology, Mental Health, Neurology, Primary Care, Pulmonary, Radiology, Surgical Subspecialties, Other:______)" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Appointment Location" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="VA Community Provider" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="DoD Appointment Date:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="To be scheduled:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Reason for appointment:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Provider Name:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Address:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="City:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="State:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Zip:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Phone:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Enter/Edit Admission Information:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Veteran Admitted?" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Same Facility" S T2(T4)=$C(10)_$C(9)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Other Facility" S T2(T4)=$C(10)_$C(9)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Transfer to other Community Medical Facility" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Reason for Transfer (Select one)" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Higher Level of Care" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Specialty Care Not Available" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Facility Name:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Facility POC:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="POC Phone:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4=$C(160)_" Transfer to VA" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="VAMC Name:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Services:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Navigation Scheduling Post-Appointment Follow-Up E-Communications to referring provider Plan:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="CC Plan may include specialty and associated appt information, date of surgery post op needs, post d/c appointment and any other care coordination plan" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Additional Notes (Optional):" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Moderate" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Care coordination was determined from:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Edit Facility Contact Information:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Facility Community Care Office Contact:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Alternative Phone Number:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Enter/Edit Admission Information" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Veteran Admitted?" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Street Address:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="No Services:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Basic Care Coordination Services Monitoring and coordination of Rehab/PT Services Direct communication to referring provider Care management, if appropriate Plan: " S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="CC Plan may include specialty and associated appt information, date of surgery post op needs, post d/c appointment and any other care coordination plan" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Additional Notes (Optional):" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Complex/Chronic" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Care coordination was determined from:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Individual Veteran's Point of Contact:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="VA Community Provider" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="DoD" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Appointment Date:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Enter/Edit Admission Information" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Veteran Admitted?" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Same Facility" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Other Facility" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Moderate Care Coordination Services Case Management, if appropriate Direct communications with interdisciplinary team Plan:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Immediate facilitation of requested services and direct communication with the Veteran's providers Plan:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Facility POC:" S T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T4,T2,T5
Q
CMA ;
D COMMON^TIUCCRHL7P4
K T2,T4 S T4="VA Facility Community Care Office HSRM Care Coordination Plan Note - Case Management Addendum",T2($G(T4))=$C(160)_$G(T4)_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4=$C(160)_" Please review all notes, this note may have one or more of the following addenda associated: ",T2($G(T4))=$C(10)_$G(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="Case Management:",T2(T4)=$C(10)_T4 S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
K T2,T4 S T4="Warm handoff (if clinically indicated) to lead care coordinator on",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[HTIUCCRHL7P6 13439 printed Apr 09, 2024@21:45:19 Page 2
TIUCCRHL7P6 ; 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
CCPN ;
+1 KILL T2
SET T2("CCP Note Create Date:")=$CHAR(160)_"CCP Note Create Date:"_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+2 KILL T2
SET T2("CCPN Number:")=$CHAR(160)_"CCPN Number:"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+3 KILL T2
SET T2("Veteran Last Name:")=$CHAR(160)_"Veteran Last Name:"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+4 KILL T2
SET T2("Veteran First Name:")=$CHAR(160)_"Veteran First Name:"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+5 ;K T2 S T2("Veteran Social:")=$C(160)_"Veteran Social:" S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+6 KILL T2
SET T2("Date:")=$CHAR(160)_"Date:"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+7 KILL T2
SET T2("CONSULT AND REFERRAL INFORMATION")=$CHAR(160)_"CONSULT AND REFERRAL INFORMATION"
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"_$CHAR(160)_"the Discharge"_$CHAR(160)_"Planning Addendum."
IF $GET(T4)'=""
Begin DoDot:1
+13 SET T2($GET(T4))=$CHAR(160)_"Patient Admitted (Yes/No): If yes, then please complete the Discharge Planning Addendum."
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
End DoDot:1
+14 KILL T2
SET T2("Chief Complaint: ")=$CHAR(160)_"Chief Complaint: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+15 KILL T2,T4
SET T4="Risks (e.g. clinical or biophysical risks identified from S/T tool or brief chart review, such as dementia, homelessness, no family support, etc. If unknown, state ""Unknown""): "
Begin DoDot:1
+16 SET T2($GET(T4))=$CHAR(160)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
End DoDot:1
+17 KILL T2
SET T2("Level of Care Coordination: ")=$CHAR(160)_"Level of Care Coordination: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+18 KILL T2,T4
SET T4="BasicPlease review all notes, this note may have one or more of the following addenda associated: "
IF $GET(T4)'=""
Begin DoDot:1
+19 SET T2($GET(T4))=$CHAR(160)_"Basic Please review all notes, this note may have one or more of the following addenda associated: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
End DoDot:1
+20 KILL T2
SET T2("Care Coordination Follow Up: ")=$CHAR(160)_"Care Coordination Follow Up: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+21 KILL T2
SET T2("Note for Appointment Management Addendum Appointment Management: ")=$CHAR(160)_"Note for Appointment Management Addendum Appointment Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+22 KILL T2
SET T2("Case Management: ")=$CHAR(160)_"Case Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+23 KILL T2
SET T2("Continued Stay Review: ")=$CHAR(160)_"Continued Stay Review: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+24 KILL T2
SET T2("Disease Management: ")=$CHAR(160)_"Disease Management: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+25 KILL T2
SET T2("Discharge Planning:")=$CHAR(160)_"Discharge Planning:"
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+26 KILL T2
SET T2("Discharge Disposition: ")=$CHAR(160)_"Discharge Disposition: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+27 KILL T2
SET T2("Veteran Contact: ")=$CHAR(160)_"Veteran Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+28 KILL T2
SET T2("Provider Contact: ")=$CHAR(160)_"Provider Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+29 KILL T2
SET T2("Transfer: ")=$CHAR(160)_"Transfer: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+30 KILL T2
SET T2("Veteran Handoff: ")=$CHAR(160)_"Veteran Handoff: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+31 KILL T2
SET T2("FACILITY COMMUNITY CARE OFFICE CONTACT")=$CHAR(160)_$CHAR(160)_"FACILITY COMMUNITY CARE OFFICE CONTACT"_$CHAR(160)_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+32 KILL T2
SET T2("Care Coordination Point of Contact: "_$CHAR(160))="Care Coordination Point of Contact: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+33 KILL T2
SET T2("Phone Number:")="Phone Number: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+34 ;K T2 S T2("VETERAN'S CAREGIVER CONTACT INFO ")=$C(160)_"VETERAN'S CAREGIVER CONTACT INFO "_$C(160) S WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+35 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)
+36 KILL T2
SET T2("Veteran's Caregiver Point of Contact: ")=$CHAR(160)_"Veteran's Caregiver Point of Contact: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+37 KILL T2
SET T2("Caregiver's Primary Phone Number:")=$CHAR(160)_"Caregiver's Primary Phone Number: "_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+38 KILL T2
SET T2("Caregiver's Alternate Phone Number:")="Caregiver's Alternate Phone Number: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+39 KILL T2
SET T2("PLAN: ")=$CHAR(13)_"PLAN: "_$CHAR(10)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+40 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
+41 SET T2=$GET(T4)=$CHAR(160)_$GET(T4)_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
End DoDot:1
+42 KILL T2
SET T2("ADDITIONAL NOTES:")=$CHAR(160)_$CHAR(160)_"ADDITIONAL NOTES: "
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+43 KILL T4,T2,T5
+44 QUIT
CCFUA ;
+1 DO COMMON^TIUCCRHL7P4
+2 KILL T2
SET T2("************ CARE COORDINATION FOLLOW UP ADDENDUM ************")=$CHAR(10)_"************ CARE COORDINATION FOLLOW UP ADDENDUM ************"_$CHAR(10)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+3 KILL T2,T4
SET T4="Chart Review"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+4 KILL T2,T4
SET T4="Contact to/from Veteran/Family/Caregiver"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+5 KILL T2,T4
SET T4="Contact to/from Hospital or Case Manager"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+6 KILL T2,T4
SET T4="Edit Facility Contact Information:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+7 KILL T2,T4
SET T4="Facility Community Care Office Contact:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+8 KILL T2,T4
SET T4="Phone Number:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+9 KILL T2,T4
SET T4="Enter/Edit Caregiver Information:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+10 KILL T2,T4
SET T4="Who is providing care for the Veteran? (Select One)"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+11 KILL T2,T4
SET T4="Individual Veteran's Point of Contact:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+12 KILL T2,T4
SET T4="Relationship to Veteran:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+13 KILL T2,T4
SET T4="Alternative Phone Number:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+14 KILL T2,T4
SET T4="Agency Agency Point of Contact:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+15 KILL T2,T4
SET T4="Email Address:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+16 KILL T2,T4
SET T4="Appointment n Clinic:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+17 KILL T2,T4
SET T4="(Cardiology, Gastroenterology, Mental Health, Neurology, Primary Care, Pulmonary, Radiology, Surgical Subspecialties, Other:______)"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+18 KILL T2,T4
SET T4="Appointment Location"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+19 KILL T2,T4
SET T4="VA Community Provider"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+20 KILL T2,T4
SET T4="DoD Appointment Date:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+21 KILL T2,T4
SET T4="To be scheduled:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+22 KILL T2,T4
SET T4="Reason for appointment:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+23 KILL T2,T4
SET T4="Provider Name:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+24 KILL T2,T4
SET T4="Address:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+25 KILL T2,T4
SET T4="City:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+26 KILL T2,T4
SET T4="State:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+27 KILL T2,T4
SET T4="Zip:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+28 KILL T2,T4
SET T4="Phone:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+29 KILL T2,T4
SET T4="Enter/Edit Admission Information:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+30 KILL T2,T4
SET T4="Veteran Admitted?"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+31 KILL T2,T4
SET T4="Same Facility"
SET T2(T4)=$CHAR(10)_$CHAR(9)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+32 KILL T2,T4
SET T4="Other Facility"
SET T2(T4)=$CHAR(10)_$CHAR(9)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+33 KILL T2,T4
SET T4="Transfer to other Community Medical Facility"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+34 KILL T2,T4
SET T4="Reason for Transfer (Select one)"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+35 KILL T2,T4
SET T4="Higher Level of Care"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+36 KILL T2,T4
SET T4="Specialty Care Not Available"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+37 KILL T2,T4
SET T4="Facility Name:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+38 KILL T2,T4
SET T4="Facility POC:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+39 KILL T2,T4
SET T4="POC Phone:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+40 KILL T2,T4
SET T4=$CHAR(160)_" Transfer to VA"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+41 KILL T2,T4
SET T4="VAMC Name:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+42 KILL T2,T4
SET T4="Services:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+43 KILL T2,T4
SET T4="Navigation Scheduling Post-Appointment Follow-Up E-Communications to referring provider Plan:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+44 KILL T2,T4
SET T4="CC Plan may include specialty and associated appt information, date of surgery post op needs, post d/c appointment and any other care coordination plan"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+45 KILL T2,T4
SET T4="Additional Notes (Optional):"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+46 KILL T2,T4
SET T4="Moderate"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+47 KILL T2,T4
SET T4="Care coordination was determined from:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+48 KILL T2,T4
SET T4="Edit Facility Contact Information:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+49 KILL T2,T4
SET T4="Facility Community Care Office Contact:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+50 KILL T2,T4
SET T4="Alternative Phone Number:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+51 KILL T2,T4
SET T4="Enter/Edit Admission Information"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+52 KILL T2,T4
SET T4="Veteran Admitted?"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+53 KILL T2,T4
SET T4="Street Address:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+54 KILL T2,T4
SET T4="No Services:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+55 KILL T2,T4
SET T4="Basic Care Coordination Services Monitoring and coordination of Rehab/PT Services Direct communication to referring provider Care management, if appropriate Plan: "
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+56 KILL T2,T4
SET T4="CC Plan may include specialty and associated appt information, date of surgery post op needs, post d/c appointment and any other care coordination plan"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+57 KILL T2,T4
SET T4="Additional Notes (Optional):"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+58 KILL T2,T4
SET T4="Complex/Chronic"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+59 KILL T2,T4
SET T4="Care coordination was determined from:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+60 KILL T2,T4
SET T4="Individual Veteran's Point of Contact:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+61 KILL T2,T4
SET T4="VA Community Provider"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+62 KILL T2,T4
SET T4="DoD"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+63 KILL T2,T4
SET T4="Appointment Date:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+64 KILL T2,T4
SET T4="Enter/Edit Admission Information"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+65 KILL T2,T4
SET T4="Veteran Admitted?"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+66 KILL T2,T4
SET T4="Same Facility"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+67 KILL T2,T4
SET T4="Other Facility"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+68 KILL T2,T4
SET T4="Moderate Care Coordination Services Case Management, if appropriate Direct communications with interdisciplinary team Plan:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+69 KILL T2,T4
SET T4="Immediate facilitation of requested services and direct communication with the Veteran's providers Plan:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+70 KILL T2,T4
SET T4="Facility POC:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+71 KILL T4,T2,T5
+72 QUIT
CMA ;
+1 DO COMMON^TIUCCRHL7P4
+2 KILL T2,T4
SET T4="VA Facility Community Care Office HSRM Care Coordination Plan Note - Case Management Addendum"
SET T2($GET(T4))=$CHAR(160)_$GET(T4)_$CHAR(160)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+3 KILL T2,T4
SET T4=$CHAR(160)_" Please review all notes, this note may have one or more of the following addenda associated: "
SET T2($GET(T4))=$CHAR(10)_$GET(T4)
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+4 KILL T2,T4
SET T4="Care Coordination Follow Up: "
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+5 KILL T2,T4
SET T4="Case Management:"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+6 KILL T2,T4
SET T4="Warm handoff (if clinically indicated) to lead care coordinator on"
SET T2(T4)=$CHAR(10)_T4
SET WORDS=$$REPLACE^XLFSTR(WORDS,.T2)
+7 KILL T4,T2,T5
+8 QUIT
