Routine: SCRPU1

Information

SCRPU1 ;ALB/CMM - GENERIC PROMPTS FOR PCMM REPORTS ;1/12/96

Source Information

Source file <SCRPU1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Scheduling	2	$$ACTTP^SCMCTPU HELP^SCRPU3
VA Fileman	2	EN^DDIOL ^DIC
Registration	1	FIRST^VAUTOMA

Caller Graph

Caller Graph Total: 11

Package	Total	Caller Graph
Scheduling	11	SCRPBK1 SCRPBK4 SCRPEC SCRPITP SCRPPAT SCRPRAC SCRPSLT SCRPTA SCRPTM SCRPTP SDNEXT

Entry Points

Name	Comments	DBIA/ICR reference
USRCL()	;Screen for user class - must be related to teams selected
SET
ERR
QUIT
CLSC()	;screen on clinic selection, must be related to team prompt
CLSC2()	;screen on clinic selection, must be a clinic
PRMTT	;Prompt for team. Set VAUTTN to allow not assigned to a team as a selection
CLINIC	;Prompt for Clinic
PRACT	; Prompt for One (set VAUTPO) or One,Many,All,None Practitioner(s)
INST	;Prompt for institution
USER	;Prompt for User Class
CLSC2OLD()	;screen on clinic selection, must be related to division prompt
ROLE	;Prompt for Role
FIRST	;
PRACS()	;Practitioner screen - off of team selection
REDO
RL()	;Screen for Role - screen on team

External References

Name	Field # of Occurrence
EN^DDIOL	QUIT+1
^DIC	REDO+7, REDO+8
$$ACTTP^SCMCTPU	RL+5
HELP^SCRPU3	REDO, REDO+8
FIRST^VAUTOMA	INST+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+0
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+8
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+8
Function Call: WRITE	Prompt: !?3,*7,"You have already selected that ",VAUTSTR,". Try again." Line Location: SET+1
Routine Call	DIC Line Location: REDO+7 REDO+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(4 - [#4]	Classic Fileman Calls
^SD(403.46 - [#403.46]	Classic Fileman Calls
^SCTM(404.51 - [#404.51]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^USR(8930 - [#8930]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLSC2OLD+6
^SCTM(404.52 - [#404.52]	PRACS+3, PRACS+5, PRACS+6, PRACS+7
^SCTM(404.57 - [#404.57]	USRCL+5, USRCL+6, RL+3, RL+4, RL+6, RL+7, PRACS+8, CLSC+4, CLSC+5
^SD(404.91 - [#404.91]	USER+2

Label References

Name	Line Occurrences
ERR	PRMTT+1, CLINIC+1, USER+1, ROLE+1, PRACT+1, REDO, REDO+8
FIRST	PRMTT+4, CLINIC+7, USER+5, ROLE+4, PRACT+4, REDO+7
QUIT	REDO+1, REDO+2, REDO+5, REDO+10
REDO	REDO+8
SET	REDO+7, REDO+8

Naked Globals

Name	Field # of Occurrence
^(0	USRCL+2, CLSC+1, CLSC2+1, CLSC2OLD+1, CLSC2OLD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	RL+1~, RL+5*, RL+6
>> DGQUIET	QUIT+1
DIC	INST+1, PRMTT+2, CLINIC+2, USER+3, ROLE+2, PRACT+2, QUIT+2!
DIC("A"	FIRST+1, REDO, REDO+7, REDO+8
DIC("B"	PRMTT+2*
DIC("S"	INST+1, PRMTT+3, CLINIC+4, CLINIC+6, USER+4, ROLE+3, PRACT+3*
DIC(0	FIRST+1*
DTIME	REDO, REDO+8
EN	RL+1~, RL+2, RL+4, RL+5, RL+6, RL+7, PRACS+1~, PRACS+2, PRACS+5, PRACS+6 , PRACS+7, CLSC+2~, CLSC+3, CLSC+4, CLSC+5, CLSC2OLD+2~, CLSC2OLD+3*
ENT	USRCL+1~, USRCL+4, USRCL+5, USRCL+6
INST	CLSC2OLD+2~, CLSC2OLD+6*, CLSC2OLD+7, CLSC2OLD+8
J	SET*, QUIT+2!
NODE	USRCL+1~, USRCL+6, USRCL+7, USRCL+8, PRACS+1~, PRACS+7, PRACS+8, PRACS+9
>> SCOKNULL	REDO, REDO+1
>> SCUP	ERR*
STOP	USRCL+1~, USRCL+4, USRCL+5, USRCL+7, USRCL+9, USRCL+10, USRCL+11, USRCL+12, RL+1~, RL+2 , RL+4, RL+8, RL+9, RL+10, PRACS+1~, PRACS+2, PRACS+5, PRACS+9, PRACS+10*, PRACS+11
TDIV	CLSC2OLD+2~, CLSC2OLD+4*, CLSC2OLD+5, CLSC2OLD+6
TEAM	RL+1~, RL+7, RL+8, RL+9, PRACS+1~, PRACS+8, PRACS+9, CLSC+2~, CLSC+5*, CLSC+6
TIEN	USRCL+1~, USRCL+8*, USRCL+9, USRCL+10, USRCL+11
TRUE	CLSC+2~, CLSC+3, CLSC+4, CLSC+6, CLSC+7, CLSC+8, CLSC2OLD+2~, CLSC2OLD+3, CLSC2OLD+7, CLSC2OLD+8 , CLSC2OLD+9*, CLSC2OLD+10
U	USRCL+2, SET+1, SET+2, CLSC+1, CLSC2+1, CLSC2OLD+1, CLSC2OLD+4, CLSC2OLD+6
VAERR	REDO+8, SET, SET+1, QUIT+2!
VAI	REDO+8, SET, QUIT+2!
VAJ	QUIT+2!
VAJ1	QUIT+2!
>> VAUTCA	CLINIC+1, CLINIC+4, CLINIC+6
>> VAUTD	PRMTT+1, CLSC2OLD+7, CLSC2OLD+9
>> VAUTD(	CLSC2OLD+7, CLSC2OLD+8
>> VAUTNA	REDO+2
VAUTNI	INST+2, PRMTT+2, CLINIC+2, USER+3, ROLE+2, PRACT+2, SET, QUIT+2!
>> VAUTPO	REDO+8
>> VAUTPP	REDO+5
VAUTSTR	INST+2, PRMTT+2, CLINIC+2, USER+3, ROLE+2, PRACT+2, FIRST+1, REDO+7, SET+1, QUIT+1 , QUIT+2!
>> VAUTT	CLINIC+1, USER+1, USRCL+9, USRCL+10, USRCL+11, ROLE+1, RL+8, RL+9, PRACT+1, PRACS+10 , CLSC+6, CLSC+7
>> VAUTT(	USRCL+9, USRCL+11, RL+8, PRACS+9, CLSC+6
>> VAUTTN	REDO+5
VAUTVB	INST+1, PRMTT+2, CLINIC+2, USER+3, ROLE+2, PRACT+2, FIRST+1, FIRST+2*, REDO+2, REDO+5 , SET, SET+1, SET+2, ERR, QUIT+1, QUIT+2!
VAUTX	REDO+8*, SET!
VAX	REDO+8, SET*, QUIT+2!
X	REDO, REDO+1, REDO+2, REDO+5, REDO+8, ERR, QUIT+2!
Y	USRCL+5, RL+3, RL+4, PRACS+3, PRACS+5, FIRST+2, REDO+7, REDO+8!, SET, SET+1 , SET+2, ERR, QUIT*, CLSC+4
Y(0	SET, SET+1, SET+2

Customize PDF page

Package: Scheduling

Routine: SCRPU1

Call Graph Total: 5

Caller Graph Total: 11