Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARUFTDN

BARUFTDN.m

Go to the documentation of this file.
  1. BARUFTDN ; IHS/SD/SDR - Format TDN with FY ;
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE;**6**;OCT 26, 2005
  1. ;
  1. BATCH(Y,D0) ;EP - Add FY8 to FY08 TDNs
  1. ; Y=TDN
  1. ; D0=Collection Batch IEN
  1. N BARBDT,BARTDN
  1. S BARBDT=$P($P($G(^BARCOL(DUZ(2),D0,0)),U,4),".")
  1. S BARTDN=$P($G(^BARCOL(DUZ(2),D0,0)),U,28)
  1. S Y=$S($L(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)
  1. Q Y
  1. ITEM(Y,D0,D1) ;EP - Add FY8 to FY08 TDNs
  1. ; Y=TDN
  1. ; D0=Collection Batch IEN
  1. ; D1=Item IEN
  1. N BARBDT,BARTDN
  1. S BARBDT=$P($P($G(^BARCOL(DUZ(2),D0,0)),U,4),".")
  1. 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))
  1. S Y=$S($L(Y)<6:Y,(BARTDN["NONP"):Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)
  1. Q Y
  1. TRANS(Y,D0) ;EP - Add FY8 to FY08 TDNs
  1. ; Y=TDN
  1. ; D0=A/R Transaction IEN
  1. N BARBDT,BARTDN,BARRDT,BARRCOL
  1. S BARRDT=$P($G(^BARTR(DUZ(2),D0,1)),U,10)
  1. Q:BARRDT="" Y
  1. S BARRCOL=$P($G(^BARTR(DUZ(2),BARRDT,0)),U,14)
  1. Q:BARRCOL="" Y
  1. S BARBDT=$P($P($G(^BARCOL(DUZ(2),BARRCOL,0)),U,4),".")
  1. S BARTDN=$P($G(^BARCOL(DUZ(2),BARRCOL,0)),U,28)
  1. S Y=$S($L(Y)<6:Y,BARTDN["NONP":Y,BARTDN["PRE-UFMS":Y,((BARBDT>3070930)&(BARBDT<3081001)):"FY8"_Y,1:Y)
  1. Q Y