RCRCDIV ;ALB/CMS-RC REFERRAL DIVISION UTILITY PROGRAM ; 16-JUN-00
Source file <RCRCDIV.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| V | ;;4.5;Accounts Receivable;**159**;Mar 20, 1995
 | 
|
| RCDIV(ARRAY) | ;Get array of divisions and Remote Address
 | 
|
| RCDIVQ | ||
| DIVS | ;Select division if multi-site
 ; - Use RCDIV^RCRCDIV(.RCDIV) to set RCDIV(0)  | 
|
| DIVSQ | ||
| DIV(PRCABN) | ;Check bill # to see if same as selected division
 ; Returns 1 if same as selected divison 0 if not ; RCDIV(0) must be defined before calling  | 
|
| DIVQ | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  |