source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCTOP4.m@ 1765

Last change on this file since 1765 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 768 bytes
Line 
1RCTOP4 ;WASH IRMFO@ALTOONA,PA/TJK-TOP TRANSMISSION ;2/11/00 9:39 AM
2V ;;4.5;Accounts Receivable;**141**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified
4EN1(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
Note: See TracBrowser for help on using the repository browser.