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