Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: QAQDATE

Package: Quality Assurance Integration

Routine: QAQDATE


Information

QAQDATE ;HISC/JES,DAD-EXTRAPOLATE DATE FOR SORT/PRINTS ;10/15/92 12:45 ;

Source Information

Source file <QAQDATE.m>

Entry Points

Name Comments DBIA/ICR reference
RANGE ;
MONTH ;
QUART ;
ENTERQ
YEAR ;
USERSEL ;
ABORT ;
QUIT ;
KILL ;
K ; *** ENTRY POINT TO CLEANUP RETURNED VARIABLES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Date range: ",X,$P($P(QAQFRAME,"^"_X,2),"^")
  • Line Location: RANGE+4
Function Call: WRITE
  • Prompt: !!,"Monthly, Quarterly, Semi-Annually, Yearly, Fiscal Yearly, User Selectable",!,"Select date range: ",$S($P(QAQDATE,"^")]"":$P(QAQDATE,"^")_"// ",1:"")
  • Line Location: RANGE+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RANGE+9
Function Call: WRITE
  • Prompt: X
  • Line Location: RANGE+9
Function Call: WRITE
  • Prompt: !!?5,"Enter the first few letters of one of the choices listed below."
  • Line Location: RANGE+12
Function Call: WRITE
  • Prompt: $P($P(QAQFRAME,"^"_X,2),"^")
  • Line Location: RANGE+13
Function Call: WRITE
  • Prompt: " ??",*7,!!,"Please enter a month and year",$S(+$E(Y,6,7):" only",1:"")
  • Line Location: MONTH+4
Function Call: WRITE
  • Prompt: !!,"Enter Quarter Period and FY you wish Semi-Annual range to end with"
  • Line Location: QUART+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUART+2
Function Call: READ
  • Variable: QUART
  • Timeout: DTIME
  • Line Location: ENTERQ+0
Function Call: WRITE
  • Prompt: !!,"Enter Quarter Period in this format: 2nd quarter 1988 would be 2-88, 2/88, 2 88",!
  • Line Location: ENTERQ+1
Function Call: WRITE
  • Prompt: " ??",*7,!!,"Enter Quarter 1 to 4 only",!
  • Line Location: ENTERQ+2
Function Call: WRITE
  • Prompt: !!,"Enter ",$S(FY:"FISCAL ",1:""),"YEAR: ",$S($P(QAQDATE,"^",2)]"":$P(QAQDATE,"^",2)_"// ",1:"")
  • Line Location: YEAR+1
Function Call: READ
  • Variable: YR
  • Timeout: DTIME
  • Line Location: YEAR+2
Function Call: WRITE
  • Prompt: !!,"Enter a 2 or 4 digit ",$S(FY:"fiscal ",1:""),"year"
  • Line Location: YEAR+3
Function Call: WRITE
  • Prompt: !!,QAQRANG,!
  • Line Location: QUIT+1
Info |  Source |  Entry Points |  Interaction Calls