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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ORUPREF1

Package: Order Entry Results Reporting

Routine: ORUPREF1


Information

ORUPREF1 ; slc/dcm - Key allocation ;12/11/91 08:12 [3/13/02 11:42am]

Source Information

Source file <ORUPREF1.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( K1+2

Local Variables

Legend:

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