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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDRRUTL

Package: Scheduling

Routine: SDRRUTL


Information

SDRRUTL ;10N20/MAH;Recall Reminder-Clinic Utilities;01/18/2008 11:32

Source Information

Source file <SDRRUTL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DIE  CLEAN^DILF  ^DIR  
Kernel 3 ($$FMADD,$$FMDIFF,$$FMTE,$$SCH)^XLFDT  $$LKUP^XPDKEY  OWNSKEY^XUSRB  
Scheduling 1 ASKRANGE^SDRRUTL1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 4 SDRRISRA  SDRRISRD  SDRRISRL  SDRRISRX  

Entry Points

Name Comments DBIA/ICR reference
REVERSE(SDRRST,SDRRND) ; Given starting and ending dates return reverse starting and ending dates
ASKFY(SDRRMIN,SDRRMAX,SDRRDEF,SDRRPRMPT) ; Function asks user which FY.
MSG1 ;SD*571 print Inactive provider warning message to user
SCREEN() ;SD*571 for new RRs, screen provider for key and status
ASKSTOP(SDRRSC,SDRRST,SDRRND) ;
BDAY ;
FDA ;SD*571 insure original provider pointer is back in 403.5 record
FY(SDRRDT) ; Pass in a date (default = today's date),
; and this function returns what FY we are in,
; followed by the FY start date and FY end date.
; ie. S X=$$FY^SDRRUTL(3050208) results in X="FY 2005^3041000^3051000"
ASKDATE(SDRRST,SDRRSTX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
ASKMON(SDRRMON) ; Function asks user which month.
; SDRRMON - (optional) default month
MSG2 ;SD*571 print Security Key warning message to user
DELIM() ;
ASKDIV(SDRRDIV) ;
ASKCLIN(SDRRCLIN,SDRRDIV,SDRRST,SDRRND) ;
MON(SDRRDT) ; Pass in a date (default = today's date),
; and this function returns the first and last dates of the month.
FYRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX) ;
DRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
; Set SDRRFUTR=1 if dates in the future are OK.

External References

Name Field # of Occurrence
^DIC ASKDIV+9, ASKSTOP+10
FILE^DIE FDA+4
CLEAN^DILF FDA+5
^DIR ASKCLIN+8, DELIM+5, DRANGE+9, DRANGE+18, ASKDATE+8, ASKFY+10, ASKMON+10
ASKRANGE^SDRRUTL1 ASKCLIN+10
$$FMADD^XLFDT FYRANGE+2, FYRANGE+11, ASKFY+4, ASKMON+6, BDAY+5, BDAY+6, BDAY+7
$$FMDIFF^XLFDT BDAY+2, BDAY+3
$$FMTE^XLFDT DRANGE+7, DRANGE+16, DRANGE+20, DRANGE+21, ASKDATE+6, ASKDATE+10, FYRANGE+10, FYRANGE+11, ASKFY+9, ASKMON+9
$$SCH^XLFDT MON+5
$$LKUP^XPDKEY SCREEN+7
OWNSKEY^XUSRB SCREEN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDIV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSTOP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCLIN+4
Function Call: WRITE
  • Prompt: " ",$P(SDRRFY,U)
  • Line Location: ASKFY+12
Function Call: WRITE
  • Prompt: !,"GDAYS=",GDAYS
  • Line Location: BDAY+2
Function Call: WRITE
  • Prompt: !,"JDAYS=",JDAYS
  • Line Location: BDAY+3
Function Call: WRITE
  • Prompt: !,"YR1DAYS=",YR1DAYS
  • Line Location: BDAY+4
Function Call: WRITE
  • Prompt: !,"99th Birthday= ",$$FMADD^XLFDT(3050830,YR1DAYS\4)
  • Line Location: BDAY+5
Function Call: WRITE
  • Prompt: !,"100th Birthday=",$$FMADD^XLFDT(3050830,(YR1DAYS+365)\4)
  • Line Location: BDAY+6
Function Call: WRITE
  • Prompt: !,"101st Birthday=",$$FMADD^XLFDT(3050830,YR1DAYS+730\4)
  • Line Location: BDAY+7
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !?10,"Provider selected is Inactive."
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !?10,"Please contact your Recall Coordinator.",!
  • Line Location: MSG1+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: !?10,"Provider selected is assigned Security Key"
  • Line Location: MSG2+2
Function Call: WRITE
  • Prompt: !?10,"which you do not hold."
  • Line Location: MSG2+3
Function Call: WRITE
  • Prompt: !?10,"Please contact your Recall Coordinator.",!
  • Line Location: MSG2+4
Routine Call
  • DIC
  • Line Location:
    • ASKDIV+9
    • ASKSTOP+10
Routine Call
  • DIE
  • Line Location:
    • FDA+4
Routine Call
  • DIR
  • Line Location:
    • ASKCLIN+8
    • DELIM+5
    • DRANGE+9
    • DRANGE+18
    • ASKDATE+8
    • ASKFY+10
    • ASKMON+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ASKDIV+16
^DIC(40.7 - [#40.7] ASKSTOP+17
^SD(403.54 SCREEN+4, SCREEN+5, SCREEN+6

Label References

Name Line Occurrences
$$ASKFY FYRANGE+3, FYRANGE+6
$$FY FYRANGE+2, ASKFY+5, ASKFY+11
FDA MSG1+4, MSG2+5
MSG1 SCREEN+5
MSG2 SCREEN+10

Naked Globals

Name Field # of Occurrence
^( ASKDIV+16, ASKSTOP+17
^(0 SCREEN+4, SCREEN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA SCREEN+2
DIC ASKDIV+1~, ASKDIV+6*, ASKSTOP+1~, ASKSTOP+6*
DIC("A" ASKDIV+5*, ASKDIV+11*, ASKSTOP+5*, ASKSTOP+12*
DIC("S" ASKSTOP+7*
DIC(0 ASKDIV+7*, ASKSTOP+8*
DIR ASKCLIN+1~, DELIM+1~, DRANGE+2~, DRANGE+11!, ASKDATE+1~, ASKFY+1~, ASKMON+2~
DIR("A" ASKCLIN+6*, DELIM+3*, DRANGE+5*, DRANGE+14*, ASKDATE+4*, ASKFY+2*, ASKFY+6*, ASKFY+7*, ASKMON+3*
DIR("B" ASKCLIN+7*, DELIM+4*, DRANGE+8*, DRANGE+17*, ASKDATE+7*, ASKFY+9*, ASKMON+9*
DIR(0 ASKCLIN+5*, DELIM+2*, DRANGE+3*, DRANGE+4*, DRANGE+12*, DRANGE+13*, ASKDATE+2*, ASKDATE+3*, ASKFY+8*, ASKMON+8*
DIRUT ASKCLIN+1~, ASKCLIN+8, DELIM+1~, DELIM+5, DRANGE+2~, DRANGE+9, DRANGE+18, ASKDATE+1~, ASKDATE+8, ASKFY+1~
, ASKFY+10, ASKMON+2~, ASKMON+10
DT DRANGE+4, DRANGE+13, ASKDATE+3, FYRANGE+2, ASKFY+4, FY+5, ASKMON+6, MON+3
DTOUT ASKDIV+1~, ASKDIV+12, ASKSTOP+1~, ASKSTOP+13
DUOUT ASKDIV+1~, ASKDIV+12, ASKSTOP+1~, ASKSTOP+13
DUZ SCREEN+7
FDA FDA+2*, FDA+6!
FDA( FDA+3*
GDAYS BDAY+1~, BDAY+2*, BDAY+4
I ASKDIV+1~, ASKDIV+13*, ASKDIV+15*, ASKDIV+16*, ASKSTOP+1~, ASKSTOP+14*, ASKSTOP+16*, ASKSTOP+17*, ASKSTOP+19
JDAYS BDAY+1~, BDAY+3*, BDAY+4
KEY SCREEN+1~, SCREEN+6*, SCREEN+7
KY SCREEN+7!, SCREEN+8!
KY(0 SCREEN+8
>> PROV1 MSG1+4, MSG2+5, FDA+1, FDA+3
>> SDFLAG SCREEN+3*, SCREEN+4*, SCREEN+5, SCREEN+8*, SCREEN+9, SCREEN+10, SCREEN+11, FDA+7*
SDFLD FDA+2*, FDA+3*, FDA+6!
SDIEN SCREEN+2*, FDA+3, FDA+6!
SDRRABORT DRANGE~, DRANGE+9*, DRANGE+18*, ASKDATE~, ASKDATE+8*, FYRANGE~, FYRANGE+4*, FYRANGE+5, FYRANGE+7*
SDRRCLIN ASKCLIN~, ASKCLIN+2!, ASKCLIN+3*, ASKCLIN+9*, ASKCLIN+10
SDRRDEF ASKFY~, ASKFY+9
SDRRDIV ASKDIV~, ASKDIV+2!, ASKDIV+3*, ASKDIV+15*, ASKDIV+16*, ASKCLIN~, ASKCLIN+10
SDRRDIV( ASKDIV+10*, ASKDIV+15, ASKDIV+16*
SDRRDIV(0 ASKDIV+14
SDRRDT FY~, FY+5*, FY+6, ASKMON+2~, ASKMON+4*, ASKMON+6*, ASKMON+7*, ASKMON+8, ASKMON+9, MON~
, MON+3*, MON+4
SDRRFRFY FYRANGE+1~, FYRANGE+3*, FYRANGE+4, FYRANGE+5, FYRANGE+6, FYRANGE+8, FYRANGE+12
SDRRFUTR DRANGE~, DRANGE+3, DRANGE+12, ASKDATE~, ASKDATE+2
SDRRFY ASKFY+1~, ASKFY+11*, ASKFY+12, ASKFY+13
SDRRMAX DRANGE~, DRANGE+3, DRANGE+4, DRANGE+12, DRANGE+13, ASKDATE~, ASKDATE+2, ASKDATE+3, FYRANGE~, FYRANGE+3
, FYRANGE+6, ASKFY~, ASKFY+3, ASKFY+4*, ASKFY+5*, ASKFY+7, ASKFY+8, ASKFY+9
SDRRMAXFY FYRANGE+1~, FYRANGE+2*, FYRANGE+5, FYRANGE+6
SDRRMIN DRANGE~, DRANGE+3, DRANGE+4, ASKDATE~, ASKDATE+2, ASKDATE+3, FYRANGE~, FYRANGE+3, ASKFY~, ASKFY+6
, ASKFY+8
SDRRMND MON+2~, MON+5*, MON+6
SDRRMON ASKMON~, ASKMON+4
SDRRMST MON+2~, MON+4*, MON+5, MON+6
SDRRND ASKSTOP~, ASKCLIN~, ASKCLIN+10, REVERSE~, REVERSE+3, REVERSE+5*, DRANGE~, DRANGE+15, DRANGE+16, DRANGE+19*
, DRANGE+20, FYRANGE~, FYRANGE+9*, FYRANGE+11, FY+4~, FY+7*, FY+8
SDRRNDX DRANGE~, DRANGE+16*, DRANGE+17, DRANGE+20*, FYRANGE~, FYRANGE+11*
SDRRNDX("FY" FYRANGE+13*
SDRRPRMPT ASKFY~, ASKFY+2
SDRRREC ASKSTOP+1~, ASKSTOP+17*, ASKSTOP+18, ASKSTOP+19
SDRRRND REVERSE+1~, REVERSE+3*, REVERSE+4
SDRRRST REVERSE+1~, REVERSE+2*, REVERSE+5
SDRRSC ASKSTOP~, ASKSTOP+2!, ASKSTOP+3*, ASKSTOP+16*, ASKSTOP+19*
SDRRSC( ASKSTOP+11*, ASKSTOP+16, ASKSTOP+19*
SDRRSC(0 ASKSTOP+15
SDRRST ASKSTOP~, ASKSTOP+7, ASKSTOP+18, ASKCLIN~, ASKCLIN+10, REVERSE~, REVERSE+2, REVERSE+4*, DRANGE~, DRANGE+6
, DRANGE+7, DRANGE+10*, DRANGE+12, DRANGE+13, DRANGE+21, ASKDATE~, ASKDATE+5, ASKDATE+6, ASKDATE+9*, ASKDATE+10
, FYRANGE~, FYRANGE+8*, FYRANGE+10, FY+4~, FY+6*, FY+7, FY+8
SDRRSTX DRANGE~, DRANGE+7*, DRANGE+8, DRANGE+21*, ASKDATE~, ASKDATE+6*, ASKDATE+7, ASKDATE+10*, FYRANGE~, FYRANGE+10*
SDRRSTX("FY" FYRANGE+12*
SDRRTOFY FYRANGE+1~, FYRANGE+2*, FYRANGE+6*, FYRANGE+7, FYRANGE+9, FYRANGE+13
U ASKDIV+10, ASKDIV+16, ASKSTOP+11, ASKSTOP+18, ASKSTOP+19, FYRANGE+6, FYRANGE+8, FYRANGE+9, FYRANGE+12, FYRANGE+13
, ASKFY+5, ASKFY+12, FY+8, MON+6, SCREEN+4, SCREEN+5, SCREEN+6
VALUE SCREEN+1~, SCREEN+7*
X ASKDIV+1~, ASKSTOP+1~, ASKCLIN+1~, DELIM+1~, DRANGE+2~, ASKDATE+1~, ASKFY+1~, ASKMON+2~, SCREEN+4, SCREEN+5
, SCREEN+6
Y ASKDIV+1~, ASKDIV+8, ASKDIV+9, ASKDIV+10, ASKSTOP+1~, ASKSTOP+9, ASKSTOP+10, ASKSTOP+11, ASKCLIN+1~, ASKCLIN+9
, DELIM+1~, DELIM+6, DRANGE+2~, DRANGE+10, DRANGE+19, ASKDATE+1~, ASKDATE+9, ASKFY+1~, ASKFY+11, ASKMON+2~
, ASKMON+11
Y(0 ASKSTOP+11
YR1DAYS BDAY+1~, BDAY+4*, BDAY+5, BDAY+6, BDAY+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All