Routine: SDRRCRR

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$NAME^XUSER
VA Fileman	4	(,DD)^%DT ^DIC $$GET1^DIQ ^DIR
Scheduling	3	ASK2^SDDIV EN2^SDRRCRR1 (PRT,PRT1,PRT2,PRT3)^SDRRCRRP
Registration	1	($$TESTPAT,ADD,DEM,KVAR)^VADPT

Package	Total	Caller Graph
Scheduling	1	SDRR PATIENT LIST

Entry Points

Name	Comments	DBIA/ICR reference
QQ
QUIT
EN	;all clinics by division
SET
ENDIV	;
EDIV
ENCLIN1	;
CLIN	;
ONCLIN1	;
EN1	;BY CLINIC SELECTED CLINIC
ONDIV1	;
ONCLIN
STR
DATE	;SETS UP TO FROM DATE AND WILL GROUP BY MONTH IF SELECTED MULTIPLE MONTHS
ONDIV	;
ENCLIN
REDO

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
DD^%DT	EDIV+8, EDIV+15, ONDIV1+12, ONDIV1+19, ONCLIN1+11, ONCLIN1+18, ENCLIN1+10, ENCLIN1+17
^%ZIS	ENDIV+1, ONDIV+1, ONCLIN, ENCLIN, ENCLIN+1
^%ZISC	EDIV+31, ONDIV1+33, ONCLIN1+32, ENCLIN1+31
^%ZTLOAD	ENDIV+2, ONDIV+2, ONCLIN+1, ENCLIN+1
^DIC	REDO+2, REDO+3
$$GET1^DIQ	EDIV+6, ONDIV1+10, ONCLIN1+9, ENCLIN1+7
^DIR	STR+3
ASK2^SDDIV	EN+2
EN2^SDRRCRR1	STR+6
PRT^SDRRCRRP	ONDIV1+32
PRT1^SDRRCRRP	EDIV+30
PRT2^SDRRCRRP	ONCLIN1+31
PRT3^SDRRCRRP	ENCLIN1+30
$$TESTPAT^VADPT	EDIV+10, ONDIV1+14, ONCLIN1+13, ENCLIN1+12
ADD^VADPT	EDIV+12, ONDIV1+16, ONCLIN1+15, ENCLIN1+14
DEM^VADPT	EDIV+12, ONDIV1+16, ONCLIN1+15, ENCLIN1+14
KVAR^VADPT	QUIT+2
$$NAME^XUSER	EDIV+24, EDIV+26, ONDIV1+26, ONDIV1+28, ONCLIN1+25, ONCLIN1+27, ENCLIN1+24, ENCLIN1+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STR+2
Function Call: WRITE	Prompt: $C(7)," Can't be before Recall Date First - Try Again" Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"***This report requires 132 columns",!! Line Location: ENDIV+1
Function Call: WRITE	Prompt: !!,"***This report requires 132 columns",!! Line Location: ONDIV+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+1
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+1
Function Call: WRITE	Prompt: D:X["?" Condition for execution: '$D(VAUTNALL) "ALL// " R X:DTIME G QUIT:(X="^")!'$T Line Location: REDO+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+3
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+3
Function Call: WRITE	Prompt: !!,"Please select up to 20 clinics that you would like to print" Line Location: QQ+0
Function Call: WRITE	Prompt: !!,"***This report requires 132 columns",!! Line Location: ONCLIN+0
Function Call: WRITE	Prompt: !!,"***This report requires 132 columns",!! Line Location: ENCLIN+0
Function Call: WRITE	Prompt: !?3,*7,"You have already selected that ",VAUTSTR,". Try again." Line Location: SET+1
Routine Call	DIC Line Location: REDO+2 REDO+3
Routine Call	DIR Line Location: STR+3
Routine Call	%ZIS Line Location: ENDIV+1 ONDIV+1 ONCLIN ENCLIN ENCLIN+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SD(403.5	EDIV+2, ONDIV1+6, ONCLIN1+5, ENCLIN1+3
^SD(403.54	EDIV+2, EDIV+23, ONDIV1+6, ONDIV1+26, ONCLIN1+25, ENCLIN1+24
^TMP($J	EDIV!, EDIV+28, ONDIV1+1!, ONDIV1+30, ONCLIN1+1!, ONCLIN1+29, ENCLIN1+1!, ENCLIN1+28

Label References

Name	Line Occurrences
CLIN	REDO+1
DATE	STR+4, STR+5, STR+6, DATE+2
EN	STR+4
EN1	STR+5
ENCLIN	CLIN+1
ENDIV	EN+3
ONCLIN	CLIN+2
ONDIV	EN+4
QQ	REDO+1, REDO+3
QUIT	STR+3, STR+4, STR+5, EN+2, ENDIV+1, ENDIV+2, EDIV+32, ONDIV+1, ONDIV+2, ONDIV1+34 , REDO+1, REDO+3, ONCLIN, ONCLIN+1, ONCLIN1+33, ENCLIN+1, ENCLIN1+32
REDO	REDO+2, REDO+3
SET	REDO+2, REDO+3
STR	DATE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT!
%DT	DATE+1*, QUIT+1!
%DT("A"	DATE+1, DATE+2
%ZIS	ENDIV+1, ONDIV+1, ONCLIN, ENCLIN, QUIT+1!
CDT	EDIV+1, EDIV+15, EDIV+17, EDIV+18, EDIV+19, EDIV+28, EDIV+29!, ONDIV1+3, ONDIV1+19, ONDIV1+20 , ONDIV1+21, ONDIV1+22, ONDIV1+30, ONDIV1+31!, ONCLIN1+2, ONCLIN1+18, ONCLIN1+19, ONCLIN1+20, ONCLIN1+21, ONCLIN1+29 , ONCLIN1+30!, ENCLIN1+2, ENCLIN1+17, ENCLIN1+18, ENCLIN1+19, ENCLIN1+20, ENCLIN1+28, ENCLIN1+29!
CDT1	EDIV+1, EDIV+15, EDIV+17, EDIV+18, EDIV+29!, ONDIV1+3, ONDIV1+19, ONDIV1+20, ONDIV1+21, ONDIV1+31! , ONCLIN1+2, ONCLIN1+19, ONCLIN1+20, ONCLIN1+30!, ENCLIN1+2, ENCLIN1+17, ENCLIN1+18*, ENCLIN1+19, ENCLIN1+29!
CLINIC	EDIV+1, EDIV+6, EDIV+7, EDIV+28, EDIV+29!, ONDIV1+3, ONDIV1+10, ONDIV1+11, ONDIV1+30, ONDIV1+31! , ONCLIN1+2, ONCLIN1+9, ONCLIN1+10, ONCLIN1+29, ONCLIN1+30!, ENCLIN1+2, ENCLIN1+7, ENCLIN1+9, ENCLIN1+28, ENCLIN1+29!
COMMENT	EDIV+1, EDIV+22, EDIV+28, ONDIV1+3, ONDIV1+25, ONDIV1+30, ONCLIN1+2, ONCLIN1+24, ONCLIN1+29, ENCLIN1+2* , ENCLIN1+23*, ENCLIN1+28, QUIT!
D0	EDIV+2, ONDIV1+6, ONCLIN1+5, ENCLIN1+3, QUIT!
DATE	EDIV+8, EDIV+28, ONDIV1+12, ONDIV1+30, ONCLIN1+11, ONCLIN1+29, ENCLIN1+10, ENCLIN1+28, QUIT!
DFN	EDIV+11, ONDIV1+15, ONCLIN1+14, ENCLIN1+13, QUIT+1!
DIC	EN1+3*, QUIT!
DIC("A"	EN1+4, REDO+1, REDO+2, REDO+3
DIC(0	EN1+4*
DIR	STR!, STR+4!, STR+5!, STR+6!, QUIT!
DIR("A"	STR+2*
DIR(0	STR+1*
DIROUT	STR!
DIRUT	STR!, STR+3
DIV	EDIV+2, EDIV+28, ONDIV1+4, ONDIV1+5, ONDIV1+6, ONDIV1+30, ONCLIN1+3, ONCLIN1+4, ONCLIN1+29, ENCLIN1+7 , ENCLIN1+8*, ENCLIN1+28, QUIT!
DTA	EDIV+2, EDIV+3, EDIV+6, EDIV+9, EDIV+15, EDIV+16, EDIV+22, EDIV+23, EDIV+26, ONDIV1+6 , ONDIV1+7, ONDIV1+10, ONDIV1+13, ONDIV1+19, ONDIV1+20, ONDIV1+25, ONDIV1+26, ONDIV1+28, ONCLIN1+5, ONCLIN1+6 , ONCLIN1+9, ONCLIN1+12, ONCLIN1+18, ONCLIN1+19, ONCLIN1+24, ONCLIN1+25, ONCLIN1+27, ENCLIN1+3, ENCLIN1+4, ENCLIN1+7 , ENCLIN1+11, ENCLIN1+17, ENCLIN1+18, ENCLIN1+23, ENCLIN1+24, ENCLIN1+26, QUIT!
DTIME	REDO+1, REDO+3
DTOUT	STR!, STR+3
DUOUT	STR!, STR+3
EDT	DATE+3*, EDIV+4, ONDIV1+8, ONCLIN1+7, ENCLIN1+5, QUIT!
I	QUIT!
IO	ONDIV1+2
IO("Q"	ENDIV+2, ONDIV+2, ONCLIN+1, ENCLIN+1
ION	ONDIV+2, ONCLIN+1, ENCLIN+1
J	SET*, QUIT!
LN	EDIV+13, EDIV+28, ONDIV1+17, ONDIV1+30, ONCLIN1+16, ONCLIN1+29, ENCLIN1+15, ENCLIN1+28, QUIT!
MONTH	EDIV+5, EDIV+28, ONDIV1+9, ONDIV1+30, ONCLIN1+8, ONCLIN1+29, ENCLIN1+6, ENCLIN1+28, QUIT!
PAT	EDIV+1, EDIV+9, EDIV+10, EDIV+11, EDIV+29!, ONDIV1+3, ONDIV1+13, ONDIV1+14, ONDIV1+15, ONDIV1+31! , ONCLIN1+2, ONCLIN1+12, ONCLIN1+13, ONCLIN1+14, ONCLIN1+30!, ENCLIN1+2, ENCLIN1+11, ENCLIN1+12, ENCLIN1+13, ENCLIN1+29!
PAT1	EDIV+14, EDIV+28, ONDIV1+18, ONDIV1+30, ONCLIN1+17, ONCLIN1+29, ENCLIN1+16, ENCLIN1+28, QUIT!
PHONE	EDIV+1, EDIV+20, EDIV+21, EDIV+28, ONDIV1+3, ONDIV1+23, ONDIV1+24, ONDIV1+30, ONCLIN1+2, ONCLIN1+22 , ONCLIN1+23, ONCLIN1+29, ENCLIN1+2, ENCLIN1+21, ENCLIN1+22, ENCLIN1+28, QUIT!
POP	ENDIV+1, ONDIV+1, ONCLIN, ENCLIN, ENCLIN+1, QUIT!
PRO	EDIV+1, EDIV+23, EDIV+25, EDIV+29!, ONDIV1+3, ONDIV1+26, ONDIV1+27, ONDIV1+31!, ONCLIN1+2, ONCLIN1+25 , ONCLIN1+26, ONCLIN1+30!, ENCLIN1+2, ENCLIN1+24, ENCLIN1+25, ENCLIN1+29!
PRO1	EDIV+1, EDIV+23, EDIV+24, ONDIV1+26, ONCLIN1+25, ENCLIN1+24*, QUIT!
PRO2	EDIV+1, EDIV+24, EDIV+25, EDIV+28, ONDIV1+26, ONDIV1+27, ONDIV1+30, ONCLIN1+25, ONCLIN1+26, ONCLIN1+29 , ENCLIN1+24, ENCLIN1+25*, ENCLIN1+28, QUIT!
Q	STR!, STR+3*, STR+4, STR+5, STR+6, QUIT!
RDT	EDIV+1, EDIV+3, EDIV+4, EDIV+5, EDIV+8, EDIV+28, EDIV+29!, ONDIV1+3, ONDIV1+7, ONDIV1+8 , ONDIV1+9, ONDIV1+12, ONDIV1+30, ONDIV1+31!, ONCLIN1+2, ONCLIN1+6, ONCLIN1+7, ONCLIN1+8, ONCLIN1+11, ONCLIN1+29 , ONCLIN1+30!, ENCLIN1+2, ENCLIN1+4, ENCLIN1+5, ENCLIN1+6, ENCLIN1+10, ENCLIN1+28, ENCLIN1+29!
SDEND	EN+2*, QUIT!
SDT	DATE+1*, DATE+2, EN+1, EDIV+4, ONDIV1+8, EN1+1, ONCLIN1+7, ENCLIN1+5, QUIT!
SSN	QUIT!
U	EDIV+13, EDIV+14, EDIV+20, ONDIV1+17, ONDIV1+18, ONDIV1+23, ONCLIN1+16, ONCLIN1+17, ONCLIN1+22, ENCLIN1+15 , ENCLIN1+16, ENCLIN1+21, SET+1, SET+2, SET+3, SET+4
USER	EDIV+26, EDIV+27, EDIV+29!, ONDIV1+28, ONDIV1+29, ONDIV1+31!, ONCLIN1+27, ONCLIN1+28, ONCLIN1+30!, ENCLIN1+26 , ENCLIN1+27, ENCLIN1+29!
USER1	EDIV+26, EDIV+27, EDIV+28, ONDIV1+28, ONDIV1+29, ONDIV1+30, ONCLIN1+27, ONCLIN1+28, ONCLIN1+29, ENCLIN1+26* , ENCLIN1+27*, ENCLIN1+28, QUIT!
VA	QUIT!
VA("BID"	EDIV+13, ONDIV1+17, ONCLIN1+16, ENCLIN1+15
VADM	QUIT+1!
VADM(1	EDIV+13, EDIV+14, ONDIV1+17, ONDIV1+18, ONCLIN1+16, ONCLIN1+17, ENCLIN1+15, ENCLIN1+16
VAERR	REDO~, REDO+3, SET, SET+1
VAI	REDO~, REDO+3, SET
VAPA	QUIT+1!
VAPA(8	EDIV+20, ONDIV1+23, ONCLIN1+22, ENCLIN1+21
VAUTC	CLIN+1, CLIN+2, QUIT!
VAUTC(	ONCLIN1+4
VAUTD	EN+3, EN+4, QUIT!
VAUTD(	ONDIV1+5
VAUTNALL	REDO~, REDO+1
VAUTNI	EN1+3*, SET, SET+2, SET+3, QUIT!
VAUTSTR	EN1+2~, EN1+3*, EN1+4, REDO+2, SET+1
VAUTVB	EN1+2~, EN1+3, EN1+4, REDO+1, SET, SET+1, SET+2, SET+3, SET+4
VAUTX	REDO~, REDO+3*, SET!
VAX	REDO+3, SET*, QUIT+1!
X	STR!, REDO+1, REDO+3, QUIT!
Y	STR!, STR+3, DATE+1!, DATE+2, DATE+3!, EN+2, EDIV+8!, EDIV+15!, ONDIV1+12!, ONDIV1+19! , EN1+4, REDO+2, REDO+3!, ONCLIN1+11!, ONCLIN1+18!, ENCLIN1+10!, ENCLIN1+17*!, SET, SET+1, SET+2 , SET+3, SET+4, QUIT!
Y(0	SET, SET+1, SET+2, SET+3, SET+4
YR	EDIV+5, ONDIV1+9, ONCLIN1+8, ENCLIN1+6, QUIT!
Z	EDIV+16, EDIV+17!, ONDIV1+20!, ONCLIN1+19!, ENCLIN1+18!
ZPR	EDIV+2, ONDIV1+6, ONCLIN1+4, ONCLIN1+5, ONCLIN1+9, ENCLIN1+3, QUIT!
ZTDESC	ENDIV+2, ONDIV+2, ONCLIN+1, ENCLIN+1, QUIT+1!
ZTIO	ONDIV+2, ONCLIN+1, ENCLIN+1*, QUIT+1!
ZTRTN	ENDIV+2, ONDIV+2, ONCLIN+1, ENCLIN+1, QUIT+1!
ZTSAVE	QUIT+1!
ZTSAVE("*"	ENDIV+2, ONDIV+2, ONCLIN+1, ENCLIN+1

Customize PDF page

Package: Scheduling

Routine: SDRRCRR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: