Dossier for Windows Version 1.00õ E6½m6À8 ¨¦jVýFÎÀ¾j å ÌÊj¶ FÎý ó_Õ ¶ ýµ å MU1000Õ PATIENTSÈ€À¤PATIENT INFORMATION¾îN'INSUR_COÈ€ÀtINSURANCE COMPANY6&CHARGESÈ€À`BILLING INFORMATIONö¦'Þ$SESSIONSÈ€À<THERAPY SESSION CHARGES F&CHRG_ENTÈ€À'ENTER PASSWORDÎ+EDIT_CHGSÈ€ÀtEDIT CHARGES DATABASE®>%BILLDATEÈ€ÀJVERIFY NAME and DATE of BILL¾ &61¾&HELP1È€f.rCHARGES and ID NUMBERS { SELECT(1); }0ÿÿP‚&22, d€�P�NNPATIENTSSOC_SEC0ÿÿP‚Æ2X eˆ�P�VPATIENTSLASTNAME 0ÿÿP‚F2D fˆ�P�.FPATIENTSFIRSTNAME.0ÿÿP‚2,X gˆ�P�–PATIENTSADDR_1<0ÿÿP‚ž2:X hˆ�P�>þPATIENTSADDR_2J0ÿÿP‚Ž)2HD iˆ�P�&öPATIENTSCITYX0ÿÿP‚^$2V jˆ�P�æ!&!PATIENTSSTATEf0ÿÿP‚2d k€�P�N¶PATIENTSZIPOeÿÿP‚fUd l€�P�ö¶PATIENTSPLUS4u0ÿÿP‚Æ+2t m€�P�þVPATIENTSAREA_CODEGuÿÿP‚¦+Mt n€�P�ÞPATIENTSPHONE_3ht o€�P�æ$6+PATIENTSPHONE_4%Š P€æ+UŠ P€î‚�9P€^‚~9P€¦$ÞcuÿÿP‚N(‚[8P€†V¶& &Soc sec #: PATIENTS->SOC_SEC &Lastname: PATIENTS->LASTNAME &Firstname: PATIENTS->FIRSTNAME &Addr 1: PATIENTS->ADDR_1 A&ddr 2: PATIENTS->ADDR_2&City: PATIENTS->CITY&State: PATIENTS->STATE&Zip: PATIENTS->ZIP-PATIENTS->PLUS4&Phone:PATIENTS->AREA_CODE-PATIENTS->PHONE_3PATIENTS->PHONE_4OkCancelDIALOG("INSUR_CO")Insurance Info.<{ select(2); BLANKRECORD( ); DIALOG("CHARGES"); } Enter Charges-/{ enddialog( true ); Dialog("BILLDATE"); } Print Bill0ÿÿP‚–'2X dˆ�P�ÎPATIENTSINSR_CO0ÿÿP‚–2X eˆ�P�¾PATIENTSIADDR_1 0ÿÿP‚¶2X fˆ�P�¦PATIENTSIADDR_2.0ÿÿP‚.(2,D gˆ�P�f&PATIENTSICITY<0ÿÿP‚Þ2: hˆ�P�þPATIENTSISTATEJ0ÿÿP‚æ2H i€�P�žPATIENTSIZIPOJÿÿP‚¾UH j€�P�PATIENTSIPLUS_4<d P€6dd P€>' &Company:PATIENTS->INSR_CO &Addr 1: PATIENTS->IADDR_1 A&ddr 2: PATIENTS->IADDR_2&City: PATIENTS->ICITY&State: PATIENTS->ISTATE&Zip: PATIENTS->IZIP-PATIENTS->IPLUS_4OkCancel{ SELECT(2); }~{ CHARGES->CHARGE := SESSIONS->CHARGE; CHARGES->TOTAL := SESSIONS->CHARGE * CHARGES->QUANTITY; INSERTRECORD (); }0ÿÿP‚ö2, d€�P�¾6$CHARGESSOC_SEC0ÿÿP‚~2, e€�P�FCHARGESariableDATE 0ÿÿP‚.%2 f€�P�þ&.CHARGESSESSION_ID‘ lP€†$–.0ÿÿP‚Ö+2, g€�P�NCHARGESQUANTITY<0ÿÿP‚2:X kˆ�P�¦CHARGESTHERAPIST1M P€®+hM P€ÆLCmP‚&¿j,nP‚Ž+ &Soc Sec #: PATIENTS->SOC_SEC.{ CHARGES->SOC_SEC := PATIENTS->SOC_SEC; }&Date: CHARGES->DATE S&ession id: CHARGES->SESSION_IDÚ{ local( t_session ); t_sessions := cton( CHARGES->SESSION_ID ); if ( t_sessions < 1000 or t_sessions > 1010) { error ( "INVALID SESSION ID"); return(false); } }{ DIalog("HELP1"); }&Help &Quantity: CHARGES->QUANTITY T&herapist: CHARGES->THERAPISTi{ CHARGES->CHARGE := SESSIONS->CHARGE; CHARGES->TOTAL := SESSIONS->CHARGE * CHARGES->QUANTITY; }OkCancel<----------------------------->Text{ SELECT(3); }0ÿÿP‚Î)2 d€�P�fSESSIONSSESSION_ID0ÿÿP‚20 e€�P�–!SESSIONSCHARGE 0ÿÿP‚n2€ f€�P�†'SESSIONSDESCRIP<, P€¾"d, P€�, gP€†,f &Session_id: SESSIONS->SESSION_ID &Charge: SESSIONS->CHARGE &Descrip: SESSIONS->DESCRIPOkCancelÕ{ enddialog( true ); /* ends password dialog */ select( sessions ); range( "0000", "9999" ); /* allows browse of entire database */ sendkey( 1 ); /* top of database */ }List all0ÿÿP‚N2: d �P�Ž'€emory VariablePASSWORD. P€Z P€îu7ÿÿP‚6( &Password: x{ IF(UPPER(PASSWORD) != "PASSWORD") { ERROR("PASSWORD DOES NOT MATCH"); return( false ); } } OkCancel ex. password{ SELECT(2); }0ÿÿP‚Þ(2, d€�P�®–&CHARGESSOC_SEC0ÿÿP‚6'2, e€�P�VCHARGESDATE 0ÿÿP‚þ2 f€�P�^ÆCHARGESSESSION_ID.0ÿÿP‚F2, g€�P�ŽCHARGESQUANTITY<0ÿÿP‚æ2:0 h€€P�¾v*CHARGESCHARGEJ0ÿÿP‚†2H8 i€€P�~%CHARGESariableTOTALlX0ÿÿP‚¾2VX jˆ�P�6 CHARGESTHERAPIST<d P€&dd P€Ö, &Soc sec #: CHARGES->SOC_SEC1{ CHARGES->SOC_SEC := PATIENTS->SOC_SEC; }&Date: CHARGES->DATE S&ession id: CHARGES->SESSION_IDÚ{ local( t_session ); t_sessions := cton( CHARGES->SESSION_ID ); if ( t_sessions < 1000 or t_sessions > 1010) { error ( "INVALID SESSION ID"); return(false); } } &Quantity: CHARGES->QUANTITY &Charge: CHARGES->CHARGE?{ CHARGES->CHARGE := SESSIONS->CHARGE*CHARGES->QUANTITY; }&Total: CHARGES->TOTAL?{ CHARGES->TOTAL := CHARGES->QUANTITY*CHARGES->CHARGE; } T&herapist: CHARGES->THERAPISTOkCancel!{ t_date :=dtoc( date() ); }){ enddialog( true ); PrintBill( ); } ,ÿÿP‚F":, f€�P�^&.1€emory Variablet_date 0ÿÿP‚.;X d€€P�^%®PATIENTSLASTNAME (0ÿÿP‚&+:&D e€€P�n Æ"PATIENTSFIRSTNAME99 P€6d9 P€&' &Bill date:t_date &Lastname: PATIENTS->LASTNAME &Firstname: PATIENTS->FIRSTNAMEPrintCancelPÿÿP‚f+b P€î( OÿÿP‚®%OÿÿP‚¾*3RÿÿP‚Ž:LÿÿP‚Ö+WÿÿP‚Ž$LÿÿP‚&#VÿÿP‚F%BSÿÿP‚f'JbÿÿP‚6,RPÿÿP‚vMessage - Arms 1006OkMessage - Back 1001Message - Legs 1000Stretch - Back 1010Stretch - Leg 1009PT - Evaluation 1003Pack - Ice 1004Pack - Heat 1005Weights - Arms 1008Weights - Legs 1007Whirlpool 10026{ error("See BILLS.TXT for more information"); }PATIENTS.DBF ß`Úýé¢o·  ß`ÚýP<ÿÿ+ 4PATIENTSh+¾ 4ö!ÁP o$-_ ™ ö!-3Uàš%€^Ps7~¶'&¸2 ú%–x CHARGES.DBF ß`Úý2Úä#6õØ,hP<l+ 4CHARGES¤+¾ *4ôÁéPÏ ý õÿ]³,3Uš%]–']Bý–-½ ¶$]nVÆ*L2 V%Î� SESSIONS.DBF ß`ÚýžÚä#6õØ,P<lÿÿ+ 4SESSIONSh+¾ 4VÁ;P` o$-_ ™ R'-3Uàš%€^Ps7ž&(  8%>,� PATIENTSSOC_SEC+LASTNAME+FIRSTNAMESOC_SECCHARGESÎ*v$¦ n' L^+>&>"îL¶*V. L~ž>6L~!¦&N VLFn^LV$VF L6Ö ~+þLÎV ¦VL® ¶æ®  L6"^(fL%v N,æLÖ>1Ö&†*Ln)&1~ 6L¾&þ.ŽLŽö æÎLnž~'v,L¦þn&Lf6!nLSOC_SEC "SOC_SEC"LASTNAME "LASTNAME" FIRSTNAME "FIRSTNAME"ADDR_1"ADDR_1"ADDR_2"ADDR_2"CITY"CITY"STATE"STATE"ZIP"ZIP"PLUS4"PLUS4" AREA_CODE "AREA_CODE"PHONE_3 "PHONE_3"PHONE_4 "PHONE_4"INSR_CO "INSR_CO"IADDR_2 "IADDR_2"IADDR_1 "IADDR_1"ICITY"ICITY"ISTATE"ISTATE"IZIP"IZIP"IPLUS_4 "IPLUS_4"PATIENTSCHARGESsoc_sec+dtos(date)+session_idSESSION_IDSESSIONS†+>6 LN®R.&Æ'Ff,  L>&î R&&öÞ†! RV"6.+æ& Ræî%Î&v% LSOC_SEC "SOC_SEC"DATE"DATE" SESSION_ID "SESSION_ID"QUANTITY "QUANTITY"CHARGE"CHARGE"TOTAL"TOTAL" THERAPIST "THERAPIST"EDIT_CHGSSESSIONSsession_id.æN$Þ&  LŽ >+^'F R+®*~ † L SESSION_ID "SESSION_ID"CHARGE"CHARGE"DESCRIP "DESCRIP"CHRG_ENTSESSIONSPATIENTSÿIZÚ&ú"5ê} þÿÏ'm IZípatientsV+Â2R2Aõ2]2 1u IZÊœÎv&CÂ2Rline2"Somewhere USA"ÞCFirst ColLast ColÂ2Rc{ pdrawtext(0,"XYZ Clinic",'C',pwidth( )); pdrawtext(0,str(curpage),'R',pwidth( )); } BillHeadingÆF2PrintBillvŽ%ˆ{ local(font1, x); /* declaring 2 variables */ font1 := PCreateFont("Tms Rmn", 15, TRUE, FALSE, FALSE); /* bill heading setup */ PText(700,"XYZ Physical Therapy Clinic", font1); PSkip(75); PText(700,"1111 Somewhere Street", font1); PSkip(75); PText(700,"SomewhereCity, SomewhereState 10000", font1); PSkip(75); PText(700,"Phone: 111-222-3333", font1); PSkip(100); PDrawLine( 50, plin( ), pwidth( ) - 50, plin( ), 0, 1 ); PSkip(75); PText(50,"PATIENT:"); PText(325,trim(PATIENTS->LASTNAME)+", "); PText(PCol(),PATIENTS->FIRSTNAME); PSkip(80); PText(50, "DATE"); PText(400, "DESCRIPTION"); PText(1450, "QUANTITY"); PText(1800, "CHARGE"); PText(2125, "TOTAL"); PSkip(75); PDeleteFont( font1); } { local( t_tot, s_date, g_tot, i ); /* declaring variables */ if( !POpen("Bill", /* spool name */ "BillHeading", /* heading fuction */ 132) ) /* report width chars */ return; s_date := dtos( ctod( t_date ) ); t_tot := 0; g_tot := 0; SEEK( charges, PATIENTS->soc_sec+s_date ); for( ; !eof( ) and !paborted( ) and s_date == dtos( CHARGES->DATE); select( charges ), skip( 1 ) ) { PText( 50,t_date); /* print date */ PText( 400, ltrim(rtrim(SESSIONS->DESCRIP) ) ); t_tot := CHARGES->QUANTITY*CHARGES->CHARGE; PText( 1400, ntoc(CHARGES->QUANTITY, 5 ,0) ); PText( 1800,"$"+ltrim( ntoc(CHARGES->CHARGE, 10 ,2) ) ); PText( 2100,"$"+ltrim( ntoc(t_tot, 12, 2) ) ); g_tot := g_tot + t_tot; PSkip(75); } PText( 1455, "--------------------------------- " ); PSkip(75); PText( 1690, "Grand Total:"); PText( 2100,"$"+ltrim( ntoc(g_tot, 12, 2) ) ); PClose( ); /* close the printer spooler */ }