Routine: SDRRPXC

Information

SDRRPXC ;;10N20/MAH;Recall Reminder Utilities ;01/18/2008 11:32

Source Information

Source file <SDRRPXC.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: 4

Package	Total	Caller Graph
Scheduling	4	SDRRISRA SDRRISRD SDRRISRL SDRRISRX

Entry Points

Name	Comments	DBIA/ICR reference
ACTIVE(SDRRIEN,SDRRDIV,SDRRST,SDRRND,SDRRREC)	; Is the clinic active? ; 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
PERDIV(SDRRDIV)	;
R	; Select range of clinics
ASKDIV(SDRRDIV)	;
ASKCLIN(SDRRDIV,SDRRST,SDRRND)	;
ASKRANGE(SDRRCLIN,SDRRDIV,SDRRST,SDRRND)	;

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKDIV+4
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+4
Function Call: WRITE	Prompt: !,"To select a range of clinics, first you select the start of the range," Line Location: ASKRANGE+5
Function Call: WRITE	Prompt: !,"or the 'from' clinic. Next, you select the end of the range," Line Location: ASKRANGE+6
Function Call: WRITE	Prompt: !,"or the 'thru' clinic. We'll select all the clinics in that range for you." Line Location: ASKRANGE+7
Function Call: WRITE	Prompt: ! Line Location: ASKRANGE+9
Routine Call	DIC Line Location: ASKDIV+9 ASKRANGE+12 ASKRANGE+16
Routine Call	DIR Line Location: ASKCLIN+16

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	PERDIV+2, ASKDIV+16
^DIC(40.7 - [#40.7]	STOPCODE+1
^SC - [#44]	I+14, R+12, S+11, S+12, ACTIVE+7, ACTIVE+12
^SC("B"	R+7, R+10, R+11, ASKRANGE+15
^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

Naked Globals

Name	Field # of Occurrence
^(	ASKDIV+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	ASKDIV+1~, ASKDIV+6, ASKRANGE+1~, ASKRANGE+3
DIC("A"	ASKDIV+5, ASKDIV+11, ASKRANGE+10, ASKRANGE+14
DIC("S"	ASKRANGE+11, ASKRANGE+15
DIC(0	ASKDIV+7, ASKRANGE+3
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+14
DTOUT	ASKDIV+1~, ASKDIV+12, ASKRANGE+1~, ASKRANGE+19
DUOUT	ASKDIV+1~, ASKDIV+12, ASKRANGE+1~, ASKRANGE+19
I	PERDIV+1, PERDIV+2, ASKDIV+1~, ASKDIV+13, ASKDIV+15, ASKDIV+16*
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+19!, ASKRANGE+20
SDRRCLIN(	R+5, R+6, R+8, ASKRANGE+18*
SDRRCNT	ASKRANGE+1~, ASKRANGE+2, ASKRANGE+17, ASKRANGE+18, ASKRANGE+20
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	PERDIV~, ASKDIV~, ASKDIV+2!, ASKDIV+3, ASKDIV+15, ASKDIV+16*, ASKCLIN~, R+2, R+13, S+13 , ASKRANGE~, ACTIVE~, ACTIVE+10, ACTIVE+11
SDRRDIV(	PERDIV+2, ASKDIV+10, ASKDIV+15, ASKDIV+16*, ACTIVE+11
SDRRDIV(0	ASKDIV+14
SDRRFROM	R+1~, R+6, R+7, R+9, ASKRANGE+1~, ASKRANGE+13*, ASKRANGE+15, ASKRANGE+18
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+7, ACTIVE+12
SDRRNAME	I+1~, I+11, I+12, I+13
SDRRND	ASKCLIN~, R+2, R+13, S+13, ASKRANGE~, ACTIVE~, ACTIVE+15*, ACTIVE+16
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+7, ACTIVE+8, ACTIVE+9, ACTIVE+10, ACTIVE+11, ACTIVE+12*, ACTIVE+13, ACTIVE+16
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+14*, ACTIVE+15, ACTIVE+16
SDRRTHRU	R+1~, R+8*, R+10
U	STOPCODE+1, PERDIV+2, ASKDIV+10, ASKDIV+16, I+15, R+6, R+8, R+14, S+14, ASKRANGE+15 , ACTIVE+8, ACTIVE+9, ACTIVE+10, ACTIVE+11, ACTIVE+16
X	ASKDIV+1~, ASKCLIN+1~, ASKRANGE+1~
Y	ASKDIV+1~, ASKDIV+8, ASKDIV+9, ASKDIV+10, ASKCLIN+1~, ASKCLIN+17, ASKRANGE+1~, ASKRANGE+8, ASKRANGE+12, ASKRANGE+13 , ASKRANGE+16, ASKRANGE+18

Customize PDF page

Package: Scheduling

Routine: SDRRPXC

Call Graph Total: 3

Caller Graph Total: 4