| Name | Value |
|---|---|
| NAME | VAQ FORMAT TIME |
| MUMPS CODE | Q:'$D(X) Q:($P(X,".",2)="") S X=$P(X,".",2)_"000000",X=(+$E(X,1,2))_":"_$E(X,3,4)_" "_$S((+$E(X,1,6))>115959:"PM",1:"AM") S:(+$P(X,":",1))=0 $P(X,":",1)=12 |
| EXPLANATION | Converts a FileMan time to HH:mm AM (or PM). Full FileMan date/time must be passed. |
| DATE-VALUED | NO |