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 |
|