Routine: ACRFACC

Package	Total	Call Graph
Commitment Register	2	(@(,DIC,DIE,DIK,DIR,FILE)^ACRFDIC (PAUSE,WARNING)^ACRFWARN

Package	Total	Caller Graph
Commitment Register	3	ACRFAU ACRFMENU ACRFNEWF

Entry Points

Name	Comments	DBIA/ICR reference
KILLSEC	;EP;DELETES USER AS HOLDER OF THE SECURITY KEY
ACCLVL	;SELECTS ACCESS LEVEL
BPA	;EP;TO ASSIGN MULTIPLE BPA'S TO A USER
EN	;EP;FOR MULTIPLE USER SETUP
BPAH	;HEADER FOR BPA LISTING
SETSEC	; ASSIGN XUSR THIS SECURITY KEY
OLDLVL	;DISPLAYS EXISTING ACCESS LEVEL AND QUERIES TO CHANGE ACCESS LEVEL
ACCESS	;EP;TO SET ACCESS LEVEL
EN1
EN2	;EP;FOR SINGLE USER SETUP, USER MUST BE DEFINED PER:
EN11	;EP;
EXIT
SETKILL	;EP;
SET	;EP;TO KILL OLD ACCESS LEVEL AND DELETE USER AS HOLDER OF SECURITY KEYS
BPA1	;ADD USER AS CALLER TO A BPA
DISPLAY	;DISPLAYS ESTABLISHED ACCESS LEVELS
DELETE	;EP;TO DELETE USERS ACCESS TO ARMS INCLUDING ACCESS LEVEL, SECURITY

External References

Name	Field # of Occurrence
@(^ACRFDIC	ACCESS+7
DIC^ACRFDIC	EN11+7
DIE^ACRFDIC	DELETE+20, DELETE+38
DIK^ACRFDIC	KILLSEC+8, DELETE+30, DELETE+44, DELETE+50, DELETE+58, DELETE+67
DIR^ACRFDIC	ACCLVL+10, OLDLVL+14, DELETE+15, BPA+28
FILE^ACRFDIC	SETSEC+8, DELETE+7, BPA1+6
PAUSE^ACRFWARN	DELETE+69, BPA+18, BPA+23
WARNING^ACRFWARN	DELETE+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+0
Function Call: WRITE	Prompt: !?22,"ESTABLISH USER ACCESS LEVEL" Line Location: EN11+1
Function Call: WRITE	Prompt: !?22,"===========================" Line Location: EN11+2
Function Call: WRITE	Prompt: ! Line Location: EN11+3
Function Call: WRITE	Prompt: !!?5,ACRUSER," has been assigned " Line Location: EN2+5
Function Call: WRITE	Prompt: $S($D(ACRLVL):ACRLVL,1:"NO")," access to ARMS." Line Location: EN2+6
Function Call: WRITE	Prompt: !!?10,"CODE" Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?16,"LEVEL" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?26,"LEVEL NAME" Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !?10,"----" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: ?16,"--------" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: ?26,"------------------------------" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: ! Line Location: ACCLVL+9
Function Call: WRITE	Prompt: !!?5,ACRUSER," has ",ACRLVL," access" Line Location: OLDLVL+5
Function Call: WRITE	Prompt: !!,"The following procedure will delete all access this users has to ARMS." Line Location: DELETE+10
Function Call: WRITE	Prompt: ! Line Location: DELETE+14
Function Call: WRITE	Prompt: !!,"ARMS related SECURITY KEYS being withdrawn." Line Location: DELETE+23
Function Call: WRITE	Prompt: !,"ARMS APPROVAL AUTHORITIES being deleted." Line Location: DELETE+25
Function Call: WRITE	Prompt: !,"Authority to sign as an ALTERNATE for someone else being deleted." Line Location: DELETE+31
Function Call: WRITE	Prompt: !,"ARMS ACCESS LEVEL being deleted." Line Location: DELETE+39
Function Call: WRITE	Prompt: !,"ARMS DEPARTMENT ACCOUNT access being deleted." Line Location: DELETE+46
Function Call: WRITE	Prompt: !!,"Withdrawal of ALL ARMS access has been completed." Line Location: DELETE+68
Function Call: WRITE	Prompt: ! Line Location: BPA+27
Function Call: WRITE	Prompt: @IOF Line Location: BPAH+1
Function Call: WRITE	Prompt: !,"ACTIVE BLANKET PURCHASE AGREEMENTS" Line Location: BPAH+2
Function Call: WRITE	Prompt: !,"NO." Line Location: BPAH+3
Function Call: WRITE	Prompt: ?5,"REQUISITION NO." Line Location: BPAH+4
Function Call: WRITE	Prompt: ?23,"PO NUMBER" Line Location: BPAH+5
Function Call: WRITE	Prompt: ?37,"VENDOR/CONTRACTOR" Line Location: BPAH+6
Function Call: WRITE	Prompt: !,"---" Line Location: BPAH+7
Function Call: WRITE	Prompt: ?5,"---------------" Line Location: BPAH+8
Function Call: WRITE	Prompt: ?23,"------------" Line Location: BPAH+9
Function Call: WRITE	Prompt: ?37,"-----------------------------" Line Location: BPAH+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^ACRUAL - [#9002185.6]	Classic Fileman Calls
^ACRAPL - [#9002190.55]	Classic Fileman Calls
^ACRPA - [#9002199]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRACC - [#9002185.5]	DISPLAY+11, OLDLVL+4, OLDLVL+10, SETKILL+5
^ACRACC("C"	DISPLAY+8, DISPLAY+10, ACCLVL+15
^ACRAPL - [#9002190.55]	DELETE+36
^ACRAPL("B"	DELETE+27
^ACRAPL("SEC"	DELETE+33
^ACRDOC - [#9002196]	DELETE+61, DELETE+63, BPA+4, BPA+5, BPA+6, BPA+10
^ACRDOC("T"	BPA+3
^ACRLOCB("SEC"	DELETE+52, DELETE+54
^ACRPA("B"	DELETE+47, DELETE+48
^ACRPO(1	DELETE+2*
^ACRUAL - [#9002185.6]	ACCLVL+2, OLDLVL+3
^ACRUAL("B"	DELETE+41
^ACRUAL("LVL"	ACCLVL+1, ACCLVL+2, ACCLVL+7, ACCESS+1, ACCESS+8!, ACCESS+9, ACCESS+10, OLDLVL+1, OLDLVL+2!, OLDLVL+3! , OLDLVL+6, OLDLVL+9, OLDLVL+16!, DELETE+45!
^AUTTVNDR - [#9999999.11]	BPA+11
^DIC(19.1 - [#19.1]	KILLSEC+4, KILLSEC+9!
^VA(200 - [#200]	SETSEC+6, KILLSEC+3, KILLSEC+4

Label References

Name	Line Occurrences
ACCESS	ACCLVL+4
ACCLVL	EN2+4
BPA1	BPA+31
BPAH	BPA+8, BPA+19
DISPLAY	EN2+3
EN1	EN+1
EXIT	EN2+8
KILLSEC	SETKILL+7
OLDLVL	ACCLVL+1
SET	ACCLVL+16, OLDLVL+18
SETKILL	SET+2, DELETE+24
SETSEC	SETKILL+6

Naked Globals

Name	Field # of Occurrence
^(15	BPA+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!, DISPLAY+7, DISPLAY+8, DISPLAY+10
>> ACRAAUD	DELETE+8*, DELETE+17
ACRACC	EXIT!, DISPLAY+11*, DISPLAY+12, DISPLAY+13, DISPLAY+14
ACRD	ACCESS+3*, ACCESS+7, ACCESS+11!
>> ACRDA	DISPLAY+9, DISPLAY+10, DISPLAY+11, DELETE+26, DELETE+27, DELETE+28, DELETE+32, DELETE+33, DELETE+34, DELETE+40* , DELETE+41, DELETE+42, DELETE+53, DELETE+54, DELETE+56, DELETE+62, DELETE+63*, DELETE+65
>> ACRDA(1	DELETE+51, DELETE+52, DELETE+54, DELETE+55, DELETE+60, DELETE+61, DELETE+63, DELETE+64
ACRDEPT	EXIT!
ACRDOC0	BPA+1~, BPA+6*, BPA+14, BPA+15
ACRDOCDA	BPA+1~, BPA+2, BPA+3, BPA+4, BPA+5, BPA+6, BPA+9, BPA+10, BPA1+2*
>> ACRDUZ	EN11+9*, ACCLVL+1, ACCLVL+2, ACCESS+1, ACCESS+2, ACCESS+8, ACCESS+9, ACCESS+10, OLDLVL+1, OLDLVL+2 , OLDLVL+3, OLDLVL+6, OLDLVL+9, OLDLVL+16, SETSEC+2, KILLSEC+3, KILLSEC+4, KILLSEC+5, KILLSEC+7, KILLSEC+9 , DELETE+19, DELETE+27, DELETE+33, DELETE+36, DELETE+41, DELETE+45, DELETE+47, DELETE+48, DELETE+52, DELETE+54 , DELETE+61, DELETE+63, BPA1+3
ACRI	EXIT!, SETSEC+1, KILLSEC+1~, KILLSEC+2, KILLSEC+3, KILLSEC+4, KILLSEC+6, KILLSEC+9, SETKILL+4, SETKILL+5
ACRII	EXIT!
ACRJ	EXIT!, ACCLVL+13, BPA+1~, BPA+7, BPA+8, BPA+9, BPA+13, BPA+21, BPA+25, BPA+31*
ACRJ(	BPA+9*, BPA1+1, BPA1+2
ACRLVL	EXIT!, EN2+6, ACCLVL+14, ACCLVL+15, ACCESS+1, OLDLVL+4*, OLDLVL+5, SETKILL+1, SETKILL+2
ACRLVLDA	EXIT!, ACCLVL+1, ACCLVL+15, ACCLVL+16, ACCESS+6, ACCESS+9, ACCESS+10, ACCESS+11!, OLDLVL+1, OLDLVL+2! , OLDLVL+3!, OLDLVL+4, OLDLVL+6, OLDLVL+8, OLDLVL+19!, SETKILL+5, DELETE+22*
ACRNWLVL	EXIT!, ACCLVL+3, ACCLVL+5!, ACCESS+3, ACCESS+8, ACCESS+11!, OLDLVL+17, OLDLVL+19!, SETKILL+1, SETKILL+6 , SETKILL+7, DELETE+21*
>> ACROUT	EN+1, BPA+3, BPA+20
ACRQUIT	EN+1, EXIT!, EN11+8*, OLDLVL+15!, BPA+3, BPA+24!, BPA+29
ACRTXDA	EXIT!
>> ACRUSER	EN11+10, EN11+11, EN2+5, OLDLVL+5, OLDLVL+10
ACRVDA	BPA+1~, BPA+10, BPA+11, BPA+12*, BPA+16
ACRX	ACCLVL+12, ACCLVL+13, BPA+1~, BPA+31, BPA1+1, BPA1+2
>> ACRXREF	DELETE+59*, DELETE+61, DELETE+63
ACRY	EXIT!, BPA+1~
ACRYY	BPA+1~, BPA+30*, BPA+31
ACRZ	EXIT!, ACCLVL+13*, ACCLVL+14
>> DA	ACCESS+2, KILLSEC+6, DELETE+17, DELETE+28, DELETE+34, DELETE+36, DELETE+42, DELETE+48, DELETE+50, DELETE+56 , DELETE+65*
>> DA(1	SETSEC+2, SETSEC+3, SETSEC+6, KILLSEC+5, DELETE+6, DELETE+55, DELETE+57, DELETE+64, DELETE+66, BPA1+2 , BPA1+4
>> DIC	EN11+4, ACCESS+4, SETSEC+3, SETSEC+7, DELETE+4, BPA1+4*
>> DIC("A"	EN11+6*
>> DIC("DR"	ACCESS+6, SETSEC+5, DELETE+6*
>> DIC(0	EN11+5, ACCESS+5, SETSEC+4, DELETE+5, BPA1+5*
>> DIE	DELETE+18, DELETE+35
>> DIK	ACCESS+4, KILLSEC+7, DELETE+29, DELETE+43, DELETE+49, DELETE+57, DELETE+66*
DINUM	EXIT!, ACCESS+2, SETSEC+1
>> DIR("A"	ACCLVL+8, OLDLVL+13, DELETE+12, BPA+26
>> DIR("B"	OLDLVL+12, DELETE+13
>> DIR(0	ACCLVL+6, ACCLVL+7, OLDLVL+11, DELETE+11, BPA+25*
DR	ACCESS+11!, OLDLVL+19!, SETKILL+3!, DELETE+19, DELETE+37
DT	SETSEC+5, BPA+5
DUZ	ACCLVL+7, DELETE+3
IOF	EN1, BPAH+1
IOSL	BPA+17
U	DISPLAY+12, DISPLAY+13, DISPLAY+14, OLDLVL+4, OLDLVL+10, DELETE+36, BPA+4, BPA+5, BPA+10, BPA+11 , BPA+14, BPA+15
X	ACCESS+2, OLDLVL+7~, OLDLVL+8, OLDLVL+9, OLDLVL+10, SETSEC+1, SETSEC+6, DELETE+3, DELETE+36, DELETE+37 , BPA1+3*
>> Y	EN11+8, EN11+9, ACCLVL+11, ACCLVL+12, OLDLVL+15, DELETE+8, DELETE+16, BPA+29, BPA+30
>> Y(0	EN11+10

Customize PDF page

Package: Commitment Register

Routine: ACRFACC

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: