pm = CreateObject("Component", "Menu");
myArgument = 'run_outcomes';
pm.MenuFunction(myArgument,#getP.Patient_Id#,'','','','');
request.pat = CreateObject("component","components.general.patients").init();
getadmit = request.pat.get_admissions(#session.cs.patientid#);
SELECT pPatients.Patient_ID, pPatients.Pt_Last AS PatientLast,
pPatients.Pt_First AS PatientFirst,
pSchedules.Skill AS Type, 0 AS No_Days_Progress, "" AS Note_QA ,
pAssessments.Assmt_ID,
pSchedules.Visit_Date, pSchedules.severity_problem,pSchedules.severity_goal,
pSchedules.increment_problem,pSchedules.increment_this_visit,
pSchedules.result_this_visit,pSchedules.total_goal,pSchedules.increment_goal,
pSchedules.increment_goal_this_visit,pSchedules.goal_result_this_visit,
pSchedules.total_increment,pSchedules.total_result, pSchedules.Schedule_ID, pSchedules.Skill,
pSchedules.pgnotesdraft,
(SELECT COUNT(*) FROM #Request.prefix_db_agency#.pProgress
WHERE pProgress.Schedule_ID = pSchedules.Schedule_ID
AND pProgress.Status = 0 ) AS pgcount,
(SELECT COUNT(*) FROM #Request.prefix_db_agency#.pAssessments pass
WHERE (pass.F26 like '9%' OR pass.F26 like '7%' OR pass.F26 like '8%')
AND pass.Status =0 AND F176 < #now()# AND pass.Admit_ID = pAssessments.Admit_ID) AS discharge_count
FROM #Request.prefix_db_agency#.pSchedules
JOIN #Request.prefix_db_agency#.pAssessments ON pSchedules.Assmt_ID = pAssessments.Assmt_ID
JOIN #Request.prefix_db_agency#.pPatients ON pPatients.Patient_ID = pSchedules.Patient_ID
WHERE pAssessments.status = 0
AND pPatients.Status < 2
AND pSchedules.status= 0
AND pSchedules.Emp_ID != 0
AND pSchedules.pgnotesdraft = 2
AND pPatients.Patient_ID = #session.cs.patientid#
AND pSchedules.Missed = '0'
AND pSchedules.Visit_Date < now()
AND pSchedules.Visit_Date BETWEEN pAssessments.F177 AND pAssessments.F178
AND (pSchedules.Initial_visit = 0 OR pSchedules.Initial_visit IS NULL )
AND pSchedules.Skill = 'PT'
GROUP BY pPatients.Patient_ID
ORDER BY pSchedules.Visit_Date DESC
UPDATE #Request.prefix_db_agency#.pFollowup
SET Status = 1 ,
Date_Change = now(),
Change_by = #session.employeeid#
WHERE Schedule_ID = '#Schedule_ID#'
AND Status = 0
SELECT MAX(Severity) as MaxSev FROM #Request.prefix_db_agency#.pProgress
WHERE (Item_ID = 1402 OR Item_ID = 1407)
AND Schedule_ID = '#Schedule_ID#'
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE (a.Item_ID = 1402)
AND a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = '#GetPTresultsM1800.MaxSev#'
AND pg.status = 0
SELECT a.F74 from #Request.prefix_db_agency#.pAssessments a,
#Request.prefix_db_agency#.pProgress pg
WHERE pg.Assmt_ID = a.Assmt_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.status= 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, SOC, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1800','Grooming',
'#LEFT(GetPTList1800.Answer1,1)#','#Left(SOC1800.F74,1)#', now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT * FROM #Request.prefix_db_agency#.pProgress
WHERE Item_ID = 1405
AND Schedule_ID = '#Schedule_ID#'
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = pg.Severity
AND pg.status = 0
AND pg.Item_ID = 1405
SELECT a.F75 from #Request.prefix_db_agency#.pAssessments a, #Request.prefix_db_agency#.pProgress pg
WHERE pg.Assmt_ID = a.Assmt_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.status= 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, SOC, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1810','Upper Body Dressing',
'#LEFT(GetPTList1810.Answer1,1)#','#Left(SOC1810.F75,1)#', now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = pg.Severity
AND pg.status = 0
AND pg.Item_ID = 1406
SELECT a.F76 from #Request.prefix_db_agency#.pAssessments a, #Request.prefix_db_agency#.pProgress pg
WHERE pg.Assmt_ID = a.Assmt_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.status= 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, SOC, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1820','Lower Body Dressing',
'#LEFT(GetPTList1820.Answer1,1)#','#Left(SOC1820.F76,1)#', now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = pg.Severity
AND pg.status = 0
AND pg.Item_ID = 1404
SELECT a.F77 from #Request.prefix_db_agency#.pAssessments a, #Request.prefix_db_agency#.pProgress pg
WHERE pg.Assmt_ID = a.Assmt_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.status= 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, SOC, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1830','Bathing',
'#LEFT(GetPTList1830.Answer1,1)#','#Left(SOC1830.F77,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = pg.Severity
AND pg.status = 0
AND pg.Item_ID = 1306
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1840','Toilet Transferring',
'#LEFT(GetPTList1840.Answer1,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = pg.Severity
AND pg.status = 0
AND pg.Item_ID = 1401
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1870','Feeding/Eating',
'#LEFT(GetPTList1870.Answer1,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT MAX(Severity) as MaxSev FROM #Request.prefix_db_agency#.pProgress
WHERE (Item_ID = 1301 or Item_ID = 1302 or Item_ID = 1303 )
AND Schedule_ID = '#Schedule_ID#'
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND (pg.Item_ID = 1301 or pg.Item_ID = 1302 or pg.Item_ID = 1303)
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = '#GetPTresultsM1850B.MaxSev#'
AND pg.status = 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1850','Transferring',
'#LEFT(GetPTList1850B.Answer1,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT MAX(Severity) as MaxSev FROM #Request.prefix_db_agency#.pProgress
WHERE (Item_ID = 1304 or Item_ID = 1305 )
AND Schedule_ID = '#Schedule_ID#'
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND (pg.Item_ID = 1304 or pg.Item_ID = 1305)
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = '#GetPTresultsM1850.MaxSev#'
AND pg.status = 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1850','Transferring',
'#LEFT(GetPTList1850.Answer1,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT MAX(Severity) as MaxSev FROM #Request.prefix_db_agency#.pProgress
WHERE Item_ID IN(1308,1309,1310,1311,1312,1313,1314,1315)
AND Schedule_ID = '#Schedule_ID#'
SELECT a.* FROM #Request.prefix_db_lookup#.Assmt_Update_Therapy2 a,
#Request.prefix_db_agency#.pProgress pg
WHERE a.Item_ID = pg.Item_ID
AND pg.Item_ID IN (1308,1309,1310,1311,1312,1313,1314,1315)
AND pg.Schedule_ID = '#Schedule_ID#'
AND a.Answer3 = '#GetPTresultsM1860.MaxSev#'
AND pg.status = 0
INSERT INTO #Request.prefix_db_agency#.pFollowup
(Schedule_ID, Status, Skill, Visit_Date, M0_No, Description, Answer, Date_Create, Created_by,
Date_Change, Change_by)
VALUES
('#Schedule_ID#',0,'#GetPTList.Skill#', '#DateFormat(GetPTList.Visit_Date,"yyyy-mm-dd")#','M1860','Ambulation/Mobility',
'#LEFT(GetPTList1860.Answer1,1)#',now(),
#session.employeeid#,now(),#session.employeeid#);
SELECT *, IFNULL(SOC,0) AS SOC_answer, IFNULL(Answer,0) AS PT_Answer FROM #Request.prefix_db_agency#.pFollowup
WHERE Schedule_ID IN (#scheduleids#)
AND Status = 0 GROUP BY FU_ID ORDER BY M0_No ASC