[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gtm-perl
Subject:    Serpents at the Gates of Wisdom
From:       Thomas Good <tomg () mailhost ! nrnet ! org>
Date:       2001-01-11 16:25:57
[Download RAW message or body]

I'm rolling down the highway like a burning tire now Mikey.

PROGNOTE 
 R !,"Enter Patient ID: ",ID
 R !,"Enter Note ID: ",NOTE
 S name=^tracker(ID)
 S notedate=^prognote(ID,NOTE,"notedate")
 S notetype=^prognote(ID,NOTE,"noteheader")
 S notelink=^prognote(ID,NOTE,"notelink")
 S notebody=^prognote(ID,NOTE,"notebody")
 S goal=^prognote(ID,NOTE,"goal")
 S medicaid=^prognote(ID,NOTE,"medicaid")
 I medicaid=0 S billable="Non Billable"
 E  S billable="Billable Note"
 S writer=^prognote(ID,NOTE,"writer")
 S unit=^prognote(ID,NOTE,"unit")
 S dept=^prognote(ID,NOTE,"dept")
 S acronym=^prognote(ID,NOTE,"acronym")
 S track=^prognote(ID,NOTE,"track")
 S timer=^prognote(ID,NOTE,"timer")
 W !,"---------------------------------------------------------------------"
 W !,"Patient Name: ",name
 W !,"Note Date: ",notedate
 W !,"Billable Note: ",notelink
 I notelink="Yes" W !,"Skill Area: ",acronym,"     Goal ID: ",goal
 I notelink="Yes" W !,"Duration of Contact: ",timer
 W !,"Entered By: ",writer
 W !,"Unit: ",unit," Dept: ",dept," Track: ",track
 W !,"---------------------------------------------------------------------"
 W !,"Note: ",!,notebody
 W !,"---------------------------------------------------------------------"
 W !!
 Q
 ;



Meanwhile, back in the jungle - this botched up mess is now giving
up its secret(s):

PROGALL 
 S X="",COUNT=""
 F COUNT=0:1 S X=$O(^prognote(X)) Q:X=""  D
 ; whoops! counting X instead of Y 
 . S Y=""
 . S Y=$O(^prognote(X,Y),-1)
 . W "Last Value: ",Y
 S Y=Y+1
 W !,"Next Value: ",Y,!
 W !,"Records Found: ",COUNT,!
 Q
 ;

I'm counting unique patient ids, not progress note ids.
Geez.  I'm so ashamed...now where's that Mott the Hoople 8-track
when I need it?

--------------------------------------------------------------------
               SVCMC - Center for Behavioral Health                  
--------------------------------------------------------------------
Thomas Good                          tomg@ { admin | q8 } .nrnet.org
IS Coordinator / DBA                 Phone: 718-354-5528 
                                     Fax:   718-354-5056  
--------------------------------------------------------------------
Powered by:  PostgreSQL     s l a c k w a r e          FreeBSD:
               RDBMS       |---------- linux      The Power To Serve
--------------------------------------------------------------------

[prev in list] [next in list] [prev in thread] [next in thread]