User:Woozle/blog/2010/10/27/2135 Josh Mediation: Difference between revisions
new page from form at http://wiki.hypertwins.org/HypertWiki:Forms/blog/post |
removed reference to other email (contents of that email make up the main text) |
||
| Line 4: | Line 4: | ||
<let name=data index=TopicsUser></let> | <let name=data index=TopicsUser></let> | ||
<let name=data index=TopicsGlobal>\Josh\ValueOptions\mediation\insanity\bureaucracy</let> | <let name=data index=TopicsGlobal>\Josh\ValueOptions\mediation\insanity\bureaucracy</let> | ||
<let name=data index=TextAbove>We're safe until December 11, but they want to move him from the real and appropriate services he's getting right now to inferior services he'll have to wait for, and they don't care what happens to him or us in the meantime | <let name=data index=TextAbove>We're safe until December 11, but they want to move him from the real and appropriate services he's getting right now to inferior services he'll have to wait for, and they don't care what happens to him or us in the meantime.</let> | ||
<let name=data index=TextBelow>(This is heavily based on an email I sent to Josh's grandfather, who has a high-up contact at [[The Durham Center]] who should be able to answer the questions posed at the end and perhaps make some things happen. We'll see.) | <let name=data index=TextBelow>(This is heavily based on an email I sent to Josh's grandfather, who has a high-up contact at [[The Durham Center]] who should be able to answer the questions posed at the end and perhaps make some things happen. We'll see.) | ||
Revision as of 01:38, 28 October 2010
<hide> <let name=data index=Title>Josh Mediation</let> <let name=data index=User>Woozle</let> <let name=data index=TopicsUser></let> <let name=data index=TopicsGlobal>\Josh\ValueOptions\mediation\insanity\bureaucracy</let> <let name=data index=TextAbove>We're safe until December 11, but they want to move him from the real and appropriate services he's getting right now to inferior services he'll have to wait for, and they don't care what happens to him or us in the meantime.</let> <let name=data index=TextBelow>(This is heavily based on an email I sent to Josh's grandfather, who has a high-up contact at The Durham Center who should be able to answer the questions posed at the end and perhaps make some things happen. We'll see.)
Recap of Plan A
The original plan for Josh's stay at The Hughes Center was that he would remain there until either of the following occurs: (a) he reaches a point where he would be manageable behaviorally at a lower level facility such as an autism group home, or (b) it becomes evident that he is making no further progress, and it becomes necessary to place him long-term in a facility suitable for whatever level of functioning he has achieved at that point.
The original expectation was that this would probably take 9-12 months (this is the average length of stay at Hughes), but that given the unusualness of Josh's condition it could take as long as a couple of years for him to reach an optimum level of capability. He has now been there for 6 months, and ValueOptions announced last month that they want to terminate his stay (by cutting off funding) effective... well, there was some confusion about whether it was October 14 or some earlier date. (Here's the original notice, slightly redacted, if you enjoy reading obfuscatory prose.)
Mediation Outcome
The outcome from the mediation was that ValueOptions has offered to fund Josh for an additional 45 days (until Dec. 11) while we transition him into an ICF/MRDD facility using CAP-MR/DD funding. They declined to name any particular facility or explain why The Hughes Center (which is an ICF/MRDD facility) is unsuitable.
They did not provide an answer for the argument that the training he is receiving now at Hughes is intended (and likely) to reduce the level of care he will need in the long run, and that any interruption in that training (even to move to a new facility with a similar program) would represent a setback in achieving this goal. The long waiting list for CAP slots (Josh has been on a waiting list for about 2 years now) also seemed irrelevant to VO.
The unspoken implication was that if Josh ended up receiving no residential services at all as a result of this change, that was fine with them.
This is obviously unacceptable to us.
We have the following questions which The Durham Center may be able to address:
(Note to the uninitiated: UM stands for Utilization Management, which is bureaucratese for "people who decide how to allocate available funds". VO was doing UM for The Durham Center up until October 1 of this year; The Durham Center is now handling it internally, but there are rules which prevent them from overriding VO's appeal directly.)
1. Would The Durham Center's UM be essentially tied to VO's decision, or could they re-evaluate funding independently and *hypothetically* approve further funding to finish out Josh's stay at The Hughes Center?
2. In the event that TDC's UM is able to make a funding decision overriding VO's decision, can we get any kind of indication as to what that decision would likely be -- or is it better just to have Josh's CM submit the paperwork and actually go through the process?
3. What is the difficulty of ICF/MRDD placement, especially with regard to cases where there are behavioral issues? What are the wait times like at present?
4. Does TDC have any advice at this point as to what our appropriate course of action would be regarding Josh -- given that we consider taking him home at any point, for any length of time, to be a completely unacceptable alternative (for many reasons)? ---
We have until tomorrow at noon to decide whether we're going to accept this decision. Unless TDC comes back with reassurances that of *course* they will pick up Josh's residential funding after VO drops it on 12/11, I'm inclined to think we should not agree to these terms.
Guess that's all for now. Getting really, really tired of this. Should I start keeping track of the time I spend on this, and send VO or Medicaid a bill?</let>
<let name=data index=TimeStamp>2010-10-27 2135</let> </hide><if not flag=including>==GetLinkBrief()== <func GetLinkBrief>
<let name=links.out>
- </let>
<let name=links.out append copy=data[Date] /> <let name=links.out append> :[[</let> <let name=links.out append copy=pg_title /> <let name=links.out append>|more]]:[[Talk:</let> <let name=links.out append copy=pg_title /> <let name=links.out append>|talk]]: </let>
<if flag=$data[wpage]>
<let name=wtLink>[[</let>
<let name=wtLink append copy=data[wpage] />
<let name=wtLink append>|</let>
<let name=wtLink append copy=data[Title] />
<let name=wtLink append>]] § </let>
</if><else>
<let name=wtLink>[</let>
<let name=wtLink append copy=data[URL] />
<let name=wtLink append> </let>
<let name=wtLink append copy=data[Title] />
<let name=wtLink append>]</let>
</else>
<let name=links.out append copy=wtLink /> <let name=links.out append> § </let>
<let name=text copy=data[TextShort] />
<if flag=$text></if><else>
<let name=text copy=data[Text] len=200 />
</else>
<let name=links.out append copy=text trim /> <let name=links.out append> [[</let> <let name=links.out append copy=pg_title /> <let name=links.out append>|more...]]</let>
</func>
ShowRecentLinks(max)
<func ShowRecentLinks max>
<let name=idx />
<let name=including val=1 />
<for table="qryW3_Titles_Catgs" where="(cl_to='Data/links') AND (page_namespace=0)" sort="page_title DESC" limit=$max name=pg hide>
<let name=pg_title val="@row.page_title" />
<let name=idx inc />
<if not flag=$noLoad>
<load page=$pg_title />
</if>
<if flag=$data[Title]>
<call GetLinkBrief />
</if><else>
<let name=links.out>
- [[</let>
<let name=links.out append copy=pg_title />
<let name=links.out append>]]</let>
</else>
<let name=links.rtn append copy=links.out />
<let name=links.out />
<let name=data />
</for>
</func>
ShowTopic(iTopic,iMax)
This should eventually be able to show data in any format: news links, blog entries... <func ShowTopic iTopic iMax>
<let name=idx /> <let name=including val=1 /> <let name=topic farg=iTopic /> <if not flag=$topic> <let name=topic parse>Woozle/blog/2010/10/27/2135 Josh Mediation</let> </if> <let name=topic self with="_"> </let>
<let name=sqlWhere>(page_namespace=0) AND (cl_to='</let> <let name=sqlWhere append copy=topic /> <let name=sqlWhere append>')</let>
<for table="qryW3_Titles_Catgs" where=$sqlWhere sort="page_title DESC" name=pg empty="no items yet" limit=$iMax hide>
<let name=pg_title val="@row.page_title" />
<let name=idx inc />
<if not flag=$noLoad>
<load page=$pg_title local />
</if>
<if flag=$data[Title]>
<call GetBrief />
</if><else>
<let name=links.out>
- [[</let>
<let name=links.out append copy=pg_title />
<let name=links.out append>]]</let>
</else>
<let name=exclude val=0 />
<let name=links.rtn append copy=links.out />
<let name=data null />
</for>
</func>
GetBlogEntryBrief()
<func GetBlogEntryBrief> INPUT:
data[*] - from blog entry page pg_name - full name of page being displayed (including namespace)
<if not flag=$noLoad>
<load page=$pg_name />
</if>
<let name=e.out>
- </let>
<let name=e.out append copy=data[TimeStamp] /> <let name=e.out append> [[</let> <let name=e.out append copy=pg_name /> <let name=e.out append>|</let> <let name=e.out append copy=data[Title] /> <let name=e.out append>]] § </let>
<let name=text copy=data[TextAbove] />
<if flag=$text></if><else>
<let name=text copy=data[TextBelow] len=200 />
</else>
<let name=e.out append copy=text trim /> <let name=e.out append> [[</let> <let name=e.out append copy=pg_name /> <let name=e.out append>|more...]]</let>
</func>
GetBlogEntryBriefChrisFormat()
<func GetBlogEntryBriefChrisFormat> INPUT:
data[*] - from blog entry page pg_name - full name of page being displayed (including namespace)
<if not flag=$noLoad>
<load page=$pg_name />
</if>
<let name=e.out></let> <let name=e.out append>[[</let> <let name=e.out append copy=pg_name /> <let name=e.out append>|</let> <let name=e.out append copy=data[Title] /> <let name=e.out append>]], </let> <let name=e.out append copy=data[TimeStamp] /> <let name=e.out append>
</let>
<let name=text copy=data[TextAbove] />
<if flag=$text></if><else>
<let name=text copy=data[TextBelow] len=200 />
</else>
<let name=e.out append copy=text trim /> <let name=e.out append> [[</let> <let name=e.out append copy=pg_name /> <let name=e.out append>|more...]]
</let> </func>
GetBlogEntryFull()
<func GetBlogEntryFull> INPUT:
data[*] - from blog entry page pg_name - full name of page being displayed (including namespace)
<if not flag=$noLoad>
<load page=$pg_name />
</if>
<let name=e.out>
==</let>
<let name=e.out append copy=data[Title] /> <let name=e.out append>==
posted at </let>
<let name=e.out append copy=data[TimeStamp] /> <let name=e.out append>
</let>
<let name=e.out append copy=data[TextAbove] /> <let name=e.out append copy=BlogFoldDivider /> <let name=e.out append copy=data[TextBelow] />
-- category display
<let name=e.out append copy=BlogFoldDivider /> <let name=e.out append>
Categories –</let>
<let name=noCat val=1 />
<call MakeBlogCatgs />
<if flag=$wtCatGlob>
<let name=e.out append> general: </let>
<let name=e.out append copy=wtCatGlob>
</if>
<if flag=$wtCatUser>
<let name=e.out append> user: </let>
<let name=e.out append copy=wtCatUser>
</if>
<let name=e.out append></let>
</let> </func>
ShowRecentBlogEntries(max,funcEntry)
<func ShowRecentBlogEntries max funcEntry>
<let name=idx />
<if not flag=$funcEntry>
<let name=funcEntry val="GetBlogEntryBrief" />
</if>
<let name=including val=1 />
<for table="qryW3_Titles_Catgs" where="(cl_to='Data/blog/post')" sort="page_title DESC" limit=$max name=pg hide>
<let name=pg_nspace_code>{{ns:</let>
<let name=pg_nspace_code append val=@row.page_namespace />
<let name=pg_nspace_code append>}}</let>
<let name=pg_nspace copy=pg_nspace_code parse />
<let name=pg_title val="@row.page_title" />
<let name=pg_name copy=pg_nspace />
<let name=pg_name append>:</let>
<let name=pg_name append copy=pg_title />
<let name=idx inc />
<call func=$funcEntry />
<let name=e.rtn append copy=e.out />
<let name=data />
</for>
</func>
ShowRecentBlogEntriesFull(max)
<func ShowRecentBlogEntriesFull max>
<let name=idx />
<let name=including val=1 />
<for table="qryW3_Titles_Catgs" where="(cl_to='Data/blog/post')" sort="page_title DESC" limit=$max name=pg hide>
<let name=pg_nspace_code>{{ns:</let>
<let name=pg_nspace_code append val=@row.page_namespace />
<let name=pg_nspace_code append>}}</let>
<let name=pg_nspace copy=pg_nspace_code parse />
<let name=pg_title val="@row.page_title" />
<let name=pg_name copy=pg_nspace />
<let name=pg_name append>:</let>
<let name=pg_name append copy=pg_title />
<let name=idx inc />
<call GetBlogEntryFull />
<let name=e.rtn append copy=e.out />
<let name=data />
</for>
</func>
ShowRecentBlogEntriesByTopic(max,topic)
<func ShowRecentBlogEntriesByTopic max topic>
<let name=topic self with="_"> </let>
<let name=sql>(cl_to='</let> <let name=sql>SELECT q1.* FROM qryW3_Titles_Catgs AS q1 LEFT JOIN qryW3_Titles_Catgs AS q2 ON q1.cl_from=q2.cl_from WHERE (q1.cl_to='Data/blog/post') AND (q2.cl_to='</let> <let name=sql append copy=topic /> <let name=sql append>') ORDER BY page_title DESC LIMIT </let> <let name=sql append copy=max />
<for sql=$sql>
<let name=pg_nspace_code>{{ns:</let>
<let name=pg_nspace_code append val=@row.page_namespace />
<let name=pg_nspace_code append>}}</let>
<let name=pg_nspace copy=pg_nspace_code parse />
<let name=pg_title val="@row.page_title" />
<let name=pg_name copy=pg_nspace />
<let name=pg_name append>:</let>
<let name=pg_name append copy=pg_title />
<let name=idx inc />
<let name=data[Title] null />
<load page=$pg_name />
<if flag=$data[Title]>
<call GetBlogEntryBrief />
<let name=e.rtn append copy=e.out />
</if>
<let name=data />
</for>
</func>
MakeBlogCatgs()
<func MakeBlogCatgs>
<let name=catUser copy=data[TopicsUser] /> <let name=catGlob copy=data[TopicsGlobal] /> <let name=wtCatUser null /> <xploop list=$catUser var=topic> <let name=wtCatUser append> [[user:</let> <let name=wtCatUser append copy=data[User] /> <let name=wtCatUser append>/</let> <let name=wtCatUser append copy=topic /> <let name=wtCatUser append>|</let> <let name=wtCatUser append copy=topic /> <let name=wtCatUser append>]]</let>
<let name=wtCatUser append>[[:category:user/</let> <let name=wtCatUser append copy=data[User] /> <let name=wtCatUser append>/</let> <let name=wtCatUser append copy=topic /> <let name=wtCatUser append>|c]]</let>
<if not flag=$noCat>
<let name=wtCatUser append> [[category:user/</let>
<let name=wtCatUser append copy=data[User] />
<let name=wtCatUser append>/</let>
<let name=wtCatUser append copy=topic />
<let name=wtCatUser append>|</let>
<let name=wtCatUser append copy=topic />
<let name=wtCatUser append>]]</let>
</if>
</xploop>
<let name=wtCatGlob null />
<xploop list=$catGlob var=topic>
<let name=wtCatGlob append> [[</let>
<let name=wtCatGlob append copy=topic />
<let name=wtCatGlob append>]]</let>
<let name=wtCatGlob append>[[:category:</let> <let name=wtCatGlob append copy=topic /> <let name=wtCatGlob append>|c]]</let>
<if not flag=$noCat>
<let name=wtCatGlob append>[[category:</let>
<let name=wtCatGlob append copy=topic />
<let name=wtCatGlob append>]]</let>
</if>
</xploop>
</func>
ShowBlogPostPage()
<func ShowBlogPostPage>
<let name=PostDate copy=data[TimeStamp] len=10 /> <let name=wtDate>[[</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]] ([[:category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>|category]])</let>
<let name=wtDate append>[[category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]]</let>
<let name=wtTitle>
==</let>
<let name=wtTitle append copy=data[Title] /> <let name=wtTitle append>==</let> <if flag=$data[TextAbove]> <let name=wtTextBrief>
In Brief </let>
<let name=wtTextFull>
The Rest </let>
<let name=wtTextBrief append copy=data[TextAbove] /> </if><else> <let name=wtTextBrief null /> </else> <let name=wtTextFull append copy=data[TextBelow] />
<call MakeBlogCatgs />
General categories for blog posts: -- the fact that it's a post:
<let name=wtCatGlob append></let>
-- date:
<let name=wtCatGlob append>[[category:</let> <let name=wtCatGlob append copy=PostDate len=10 /> -- just the date for the category <let name=wtCatGlob append>|]]</let> <let name=wtCatGlob append copy=PostDate /> -- full timestamp for sorting <let name=wtCatGlob append>]]</let>
<let name=user copy=data[User] /> <if flag=$user> <let name=wtUser>[[user:</let> <let name=wtUser append copy=user /> <let name=wtUser append>|</let> <let name=wtUser append copy=user /> <let name=wtUser append>]]</let> </if><else> <let name=wtUser>unknown</let> </else> <echo>
<get name=wtTitle /> <get name=data index=Text /><get name=wtTextBrief /><get name=wtTextFull />
</func>
ShowBlogPostPage_v2()
<func ShowBlogPostPage_v2>
<let name=PostDate copy=data[TimeStamp] len=10 /> <let name=wtDate>[[</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]] ([[:category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>|category]])</let>
<let name=wtDate append>[[category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]]</let>
<let name=wtTitle>
==</let>
<let name=wtTitle append copy=data[Title] /> <let name=wtTitle append>==</let> <if flag=$data[TextAbove]> <let name=wtTextBrief>
In Brief </let>
<let name=wtTextFull>
The Rest </let>
<let name=wtTextBrief append copy=data[TextAbove] /> </if><else> <let name=wtTextBrief null /> </else> <let name=wtTextFull append copy=data[TextBelow] />
<call MakeBlogCatgs />
General categories for blog posts: -- the fact that it's a post:
<let name=wtCatGlob append></let>
-- date:
<let name=wtCatGlob append>[[category:</let> <let name=wtCatGlob append copy=PostDate len=10 /> -- just the date for the category <let name=wtCatGlob append>|]]</let> <let name=wtCatGlob append copy=PostDate /> -- full timestamp for sorting <let name=wtCatGlob append>]]</let>
<let name=user copy=data[User] /> <if flag=$user> <let name=wtUser>[[user:</let> <let name=wtUser append copy=user /> <let name=wtUser append>|</let> <let name=wtUser append copy=user /> <let name=wtUser append>]]</let> </if><else> <let name=wtUser>unknown</let> </else> <echo>
<get name=wtTitle /> <get name=data index=Text /><get name=wtTextBrief /><get name=wtTextFull />
Specs | |
| Timestamp: | <get name=PostDate /> |
| Author: | <get name=wtUser /> |
| User topics: | <get name=wtCatUser /> |
| Global topics: | <get name=wtCatGlob /> |
</func>
ShowBlogPostPage_v1()
<func ShowBlogPostPage_v1>
<let name=PostDate copy=data[TimeStamp] len=10 /> <let name=wtDate>[[</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]] ([[:category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>|category]])</let>
<let name=wtDate append>[[category:</let> <let name=wtDate append copy=PostDate /> <let name=wtDate append>]]</let>
<let name=wtTitle>
==</let>
<let name=wtTitle append copy=data[Title] /> <let name=wtTitle append>==</let> <if flag=$data[TextAbove]> <let name=wtTextBrief>
In Brief
</let>
<let name=wtTextFull>
Full Story
</let>
<let name=wtTextBrief append copy=data[TextAbove] /> </if><else> <let name=wtTextBrief null /> </else> <let name=wtTextFull append copy=data[TextBelow] />
<call MakeBlogCatgs />
General categories for blog posts: -- the fact that it's a post:
<let name=wtCatGlob append></let>
-- date:
<let name=wtCatGlob append>[[category:</let> <let name=wtCatGlob append copy=PostDate len=10 /> -- just the date for the category <let name=wtCatGlob append>|]]</let> <let name=wtCatGlob append copy=PostDate /> -- full timestamp for sorting <let name=wtCatGlob append>]]</let>
<let name=user copy=data[User] /> <if flag=$user> <let name=wtUser>[[user:</let> <let name=wtUser append copy=user /> <let name=wtUser append>|</let> <let name=wtUser append copy=user /> <let name=wtUser append>]]</let> </if><else> <let name=wtUser>unknown</let> </else> <echo>
Specs
| Timestamp: | <get name=PostDate /> |
| Author: | <get name=wtUser /> |
| User topics: | <get name=wtCatUser /> |
| Global topics: | <get name=wtCatGlob /> |
<get name=wtTitle /> <get name=data index=Text /><get name=wtTextBrief /><get name=wtTextFull /></echo> </func><call ShowBlogPostPage></if>
