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