Routine: ORUPREF1

Package	Total	Call Graph
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIK

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORCL KEY ALLOCATION

Entry Points

Name	Comments	DBIA/ICR reference
DISP
EN	;
END
S1
K7DEL	;deletes ORKEY from person
UP	;Upper case
K2
K1
K7SET	;allocates ORKEY to person
K7	;edits holders for Kernel V7.0 in file #200
KEY	;Edit user security keys
SEL

External References

Name	Field # of Occurrence
^DIC	K7+2
FILE^DICN	K7SET+4
YN^DICN	K2, K7DEL+2
^DIK	K7DEL+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(27),"[44;37m" Line Location: EN+1
Function Call: WRITE	Prompt: !,$C(27),"["_(29+ORF)_";"_(39+ORB)_"m" Line Location: EN+6
Function Call: WRITE	Prompt: !?10,$C(27),"["_($S($D(ORBACK):40+$P(ORC(ORI),"^",2),1:30+$P(ORC(ORI),"^",2))_"m"),ORI_" ",$P(ORC(ORI),"^")_$E(" ",1,7-$L($P(ORC(ORI),"^"))) Line Location: DISP+0
Function Call: WRITE	Prompt: $C(27),"["_($S($D(ORBACK):"44;37",1:"44;37")_"m") Line Location: DISP+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Please be more specific" Line Location: SEL+1
Function Call: WRITE	Prompt: !,"Select a number for one of the choices shown" Line Location: SEL+4
Function Call: WRITE	Prompt: " ",$C(27),"["_($S($D(ORBACK):40+$P(ORC(X),"^",2),1:30+$P(ORC(X),"^",2))_"m"),$P(ORC(X),"^") Line Location: S1+0
Function Call: WRITE	Prompt: $C(27),"["_($S($D(ORBACK):"44;37",1:"44;37")_"m") Line Location: S1+1
Function Call: WRITE	Prompt: ! Line Location: KEY+2
Function Call: WRITE	Prompt: "=" Line Location: KEY+2
Function Call: WRITE	Prompt: !,ORKEY_" is not in the Security Key file" Line Location: K1+0
Function Call: WRITE	Prompt: !,ORKEY_" is not in the Security Key file" Line Location: K1+1
Function Call: WRITE	Prompt: !!,"KEY: "_ORKEY,! Line Location: K1+2
Function Call: WRITE	Prompt: !,^(I,0) Line Location: K1+2
Function Call: WRITE	Prompt: !!,"Edit Holders" Line Location: K2+0
Function Call: WRITE	Prompt: !!,"Enter YES to edit holders of this key, NO to quit." Line Location: K2+1
Function Call: WRITE	Prompt: ! Line Location: K2+3
Function Call: WRITE	Prompt: !?10,"Delete key" Line Location: K7DEL+2
Function Call: WRITE	Prompt: !?15,"Nothing changed!",! Line Location: K7DEL+3
Function Call: WRITE	Prompt: !?15,$S(DA:"DELETED!",1:"Error: ^XUSEC not consistent with keys in User file"),! Line Location: K7DEL+10
Function Call: WRITE	Prompt: !?15,$S(Y>0:"Added.",1:"Error - not added."),! Line Location: K7SET+4
Routine Call	DIC Line Location: K7+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	KEY+1
^DIC(19.1 - [#19.1]	K1, K1+1, K1+2
^VA(200 - [#200]	K7DEL+8, K7SET+2*
^XUSEC(	K7+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UP+1, K2, K2+1, K2+2, K7DEL+2*, K7DEL+3, K7DEL+4
DA	KEY+3!, K7DEL+1~, K7DEL+8*, K7DEL+9, K7DEL+10, K7SET+1~
DA(1	K7DEL+8, K7DEL+9, K7SET+3
DIC	KEY+3!, K7+1, K7DEL+1~, K7SET+1~, K7SET+3
DIC("A"	K7+1*
DIC(0	K7+1, K7SET+3
DIE	KEY+3!
DIK	K7DEL+1~, K7DEL+9*
>> DINUM	K7SET+3*
DLAYGO	KEY+3!
DR	KEY+3!
DTIME	SEL
>> I	KEY+2, K1+2
IOM	KEY+2
ORB	EN+5*, EN+6, END!
ORBACK	EN+4!, EN+5*, END!, DISP, SEL, S1, S1+1
ORC	EN+1!, END!
ORC(	DISP, SEL+4, S1
ORC("B"	EN+3*, SEL+2, SEL+3
ORC(1	EN+2*
ORC(2	EN+2*
ORC(3	EN+2*
ORC(4	EN+2*
ORC(5	EN+2*
ORC(6	EN+2*
ORC(7	EN+2*
ORC(8	EN+2*
ORDUZ	K7+2*, K7+3!, K7DEL+7, K7DEL+8, K7SET+2, K7SET+3
OREND	KEY+1, KEY+2, KEY+3!, K2, K7+2, K7DEL+2
ORF	EN+4*, EN+6, END!
ORHAVE	K7+2*, K7+3!
ORHEAD	KEY+3!
ORI	END!, DISP*
ORK	KEY+3!, K1+1*, K1+2, K7DEL+8, K7SET+3
ORKEY	KEY+2*, KEY+3!, K1, K1+1, K1+2, K7+2, K7DEL+5
ORVER	KEY+1*, KEY+3!
>> X	SEL, SEL+1, SEL+2, SEL+3, SEL+4, S1, UP+1, K7SET+3*
>> Y	EN+4, EN+5, SEL, S1, K7+2, K7SET+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORUPREF1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DISP	EN+4, EN+5
K1	KEY+2
K2	K2+1
K7	K2+3
K7DEL	K7+2, K7DEL+4
K7SET	K7+2
S1	SEL+2, SEL+3
SEL	EN+4, EN+5, SEL+1, SEL+4
UP	SEL