Routine: SDRRUTL

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

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

Customize PDF page

Package: Scheduling

Routine: SDRRUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: