Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARBAD

BARBAD.m

Go to the documentation of this file.
  1. BARBAD ; IHS/SD/AR - POST STATUS CHANGE APR 12, 2010 ; 04/12/2010
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE;**19**;OCT 26, 2005
  1. ;
  1. ; *********************************************************************
  1. ;
  1. EN ;
  1. S BARESIG=""
  1. I '$G(BARESIG) D SIG^XUSESIG Q:X1="" ;elec signature test
  1. S BARESIG=1
  1. I '$D(BARUSR) D INIT^BARUTL
  1. W !!
  1. ;
  1. ENTRY ;
  1. N BARPASS
  1. S BARPASS=""
  1. S BARPASS=$$EN^BARBAD1()
  1. Q:BARPASS=0
  1. S BARCNT=$$EN^BARBAD2(BARPASS)
  1. I +BARCNT=0 W *7,!!,"No bills in this date range!" W !! Q
  1. D EN^BARBAD3
  1. G ENTRY
  1. Q