BARUFTDN.m

BARUFTDN ; IHS/SD/SDR - Format TDN with FY ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**6**;OCT 26, 2005

 ;

BATCH(Y,D0) ;EP - Add FY8 to FY08 TDNs

 ; Y=TDN

 ; D0=Collection Batch IEN

 N BARBDT,BARTDN

 S BARBDT=$P($P($G(^BARCOL(DUZ(2),D0,0)),U,4),".")

 S BARTDN=$P($G(^BARCOL(DUZ(2),D0,0)),U,28)

 S Y=$S($L(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 Q Y

ITEM(Y,D0,D1) ;EP - Add FY8 to FY08 TDNs

 ; Y=TDN

 ; D0=Collection Batch IEN

 ; D1=Item IEN

 N BARBDT,BARTDN

 S BARBDT=$P($P($G(^BARCOL(DUZ(2),D0,0)),U,4),".")

 S BARTDN=$S($P($G(^BARCOL(DUZ(2),D0,1,D1,0)),U,20)'="":$P(^BARCOL(DUZ(2),D0,1,D1,0),U,20),1:$P($G(^BARCOL(DUZ(2),D0,0)),U,28))

 S Y=$S($L(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 Q Y

TRANS(Y,D0) ;EP - Add FY8 to FY08 TDNs

 ; Y=TDN

 ; D0=A/R Transaction IEN

 N BARBDT,BARTDN,BARRDT,BARRCOL

 S BARRDT=$P($G(^BARTR(DUZ(2),D0,1)),U,10)

 Q:BARRDT="" Y

 S BARRCOL=$P($G(^BARTR(DUZ(2),BARRDT,0)),U,14)

 Q:BARRCOL="" Y

 S BARBDT=$P($P($G(^BARCOL(DUZ(2),BARRCOL,0)),U,4),".")

 S BARTDN=$P($G(^BARCOL(DUZ(2),BARRCOL,0)),U,28)

 S Y=$S($L(Y)<6:Y,BARTDN["NONP":Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 Q Y

BARUFTDN  ; IHS/SD/SDR - Format TDN with FY ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**6**;OCT 26, 2005

 +2       ;

BATCH(Y,D0) ;EP - Add FY8 to FY08 TDNs

 +1       ; Y=TDN

 +2       ; D0=Collection Batch IEN

 +3        NEW BARBDT,BARTDN

 +4        SET BARBDT=$PIECE($PIECE($GET(^BARCOL(DUZ(2),D0,0)),U,4),".")

 +5        SET BARTDN=$PIECE($GET(^BARCOL(DUZ(2),D0,0)),U,28)

 +6        SET Y=$SELECT($LENGTH(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 +7        QUIT Y

ITEM(Y,D0,D1) ;EP - Add FY8 to FY08 TDNs

 +1       ; Y=TDN

 +2       ; D0=Collection Batch IEN

 +3       ; D1=Item IEN

 +4        NEW BARBDT,BARTDN

 +5        SET BARBDT=$PIECE($PIECE($GET(^BARCOL(DUZ(2),D0,0)),U,4),".")

 +6        SET BARTDN=$SELECT($PIECE($GET(^BARCOL(DUZ(2),D0,1,D1,0)),U,20)'="":$PIECE(^BARCOL(DUZ(2),D0,1,D1,0),U,20),1:$PIECE($GET(^BARCOL(DUZ(2),D0,0)),U,28))

 +7        SET Y=$SELECT($LENGTH(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 +8        QUIT Y

TRANS(Y,D0) ;EP - Add FY8 to FY08 TDNs

 +1       ; Y=TDN

 +2       ; D0=A/R Transaction IEN

 +3        NEW BARBDT,BARTDN,BARRDT,BARRCOL

 +4        SET BARRDT=$PIECE($GET(^BARTR(DUZ(2),D0,1)),U,10)

 +5        IF BARRDT=""

               QUIT Y

 +6        SET BARRCOL=$PIECE($GET(^BARTR(DUZ(2),BARRDT,0)),U,14)

 +7        IF BARRCOL=""

               QUIT Y

 +8        SET BARBDT=$PIECE($PIECE($GET(^BARCOL(DUZ(2),BARRCOL,0)),U,4),".")

 +9        SET BARTDN=$PIECE($GET(^BARCOL(DUZ(2),BARRCOL,0)),U,28)

 +10       SET Y=$SELECT($LENGTH(Y)<6:Y,BARTDN["NONP":Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)

 +11       QUIT Y