ASUUDATE ; IHS/ITSC/LMH -DATE UTILITY FUNCTIONS ;
Source file <ASUUDATE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETRUN | ;EP ; -SET RUN DATE EQUAL DATE
|
|
DAYTIM | ;EP; -SET DATE AND TIME
|
|
GETRUN | ;EP ; -GET RUN FISCAL YEAR AND MONTH
|
|
SETQTR | ;EP ;INPUT- DT AND ASUP("MO") OUTPUT- ASUP("QTR") IN YRQT FORMAT
|
|
ASKDATE | ;EP -ASK FOR A DATE AND SET ASUK("DT") ARRAY
|
|
SETDT(X) | ||
TIME | ;EP; -SET ASUK("TIME")
|
|
DATE | ;EP; -SET ASUK("DT")
|
|
SETMO(X) | ;EP ; -SET MONTHLY RUN PARAMETERS
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ASUSITE(1 | SETRUN+15 |
^DD("DD" | DATE+3, ASKDATE+2 |
Name | Line Occurrences |
---|---|
DATE | DAYTIM+1, GETRUN+1, SETRUN+1, SETQTR+1 |
SETDT | DATE+4, ASKDATE+3 |
TIME | DAYTIM+2, ASKDATE+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | DATE+3 |
%DT | ASKDATE+1~* |
>> %H | SETDT+22, SETDT+23, TIME+2*, TIME+3 |
>> ASUK("DT" | DAYTIM+3, DATE+2, SETDT+1*, SETDT+2*, SETDT+3*, SETDT+4*, SETDT+5*, SETDT+6*, SETDT+7*, SETDT+8* , SETDT+9*, SETDT+10*, SETDT+11*, SETDT+12, SETDT+13*, SETDT+14*, SETDT+15*, SETDT+16*, SETDT+17*, SETDT+18* , SETDT+19*, SETDT+20, SETDT+21*, SETDT+23*, TIME+5, TIME+6*, TIME+8*, GETRUN+1, GETRUN+4*, GETRUN+5* , GETRUN+6*, GETRUN+7*, GETRUN+8, GETRUN+9*, SETMO+2, SETMO+5, SETMO+6, SETMO+7, SETMO+8, SETRUN+1 , SETRUN+2*, SETRUN+5, SETRUN+6, SETRUN+7*, SETRUN+8*, SETRUN+9*, SETRUN+10*, SETRUN+12*, SETRUN+13*, SETRUN+14* , SETRUN+15*, SETRUN+16*, SETRUN+17, SETRUN+18, SETRUN+20, SETRUN+23, SETRUN+24, SETRUN+25, SETRUN+26, SETRUN+28 , SETQTR+1 |
>> ASUK("TIME" | DAYTIM+3, SETDT+23*, SETDT+24*, TIME+3*, TIME+4*, TIME+6 |
>> ASUP("ERR" | SETMO+4*, SETMO+8*, SETMO+9* |
>> ASUP("LSMO" | SETRUN+5 |
>> ASUP("MO" | SETMO+1*, SETMO+3, SETMO+5, SETMO+6, SETMO+7, SETMO+8, SETQTR+2, SETQTR+5 |
>> ASUP("MOE" | SETRUN+5 |
>> ASUP("MOL" | SETMO+5, SETMO+7, SETRUN+5 |
>> ASUP("MOYR" | SETMO+3* |
>> ASUP("QTR" | SETQTR+5* |
>> ASUP("TYP" | SETRUN+20 |
>> ASUP("YR" | SETMO+2*, SETMO+3, SETQTR+4 |
>> ASUT | DAYTIM+3 |
>> ASUT( | DAYTIM+3* |
>> ASUV("YR" | SETQTR+4*, SETQTR+5, SETQTR+6! |
DIR | GETRUN+2!, SETRUN+33! |
DIR("A" | SETQTR+2* |
DIR(0 | GETRUN+2*, SETRUN+33* |
>> DTOUT | GETRUN+3, SETQTR+3 |
>> DUOUT | GETRUN+3, SETRUN+34*, SETQTR+3 |
DUZ | DAYTIM+3 |
U | SETRUN+15 |
X | DATE+1~, DATE+4, SETDT~, SETDT+1, SETDT+3, SETDT+4, SETDT+5, SETDT+6, SETDT+8, SETDT+21 , ASKDATE+1*, ASKDATE+3, TIME+1~, SETMO~, SETMO+1, SETMO+2, SETRUN+6*, SETRUN+7 |
>> X1 | SETDT+20* |
>> X2 | SETDT+20* |
>> Y | DATE+3*, SETDT+1, SETDT+24, ASKDATE+1, TIME+3, TIME+8, GETRUN+5 |