User:Woozle/blog/2009-06-10 0640 No relief in sight
<hide> <let name=data index=Title>No relief in sight</let> <let name=data index=User>Woozle</let> <let name=data index=TopicsUser></let> <let name=data index=TopicsGlobal>\josh\Medicaid\bureaucracy\Josh/group home</let> <let name=data index=TextAbove>I don't really have the focus to write a proper blog post about this (except to note that the first sign of trouble came near the end of the day on Friday in the form of a phone call and that we waited all weekend and Monday with no news), but I should at least post this "team update" email which more or less explains what has happened.</let> <let name=data index=TextBelow>* What: Josh Smith services status update 6/9 pm: foster care no-go
- When: 2009-06-09 18:42
Hi All,
This is just a general status update for those involved with Josh's services, since Sandy got the notification verbally from Yolanda.
Value Options turned down the request for Therapeutic Foster Care for Josh this afternoon. It's not clear to us on what basis they are doing so, since we have no less than three Ph.D.s saying he needs to be out of the house and two Ph.D.s saying specifically that he needs to be in a group home.
According to what Sandy understood from Yolanda, Health Choice would not cover the Residential Services because DDS does not cover these services (or something like that)... but in the Health Choice manual, Residential Services are clearly listed as being covered. We aren't clear on the details.
As we understand it, Yolanda is following up on this and trying to get more information.
Yolanda: we need Value Options to state, in writing, the exact reason why the services were denied, and under what circumstances they would be approved.
There was a lead on a group home opening in Charlotte about two (?) weeks ago, which we rejected in favor of the foster care home because the latter was much closer and we knew absolutely nothing about the group home (they did not ever return Yolanda's call, as far as I know); it is remotely possible that this opening is still available, and I believe Yolanda is checking into that as well, but this is a long-shot. (It's also not clear whether Health Choice would cover this.)
That aside, we are now in a bit of a pickle. We have absolutely nothing for Josh to do outside the house, beginning Wednesday afternoon. We expect his behavior will deteriorate quickly, though we don't know how quickly; lately he seems to have found some things in the house which are keeping him entertained... for now.
We (Sandy, Yolanda, and I) all agree that they had absolutely no business switching him from Medicaid to Health Choice, if that is what made the difference in the approval; that's another line that needs looking into:
- For the Medicaid people: what was the reason for the switch? What do we need
to do in order to get Josh switched back to Medicaid?
- For Value Options: did that change affect their decision? Would they approve
a group home, or are they claiming that such services are simply not supported by Health Choice? Under what circumstances would a group home be supported, if it currently is not? Under what circumstances would therapeutic foster care be supported?
We are trying to remain optimistic about this, but this is a very big let-down and we will soon be in a very bad situation if we can't quickly get a new regular worker for Josh and/or somehow reverse the decision. It is also a big mess and we are seriously short on information at this point.
I guess that's all for now.</let>
<let name=data index=TimeStamp>2009-06-10 0640</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/2009-06-10 0640 No relief in sight</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>
