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 - UTILITIES FOR RECALL REMINDERS ;FEB 04, 2016

Source Information

Source file <SDRRUTL.m>

Call Graph

Call Graph

Call Graph Total: 9

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

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

Package Total Caller Graph
Scheduling 5 SDRR RECALL CARD ADD  SDRRISRA  SDRRISRD  SDRRISRL  SDRRISRX  

Entry Points

Name Comments DBIA/ICR reference
ASKDIV(SDRRDIV) ;
ASKSTOP(SDRRSC,SDRRST,SDRRND) ;
ASKCLIN(SDRRCLIN,SDRRDIV,SDRRST,SDRRND) ;
DELIM() ;
REVERSE(SDRRST,SDRRND) ; Given starting and ending dates return reverse starting and ending dates
DRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
; Set SDRRFUTR=1 if dates in the future are OK.
ASKDATE(SDRRST,SDRRSTX,SDRRABORT,SDRRMIN,SDRRMAX,SDRRFUTR) ;
FYRANGE(SDRRST,SDRRND,SDRRSTX,SDRRNDX,SDRRABORT,SDRRMIN,SDRRMAX) ;
ASKFY(SDRRMIN,SDRRMAX,SDRRDEF,SDRRPRMPT) ; Function asks user which FY.
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"
ASKMON(SDRRMON) ; Function asks user which month.
; SDRRMON - (optional) default month
MON(SDRRDT) ; Pass in a date (default = today's date),
; and this function returns the first and last dates of the month.
BDAY ;
SCREEN() ;SD*571 for new RRs, screen provider for key and status
MSG1 ;SD*571 print Inactive provider warning message to user
MSG2 ;SD*571 print Security Key warning message to user
FDA ;SD*571 insure original provider pointer is back in 403.5 record
SCREEN1() ; SD*582 screen clinic for add/edits - don't allow if clinic
; type is not clinic OR
; already inactive OR
; scheduled to be inactivated on OR
; before recall date OR not being reactivated until after selected recall date.

External References

Name Field # of Occurrence
^DIC ASKDIV+9, ASKSTOP+10
FILE^DIE FDA+4
CLEAN^DILF FDA+5
$$GET1^DIQ SCREEN1+13
^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
, SCREEN1+24, SCREEN1+30
$$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
Function Call: WRITE
  • Prompt: *7,!!,?5,"The type of location assigned is not a clinic, please re-enter it.",!
  • Line Location: SCREEN1+10
Function Call: WRITE
  • Prompt: *7,!!,?5,"Clinic Inactive effective "_SDIDT_".",!
  • Line Location: SCREEN1+25
Function Call: WRITE
  • Prompt: *7,!!,?5,"Clinic Inactive until "_SDIDT_".",!
  • Line Location: SCREEN1+31
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
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ASKDIV+16
^DIC(40.7 - [#40.7] ASKSTOP+17
^SC - [#44] SCREEN1+9, SCREEN1+15, SCREEN1+19
^SD(403.5 - [#403.5] SCREEN1+17
^SD(403.52 - [#403.52] SCREEN1+12
^SD(403.54 - [#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
^("I" SCREEN1+19
^(0 SCREEN+4, SCREEN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA SCREEN+2, SCREEN1+17
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!
SDIDT SCREEN1+7~, SCREEN1+24*, SCREEN1+25, SCREEN1+30*, SCREEN1+31
SDIEN SCREEN+2*, FDA+3, FDA+6!
SDNODE SCREEN1+7~, SCREEN1+19*, SCREEN1+21, SCREEN1+23, SCREEN1+24, SCREEN1+27, SCREEN1+29, SCREEN1+30
SDRDT SCREEN1+7~, SCREEN1+17*, SCREEN1+21, SCREEN1+23, SCREEN1+27, SCREEN1+29
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, SCREEN1+9, SCREEN1+17, SCREEN1+21
, SCREEN1+23, SCREEN1+24, SCREEN1+27, SCREEN1+29, SCREEN1+30
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, SCREEN1+9, SCREEN1+12, SCREEN1+13, SCREEN1+15, SCREEN1+19
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