Routine: SDRRCLR2

Package	Total	Call Graph
VA Fileman	5	DD^%DT FILE^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	3	$$LKUP^XPDKEY $$NAME^XUSER OWNSKEY^XUSRB
Registration	1	^DPTLK

Package

Total

Call Graph

DD^%DT FILE^DICN ^DIE $$GET1^DIQ ^DIR

$$LKUP^XPDKEY $$NAME^XUSER OWNSKEY^XUSRB

Package	Total	Caller Graph
Scheduling	1	SDRR CARD ADD

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
QUIT
EN1
UPDATE	;Asks for new data
STR	;Start checking entries in 403.5 if there is a "b" goes to update - if not goes to NEW
NEW	;Adds new entry

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Clinic Recall on file",! Line Location: STR+5
Function Call: WRITE	Prompt: !,?5,$G(COMM) Line Location: EN1+11
Function Call: READ	Timeout: DTIME Variable: X Line Location: EN1+12
Function Call: READ	Timeout: 3 Variable: X Line Location: EN1+22
Function Call: WRITE	Prompt: !,?25,"YOU DO NOT HAVE ACCESS TO THIS ENTRY",!,?12,"PLEASE CHECK WITH YOUR ADPAC OR IRM TO GET THE PROPER SECURITY KEY" Line Location: EN1+22
Function Call: WRITE	Prompt: !!,"*Must have Recall Date,approved Recall Clinic,Recall Provider and Type of Recall" Line Location: NEW+1
Routine Call	DIE Line Location: NEW+4 UPDATE+1
Routine Call	DIR Line Location: NEW+2

FileNo	Call Tags
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	EN1+14
^SD(403.5	STR+5, EN1, EN1+17
^SD(403.54	EN1+5, EN1+17
^TMP("SDRRCLR"	STR+2!, EN1*, EN1+1, EN1+5, EN1+7, EN1+8, EN1+9, EN1+12, EN1+16, QUIT+1!

Name	Field # of Occurrence
^(0	EN1

Name	Field # of Occurrence
C	STR+1~, EN1*, EN1+16!, QUIT!
CLINIC	STR+1~, EN1+1, EN1+3, EN1+4*, EN1+10, EN1+16!, QUIT!
COMM	STR+1~, EN1+9*, EN1+11
D	STR+1~, EN1*, QUIT!
D0	NEW+5!, UPDATE+2!
DA	EN1+16!, EN1+17, NEW+4, NEW+5!, UPDATE+2!
DFN	STR+4*, STR+5, EN1, NEW+3, QUIT!
DIC	NEW+3*, NEW+5!, UPDATE+1!, UPDATE+2!
DIC(0	NEW+3*
DIE	NEW+3, NEW+5!, UPDATE+1!, UPDATE+2!
DIE("NO^"	NEW+4, UPDATE+1
DIR	NEW+5!, QUIT!
DIR("A"	NEW+2*
DIR("B"	NEW+2*
DIR(0	NEW+2*
DLAYGO	NEW+3*, NEW+5!, UPDATE+2!
DR	NEW+4, NEW+5!, UPDATE+1!, UPDATE+2!
DTIME	EN1+12
DUZ	EN1+21
ER	EN1+1, EN1+12, EN1+13, QUIT!
FLAG	EN1+17, EN1+22, EN1+24!, QUIT!
I	STR+1~, EN1, EN1+1, EN1+2, EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12
KEY	EN1+17*, EN1+19, EN1+21, EN1+22!, QUIT!
KEYIFN	QUIT!
KY	STR+1~, EN1+21!
KY(0	EN1+22
NUM	NEW+3*, NEW+4, NEW+5!, UPDATE+2!
OK	EN1+1*, NEW+5!, UPDATE+2!, QUIT!
PROV	EN1+5, EN1+6, EN1+11, EN1+16!, NEW+5!, UPDATE+2!, QUIT!
PROV1	EN1+17*, EN1+18, EN1+22!, QUIT!
PTN	QUIT!
RDT	EN1+7*, EN1+10, EN1+16!, NEW+5!, UPDATE+2!, QUIT!
RS	EN1+8*, EN1+10, QUIT!
VALUE	EN1+20~, EN1+21*
X	EN1+12, EN1+14, EN1+15, EN1+16, EN1+22, NEW+3, NEW+5!, UPDATE+2!, QUIT!
Y	STR+1~, STR+3, STR+4, EN1+7, EN1+8, EN1+14, NEW+2, NEW+3, NEW+5!, UPDATE+2! , QUIT!
Z	EN1+11*, EN1+12, NEW+5!, UPDATE+2!

Information