patient statement comments 1

[MSBrady]

Oy!
CR Dev 11
SQL Server 2000

I have designed a patient statement. The details section for each patient with an oustanding balance contains [Date of Service], CPT, Proceedure, Charges, CoPay, Notes, Ins1_Paid, Ins2_Paid, Patient_Paid, Discount and [Patient Owes]. I am pulling this data together from a table and 4 views. I have 2 groups in my report; [Date of Service] and [Chart Number]. In GH1 I have the guarantors name and address and some other identifying data. GF1a contains a total of each amount due for all dates of service. The Notes field is really a varchar (8000) on the database. Currently there is a field in the report that acts as a counter if there is a comment tied to that record. That counter starts at #2 because #1 will always display a comment from the company. It displays {2,3,4,5, etc.} for as many recrods as have comments tied to them.
So in GF1b I need a key that ties the number displayed with the actual comment. Because the comment can be quite lengthy and will not fit in a 1/2 inch field I have to relocate it below the details section. Everything but this comment relocation works great. I have used several of the tips from this forum in developing it. Thanks!

Example:
(working)
DateofService CPTCode Proceedure Charges CoPay Notes MedicaidPaid SecondaryPaid PatientPaid Discount PatientOwes

8/19/2005 99999 HeartCathInsert $250.00 $10.00 2 $100.00 $90.00 $0.00 $0.00 $50.00
8/25/2005 99998 HeartCathRemove $100.00 $0.00 3 $26.00 $40.00 $0.00 $4.00 $30.00

Total Due $80.00

(not working)
1. This is the billing companies notes -PAY THE DR.
2. This is a new patient and they need to stop eating fast food. 4th heart attack in 2 months.
3. Plaque build up irrevearsable this patient will die, get money soon.


TIAFTH

 

[MSBrady]

The current formula that isn't working is:

Local NumberVar i ;
Local StringVar s := "";
for i := 2 to {@c_item}
do
(s = cstr(i) + '. ' + ({Patient_Remainder_Statement.NOTES})
) ;
s

 

[lbass]

I think you could handle this with three formulas:

//{@reset} to be placed in the GH#1:
whileprintingrecords;
numbervar cnt := 1;
stringvar s := "";

//{@accum} to be placed in the detail section:
whileprintingrecords;
numbervar cnt := cnt + 1;
stringvar s;

s := s + totext(cnt,0,"")+". "+{Patient_Remainder_Statement.NOTES}+chr(13);

//{@display} to be placed in the group #1 footer:
whileprintingrecords;
stringvar s;

Then right click on the display formula->format field->common and check "can grow".

-LB

 

[MSBrady]

Nearly perfect!
I have experimented with the location of the reset and display formulas, however the accumulator isn't accumulating. It shows 2. "bla bla bla" for each record. The display is working great!

 

[lbass]

If you formatted the accumulation formula to "can grow" you would see that it is accumulating. I assumed you would suppress the accumulation formula and only display the display formula.

-LB

 

[MSBrady]

//{@c_reset} GH1
WhilePrintingRecords;
NumberVar RecNum :=1;
stringvar s := "";

//{@c_display} GF1b (?is this location okay?)
WhilePrintingRecords;
stringvar s;

//{@c_accum} Details

WhilePrintingRecords;
NumberVar RecNum := RecNum + 1;
stringvar s;

s := s + totext(RecNum,0,"")+". "+{Patient_Remainder_Statement.NOTES}+chr(13);

 

[lbass]

Yes, that's fine. Do you still have a problem with this?

-LB

 

[MSBrady]

my bad...so I leave the current counter in place and suppress the Accumulator. got it

 

[MSBrady]

no more problems...thanks a bunch!