Routine: AQAOUSR

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Quality Assurance	3	INTRO^AQAOHUSR ^AQAOUSR1 KILL^AQAOUTIL

Package

Total

Call Graph

VA Fileman

^DIC FILE^DICN ^DIE ^DIR

Quality Assurance

INTRO^AQAOHUSR ^AQAOUSR1 KILL^AQAOUTIL

Package	Total	Caller Graph
Quality Assurance	2	AQAOUSR1 AQAOUSR2

Package

Total

Caller Graph

Quality Assurance

AQAOUSR1 AQAOUSR2

Entry Points

Name	Comments	DBIA/ICR reference
PKGADMIN	; >> is user to be a pkg administrator
END	; >>> eoj
NAME	;ENTRY POINT from continuation rtn AQAOUSR1
NEXT
START	; >> start security key array
ADD	; >> if not in qi user file, ask to add
INACTIVE	; >> check for inactive entry
PCUSER	;ENTRY POINT >> is user advanced enough to use capture of ASCII files
TEAM	; >> enter team affiliations
QISTAFF	; >> ask if user is member of QI staff for package-wide access

Name	Field # of Occurrence
INTRO^AQAOHUSR	NAME+1
^AQAOUSR1	NEXT
KILL^AQAOUTIL	NAME+4, END+2
^DIC	NAME+6
FILE^DICN	ADD+9
^DIE	INACTIVE+6, QISTAFF+10, PKGADMIN+15, PKGADMIN+16, TEAM+8, PCUSER+9
^DIR	ADD+4, INACTIVE+5, QISTAFF+8, PKGADMIN+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NAME+5
Function Call: WRITE	Prompt: ! Line Location: QISTAFF+1
Function Call: WRITE	Prompt: ! Line Location: PKGADMIN+1
Function Call: WRITE	Prompt: !!,"Please add ALL QI Teams to which this user is a member. You" Line Location: TEAM+1
Function Call: WRITE	Prompt: !,"will also be asked to designate the user's access level for each" Line Location: TEAM+2
Function Call: WRITE	Prompt: !,"team. For example, a user may be able to enter occurrences for" Line Location: TEAM+3
Function Call: WRITE	Prompt: !,"one team (CREATE/EDIT) but have only INQUIRY access to the" Line Location: TEAM+4
Function Call: WRITE	Prompt: !,"occurrences for another team.",!! Line Location: TEAM+5
Function Call: WRITE	Prompt: !!," Some of reports available in this package can be transferred" Line Location: PCUSER+1
Function Call: WRITE	Prompt: !," to a user's PC via 'Data Capture'. The data will be sent in " Line Location: PCUSER+2
Function Call: WRITE	Prompt: !," ASCII file format. The user will NOT be given this choice" Line Location: PCUSER+3
Function Call: WRITE	Prompt: !," unless you answer YES here. This gives you the chance to" Line Location: PCUSER+4
Function Call: WRITE	Prompt: !," make sure the user is KNOWLEDGEABLE in using data capture and" Line Location: PCUSER+5
Function Call: WRITE	Prompt: !," understands the importance of SAFEGUARDING the data once it" Line Location: PCUSER+6
Function Call: WRITE	Prompt: !," resides on their PC. This gives the user access to RPMS data" Line Location: PCUSER+7
Function Call: WRITE	Prompt: !," for use with statistical software.",! Line Location: PCUSER+8
Function Call: WRITE	Prompt: ! Line Location: PCUSER+9
Routine Call	DIE Line Location: INACTIVE+6 QISTAFF+10 PKGADMIN+15 PKGADMIN+16 TEAM+8 PCUSER+9
Routine Call	DIC Line Location: NAME+6
Routine Call	DIR Line Location: ADD+4 INACTIVE+5 QISTAFF+8 PKGADMIN+11

FileNo	Call Tags
^AQAO(9 - [#9002168.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AQAO(9 - [#9002168.9]	NAME+3, ADD+1, ADD+7, ADD+9, ADD+10, ADD+11, INACTIVE+1, QISTAFF+2, PKGADMIN+2, END+1

Name	Line Occurrences
END	NAME+6, ADD+10
NAME	NAME+6, ADD+1, ADD+11, QISTAFF+8, PKGADMIN+11, PKGADMIN+17, TEAM+8, PCUSER+10
PCUSER	PKGADMIN+18
TEAM	QISTAFF+9, QISTAFF+11

Local Variables

Name	Field # of Occurrence
AQAOARR	START+1!
AQAOARR("AQAOZMENU"	START+1*
AQAOARR("AQAOZPKG"	PKGADMIN+1!, PKGADMIN+14*, PKGADMIN+16
>> AQAONEW	ADD+9*
>> AQAONM	NAME+7*, ADD+3, INACTIVE+2, QISTAFF+7, PKGADMIN+10
>> AQAOUSR	NAME+3, NAME+7*, ADD+1, ADD+5, ADD+10, ADD+11, INACTIVE+1, INACTIVE+6, QISTAFF+2, QISTAFF+10 , PKGADMIN+2, PKGADMIN+15, PKGADMIN+16, TEAM+6, PCUSER+9, END+1
>> DA	INACTIVE+6, QISTAFF+10, PKGADMIN+15, PKGADMIN+16, TEAM+6, PCUSER+9
DD	ADD+5!
DIC	NAME+5!, ADD+5!, TEAM+6!, PCUSER+9!
DIC("A"	NAME+5*
DIC("DR"	ADD+6*
DIC(0	NAME+5, ADD+5
DIE	INACTIVE+6, QISTAFF+10, PKGADMIN+15, PKGADMIN+16, TEAM+6!, PCUSER+9!
>> DINUM	ADD+5*
DIR	ADD+2!, INACTIVE+3!, QISTAFF+1!, PKGADMIN+1!
DIR("?"	QISTAFF+3, QISTAFF+4, QISTAFF+5, QISTAFF+6, PKGADMIN+3, PKGADMIN+4, PKGADMIN+5, PKGADMIN+6, PKGADMIN+7, PKGADMIN+8 , PKGADMIN+9*
DIR("A"	ADD+3, INACTIVE+4, QISTAFF+7, PKGADMIN+10
DIR("B"	ADD+2, INACTIVE+3, QISTAFF+2, QISTAFF+9, PKGADMIN+2
DIR(0	ADD+2, INACTIVE+3, QISTAFF+1, PKGADMIN+1
>> DIRUT	ADD+1, ADD+4, INACTIVE+5, QISTAFF+8, PKGADMIN+11
DO	ADD+5!
>> DR	INACTIVE+6, QISTAFF+10, PKGADMIN+13, PKGADMIN+14, PKGADMIN+16, TEAM+6, PCUSER+9*
>> DR(2	TEAM+7*
>> DTOUT	NAME+6
>> DUOUT	NAME+6
U	NAME+7, INACTIVE+1, QISTAFF+2, PKGADMIN+2
>> X	NAME+6, ADD+5*
>> Y	NAME+6, NAME+7, ADD+1, ADD+4, INACTIVE+5, QISTAFF+9, QISTAFF+11, PKGADMIN+13, PKGADMIN+14, PKGADMIN+17 , TEAM+8, PCUSER+10

Customize PDF page

Package: Quality Assurance

Routine: AQAOUSR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed