Routine: SCRPU2

Package	Total	Call Graph
VA FileMan	1	^DIR

Package	Total	Caller Graph
Scheduling	6	SCMCMHPP SCRPEC SCRPPAT SCRPTM SCRPTP SDNEXT

Entry Points

Name	Comments	DBIA/ICR reference
DTRANG(FIRST,SECOND)	;Date Range - begin date ^ end date => fileman format
DEN
GTEAM(CLN,DFN)	;
ASSUN	;
PCLNHR()	;Prompt to Print Clinic Hours
PCLNIN()	;Prompt to Print Clinic Information
SUMM()	;Prompt to Print Summary Only (y/n)
YESNO()	;Yes/No prompt
PTSTAT	;Prompt for Patient Status (All, OPT, AC)
HLP2	;help prompt for Patient Status
HLP	;
ERR
QUIT
SORT()	;
EN1
HLP3	;
SORT2()	;Prompt for sorting by: ; [1] Division, Team, Patient Name
EN4	;
HLP4	;

External References

Name	Field # of Occurrence
^DIR	DTRANG+8, DEN+3, YESNO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"End date can't occur before Begin Date",! Line Location: DEN+7
Function Call: WRITE	Prompt: !,"(A)ssigned or (U)nassigned Patients to Primary Care Team: " Line Location: ASSUN+4
Function Call: WRITE	Prompt: !,"Patient Status: ALL//" Line Location: PTSTAT+6
Function Call: WRITE	Prompt: !,"Enter: ",!?10,"- A or AC for patients whose status is AC" Line Location: HLP2+1
Function Call: WRITE	Prompt: !?10,"- O or OPT for patient whose status is OPT" Line Location: HLP2+2
Function Call: WRITE	Prompt: !?10,"- Enter or ALL for both AC and OPT patients" Line Location: HLP2+3
Function Call: WRITE	Prompt: !,"Enter: ",!?5,"- A for patients assigned to the team as Primary Care" Line Location: HLP+2
Function Call: WRITE	Prompt: !?10,"- U for patients not assigned to the team as Primary Care" Line Location: HLP+3
Function Call: WRITE	Prompt: !,"Sort By:",!?10,"[1] Division, Team, Practitioner",!?10,"[2] Division, Practitioner, Team" Line Location: EN1+1
Function Call: WRITE	Prompt: !?10,"[3] Practitioner,Associated Clinic" Line Location: EN1+2
Function Call: WRITE	Prompt: !!,"Select 1 or 2 or 3: " Line Location: EN1+3
Function Call: WRITE	Prompt: !,"Enter: ",!?5,"- 1 to sort by Division, Team, Practitioner " Line Location: HLP3+2
Function Call: WRITE	Prompt: !?10,"- 2 to sort by Division, Practitioner, Team" Line Location: HLP3+3
Function Call: WRITE	Prompt: !,"Sort By:",!?10,"[1] Division, Team, Patient Name" Line Location: EN4+2
Function Call: WRITE	Prompt: !?10,"[2] Division, Team, SSN" Line Location: EN4+3
Function Call: WRITE	Prompt: !?10,"[3] Division, Team, Practitioner, Patient Name" Line Location: EN4+4
Function Call: WRITE	Prompt: !?10,"[4] Division, Team, Practitioner, SSN" Line Location: EN4+5
Function Call: WRITE	Prompt: !!,"Select 1, 2, 3, or 4: " Line Location: EN4+6
Function Call: WRITE	Prompt: !,"Enter: ",!?5,"- 1 to sort by Division, Team, Patient Name" Line Location: HLP4+2
Function Call: WRITE	Prompt: !?10,"- 2 to sort by Division, Team, SSN" Line Location: HLP4+3
Function Call: WRITE	Prompt: !?10,"- 3 to sort by Division, Team, Practitioner, Patient Name" Line Location: HLP4+4
Function Call: WRITE	Prompt: !?10,"- 4 to sort by Division, Team, Practitioner, SSN" Line Location: HLP4+5
Routine Call	DIR Line Location: DTRANG+8 DEN+3 YESNO+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.42 - [#404.42]	GTEAM+6
^SCTM(404.57 - [#404.57]	GTEAM+4, GTEAM+5

Label References

Name	Line Occurrences
$$YESNO	PCLNHR+2, PCLNIN+2, SUMM+3
ASSUN	ASSUN+7, ASSUN+8
DEN	DEN+7
EN1	EN1+6, EN1+7
EN4	EN4+9, EN4+10
ERR	ASSUN+6, PTSTAT+9
HLP	ASSUN+7, ASSUN+8
HLP2	PTSTAT+10, PTSTAT+13
HLP3	EN1+6, EN1+7
HLP4	EN4+9, EN4+10
PTSTAT	PTSTAT+10, PTSTAT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDATE	DTRANG+3~, DTRANG+9, DTRANG+11, DEN+7, DEN+9
CLN	GTEAM~, GTEAM+4
DFN	GTEAM~, GTEAM+6
DIC	QUIT!
DIR	DEN+8!, YESNO+6!
DIR("?"	SUMM+2*
DIR("A"	DTRANG+6, DTRANG+7, DEN, DEN+1, PCLNHR+1, PCLNIN+1, SUMM+1*
DIR("B"	DTRANG+5, PCLNHR+1, PCLNIN+1, SUMM+1, YESNO+4
DIR(0	DTRANG+5, YESNO+2
DIROUT	DTRANG+3~, DTRANG+10, DEN+5, YESNO+1~, YESNO+5
DT	DTRANG+9, DEN+4
DTIME	ASSUN+5, PTSTAT+7, EN1+4, EN4+7
DTOUT	DTRANG+3~, DTRANG+9, DEN+2!, DEN+4, YESNO+1~, YESNO+4
DUOUT	DTRANG+3~, DTRANG+10, DEN+5, YESNO+1~, YESNO+5
EDATE	DTRANG+3~, DTRANG+4, DEN+4, DEN+6*, DEN+7, DEN+9
FIRST	DTRANG~, DTRANG+6, DTRANG+7
FOUND	GTEAM+2~, GTEAM+3, GTEAM+4, GTEAM+6, GTEAM+7, GTEAM+8
J	QUIT!
SECOND	DTRANG~, DEN, DEN+1
STAT	PTSTAT+4~
TEAM	GTEAM+2~, GTEAM+5*, GTEAM+6, GTEAM+7
TPEN	GTEAM+2~, GTEAM+3, GTEAM+4, GTEAM+5
VAERR	QUIT!
VAI	QUIT!
VAJ	QUIT!
VAJ1	QUIT!
VAUTNI	QUIT!
>> VAUTPS	PTSTAT+2*
VAUTSTR	QUIT!
VAUTVB	ASSUN+2~, ASSUN+3, ASSUN+9, ASSUN+10, PTSTAT+4~, PTSTAT+5, PTSTAT+8, PTSTAT+11, PTSTAT+12, PTSTAT+13 , ERR, QUIT!
VAX	QUIT!
X	DTRANG+9, DEN+2!, DEN+4, DEN+8!, ASSUN+5, ASSUN+6, ASSUN+7, ASSUN+8, ASSUN+9, ASSUN+10 , ASSUN+11!, YESNO+1~, YESNO+4, PTSTAT+4~, PTSTAT+7, PTSTAT+8, PTSTAT+9, PTSTAT+10, PTSTAT+11, PTSTAT+12 , QUIT!, EN1~, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN4+1~, EN4+7, EN4+8 , EN4+9, EN4+10, EN4+11
Y	DTRANG+11, DEN+2!, DEN+6, DEN+8!, YESNO+1~, YESNO+4, YESNO+5, YESNO+7, ERR, QUIT

Customize PDF page

Package: Scheduling

Routine: SCRPU2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: