TCSCodeDate
ACME HINO DEALERS LTD
Open Resolvable Date Codes
Description
Status
Context
Access
Formula
Code
{BW}-(7*((Date-Week)\7#2))
Open
BF
Beginning Cur Fortnight
14
Plus Days:
Alpha Key: BF
1
Minus Days:
Date Type:
{BW}-(7*((Date-Week)\7#4))
Open
BL
Beginning Four-weekly
28
Plus Days:
Alpha Key: BL
1
Minus Days:
Date Type:
$ZDH($E($ZD(Date,8),1,6)_"01",8)
Open
BM
Beginning Cur Month Expression
31
Plus Days:
Alpha Key: BM
1
Minus Days:
Date Type:
Notes:
This code is often used as the Forex Date specification on a Company Code to define a requirement for monthly, i.e. as at the first day of each month, exchange rates to be maintained.
Date-$Select(($ZD(Date,10)-$ZD(Week,10))<0:$ZD(Week,10),1:$ZD(Date,10)-$ZD(Week,10))
Open
BW
Beginning Cur Week Expression
7
Plus Days:
Alpha Key: BW
1
Minus Days:
Date Type:
$ZDH($E($ZD(Date,8),1,4)_"0101",8)
Open
BY
Beginning Year Expression
365
Plus Days:
Alpha Key: BY
1
Minus Days:
Date Type:
Date
Open
D
Daily Expression
1
Plus Days:
Alpha Key: D
1
Minus Days:
Date Type:
Date+14
Open
DF
Due in 14 days
1
Plus Days:
Alpha Key: DF
1
Minus Days:
Date Type:
Date+7
Open
DS
Due in 7 days
1
Plus Days:
Alpha Key: DS
1
Minus Days:
Date Type:
Date+30
Open
DT
Due in 30 days
1
Plus Days:
Alpha Key: DT
1
Minus Days:
Date Type:
{BF}+13
Open
EF
End Cur Fortnight
1
Plus Days:
Alpha Key: EF
7
Minus Days:
Date Type:
Page 1 of 4
Printed on 26 Mar 2002 at 07:21 AM
TCSCodeDate
ACME HINO DEALERS LTD
Open Resolvable Date Codes
Description
Status
Context
Access
Formula
Code
{BL}+27
Open
EL
End 4-week
1
Plus Days:
Alpha Key: EL
28
Minus Days:
Date Type:
$ZDH($E($ZD($ZDH($E($ZD(Date,8),1,6)_"01",8)+32,8),1,6)_"01",8)-1
Open
EM
End Cur Month Expression
1
Plus Days:
Alpha Key: EM
31
Minus Days:
Date Type:
{BW}+6
Open
EW
End Cur Week Expression
1
Plus Days:
Alpha Key: EW
7
Minus Days:
Date Type:
$ZDH($E($ZD(Date,8),1,4)_"1231",8)
Open
EY
End Year Expression
31
Plus Days:
Alpha Key: EY
1
Minus Days:
Date Type:
Date
Open
F
Fortnightly Expression
14
Plus Days:
Alpha Key: F
14
Minus Days:
Date Type:
$Select($ZD({BM},10)>0&($ZD({BM},10)<6):{BM},1:{BM}+$Select('$ZD({BM},10):1,1:2))
Open
FW
1st Working Day of Month
31
Plus Days:
Alpha Key: FW
1
Minus Days:
Date Type:
Date
Open
L
Lunar / 4 weekly Expression
28
Plus Days:
Alpha Key: L
28
Minus Days:
Date Type:
$Select($ZD({EM},10)>0&($ZD({EM},10)<6):{EM},1:{EM}-$Select('$ZD({EM},10):2,1:1))
Open
LW
Last Working Day of Month
1
Plus Days:
Alpha Key: LW
31
Minus Days:
Date Type:
$ZDH($E($ZD($ZDH($E($ZD(Date,8),1,4)-1_$E($ZD(Date,8),5,6)_"01",8)+32,8),1,6)_"01",8)-1
Open
LYEM
Last Year End Month Expression
0
Plus Days:
Alpha Key: LYEM
0
Minus Days:
Date Type:
{LYEM}-({EM}-Date)
Open
LYT
Last Year Today Expression
0
Plus Days:
Alpha Key: LYT
0
Minus Days:
Date Type:
Page 2 of 4
Printed on 26 Mar 2002 at 07:21 AM
TCSCodeDate
ACME HINO DEALERS LTD
Open Resolvable Date Codes
Description
Status
Context
Access
Formula
Code
Date
Open
M
Monthly Expression
##class(TCSCodeDate).Monthly(Date,1)
Plus Days:
Alpha Key: M
##class(TCSCodeDate).Monthly(Date,-1)
Minus Days:
Date Type:
Date
Open
M1
1 Monthly Expression
##class(TCSCodeDate).Monthly(Date,1)
Plus Days:
Alpha Key: M1
##class(TCSCodeDate).Monthly(Date,-1)
Minus Days:
Date Type: Contract
Date
Open
M10
10 Monthly Expression
##class(TCSCodeDate).Monthly(Date,10)
Plus Days:
Alpha Key: M10
##class(TCSCodeDate).Monthly(Date,-10)
Minus Days:
Date Type: Contract
Date
Open
M11
11 Monthly Expression
##class(TCSCodeDate).Monthly(Date,11)
Plus Days:
Alpha Key: M11
##class(TCSCodeDate).Monthly(Date,-11)
Minus Days:
Date Type: Contract
Date
Open
M12
12 Monthly Expression
##class(TCSCodeDate).Monthly(Date,12)
Plus Days:
Alpha Key: M12
##class(TCSCodeDate).Monthly(Date,-12)
Minus Days:
Date Type: Contract
Date
Open
M2
2 Monthly Expression
##class(TCSCodeDate).Monthly(Date,2)
Plus Days:
Alpha Key: M2
##class(TCSCodeDate).Monthly(Date,-2)
Minus Days:
Date Type: Contract
Date
Open
M3
3 Monthly Expression
##class(TCSCodeDate).Monthly(Date,3)
Plus Days:
Alpha Key: M3
##class(TCSCodeDate).Monthly(Date,-3)
Minus Days:
Date Type: Contract
Date
Open
M4
4 Monthly Expression
##class(TCSCodeDate).Monthly(Date,4)
Plus Days:
Alpha Key: M4
##class(TCSCodeDate).Monthly(Date,-4)
Minus Days:
Date Type: Contract
Date
Open
M5
5 Monthly Expression
##class(TCSCodeDate).Monthly(Date,5)
Plus Days:
Alpha Key: M5
##class(TCSCodeDate).Monthly(Date,-5)
Minus Days:
Date Type: Contract
Date
Open
M6
6 Monthly Expression
##class(TCSCodeDate).Monthly(Date,6)
Plus Days:
Alpha Key: M6
##class(TCSCodeDate).Monthly(Date,-6)
Minus Days:
Date Type: Contract
Page 3 of 4
Printed on 26 Mar 2002 at 07:21 AM
TCSCodeDate
ACME HINO DEALERS LTD
Open Resolvable Date Codes
Description
Status
Context
Access
Formula
Code
Date
Open
M7
7 Monthly Expression
##class(TCSCodeDate).Monthly(Date,7)
Plus Days:
Alpha Key: M7
##class(TCSCodeDate).Monthly(Date,-7)
Minus Days:
Date Type: Contract
Date
Open
M8
8 Monthly Expression
##class(TCSCodeDate).Monthly(Date,8)
Plus Days:
Alpha Key: M8
##class(TCSCodeDate).Monthly(Date,-8)
Minus Days:
Date Type: Contract
Date
Open
M9
9 Monthly Expression
##class(TCSCodeDate).Monthly(Date,9)
Plus Days:
Alpha Key: M9
##class(TCSCodeDate).Monthly(Date,-9)
Minus Days:
Date Type: Contract
$ZDH($E($ZD($ZDH($E($ZD(Date,8),1,6)_"01",8)+32,8),1,6)_"01",8)+19
Open
MD
Month Due Expression
1
Plus Days:
Alpha Key: MD
31
Minus Days:
Date Type:
Date
Open
T
Today's Expression
1
Plus Days:
Alpha Key: T
1
Minus Days:
Date Type:
Date
Open
W
Weekly Expression
7
Plus Days:
Alpha Key: W
7
Minus Days:
Date Type:
Date
Open
W3
3 Weekly Expression
21
Plus Days:
Alpha Key: W3
21
Minus Days:
Date Type:
Date
Open
W6
6 Weekly Expression
42
Plus Days:
Alpha Key: W6
42
Minus Days:
Date Type:
$Select($ZD(Date,10)>0&($ZD(Date,10)<6):Date,1:Date+$Select('$ZD(Date,10):1,1:2))
Open
WD
1st Working Day Expression
1
Plus Days:
Alpha Key: WD
1
Minus Days:
Date Type:
Date
Open
Y
Yearly Expression
##class(TCSCodeDate).Monthly(Date,12)
Plus Days:
Alpha Key: Y
##class(TCSCodeDate).Monthly(Date,-12)
Minus Days:
Date Type:
Page 4 of 4
Printed on 26 Mar 2002 at 07:21 AM