User:Woozle/blog/2009-02-17 1913 Social Services Catch-22

<hide> <let name=data index=Title>Social Services Catch-22</let> <let name=data index=User>Woozle</let> <let name=data index=TopicsUser></let> <let name=data index=TopicsGlobal>\Josh\CAP\group home placement</let> <let name=data index=TextAbove>We can't get the service we requested because we should be using another service we can't get.</let> <let name=data index=TextBelow>This started before I started blogging here, so I'll recap:

On 2009-01-27, we received a notice from The Durham Center that they were reducing Josh's service hours for the second time that month, from a level which was already iffy.

We sent in a complaint the next day, following the included instructions. The form didn't have any place to explain why you're complaining; it's just official notice that you are, in fact, disagreeing with their decision. We were presuming that dialogue would happen later, in which we could ask them to translate their bureaucratese into English and we could answer whatever their objection turned out to be.

Today, this arrives in the mail. They basically say "you disagree? too bad, we still think we're right even though we don't know why you disagree" -- but the part I especially love is this:

I would strongly consider a group home placement until CAP funds are available for him.

[facepalms] DO YOU HAVE ANY IDEA, LADY, HOW HARD WE'VE BEEN TRYING TO GET HIM INTO A GROUP HOME????

Oddly, though, this feels like a tiny bit of forward progress, in that we have someone officially saying that he does in fact need a group home – which suggests that this is a reasonable goal to have, when it was beginning to seem like a bit of a pipe dream.

Or maybe this is just my rampant inner optimist getting carried away again.

The latest thing we've been told to do, towards getting Josh in a group home, is apply for SSI. We applied for... SSI, or SSDI, or something... over a year ago, and were turned down for reasons which haven't changed... but we've also received a lot of conflicting information about whether that reason is as hard-and-fast as they made it sound, or even whether we applied for the right thing.

So that's in the queue of Urgent Things To Do (where it won't be lonely). Now we just have to work out when we have a block of 2-4 hours to go sit in the SS office... or maybe there's a way to make an appointment? Research is needed. Putting this little item on the queue has apparently resulted in my being unable to concentrate on the things I was working on beforehand, yet not able to summon the energy to actually go look into making an appointment.

Sometimes writing about these things unclogs the pipeline, though, so we'll see what happens next. Tomorrow is supposed to be our first more-or-less normal day since last Thursday, so maybe.

Follow-up: 2009-02-18 email to The Durham Center</let>

<let name=data index=TimeStamp>2009-02-17 1913</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)

 <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-02-17 1913 Social Services Catch-22</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)

 <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)

 <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)

 <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()

 <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()

 <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>

Posted by <get name=wtUser /> at <get name=PostDate />. Topics: <get name=wtCatUser /> <get name=wtCatGlob /></echo>

</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>

Specs
Timestamp:	<get name=PostDate />
Author:	<get name=wtUser />
User topics:	<get name=wtCatUser />
Global topics:	<get name=wtCatGlob />

</echo>

</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 />

Anonymous

Search

User:Woozle/blog/2009-02-17 1913 Social Services Catch-22

Namespaces

More

Page actions

Contents

ShowRecentLinks(max)

ShowTopic(iTopic,iMax)

GetBlogEntryBrief()

GetBlogEntryBriefChrisFormat()

GetBlogEntryFull()

ShowRecentBlogEntries(max,funcEntry)

ShowRecentBlogEntriesFull(max)

ShowRecentBlogEntriesByTopic(max,topic)

MakeBlogCatgs()

ShowBlogPostPage()

ShowBlogPostPage_v2()

Specs

ShowBlogPostPage_v1()

In Brief

Full Story

Specs

Navigation

Navigation

useful pages

our other sites

what the even

Wiki tools

Wiki tools

Anonymous

Search

User:Woozle/blog/2009-02-17 1913 Social Services Catch-22

ShowRecentLinks(max)

ShowTopic(iTopic,iMax)

GetBlogEntryBrief()

GetBlogEntryBriefChrisFormat()

GetBlogEntryFull()

ShowRecentBlogEntries(max,funcEntry)

ShowRecentBlogEntriesFull(max)

ShowRecentBlogEntriesByTopic(max,topic)

MakeBlogCatgs()

ShowBlogPostPage()

ShowBlogPostPage_v2()

Specs

ShowBlogPostPage_v1()

In Brief

Full Story

Specs

Navigation

Wiki tools

Page tools

Categories