Routine: SCRPIUT1

Package	Total	Call Graph
VA Fileman	3	^DIC EN1^DIP ^DIR
Registration	2	$$PRIM^VASITE (CLINIC,DIVISION)^VAUTOMA
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

^DIC EN1^DIP ^DIR

$$PRIM^VASITE (CLINIC,DIVISION)^VAUTOMA

$$NOW^XLFDT

Package	Total	Caller Graph
Scheduling	4	SCRPI01 SCRPI01A SCRPI02 SCRPI02A

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
DIV()	; Returns either list of selected divisions for multi-divisional site, or primary ; division for single division site.
CTR(X,SDLW)	; Center string x in display line
SPACE(SCWDTH)	; Build string of 'SCWDTH' spaces ; Variable Input ; SCWDTH - returns with formatted string
CLN()	; Select One/Many/All Clinics for selected Division
PARSE(ER,ER1,ER2,PB,PE)	; Parse error description into two lines for report
ERRLST	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIV+5
Function Call: WRITE	Prompt: ! Line Location: CLN+3
Routine Call	DIC Line Location: ERRLST+9 ERRLST+21
Routine Call	DIR Line Location: ERRLST+4 ERRLST+16

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+10, ERRLST+8
^DG(43 - [#43]	DIV+4, ERRLST+2

Name	Line Occurrences
$$SPACE	CTR+4

Name	Field # of Occurrence
>> BY	ERRLST+27*
DIC	ERRLST+6, ERRLST+9!, ERRLST+20, ERRLST+21!, ERRLST+25*
DIC("A"	ERRLST+7, ERRLST+20
DIC("B"	ERRLST+8*
DIC(0	ERRLST+6, ERRLST+20
DIR	ERRLST+1~, ERRLST+4!, ERRLST+16!
DIR("A"	ERRLST+3, ERRLST+15
DIR("B"	ERRLST+3, ERRLST+15
DIR(0	ERRLST+3, ERRLST+15
DIRUT	ERRLST+1~, ERRLST+4, ERRLST+13, ERRLST+16
>> DISUPNO	ERRLST+30*
DTOUT	ERRLST+1~, ERRLST+19, ERRLST+21
DUOUT	ERRLST+1~, ERRLST+19, ERRLST+21
ER	PARSE~, PARSE+2, PARSE+3, PARSE+5
ER1	PARSE~, PARSE+3, PARSE+5
ER2	PARSE~, PARSE+3, PARSE+5
>> FLDS	ERRLST+26*
>> FR	ERRLST+28*
>> L	ERRLST+24*
PB	PARSE~, PARSE+2
PE	PARSE~, PARSE+2, PARSE+5
SCWDTH	SPACE~, SPACE+8
SCX	PARSE+1~, PARSE+2*, PARSE+3
SDERR	ERRLST+1~, ERRLST+18, ERRLST+22, ERRLST+28, ERRLST+29
SDIV	ERRLST+1~, ERRLST+5, ERRLST+9, ERRLST+11*, ERRLST+28, ERRLST+29
SDL	CTR+1~, CTR+3*, CTR+4
SDLW	CTR~, CTR+2*, CTR+3
TAB	SPACE+7~, SPACE+8, SPACE+9
>> TO	ERRLST+29*
U	DIV+4, DIV+10, ERRLST+2, ERRLST+8
>> VAUTD	DIV+8*
>> VAUTD(	DIV+10*
>> VAUTNI	CLN+2*
X	CTR~, CTR+3, CTR+4*
Y	DIV+3~, DIV+9*, DIV+10, DIV+12, CLN+1~, CLN+5, ERRLST+2, ERRLST+5, ERRLST+9, ERRLST+18 , ERRLST+19, ERRLST+21
Y(0	ERRLST+22

Information