Routine: SDRRUTL1

Information

SDRRUTL1 ;10N20/MAH;Recall Reminder-Clinic Utilities ;07/13/06 11:32

Source Information

Source file <SDRRUTL1.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Scheduling	1	$$EN^SDRRSLCT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDRRUTL

Entry Points

Name	Comments	DBIA/ICR reference
ACTIVE(SDRRIEN,SDRRDIV,SDRRST,SDRRND,SDRRREC)	; Is the clinic active? ; DBIA #10040; Direct global reference of (#44) file ; SDRRIEN - IEN of clinic in HOSPITAL LOCATION (#44) file ; SDRRDIV - (optional) clinic must be in Division(s) ; SDRRDIV=ien or SDRRDIV(ien)="", where ien is IEN in file 40.8 ; SDRRST - (optional) date range start date - default=DT ; SDRRND - (optional) date range end date - default=SDRRST ; SDRRREC - (optional) zero node of clinic
I	; Select individual clinics
STOPCODE(SDRRI)	; Return a clinic stop code
S	; Select stop codes
R	; Select range of clinics
ASKCLIN(SDRRDIV,SDRRST,SDRRND)	;
ASKRANGE(SDRRCLIN,SDRRDIV,SDRRST,SDRRND)	; ; DBIA #10040; Direct global reference of (#44) file

External References

Name	Field # of Occurrence
^DIC	ASKRANGE+13, ASKRANGE+17
^DIR	ASKCLIN+16
$$EN^SDRRSLCT	I+10, S+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now you'll select the clinics." Line Location: ASKCLIN+2
Function Call: WRITE	Prompt: !!,"You'll be able to use ranges and wild cards to select clinics." Line Location: I+2
Function Call: WRITE	Prompt: !,"You'll even be able to deselect clinics." Line Location: I+3
Function Call: WRITE	Prompt: !,"Enter '?' at the prompt to see how." Line Location: I+4
Function Call: WRITE	Prompt: ! Line Location: ASKRANGE+5
Function Call: WRITE	Prompt: !,"To select a range of clinics, first you select the start of the range," Line Location: ASKRANGE+6
Function Call: WRITE	Prompt: !,"or the 'from' clinic. Next, you select the end of the range," Line Location: ASKRANGE+7
Function Call: WRITE	Prompt: !,"or the 'thru' clinic. We'll select all the clinics in that range for you." Line Location: ASKRANGE+8
Function Call: WRITE	Prompt: ! Line Location: ASKRANGE+10
Routine Call	DIC Line Location: ASKRANGE+13 ASKRANGE+17
Routine Call	DIR Line Location: ASKCLIN+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	STOPCODE+1
^SC - [#44]	I+14, R+12, S+11, S+12, ACTIVE+8, ACTIVE+13
^SC("B"	R+7, R+10, R+11, ASKRANGE+16
^TMP("SDRR"	I+15, R+14, S+14*
^TMP($J	I+12, I+13, I+16!, S+8, S+9, S+15!

Label References

Name	Line Occurrences
$$ACTIVE	R+13, S+13
$$STOPCODE	I+15, R+14, S+14
@(	ASKCLIN+17
ASKRANGE	R+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	ASKRANGE+2~, ASKRANGE+4*
DIC("A"	ASKRANGE+11, ASKRANGE+15
DIC("S"	ASKRANGE+12, ASKRANGE+16
DIC(0	ASKRANGE+4*
DIR	ASKCLIN+1~
DIR("?"	ASKCLIN+5, ASKCLIN+6, ASKCLIN+7, ASKCLIN+8, ASKCLIN+9, ASKCLIN+10, ASKCLIN+11, ASKCLIN+12, ASKCLIN+13, ASKCLIN+14 , ASKCLIN+15*
DIR("A"	ASKCLIN+4*
DIR(0	ASKCLIN+3*
DIRUT	ASKCLIN+1~, ASKCLIN+16
DT	S+5, ACTIVE+15
DTOUT	ASKRANGE+2~, ASKRANGE+20
DUOUT	ASKRANGE+2~, ASKRANGE+20
SDRRABORT	ASKCLIN+1~, ASKCLIN+16, I+10, R+3, S+6
SDRRCLIN	R+1~, R+2, R+3, R+9, R+10, R+11, ASKRANGE~, ASKRANGE+20!, ASKRANGE+21
SDRRCLIN(	R+5, R+6, R+8, ASKRANGE+19*
SDRRCNT	ASKRANGE+2~, ASKRANGE+3, ASKRANGE+18, ASKRANGE+19, ASKRANGE+21
SDRRDIC	I+1~, I+5, I+10, S+1~, S+2, S+6
SDRRDIC("A"	I+7, S+4
SDRRDIC("B"	I+8*
SDRRDIC("S"	I+9, S+5
SDRRDIC(0	I+6, S+3
SDRRDIV	ASKCLIN~, R+2, R+13, S+13, ASKRANGE~, ACTIVE~, ACTIVE+11, ACTIVE+12
SDRRDIV(	ACTIVE+12
SDRRFROM	R+1~, R+6, R+7, R+9, ASKRANGE+2~, ASKRANGE+14*, ASKRANGE+16, ASKRANGE+19
SDRRI	STOPCODE~, STOPCODE+1, R+1~, R+4, R+5, R+6, R+8
SDRRIEN	I+1~, I+11, I+13, I+14, I+15, R+1~, R+11, R+12, R+13, R+14 , S+1~, S+7, S+11*, S+12, S+13, S+14, ACTIVE~, ACTIVE+8, ACTIVE+13
SDRRNAME	I+1~, I+11, I+12, I+13
SDRRND	ASKCLIN~, R+2, R+13, S+13, ASKRANGE~, ACTIVE~, ACTIVE+16*, ACTIVE+17
SDRRNDX	S+1~, S+10*, S+11
SDRRREC	I+1~, I+14, I+15, R+1~, R+12, R+13, R+14, S+1~, S+12, S+13 , S+14, ACTIVE~, ACTIVE+8, ACTIVE+9, ACTIVE+10, ACTIVE+11, ACTIVE+12, ACTIVE+13*, ACTIVE+14, ACTIVE+17
SDRRSC	S+1~, S+7, S+8, S+9
SDRRSCI	S+1~, S+7, S+9, S+11
SDRRST	ASKCLIN~, R+2, R+13, S+5, S+13, ASKRANGE~, ACTIVE~, ACTIVE+15*, ACTIVE+16, ACTIVE+17
SDRRTHRU	R+1~, R+8*, R+10
U	STOPCODE+1, I+15, R+6, R+8, R+14, S+14, ASKRANGE+16, ACTIVE+9, ACTIVE+10, ACTIVE+11 , ACTIVE+12, ACTIVE+17
X	ASKCLIN+1~, ASKRANGE+2~
Y	ASKCLIN+1~, ASKCLIN+17, ASKRANGE+2~, ASKRANGE+9, ASKRANGE+13, ASKRANGE+14, ASKRANGE+17, ASKRANGE+19

Customize PDF page

Package: Scheduling

Routine: SDRRUTL1

Call Graph Total: 3

Caller Graph Total: 1