RCTOP2 ;WASH IRMFO@ALTOONA,PA/TJK-TOP TRANSMISSION ;2/11/00 3:25 PM
Source file <RCTOP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;4.5;Accounts Receivable;**141,169,333**;Mar 20, 1995;Build 7
|
|
| EN1(DEBTOR,CODE,FILE) | ;entry point to compile type 2 documents into global
|
|
| QUIT | ||
| DADD(RCDB,RCCONF) | ;
|
|
| Q | ||
| ARDEB(RCDB) | ;Get address from AR Debtor file (340)
|
|
| Q6 | ||
| 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 | ||
| COUNTRY(Z) | ;
|
|
| COUNTRYQ | ;
|
