source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XLFDT1.m@ 1361

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1XLFDT1 ;ISC-SF/RWF - Date/Time Functions cont. from VA FileMan %DTC ;02/20/2003 10:05
2 ;;8.0;KERNEL;**71,280**;Jul 10, 1995
3 ;If y contains a "D" then Date only.
4 ;if y contains a "F" then output with leading blanks
5 ;If y contains a "P" then output ' HH:MM:SS am/pm'.
6 ;If y contains a "S" then force seconds in the output.
7 ;if y contains a "M" then stop at minutes i.e. no seconds.
8 ;
9FMT ;
10 N %G S %G=+%F
11 G F1:%G=1,F2:%G=2,F3:%G=3,F4:%G=4,F5:%G=5,F6:%G=6,F7:%G=7,F8:%G=8,F9:%G=9,F1
12 Q
13 ;
14F1 ;Apr 10, 2002
15 S %R=$P($$M()," ",$S($E(Y,4,5):$E(Y,4,5)+2,1:0))_$S($E(Y,4,5):" ",1:"")_$S($E(Y,6,7):$E(Y,6,7)_", ",1:"")_($E(Y,1,3)+1700)
16 ;
17TM ;All formats come here to format Time.
18 N %,%S Q:%T'>0!(%F["D")
19 I %F'["P" S %R=%R_"@"_$E(%T,2,3)_":"_$E(%T,4,5)_$S(%F["M":"",$E(%T,6,7)!(%F["S"):":"_$E(%T,6,7),1:"")
20 I %F["P" D
21 . S %R=%R_" "_$S($E(%T,2,3)>12:$E(%T,2,3)-12,+$E(%T,2,3)=0:"12",1:+$E(%T,2,3))_":"_$E(%T,4,5)_$S(%F["M":"",$E(%T,6,7)!(%F["S"):":"_$E(%T,6,7),1:"")
22 . S %R=%R_$S($E(%T,2,7)<120000:" am",$E(%T,2,3)=24:" am",1:" pm")
23 . Q
24 Q
25 ;Return Month names
26M() Q " Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
27 ;
28F2 ;4/10/02
29 S %R=$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)_"/"_$E(Y,2,3)
30 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
31 G TM
32F3 ;10/4/02
33 S %R=$J(+$E(Y,6,7),2)_"/"_$J(+$E(Y,4,5),2)_"/"_$E(Y,2,3)
34 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
35 G TM
36F4 ;02/4/10
37 S %R=$E(Y,2,3)_"/"_$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)
38 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
39 G TM
40F5 ;4/10/2002
41 S %R=$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)_"/"_($E(Y,1,3)+1700)
42 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
43 G TM
44F6 ;10/4/2002
45 S %R=$J(+$E(Y,6,7),2)_"/"_$J(+$E(Y,4,5),2)_"/"_($E(Y,1,3)+1700)
46 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
47 G TM
48F7 ;2002/4/10
49 S %R=($E(Y,1,3)+1700)_"/"_$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)
50 S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
51 G TM
52F8 ;10 Apr 02
53 S %R=$S($E(Y,6,7):$E(Y,6,7)_" ",1:"")_$P($$M()," ",$S($E(Y,4,5):$E(Y,4,5)+2,1:0))_$S($E(Y,4,5):" ",1:"")_$E(Y,2,3)
54 G TM
55F9 ;10 Apr 2002
56 S %R=$S($E(Y,6,7):$E(Y,6,7)_" ",1:"")_$P($$M()," ",$S($E(Y,4,5):$E(Y,4,5)+2,1:0))_$S($E(Y,4,5):" ",1:"")_($E(Y,1,3)+1700)
57 G TM
Note: See TracBrowser for help on using the repository browser.