From b4bf8f8d1242e691edf7db36272de9acb0ab154c Mon Sep 17 00:00:00 2001 From: andres_paglayan Date: Mon, 19 Dec 2005 19:45:04 +0000 Subject: [PATCH] option for using DOS as billing date added --- accounting/ws_server.pl | 7 +++++++ accounting/ws_server_26.pl | 9 ++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/accounting/ws_server.pl b/accounting/ws_server.pl index 3a0486b87..e7a0c9a48 100755 --- a/accounting/ws_server.pl +++ b/accounting/ws_server.pl @@ -156,6 +156,8 @@ sub rpc_add_invoice # This is the AR account number, needed by IS::post_invoice. $form->{AR} = $oemr_ar_acc; + + # This will use the posting date as the billing date @t = localtime(time); $dd = $t[3]; $mm = $t[4] + 1; @@ -163,6 +165,11 @@ sub rpc_add_invoice $form->{transdate} = sprintf("%02u-%02u-%04u", $t[4] + 1, $t[3], $t[5] + 1900); + #Uncoment this following line if you rather use the DOS as the billing date. + + # $form->{transdate} = $$post_hash{'dosdate'}; + + # If there is insurance, set a future due date so we don't bother # the patient for a while. # diff --git a/accounting/ws_server_26.pl b/accounting/ws_server_26.pl index f47d4a535..f88b1518a 100755 --- a/accounting/ws_server_26.pl +++ b/accounting/ws_server_26.pl @@ -166,13 +166,20 @@ sub rpc_add_invoice # This is the AR account number, needed by IS::post_invoice. $form->{AR} = $oemr_ar_acc; + # This will use the posting date as the billing date @t = localtime(time); $dd = $t[3]; $mm = $t[4] + 1; $yy = $t[5] + 1900; - + $form->{transdate} = sprintf("%02u-%02u-%04u", $t[4] + 1, $t[3], $t[5] + 1900); + + #Uncoment this following line if you rather use the DOS as the billing date. + + # $form->{transdate} = $$post_hash{'dosdate'}; + + # If there is insurance, set a future due date so we don't bother # the patient for a while. # -- 2.11.4.GIT