- XLFDT1 ;ISC-SF/RWF - Date/Time Functions cont. from VA FileMan %DTC ;02/20/2003 10:05 [ 07/29/2004 9:01 AM ]
- ;;8.0;KERNEL;**71,280**;Jul 10, 1995
- ;If y contains a "D" then Date only.
- ;if y contains a "F" then output with leading blanks
- ;If y contains a "P" then output ' HH:MM:SS am/pm'.
- ;If y contains a "S" then force seconds in the output.
- ;if y contains a "M" then stop at minutes i.e. no seconds.
- ;
- FMT ;
- N %G S %G=+%F
- 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
- Q
- ;
- F1 ;Apr 10, 2002
- 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)
- ;
- TM ;All formats come here to format Time.
- N %,%S Q:%T'>0!(%F["D")
- 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:"")
- I %F["P" D
- . 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:"")
- . S %R=%R_$S($E(%T,2,7)<120000:" am",$E(%T,2,3)=24:" am",1:" pm")
- . Q
- Q
- ;Return Month names
- M() Q " Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
- ;
- F2 ;4/10/02
- S %R=$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)_"/"_$E(Y,2,3)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F3 ;10/4/02
- S %R=$J(+$E(Y,6,7),2)_"/"_$J(+$E(Y,4,5),2)_"/"_$E(Y,2,3)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F4 ;02/4/10
- S %R=$E(Y,2,3)_"/"_$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F5 ;4/10/2002
- S %R=$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)_"/"_($E(Y,1,3)+1700)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F6 ;10/4/2002
- S %R=$J(+$E(Y,6,7),2)_"/"_$J(+$E(Y,4,5),2)_"/"_($E(Y,1,3)+1700)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F7 ;2002/4/10
- S %R=($E(Y,1,3)+1700)_"/"_$J(+$E(Y,4,5),2)_"/"_$J(+$E(Y,6,7),2)
- S:%F["Z" %R=$TR(%R," ","0") S:%F'["F" %R=$TR(%R," ")
- G TM
- F8 ;10 Apr 02
- 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)
- G TM
- F9 ;10 Apr 2002
- 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)
- G TM
- XLFDT1 ;ISC-SF/RWF - Date/Time Functions cont. from VA FileMan %DTC ;02/20/2003 10:05 [ 07/29/2004 9:01 AM ]
- +1 ;;8.0;KERNEL;**71,280**;Jul 10, 1995
- +2 ;If y contains a "D" then Date only.
- +3 ;if y contains a "F" then output with leading blanks
- +4 ;If y contains a "P" then output ' HH:MM:SS am/pm'.
- +5 ;If y contains a "S" then force seconds in the output.
- +6 ;if y contains a "M" then stop at minutes i.e. no seconds.
- +7 ;
- FMT ;
- +1 NEW %G
- SET %G=+%F
- +2 IF %G=1
- GOTO F1
- IF %G=2
- GOTO F2
- IF %G=3
- GOTO F3
- IF %G=4
- GOTO F4
- IF %G=5
- GOTO F5
- IF %G=6
- GOTO F6
- IF %G=7
- GOTO F7
- IF %G=8
- GOTO F8
- IF %G=9
- GOTO F9
- GOTO F1
- +3 QUIT
- +4 ;
- F1 ;Apr 10, 2002
- +1 SET %R=$PIECE($$M()," ",$SELECT($EXTRACT(Y,4,5):$EXTRACT(Y,4,5)+2,1:0))_$SELECT($EXTRACT(Y,4,5):" ",1:"")_$SELECT($EXTRACT(Y,6,7):$EXTRACT(Y,6,7)_", ",1:"")_($EXTRACT(Y,1,3)+1700)
- +2 ;
- TM ;All formats come here to format Time.
- +1 NEW %,%S
- IF %T'>0!(%F["D")
- QUIT
- +2 IF %F'["P"
- SET %R=%R_"@"_$EXTRACT(%T,2,3)_":"_$EXTRACT(%T,4,5)_$SELECT(%F["M":"",$EXTRACT(%T,6,7)!(%F["S"):":"_$EXTRACT(%T,6,7),1:"")
- +3 IF %F["P"
- Begin DoDot:1
- +4 SET %R=%R_" "_$SELECT($EXTRACT(%T,2,3)>12:$EXTRACT(%T,2,3)-12,+$EXTRACT(%T,2,3)=0:"12",1:+$EXTRACT(%T,2,3))_":"_$EXTRACT(%T,4,5)_$SELECT(%F["M":"",$EXTRACT(%T,6,7)!(%F["S"):":"_$EXTRACT(%T,6,7),1:"")
- +5 SET %R=%R_$SELECT($EXTRACT(%T,2,7)<120000:" am",$EXTRACT(%T,2,3)=24:" am",1:" pm")
- +6 QUIT
- End DoDot:1
- +7 QUIT
- +8 ;Return Month names
- M() QUIT " Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
- +1 ;
- F2 ;4/10/02
- +1 SET %R=$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_$JUSTIFY(+$EXTRACT(Y,6,7),2)_"/"_$EXTRACT(Y,2,3)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F3 ;10/4/02
- +1 SET %R=$JUSTIFY(+$EXTRACT(Y,6,7),2)_"/"_$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_$EXTRACT(Y,2,3)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F4 ;02/4/10
- +1 SET %R=$EXTRACT(Y,2,3)_"/"_$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_$JUSTIFY(+$EXTRACT(Y,6,7),2)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F5 ;4/10/2002
- +1 SET %R=$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_$JUSTIFY(+$EXTRACT(Y,6,7),2)_"/"_($EXTRACT(Y,1,3)+1700)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F6 ;10/4/2002
- +1 SET %R=$JUSTIFY(+$EXTRACT(Y,6,7),2)_"/"_$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_($EXTRACT(Y,1,3)+1700)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F7 ;2002/4/10
- +1 SET %R=($EXTRACT(Y,1,3)+1700)_"/"_$JUSTIFY(+$EXTRACT(Y,4,5),2)_"/"_$JUSTIFY(+$EXTRACT(Y,6,7),2)
- +2 IF %F["Z"
- SET %R=$TRANSLATE(%R," ","0")
- IF %F'["F"
- SET %R=$TRANSLATE(%R," ")
- +3 GOTO TM
- F8 ;10 Apr 02
- +1 SET %R=$SELECT($EXTRACT(Y,6,7):$EXTRACT(Y,6,7)_" ",1:"")_$PIECE($$M()," ",$SELECT($EXTRACT(Y,4,5):$EXTRACT(Y,4,5)+2,1:0))_$SELECT($EXTRACT(Y,4,5):" ",1:"")_$EXTRACT(Y,2,3)
- +2 GOTO TM
- F9 ;10 Apr 2002
- +1 SET %R=$SELECT($EXTRACT(Y,6,7):$EXTRACT(Y,6,7)_" ",1:"")_$PIECE($$M()," ",$SELECT($EXTRACT(Y,4,5):$EXTRACT(Y,4,5)+2,1:0))_$SELECT($EXTRACT(Y,4,5):" ",1:"")_($EXTRACT(Y,1,3)+1700)
- +2 GOTO TM
