Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AQAOUSR

Package: Quality Assurance

Routine: AQAOUSR


Information

AQAOUSR ; IHS/ORDC/LJF - ENTER/EDIT QI USER ;

Source Information

Source file <AQAOUSR.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Quality Assurance 2 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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All