RCAMADD ;WASH-ISC@ALTOONA,PA/RGY - Get debtor address ;10/8/96 5:15 PM
Source file <RCAMADD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;4.5;Accounts Receivable;**34,190,336**;Mar 20, 1995;Build 45
|
|
| DADD(RCDB,RCCONF,RCCSW) | ;
|
|
| Q | ||
| PER(RCDB) | ;Get person address
|
|
| Q1 | ||
| INST(RCDB) | ;Get institution address
|
|
| Q2 | ||
| PAT(RCDB,RCCONF) | ;Get patient address as "Str1^Str2^Str3^City^State^ZIP^Telephone" from ^DPT
; if RCCONF=0 (default), then return patients permanent address ; if RCCONF=1, then return confidential address, or NULL |
|
| Q3 | ||
| PAT1(RCDB,RCCONF) | ;Get patient address as "Str1^Str2^Str3^City^State^ZIP^Telephone" from ^DPT ;PRCA*4.5*336
; if RCCONF=0 (default), then return patients permanent address ; if RCCONF=1, then return confidential address, or NULL |
|
| Q3A | ||
| VEN(RCDB) | ;Get vendor address
|
|
| Q4 | ||
| INSUR(RCDB) | ;Get insurance company address
|
|
| Q5 | ||
| ARDEB(RCDB) | ;Get address from AR Debtor file (340)
|
|
| Q6 |
