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: GMRCCY

Package: Consult Request Tracking

Routine: GMRCCY


Information

GMRCCY ;SFVAMC/DAD - Consult Closure Tool: Date Range Selector ;01/20/17 15:19

Source Information

Source file <GMRCCY.m>

Entry Points

Name Comments DBIA/ICR reference
EN(GMTBEG,GMTEND,GMHEAD,GMRANG) ; *** Entry Point
; Input
; GMTBEG = Begin date - Default (FM Int) [Req, Pass by ref]
; GMTEND = End date - Default (FM Int) [Req, Pass by ref]
; GMHEAD = Header line [Opt, Pass by value]
; GMRANG = Date range type [Opt, Pass by value]
; M,M!,Q,Q!,S,S!,Y,Y!,F,F!,U,U! ("!" forces selection)
; Output
; $$EN() = 1 - Okay OR 0 - Exit
; GMTBEG = Begin date [If $$EN()=1 FM Int Date, Else ""]
; GMTEND = End date [If $$EN()=1 FM Int Date, Else ""]
FRAMDAT ;; TimeFrameName
ASKDATE(GMWHEN,GMDFLT,GMTBEG,GMTEND) ; *** Prompt for date range
MONTH(GMWHEN,GMDFLT,GMTBEG,GMTEND) ; *** Monthly
MONTHDAT ;; MonthNumber ^ DaysInMonth ^ MonthName
QUART(GMWHEN,GMDFLT,GMTBEG,GMTEND) ; *** Quarterly & Semi-Annually
QUARTDAT ;;Name ^ QuarterStart ^ SemiStart ^ QuarterEnd
YEAR(GMWHEN,GMDFLT,GMTBEG,GMTEND) ; *** Yearly & Fiscal Yearly
USERSEL(GMWHEN,GMDFLT,GMTBEG,GMTEND) ; *** User Selectable
BELL(X) ; *** Write ?? <Beep>
LASTMNTH(GMDATE,GMTBEG,GMTEND) ; *** Compute last month date range

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,GMHEAD
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,GMFRAM(0)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !,"Select date range: "
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: $S($TR($P(GMDFLT,U),"!")]"":$TR($P(GMDFLT,U),"!")_"// ",1:"")
  • Line Location: EN+29
Function Call: READ
  • Variable: GMWHEN
  • Timeout: DTIME
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: GMWHEN
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !!?5,"Enter the first few letters of "
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: "one of the choices listed below.",!
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: $P($P(GMFRAM,U_GMWHEN,2),U)
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !!,"Range selected: "
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(GMTBEG,"5Z")," to ",$$FMTE^XLFDT(GMTEND,"5Z")
  • Line Location: EN+55
Function Call: WRITE
  • Prompt: !
  • Line Location: MONTH+14
Function Call: WRITE
  • Prompt: !!,"Please enter a month and year"
  • Line Location: MONTH+18
Function Call: WRITE
  • Prompt: $S(+$E(GMEND,6,7):" only",1:"")
  • Line Location: MONTH+19
Function Call: WRITE
  • Prompt: !!,"Enter Quarter Period and FY you "
  • Line Location: QUART+22
Function Call: WRITE
  • Prompt: "wish Semi-Annual range to end with"
  • Line Location: QUART+23
Function Call: WRITE
  • Prompt: !
  • Line Location: QUART+25
Function Call: WRITE
  • Prompt: !,"Enter Quarter and Year: ",$S(GMQUYR]"":GMQUYR_"// ",1:"")
  • Line Location: QUART+26
Function Call: READ
  • Variable: GMQART
  • Timeout: DTIME
  • Line Location: QUART+27
Function Call: WRITE
  • Prompt: !!,"Enter Quarter Period in this format: "
  • Line Location: QUART+32
Function Call: WRITE
  • Prompt: "2nd quarter 1988 would be 2-88, 2/88, 2 88"
  • Line Location: QUART+33
Function Call: WRITE
  • Prompt: !!,"Enter Quarter 1 to 4 only"
  • Line Location: QUART+37
Function Call: WRITE
  • Prompt: !!,"Enter ",$S(GMFY:"FISCAL ",1:""),"YEAR: "
  • Line Location: YEAR+5
Function Call: WRITE
  • Prompt: $S(GMYEAR]"":GMYEAR_"// ",1:"")
  • Line Location: YEAR+7
Function Call: READ
  • Variable: GMYR
  • Timeout: DTIME
  • Line Location: YEAR+8
Function Call: WRITE
  • Prompt: !!,"Enter a 2 or 4 digit ",$S(GMFY:"fiscal ",1:""),"year"
  • Line Location: YEAR+13
Function Call: WRITE
  • Prompt: !!,"Enter beginning and ending dates for the desired time period:",!
  • Line Location: USERSEL+3
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: BELL+1
Info |  Source |  Entry Points |  Interaction Calls