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 ;Jan 08, 2021@11:59:33

Source Information

Source file <ORUPREF1.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Electronic Health Modernization 2 EHM-00088  EHM-00511  
Kernel 1 ^DIC(19  
Order Entry Results Reporting 1 ORCL KEY ALLOCATION  

Entry Points

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

External References

Name Field # of Occurrence
^DIC K7+3
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
  • Variable: X
  • Timeout: DTIME
  • 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+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: KEY+3
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+3

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DISP EN+4, EN+5
K1 KEY+3
K2 K2+1
K7 K2+3
K7DEL K7+3, K7DEL+4
K7SET K7+3
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*, K1~, K2*, K2+1, K2+2, K7DEL+2*, K7DEL+3, K7DEL+4
DA KEY+4!, K7DEL+1~, K7DEL+8*, K7DEL+9, K7DEL+10, K7SET+1~
DA(1 K7DEL+8*, K7DEL+9, K7SET+3*
DIC KEY+4!, K7+1~, K7+2*, K7SET+1~, K7SET+3*
DIC("A" K7+2*
DIC(0 K7+2*, K7SET+3*
DIE KEY+4!
DIK K7DEL+1~, K7DEL+9*
DINUM K7SET+1~, K7SET+3*
DLAYGO KEY+4!
DR KEY+4!
DTIME SEL
I KEY+1~, KEY+3*, K1+2*
IOM KEY+3
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+3*, K7+4!, K7DEL+7, K7DEL+8, K7SET+2, K7SET+3
OREND KEY+2*, KEY+3, KEY+4*!, K2*, K7+3, K7DEL+2*
ORF EN+4*, EN+6, END!
ORHAVE K7+3*, K7+4!
ORHEAD KEY+4!
ORI END!, DISP*
ORK KEY+4!, K1+1*, K1+2, K7DEL+8, K7SET+3
ORKEY KEY+3*, KEY+4!, K1, K1+1, K1+2, K7+3, K7DEL+5
ORVER KEY+2*, KEY+4!
X SEL*, SEL+1, SEL+2*, SEL+3*, SEL+4, S1, UP+1*, K7SET+1~, K7SET+3*
Y EN+4, EN+5, SEL*, S1*, K7+1~, K7+3, 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