Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ($$FMTE,$$SCH)^XLFDT  $$UP^XLFSTR  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRCCA  

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

External References

Name Field # of Occurrence
^%DT MONTH+14, QUART+41, YEAR+15, USERSEL+8, USERSEL+20
$$FMTE^XLFDT EN+55, USERSEL+7, USERSEL+15, USERSEL+18
$$SCH^XLFDT LASTMNTH+9
$$UP^XLFSTR EN+18, EN+25, EN+34

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

Label References

Name Line Occurrences
$$ASKDATE EN+43
$$MONTH ASKDATE+4
$$QUART ASKDATE+7
$$USERSEL ASKDATE+13
$$YEAR ASKDATE+10
BELL EN+36, MONTH+17, QUART+31, QUART+36, YEAR+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT MONTH+1~, MONTH+7!, MONTH+8*, QUART+1~, QUART+41!, YEAR+1~, YEAR+15!, USERSEL+1~, USERSEL+4!, USERSEL+5*
, USERSEL+10!, USERSEL+11*
%DT("A" MONTH+9*, USERSEL+6*, USERSEL+13*
%DT("B" MONTH+12*, USERSEL+7*, USERSEL+15*, USERSEL+18*
%DT(0 USERSEL+12*
DTIME EN+31, QUART+27, YEAR+8
GM EN+15~, EN+17*, EN+19, MONTH+1~, MONTH+2*, QUART+1~, QUART+4*, QUART+5, QUART+6, QUART+7
, QUART+8, QUART+42*, QUART+43, QUART+44, QUART+45
GMBEG USERSEL+1~, USERSEL+8*, USERSEL+9, USERSEL+12, USERSEL+14, USERSEL+18, USERSEL+22
GMDATA EN+15~, EN+17*, EN+18, EN+19, MONTH+1~, MONTH+2*, MONTH+3, QUART+1~, QUART+4*, QUART+5
, QUART+6, QUART+7, QUART+8
GMDATE LASTMNTH~, LASTMNTH+2, LASTMNTH+3
GMDFLT EN+15~, EN+25*, EN+29, EN+31, EN+32, EN+37, EN+43, EN+45, ASKDATE~, ASKDATE+4
, ASKDATE+7, ASKDATE+10, ASKDATE+13, MONTH~, MONTH+10, MONTH+11, QUART~, QUART+11, QUART+12, QUART+17
, YEAR~, YEAR+6, USERSEL~, USERSEL+7, USERSEL+14, USERSEL+15
GMDONE EN+15~, EN+21, EN+22*, EN+49*, MONTH+1~, MONTH+5*, MONTH+6, MONTH+28*, QUART+1~, QUART+19*
, QUART+20, QUART+49*, YEAR+1~, YEAR+3*, YEAR+4, YEAR+24*
GMEND MONTH+1~, MONTH+14*, MONTH+15, MONTH+16, MONTH+19, MONTH+21, MONTH+22, USERSEL+1~, USERSEL+20*, USERSEL+21
, USERSEL+23
GMEOM MONTH+1~
GMEOM( MONTH+3*, MONTH+22
GMFRAM EN+15~, EN+16*, EN+18*, EN+35, EN+41
GMFRAM(0 EN+16*, EN+19*, EN+27
GMFY YEAR+1~, YEAR+2*, YEAR+5, YEAR+13, YEAR+16
GMHEAD EN~, EN+26
GMMN LASTMNTH+1~, LASTMNTH+3*, LASTMNTH+4, LASTMNTH+5*, LASTMNTH+6*, LASTMNTH+7*, LASTMNTH+8
GMMNDY QUART+1~, QUART+12*, QUART+13, QUART+14, QUART+15, QUART+16
GMMNYR MONTH+1~, MONTH+11*, MONTH+12
GMMOE MONTH+1~, MONTH+21*, MONTH+22
GMQART QUART+1~, QUART+27*, QUART+28*, QUART+29, QUART+30, QUART+31, QUART+35, QUART+39, QUART+40
GMQBEG QUART+2~
GMQBEG( QUART+6*, QUART+43*, QUART+48
GMQBEG(1 QUART+13
GMQBEG(2 QUART+14
GMQBEG(3 QUART+15
GMQBEG(4 QUART+16
GMQEND QUART+2~
GMQEND( QUART+8*, QUART+45*, QUART+47
GMQEND(1 QUART+13
GMQEND(2 QUART+14
GMQEND(3 QUART+15
GMQEND(4 QUART+16
GMQQUA QUART+2~
GMQQUA( QUART+5*
GMQU QUART+1~, QUART+13*, QUART+14*, QUART+15*, QUART+16*, QUART+17, QUART+39*, QUART+47, QUART+48
GMQUIT EN+15~, EN+21, EN+22*, EN+33*, EN+37*, EN+43*, EN+44, EN+45*, EN+46, EN+52*
, EN+53, EN+60, ASKDATE+1~, ASKDATE+2*, ASKDATE+4*, ASKDATE+7*, ASKDATE+10*, ASKDATE+13*, ASKDATE+15, MONTH+1~
, MONTH+5*, MONTH+6, MONTH+15*, MONTH+30, QUART+1~, QUART+19*, QUART+20, QUART+29*, QUART+51, YEAR+1~
, YEAR+3*, YEAR+4, YEAR+10*, YEAR+26, USERSEL+1~, USERSEL+2*, USERSEL+26*, USERSEL+30*, USERSEL+32
GMQUYR QUART+1~, QUART+10*, QUART+17*, QUART+26, QUART+28
GMRANG EN~, EN+25
GMSBEG QUART+1~
GMSBEG( QUART+7*, QUART+44*, QUART+48
GMSEMI QUART+1~, QUART+3*, QUART+21, QUART+48
GMTBEG EN~, EN+23*, EN+25, EN+43, EN+55, EN+58*, ASKDATE~, ASKDATE+4, ASKDATE+7, ASKDATE+10
, ASKDATE+13, MONTH~, MONTH+27*, QUART~, QUART+48*, YEAR~, YEAR+17*, YEAR+21*, USERSEL~, USERSEL+22*
, LASTMNTH~, LASTMNTH+8*, LASTMNTH+9, LASTMNTH+12*
GMTEND EN~, EN+24*, EN+25, EN+43, EN+55, EN+58*, ASKDATE~, ASKDATE+4, ASKDATE+7, ASKDATE+10
, ASKDATE+13, MONTH~, MONTH+22*, MONTH+23, MONTH+24, MONTH+25*, MONTH+27, QUART~, QUART+47*, YEAR~
, YEAR+18*, YEAR+22*, USERSEL~, USERSEL+23*, LASTMNTH~, LASTMNTH+9*, LASTMNTH+12*
GMWHEN EN+15~, EN+30*, EN+31*, EN+32*, EN+33, EN+34*, EN+35, EN+36, EN+41, EN+42*
, EN+43, ASKDATE~, ASKDATE+3, ASKDATE+4, ASKDATE+6, ASKDATE+7, ASKDATE+9, ASKDATE+10, ASKDATE+12, ASKDATE+13
, MONTH~, QUART~, QUART+3, YEAR~, YEAR+2, USERSEL~
GMYEAR MONTH+1~, MONTH+24*, MONTH+25, YEAR+1~, YEAR+6*, YEAR+7, YEAR+9
GMYR QUART+1~, QUART+40*, QUART+41*, QUART+43, QUART+44, QUART+45, YEAR+1~, YEAR+8*, YEAR+9*, YEAR+10
, YEAR+11, YEAR+12, YEAR+15*, YEAR+17, YEAR+18, YEAR+21, YEAR+22, LASTMNTH+1~, LASTMNTH+2*, LASTMNTH+6*
, LASTMNTH+8
U EN+17, EN+18, EN+25, EN+29, EN+31, EN+32, EN+33, EN+35, EN+37, EN+41
, EN+45, MONTH+2, MONTH+3, MONTH+10, MONTH+11, MONTH+22, QUART+4, QUART+5, QUART+6, QUART+7
, QUART+8, QUART+11, QUART+12, QUART+17, QUART+27, QUART+29, YEAR+6, YEAR+8, YEAR+10, USERSEL+7
, USERSEL+14, USERSEL+15
X EN+15~, MONTH+1~, QUART+2~, QUART+41*, YEAR+1~, YEAR+15*, USERSEL+1~, BELL~, BELL+1
Y EN+15~, MONTH+1~, MONTH+14, QUART+2~, QUART+41, YEAR+1~, YEAR+15, USERSEL+1~, USERSEL+8, USERSEL+20

Marked Items

Name Field # of Occurrence
$T(FRAMDAT+GM EN+17
$T(MONTHDAT+GM MONTH+2
$T(QUARTDAT+GM QUART+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All