| 1 | RCTOP4 ;WASH IRMFO@ALTOONA,PA/TJK-TOP TRANSMISSION ;2/11/00 9:39 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**141**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified
|
|---|
| 4 | EN1(NAME,TAXID,DEBTOR4,DEBTOR,FILE) ;entry point to compile type 4 documents into global
|
|---|
| 5 | ;called from RCTOP1
|
|---|
| 6 | I NAME=$P(DEBTOR4,U,5),TAXID=$P(DEBTOR4,U,4) Q
|
|---|
| 7 | N REC,DEBNR
|
|---|
| 8 | ;
|
|---|
| 9 | ;set record in temporary global
|
|---|
| 10 | ;
|
|---|
| 11 | S REC="04 "_$P(^RC(342,1,3),U,5)_" "
|
|---|
| 12 | S DEBNR=$E(SITE,1,3)_$S(FILE=2:0,FILE=440:"V",1:"E")_$TR($J(DEBTOR,14)," ",0)
|
|---|
| 13 | S REC=REC_DEBNR_"A400"_NAME_" "_$$DATE8^RCTOP1(DT)_TAXID
|
|---|
| 14 | S REC=REC_$$BLANK^RCTOP1(70)
|
|---|
| 15 | S CNTR(4)=CNTR(4)+1,^XTMP("RCTOPD",$J,4,CNTR(4))=REC
|
|---|
| 16 | ;
|
|---|
| 17 | ;set TOP alias nodes in debtor file
|
|---|
| 18 | ;
|
|---|
| 19 | S $P(^RCD(340,DEBTOR,4),U,4)=TAXID,$P(^(4),U,5)=NAME
|
|---|
| 20 | Q
|
|---|
