Routine: SDRR1

Package	Total	Call Graph
VA Fileman	5	DD^%DT FILE^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	3	$$LKUP^XPDKEY $$NAME^XUSER OWNSKEY^XUSRB
Registration	2	FULL^VALM1 EN^VALM2

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
EN	;Entry point
SDAM	;Entry Point for Appointment Management protocol
UPDATE	;Asks for new data
EN1
STR(SDFN)	;Start checking entries in 403.5 if there is a "b" goes to update - if not goes to NEW
NEW	;Adds new entry

External References

Name	Field # of Occurrence
DD^%DT	EN1+7, EN1+8
FILE^DICN	NEW+3
^DIE	NEW+4, UPDATE+1
$$GET1^DIQ	EN1+3
^DIR	STR+3, NEW+2
FULL^VALM1	SDAM+3
EN^VALM2	SDAM+6
$$LKUP^XPDKEY	EN1+22
$$NAME^XUSER	EN1+5
OWNSKEY^XUSRB	EN1+22

Interaction Calls

Name	Line Occurrences
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+23
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+23
Function Call: WRITE	Prompt: !!,"*Must have Recall Date,approved Recall Clinic,Recall Provider and Type of Recall" Line Location: NEW+1
Function Call: WRITE	Prompt: !!,VALMHDR(1),! Line Location: SDAM+4
Routine Call	DIE Line Location: NEW+4 UPDATE+1
Routine Call	DIR Line Location: STR+3 NEW+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	EN1+15
^SD(403.5	STR+3, STR+4, EN1, EN1+18
^SD(403.54	EN1+5, EN1+18
^TMP("SDAM"	SDAM+9
^TMP("SDAMIDX"	SDAM+8
^TMP("SDRRCLR"	EN1*, EN1+1, EN1+5, EN1+7, EN1+8, EN1+9, EN1+12, EN1+17, NEW+6!, QUIT+1!

Label References

Name	Line Occurrences
EN1	EN1+17
NEW	STR+4, EN1+16
QUIT	STR+3, EN1+12, EN1+14, EN1+23, NEW+2, UPDATE+3
STR	SDAM+4, SDAM+10
UPDATE	EN1+27

Naked Globals

Name	Field # of Occurrence
^(	SDAM+8
^(0	EN1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	STR+1~, EN1*, EN1+17!, QUIT!
CLINIC	STR+1~, EN1+1, EN1+3, EN1+4*, EN1+10, EN1+17!, NEW+5!, UPDATE+2!, QUIT!
COMM	STR+1~, EN1+9*, EN1+11, NEW+5!, UPDATE+2!
D	STR+1~, EN1*, QUIT!
D0	NEW+5!, UPDATE+2!
DA	EN1+17!, EN1+18, NEW+4, NEW+5!, UPDATE+2!
DFN	STR+2*, STR+3, STR+4, 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"	STR+3, NEW+2
DIR("B"	STR+3, NEW+2
DIR(0	STR+3, NEW+2
DLAYGO	NEW+3*, NEW+5!, UPDATE+2!
DR	NEW+4, NEW+5!, UPDATE+1!, UPDATE+2!
DTIME	EN1+12
DUZ	EN1+22
ER	EN1+1, EN1+12, EN1+14, QUIT!
FLAG	EN1+18, EN1+23, EN1+25!, QUIT!
I	STR+1~, EN1, EN1+1, EN1+2, EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12
KEY	STR+1~, EN1+18*, EN1+20, EN1+22, EN1+23!, NEW+5!, UPDATE+2!, QUIT!
KY	STR+1~, EN1+22!
KY(0	EN1+23
NUM	NEW+3*, NEW+4, NEW+5!, UPDATE+2!
OK	EN1+1*, NEW+5!, UPDATE+2!, QUIT!
ORACTION	SDAM+1~
ORVP	SDAM+1~
PROV	EN1+5, EN1+6, EN1+11, EN1+17!, NEW+5!, UPDATE+2!, QUIT!
PROV1	EN1+18*, EN1+19, EN1+23!, QUIT!
RDT	EN1+7*, EN1+10, EN1+17!, NEW+5!, UPDATE+2!
RS	EN1+8*, EN1+10, NEW+5!, UPDATE+2!, QUIT!
SDAMERR	SDAM+1~
>> SDAMTYP	SDAM+4, SDAM+5
SDAT	SDAM+8!*, SDAM+9, SDAM+10
SDCOAP	SDAM+1~, SDAM+7*, SDAM+8
SDFN	STR~, STR+2, SDAM+4
>> VALMBCK	SDAM+2, SDAM+11
>> VALMHDR(1	SDAM+4
VALMY	SDAM+1~
VALMY(	SDAM+7
VALUE	EN1+21~, EN1+22*
X	EN1+12, EN1+15, EN1+16, EN1+17, EN1+23, NEW+3, NEW+5!, UPDATE+2!, QUIT!
>> XQORNOD(0	SDAM+6
XQORQUIT	SDAM+1~
Y	STR+1~, STR+3, STR+4, EN1+7, EN1+8, EN1+15, NEW+2, NEW+3, NEW+5!, UPDATE+2! , QUIT!
Z	EN1+11*, EN1+12, NEW+5!, UPDATE+2!

Customize PDF page

Package: Scheduling

Routine: SDRR1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: