Routine: %DT

Information

DIDT ;SFISC/GFT-DATE/TIME UTILITY ;2014-12-26 12:32 PM

Source file <DIDT.m>

Name	Comments	DBIA/ICR reference
CONT	;
NA
T
G
G1
R
7
8
X
OT
Y
A
TY
0	;
1
B
U
NO
2
3
C
D
E
Q
Z
DD		ICR #10003 Status: Active Usage: Supported
P
MTH
M	;; JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(%DT("A")):%DT("A"),1:"DATE: "),$S($D(%DT("B")):%DT("B")_"//",1:"") Line Location: CONT+2
Function Call: READ	Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: CONT+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: U+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: NO+0
Function Call: WRITE	Prompt: " ("_Y_")" Line Location: E+2