Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls