Routine: BLRALPH

Package	Total	Call Graph
VA Fileman	7	EN^DDIOL ^DIC (,FILE)^DIE ^DIK $$IENS^DILF $$GET1^DIQ ^DIR
Kernel	2	$$DT^XLFDT $$KCHK^XUSRB

Package

Total

Call Graph

EN^DDIOL ^DIC (,FILE)^DIE ^DIK $$IENS^DILF $$GET1^DIQ ^DIR

$$DT^XLFDT $$KCHK^XUSRB

Name	Comments	DBIA/ICR reference
EN	; Check for access to this option ; check if a user has one of the BLRA keys and is calling ; this option from the User Toolbox option
CSUR	;EP - Clean-up expired surrogates in Participating Physicians File
CLK	; Clerk's enter/edit of the Participating Physician File
EXIT
SUR	; Set up delegated surrogates
SUP	; Ask to change supervisor to
INACT	;EP ; Inactivate a participating provider
ISRG	; Designate surrogate for 90 days

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CLK+7
Routine Call	DIC Line Location: CLK+4 INACT+6 ISRG+6 SUP+11
Routine Call	DIE Line Location: CLK+6 SUR+5 INACT+16 ISRG+12
Routine Call	DIE Line Location: SUP+15
Routine Call	DIR Line Location: SUP+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BLRALAB(9009027.1 - [#9009027.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027.1 - [#9009027.1]	EN+10, CSUR+3, CSUR+4, CSUR+6, CSUR+7, INACT+11, ISRG+3*, SUP+13

Name	Field # of Occurrence
BLRAACT	EXIT!, INACT+17, ISRG+15!
BLRADATA	ISRG+15!
BLRAFPH	ISRG+15!
>> BLRAFSP	INACT+12*, SUP+13
>> BLRAKEY	EN+3*, EN+4
>> BLRALY(	SUP+14*
BLRAP	ISRG+14!
BLRAPHY	CSUR+1~, CSUR+2, CSUR+3, CSUR+4, CSUR+6, CSUR+7, CSUR+8, CSUR+9
BLRAPIEN	EXIT+1!, INACT+8*, ISRG+2
BLRAPNAM	EXIT+1!, INACT+7*, INACT+15, INACT+17
BLRARFL	ISRG+15!
BLRARPHY	ISRG+15!
BLRAS	ISRG+14!
BLRASUP	EXIT+1!, INACT+11*, INACT+12
BLRASUR	CSUR+1~, CSUR+5, CSUR+6, CSUR+7, CSUR+8
BLRATPH	ISRG+15!
>> BLRATSP	SUP+12*, SUP+14
>> BLRJ	SUP+13*, SUP+14
BLRVD	ISRG+14!
DA	CLK+4, EXIT!, SUR+4, CSUR+1~, CSUR+8, INACT+6, INACT+8, INACT+11, INACT+12, ISRG+1! , ISRG+6*, ISRG+7, ISRG+8, ISRG+9!, ISRG+10, ISRG+14!
DA(1	CSUR+8, ISRG+2, ISRG+3, ISRG+4
DIC	CLK+2, CLK+6, EXIT!, INACT+4, INACT+16, ISRG+1!, ISRG+4, ISRG+12, ISRG+14!, SUP+10
DIC("A"	CLK+3, INACT+5, ISRG+5*
DIC("S"	SUP+10*
DIC(0	CLK+2, INACT+4, ISRG+4, SUP+10
DIE	CLK+6, EXIT!, SUR+4, INACT+16, ISRG+1!, ISRG+12, ISRG+14!
DIE("NO^"	ISRG+12*
DIK	CSUR+1~, CSUR+9*, ISRG+14!
DIR	ISRG+15!, SUP+1~
DIR("A"	SUP+2, SUP+3, SUP+4, SUP+5
DIR(0	SUP+6*
>> DLAYGO	CLK+2, ISRG+2
DR	CLK+6, EXIT!, SUR+2, SUR+3, INACT+16, ISRG+1!, ISRG+2, ISRG+11
DT	ISRG+9
DUZ	EN+10, SUR+4
IENS	EXIT+1!, ISRG+10*
>> KEYCT	EN+5*, EN+6
LRDFN	ISRG+14!
LRIDT	ISRG+14!
LRSS	ISRG+14!
>> QFL	INACT+12, SUP+8, SUP+9, SUP+11*
>> RETKEY	EN+4*, EN+5
TERMDT	ISRG+8*, ISRG+9, ISRG+14!
TXT	EXIT+1!
U	CSUR+4, CSUR+7, INACT+11
>> XQSV	EN+6
Y	CLK+4, CSUR+1~, INACT+6, ISRG+6, SUP+8, SUP+9, SUP+11, SUP+12
Y(0	INACT+7

Information