Routine: XUSEHRM1

Package	Total	Call Graph
VA FileMan	4	(,LIST)^DIC (,UPDATE)^DIE ^DIK ^DIR
Kernel	3	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$SETUP1^XQALERT

Package	Total	Caller Graph
Kernel	2	XUSEHRM XUSEHRM2

Entry Points

Name	Comments	DBIA/ICR reference
1	; assign a Program Replacement Key to all users
U1(XUS)	; select users
LOOP1U	;
D1(XUS)	; select Divisions
LOOP1D	;
2	; remove a Program Replacement Key from all users
5	; set REVERSE/NEGATIVE LOCK field
6	; remove REVERSE/NEGATIVE LOCK field
YN(XUSTEXT)	; ask yes no question
SELECOP(XUSTEXT,ACTION)	; select Option in the Option file ; ACTION is "ACTION758" or "NOACTION758"
LOOP1	;
LISTDVS(XUSDVSION)	; List the chosen DIVISIONS
ASKKEY(XUSTEXT)	; select REPLACEMENT Keys
BACK	;
ASSDVS(XUSIEN4)	; set Key for user in specific one Division XUSIEN4 is the IEN in the INSTITUTION file.
ASSIGN	; assign the Program Replacement Key to all users
SETKEY(XUS,XUSKEY)	;assign a Program Replacement Key for a user
DELKEY(XUIEN,KEY)	;delete a Program Replacement Key for a user
REMDVS(XUSIEN4)	; remove Program Replacement Key for users at specific one Division
REMOVE	;remove a Program Replacement Key from all users
GETOPTION(XUSOPTN,XUCOUNT)	;
NAMESPACE	; Set Reversed Lock for NameSpaces
OPTION	;Set Reversed Lock for Options
ASKNAMESP(XUSTEXT)	; ask NameSpaces
LOOPN	;
PRINTOPTION(XUCOUNT,XUFLAG)	; list options and ask users if they want to remove any options from the list.
EXCLUDE	; remove options from the list
END	;
END1	;
SETLOCKS	; set REVERSE/NEGATIVE LOCK for options
SETLOCK(XUOPTIEN)	; set REVERSE/NEGATIVE LOCK for an option
DELOCKS	;remove REVERSE/NEGATIVE LOCK for options
DELOCK(XUOPTIEN)	; remove REVERSE/NEGATIVE LOCK for an option
SENDALERT(XUDUZ,XUKEY,STATUS,XUCN)	; send alert to user

External References

Name	Field # of Occurrence
^%ZTLOAD	1+31, 2+31, 5+16, 6+16
^DIC	LOOP1U+1, LOOP1D+1, LOOP1+1, BACK+1
LIST^DIC	GETOPTION+6
^DIE	SETLOCK+4, DELOCK+5
UPDATE^DIE	SETKEY+5
^DIK	DELKEY+1
^DIR	1+6, 1+14, 1+22, 1+25, 2+6, 2+14, 2+22, 2+25, 5+7, 6+7 , YN+2, LOOPN+2
$$FMTE^XLFDT	SENDALERT+6
$$NOW^XLFDT	SENDALERT+6
$$SETUP1^XQALERT	SENDALERT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 1+6
Function Call: WRITE	Prompt: ! Line Location: 1+12
Function Call: WRITE	Prompt: !!!,"Chosen Division(s):" Line Location: 1+18
Function Call: WRITE	Prompt: !,"-------------------" Line Location: 1+19
Function Call: WRITE	Prompt: ! Line Location: 1+21
Function Call: WRITE	Prompt: !!,"Task #: ",ZTSK,! Line Location: 1+32
Function Call: WRITE	Prompt: ! Line Location: 2+6
Function Call: WRITE	Prompt: ! Line Location: 2+12
Function Call: WRITE	Prompt: !!!,"Chosen Division(s):" Line Location: 2+18
Function Call: WRITE	Prompt: !,"-------------------" Line Location: 2+19
Function Call: WRITE	Prompt: ! Line Location: 2+21
Function Call: WRITE	Prompt: !!,"Task #: ",ZTSK,! Line Location: 2+32
Function Call: WRITE	Prompt: ! Line Location: 5+7
Function Call: WRITE	Prompt: !!,"Task #: ",ZTSK,! Line Location: 5+17
Function Call: WRITE	Prompt: ! Line Location: 6+7
Function Call: WRITE	Prompt: !!,"Task #: ",ZTSK,! Line Location: 6+17
Function Call: WRITE	Prompt: !,$P($G(^DIC(4,XUS3,0)),"^") Line Location: LISTDVS+5
Function Call: WRITE	Prompt: !!,"Invalid Program Replacement Key, it must contain <REPLACEMENT>",! Line Location: BACK+2
Function Call: WRITE	Prompt: ! Line Location: LOOPN+5
Function Call: WRITE	Prompt: !,"Option list :" Line Location: PRINTOPTION+4
Function Call: WRITE	Prompt: !,"-----------------" Line Location: PRINTOPTION+5
Function Call: WRITE	Prompt: !,XUY Line Location: PRINTOPTION+10
Function Call: WRITE	Prompt: ?40,XUY Line Location: PRINTOPTION+11
Function Call: WRITE	Prompt: !!,"There ",XUARE," ",XU3," ",XUOPTION," from the list above." Line Location: PRINTOPTION+17
Function Call: WRITE	Prompt: ! Line Location: EXCLUDE+5
Function Call: WRITE	Prompt: ! Line Location: EXCLUDE+7
Function Call: WRITE	Prompt: !,"ERROR IN ALERT: ",XQALERR Line Location: SENDALERT+9
Routine Call	DIC Line Location: LOOP1U+1 LOOP1D+1 LOOP1+1 BACK+1
Routine Call	DIC Line Location: GETOPTION+6
Routine Call	DIE Line Location: SETLOCK+4 DELOCK+5
Routine Call	DIE Line Location: SETKEY+5
Routine Call	DIR Line Location: 1+6 1+14 1+22 1+25 2+6 2+14 2+22 2+25 5+7 6+7 YN+2 LOOPN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	GETOPTION+10, PRINTOPTION+8, DELOCKS+6
^DIC(19.1 - [#19.1]	1+4, 2+4, 5+5, 6+5, REMOVE+3
^DIC(4 - [#4]	LISTDVS+5
^VA(200 - [#200]	ASSDVS+2, ASSDVS+3, ASSIGN+12, ASSIGN+13, REMDVS+2, REMOVE+15
^XUBA758(	SELECOP+3!, LOOP1+4, LOOP1+5
^XUBA758("ACTION758"	5+3!, 5+12, 6+3!, 6+12, GETOPTION+11*, ASKNAMESP+3!, PRINTOPTION+7, END+1!, SETLOCKS+2, SETLOCKS+3 , SETLOCKS+4, DELOCKS+2, DELOCKS+3, DELOCKS+4
^XUBA758("NOACTION758"	END+2!, SETLOCKS+6, DELOCKS+7
^XUBA758("NOACTON758"	PRINTOPTION+3!
^XUSEC(	ASSDVS+4, ASSDVS+6, ASSIGN+15, REMDVS+3, REMOVE+14

Label References

Name	Line Occurrences
$$ASKKEY	1+3, 2+3, 5+4, 6+4
$$ASKNAMESP	NAMESPACE+3
$$D1	1+17, 2+17
$$GETOPTION	LOOPN+4
$$PRINTOPTION	NAMESPACE+4, OPTION+3
$$SELECOP	OPTION+2, EXCLUDE+6
$$U1	1+11, 2+11
$$YN	EXCLUDE+2
ASSDVS	ASSIGN+6
BACK	BACK+2
DELKEY	REMDVS+3, REMOVE+11, REMOVE+16
DELOCK	DELOCKS+8
END	1+3, 2+3, LOOP1+2, NAMESPACE+5, OPTION+4, EXCLUDE+4, SETLOCKS+8, DELOCKS+9
EXCLUDE	NAMESPACE+6, OPTION+5
LISTDVS	1+20, 2+20
LOOP1	LOOP1+4, LOOP1+5
LOOP1D	LOOP1D+3
LOOP1U	LOOP1U+3
LOOPN	LOOPN+3, LOOPN+4
NAMESPACE	5+9, 6+9
OPTION	5+10, 6+10
REMDVS	REMOVE+8
SENDALERT	ASSIGN+16, REMOVE+17
SETKEY	ASSDVS+5, ASSIGN+9, ASSIGN+14
SETLOCK	SETLOCKS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	SELECOP~, SELECOP+3, LOOP1+4, LOOP1+5
ANS	EXCLUDE+1~, EXCLUDE+2*, EXCLUDE+3, EXCLUDE+4
DA	DELKEY+1~, SETLOCK+2, DELOCK+3*
DA(1	DELKEY+1*
DIC	U1+1~, LOOP1U+1, D1+1~, LOOP1D+1, SELECOP+2~, LOOP1+1, ASKKEY+1~, BACK+1
DIC("A"	LOOP1U+1, LOOP1D+1, LOOP1+1, BACK+1
DIC(0	LOOP1U+1, LOOP1D+1, LOOP1+1, BACK+1
DIE	SETLOCK+1~, SETLOCK+2, DELOCK+1~, DELOCK+3
DIK	DELKEY+1~*
DIR	1+1~, 1+7!, 1+13~, 1+15!, 1+22!, 1+25!, 2+1~, 2+7!, 2+13~, 2+15! , 2+22!, 2+25!, 5+1~, 6+1~, YN+1~, YN+2!, ASKNAMESP+1~, LOOPN+2!
DIR("?"	LOOPN+1*
DIR("A"	1+5, 1+14, 1+22, 1+25, 2+5, 2+14, 2+22, 2+25, 5+6, 6+6 , YN+2, LOOPN+1
DIR("B"	1+5, 1+14, 1+22, 1+25, 2+5, 2+14, 2+22, 2+25, 5+6, 6+6 , YN+2*
DIR(0	1+5, 1+14, 1+22, 1+25, 2+5, 2+14, 2+22, 2+25, 5+6, 6+6 , YN+2, LOOPN+1
DR	SETLOCK+1~, SETLOCK+3, DELOCK+1~, DELOCK+4
DUZ	1+2, 2+2, ASSIGN+3, REMOVE+5
ERR	SETKEY+1~
FDA	SETKEY+2!
FDA(	SETKEY+4*
IENS	SETKEY+1~, SETKEY+3*, SETKEY+4
KEY	DELKEY~, DELKEY+1
OUT758	GETOPTION+3!
OUT758("DILIST"	GETOPTION+7*, GETOPTION+8, GETOPTION+9
STATUS	SENDALERT~, SENDALERT+8
X	1+13~, U1+1~, LOOP1U+2, D1+1~, LOOP1D+2, 2+13~, LOOP1+2
XQA	SENDALERT+5~
XQA(	SENDALERT+7*
XQAARCH	SENDALERT+5~
XQADATA	SENDALERT+5~
XQAFLG	SENDALERT+5~
XQAGUID	SENDALERT+5~
XQAID	SENDALERT+5~
XQALERR	SENDALERT+5~, SENDALERT+9
XQAMSG	SENDALERT+5~, SENDALERT+8*
XQAOPT	SENDALERT+5~
XQAROU	SENDALERT+5~
XQASUPV	SENDALERT+5~
XQASURO	SENDALERT+5~
XQATEXT	SENDALERT+5~
XQVAR	SENDALERT+5~, SENDALERT+9*
XU2	PRINTOPTION+1~, PRINTOPTION+9*, PRINTOPTION+10
XU3	NAMESPACE+1~, OPTION+1~, PRINTOPTION+1~, PRINTOPTION+2, PRINTOPTION+10, PRINTOPTION+12*, PRINTOPTION+16, PRINTOPTION+17, PRINTOPTION+18
XUANS	1+1~, 1+6, 1+8, 1+9, 1+10, 1+16, 1+25, 2+1~, 2+6, 2+8 , 2+9, 2+10, 2+16, 2+25, 5+1~, 5+7, 5+8, 5+9, 5+10, 5+11 , 6+1~, 6+7, 6+8, 6+9, 6+10, 6+11, ASSIGN+3, ASSIGN+4, ASSIGN+7, ASSIGN+11 , ASSIGN+17!, REMOVE+5, REMOVE+6, REMOVE+9, REMOVE+13, REMOVE+18!
XUARE	PRINTOPTION+14~, PRINTOPTION+15, PRINTOPTION+16, PRINTOPTION+17
XUC1D	D1+1~, D1+2, LOOP1D+2, LOOP1D+3*, LOOP1D+4
XUC1U	U1+1~, U1+2, LOOP1U+2, LOOP1U+3*, LOOP1U+4
XUCN	ASSDVS+6, ASSIGN+1~, ASSIGN+2, ASSIGN+10, ASSIGN+15, ASSIGN+16, REMDVS+3, REMOVE+1~, REMOVE+2, REMOVE+12* , REMOVE+16*, REMOVE+17, SENDALERT~, SENDALERT+8
XUCOUNT	6+1~, SELECOP+2~, SELECOP+4, LOOP1+5, LOOP1+6, GETOPTION~, GETOPTION+11, GETOPTION+12, NAMESPACE+1~, NAMESPACE+2 , NAMESPACE+3, NAMESPACE+4, OPTION+1~, OPTION+2, OPTION+3, ASKNAMESP+1~, ASKNAMESP+2, LOOPN+4, LOOPN+6, PRINTOPTION~ , PRINTOPTION+6
XUDATE	SENDALERT+6~*, SENDALERT+8
XUDUZ	1+1~, 2+1~, ASSIGN+3, ASSIGN+16, ASSIGN+17!, REMOVE+5, REMOVE+17, REMOVE+18!, SENDALERT~, SENDALERT+7
XUEXIT	1+1~, 1+2, 1+11, 1+15, 1+17, 1+23, 1+25, 1+26, 2+1~, 2+2* , 2+11, 2+15, 2+17, 2+23, 2+25*, 2+27
XUFLAG	5+1~, 5+2, 6+1~, 6+2, NAMESPACE+4, OPTION+3, PRINTOPTION~, PRINTOPTION+8
XUI	ASSIGN+1~, ASSIGN+6, ASSIGN+9, REMOVE+1~, REMOVE+8, REMOVE+11, PRINTOPTION+1~, PRINTOPTION+6, PRINTOPTION+7, SETLOCKS+2 , SETLOCKS+3, SETLOCKS+4, DELOCKS+2, DELOCKS+3*, DELOCKS+4
XUIEN	ASSIGN+1~, ASSIGN+9, DELKEY~, DELKEY+1, REMOVE+1~, REMOVE+11
XUKEY	SENDALERT~, SENDALERT+8
XUN	EXCLUDE+1~, EXCLUDE+6*
XUNEXT	ASKNAMESP+1~, LOOPN+1, LOOPN+3, LOOPN+4
>> XUOPNAME	GETOPTION+9*, GETOPTION+10, GETOPTION+11
XUOPTIEN	GETOPTION+1~, GETOPTION+2, GETOPTION+8, GETOPTION+9, SETLOCKS+1~, SETLOCKS+4, SETLOCKS+5, SETLOCKS+6, SETLOCKS+7, SETLOCK~ , SETLOCK+2, DELOCKS+1~, DELOCKS+4, DELOCKS+5, DELOCKS+6, DELOCKS+7, DELOCKS+8, DELOCK~, DELOCK+3
XUOPTIEN1	GETOPTION+1~, GETOPTION+10*, GETOPTION+11
XUOPTION	PRINTOPTION+14~, PRINTOPTION+15, PRINTOPTION+16, PRINTOPTION+17
XUS	U1~, D1~, LISTDVS+1~, LISTDVS+2, LISTDVS+4, ASSDVS+1~, ASSDVS+2, ASSDVS+3, ASSDVS+4, ASSDVS+5 , ASSDVS+6, ASSIGN+1~, ASSIGN+2, ASSIGN+12, ASSIGN+13, ASSIGN+14, ASSIGN+15, SETKEY~, SETKEY+3, REMDVS+1~ , REMDVS+2, REMDVS+3, REMOVE+1~, REMOVE+2, REMOVE+14*, REMOVE+15, REMOVE+16
XUS1	LISTDVS+1~, LISTDVS+3*, LISTDVS+5
XUS2	LISTDVS+1~, LISTDVS+4*, LISTDVS+5
XUS3	LISTDVS+1~, LISTDVS+5, NAMESPACE+4, NAMESPACE+5, OPTION+3*, OPTION+4
XUSASK	1+1~, 2+1~
>> XUSC1	ASSIGN+8, ASSIGN+9, ASSIGN+10, REMOVE+10, REMOVE+11, REMOVE+12
>> XUSC2	ASSIGN+8, ASSIGN+9, REMOVE+10, REMOVE+11
XUSD1	ASSIGN+1~, ASSIGN+5, ASSIGN+6, REMOVE+1~, REMOVE+7, REMOVE+8
XUSD2	ASSIGN+1~, ASSIGN+5, ASSIGN+6, REMOVE+1~, REMOVE+7, REMOVE+8
>> XUSDUZ	1+2, 2+2
XUSDVSION	1+1~, 1+2, 1+17, 1+20, 2+1~, 2+2, 2+17, 2+20, LISTDVS~, LISTDVS+2 , LISTDVS+3, ASSIGN+3, ASSIGN+5, REMOVE+5, REMOVE+7
XUSECOND	SETLOCKS+1~, SETLOCKS+2, SETLOCKS+3, SETLOCKS+4, SETLOCKS+6, DELOCKS+1~, DELOCKS+2, DELOCKS+3, DELOCKS+4, DELOCKS+7
XUSER	1+1~, 1+2, 1+11, 2+1~, 2+2, 2+11, ASSIGN+3, ASSIGN+8, ASSIGN+17!, REMOVE+5 , REMOVE+10, REMOVE+18!
XUSER1D	D1+1~, D1+2, LOOP1D+3, LOOP1D+4
XUSER1U	U1+1~, U1+2, LOOP1U+3, LOOP1U+4
XUSIEN4	ASSDVS~, ASSDVS+2, ASSIGN+1~, ASSIGN+6, REMDVS~, REMDVS+2, REMOVE+1~, REMOVE+8
XUSKEY	1+1~, 1+2, 1+3, 1+4, 1+14, 1+22, 1+25, 2+1~, 2+2, 2+3* , 2+4, 2+14, 2+22, 2+25, 5+1~, 5+4, 5+5, 6+1~, 6+4*, 6+5 , ASSDVS+4, ASSDVS+5, ASSDVS+6, ASSIGN+9, ASSIGN+14, ASSIGN+15, ASSIGN+16, ASSIGN+17!, SETKEY~, SETKEY+4 , REMDVS+3, REMOVE+3, REMOVE+14, REMOVE+17, REMOVE+18!
XUSKEY1	REMDVS+3, REMOVE+1~, REMOVE+3*, REMOVE+4, REMOVE+11, REMOVE+16
XUSKEYN	5+1~, 5+5, 6+1~, 6+5, SETKEY+1~, PRINTOPTION+8, DELOCKS+6, DELOCK+1~, DELOCK+2*
XUSOPTN	5+1~, 6+1~, GETOPTION~, GETOPTION+4*, GETOPTION+6, GETOPTION+7
XUSTEXT	YN~, YN+2, SELECOP~, LOOP1+1, ASKKEY~, BACK+1, ASKNAMESP~, LOOPN+1
XUTEXT	U1+1~, U1+2, LOOP1U+1, LOOP1U+3, D1+1~, D1+2, LOOP1D+1, LOOP1D+3
XUY	PRINTOPTION+1~, PRINTOPTION+2, PRINTOPTION+7, PRINTOPTION+10, PRINTOPTION+11
>> XUY1	PRINTOPTION+7*, PRINTOPTION+8
XUZ	PRINTOPTION+1~, PRINTOPTION+2, PRINTOPTION+9
Y	1+6, 1+13~, 1+15, 1+23, 1+25, U1+1~, LOOP1U+2, LOOP1U+3, D1+1~, LOOP1D+2 , LOOP1D+3, 2+6, 2+13~, 2+15, 2+23, 2+25, 5+7, 6+7, YN+1~, YN+3 , SELECOP+2~, LOOP1+2, LOOP1+3, LOOP1+4, LOOP1+5, ASKKEY+1~, BACK+1, BACK+2, BACK+3, ASKNAMESP+1~ , LOOPN+3, LOOPN+4
>> ZTDESC	1+30, 2+30, 5+15, 6+15
>> ZTIO	1+28, 2+28, 5+13, 6+13
>> ZTRTN	1+28, 2+28, 5+13, 6+13
>> ZTSAVE("XUANS"	1+29, 2+29
>> ZTSAVE("XUDUZ"	1+29, 2+29
>> ZTSAVE("XUFLAG"	5+14, 6+14
>> ZTSAVE("XUSDVSION"	1+29, 2+29
>> ZTSAVE("XUSER"	1+29, 2+29
>> ZTSAVE("XUSKEY"	1+29, 2+29
>> ZTSAVE("XUSKEYN"	5+14, 6+14
>> ZTSAVE("^XUBA758"	5+14, 6+14
ZTSK	1+1~, 1+32, 2+1~, 2+32, 5+1~, 5+17, 6+1~, 6+17

Customize PDF page

Package: Kernel

Routine: XUSEHRM1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: