Routine: QAOSCKEY

Information

QAOSCKEY ;HISC/DAD-ALLOCATE/DEALLOCATE CLINICAL REVIEWER KEY ;11/9/92 10:38

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	5	^DIC (FILE,YN)^DICN DQ^DICQ ^DIK ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Occurrence Screen	2	QAOS EDIT CLIN REVIEWER QAOSCNV4

Entry Points

Name	Comments	DBIA/ICR reference
ASK	;
OK	;
ASKOK
DOIT	; Entry point from postinit: convert file #741.3
EXIT	;
HELP	;
HLP(QAOSLIST)	; DISPLAY CLINICAL REVIEWERS

External References

Name	Field # of Occurrence
^DIC	ASK+5
FILE^DICN	DOIT+9
YN^DICN	ASKOK+1
DQ^DICQ	HELP+8
^DIK	DOIT+21
^DIR	HELP+7, HLP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"* The Clinical Reviewer key was not found !! ",7 Line Location: QAOSCKEY+4
Function Call: WRITE	Prompt: !!,"Checking for current holders of the Clinical Reviewer key" Line Location: QAOSCKEY+7
Function Call: WRITE	Prompt: "." Line Location: QAOSCKEY+9
Function Call: WRITE	Prompt: !,QAOCOUNT," found. " Line Location: QAOSCKEY+15
Function Call: WRITE	Prompt: "Type a '?' to list their names." Condition for execution: QAOCOUNT Line Location: QAOSCKEY+15
Function Call: READ	Formatting: !! Prompt: "Select CLINICAL REVIEWER: " Variable: X Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: " ??",*7 Line Location: ASK+7
Function Call: WRITE	Prompt: " ??",*7 Line Location: ASK+9
Function Call: WRITE	Prompt: !!?3,"* No Clinical Reviewers selected !! ",7 Line Location: OK+1
Function Call: WRITE	Prompt: !!,"Allocate / Deallocate Clinical Reviewer key" Line Location: ASKOK+0
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)" Line Location: ASKOK+2
Function Call: WRITE	Prompt: !!,"Allocating key:" Line Location: DOIT+1
Function Call: WRITE	Prompt: !?3,QAOSDUZ(0) Line Location: DOIT+10
Function Call: WRITE	Prompt: !?3,"* None *" Line Location: DOIT+13
Function Call: WRITE	Prompt: !!,"Deallocating key:" Line Location: DOIT+14
Function Call: WRITE	Prompt: !?3,QAOSDUZ(0) Line Location: DOIT+23
Function Call: WRITE	Prompt: !?3,"* None *" Line Location: DOIT+26
Function Call: WRITE	Prompt: !!," Enter the name of a Clinical Reviewer to add to the list." Line Location: HELP+1
Function Call: WRITE	Prompt: !," Enter a minus (-) Clinical Reviewer name to remove a name" Line Location: HELP+2
Function Call: WRITE	Prompt: " from the list." Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"Clinical Reviewers selected for key ALLOCATION:" Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Clinical Reviewers selected for key DEALLOCATION:" Line Location: HELP+5
Function Call: WRITE	Prompt: !?3,QAOSDUZ(0) Line Location: HLP+6
Function Call: WRITE	Prompt: !?3,"* None *" Line Location: HLP+10
Routine Call	DIC Line Location: ASK+5
Routine Call	DIR Line Location: HELP+7 HLP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	QAOSCKEY+2, QAOSCKEY+3
^TMP($J	QAOSCKEY+6!, QAOSCKEY+11, ASK+9, ASK+10, ASK+11!, ASK+14*, ASK+15!, OK+1, DOIT+2, DOIT+4 , DOIT+15, DOIT+17, EXIT+3!, HLP+3, HLP+5, HLP+7
^VA(200 - [#200]	QAOSCKEY+9, DOIT+6, DOIT+9, DOIT+18
^XUSEC(	QAOSCKEY+8

Label References

Name	Line Occurrences
ASK	ASK+4, ASK+5, ASK+7, ASK+17
ASKOK	ASKOK+2
EXIT	QAOSCKEY+3, ASK+2, OK+1, ASKOK+1
HELP	ASK+4
HLP	HELP+4, HELP+5
OK	ASK+2

Naked Globals

Name	Field # of Occurrence
^(0	DOIT+6*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKOK+1*, ASKOK+2, EXIT+1!
D	EXIT+1!, HELP+8*
DA	DOIT+19*, EXIT+1!
DA(1	DOIT+7, DOIT+19
DD	DOIT+5!, EXIT+1!
DIC	ASK+5!, DOIT+5!, DOIT+7, EXIT+1!, HELP+8*
DIC(0	ASK+5, DOIT+8, HELP+8*
DIDEL	DOIT+19*, EXIT+1!
DIK	DOIT+20*, EXIT+1!
DINUM	DOIT+5!, DOIT+8*, EXIT+1!
DIR	EXIT+1!, HELP+7!, HLP+1~, HLP+7!
DIR(0	HELP+7, HLP+7
DLAYGO	DOIT+8*, EXIT+1!
DO	DOIT+5!, EXIT+1!
DTIME	ASK+1
DZ	EXIT+1!, HELP+8*
IOSL	HLP+7
QADELETE	ASK+3*, ASK+8, EXIT+1!
QAOCOUNT	QAOSCKEY+6, QAOSCKEY+12, QAOSCKEY+15, EXIT+2!
QAOSCLIN	QAOSCKEY+2*, QAOSCKEY+3, DOIT+8, DOIT+9, DOIT+18, EXIT+2!
QAOSCLIN(0	QAOSCKEY+2*, QAOSCKEY+3, QAOSCKEY+8
QAOSD1	DOIT+18*, DOIT+19, EXIT+2!
QAOSDUZ	QAOSCKEY+8, QAOSCKEY+9, QAOSCKEY+11, ASK+6, ASK+9, ASK+10, ASK+11, ASK+14, ASK+15, DOIT+4* , DOIT+6, DOIT+7, DOIT+9, DOIT+17, DOIT+18, DOIT+19, DOIT+20, EXIT+2!, HLP+1~, HLP+5 , HLP+7
QAOSDUZ(0	ASK+6, ASK+7, ASK+9, ASK+10, ASK+11, ASK+14, ASK+15, DOIT+3, DOIT+4, DOIT+10 , DOIT+16, DOIT+17, DOIT+23, HLP+4, HLP+5*, HLP+6, HLP+7
QAOSLINE	EXIT+2!, HLP+1~, HLP+4, HLP+7
QAOSLIST	EXIT+2!, HLP~, HLP+2*, HLP+3, HLP+5, HLP+7
X	QAOSCKEY+9, QAOSCKEY+10, QAOSCKEY+11, ASK+1, ASK+2, ASK+3, ASK+4, DOIT+8, EXIT+2!, HELP+6 , HLP+1~
Y	ASK+5, ASK+6, EXIT+2!, HELP+7, HLP+1~, HLP+4*, HLP+5
Y(0	ASK+6

Customize PDF page

Package: Occurrence Screen