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: LRUMDU

Package: Lab Service

Routine: LRUMDU


Information

LRUMDU ;AVAMC/REG - MD SELECTED TEST UTILITY ;1/21/94 08:17 ;

Source Information

Source file <LRUMDU.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
L
Z
R
D
E
C
P
QUE
N
T
B
G
H
A
W
END
K
F
F1
I
HDR
OUT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"(E)nter/edit a test (D)elete a test list (R)emove all test lists",!,"(P)rint test lists",!
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?6,"Test order#:",?21,1,?29,2,?37,3,?45,4,?53,5,?61,6,?69,7
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,"-----------------|-------|-------|-------|-------|-------|-------|-------|"
  • Line Location: Z+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select list number to delete: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D+0
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the test list number",!
  • Line Location: D+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: E+0
Function Call: WRITE
  • Prompt: " ",N(L,O),"// "
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !?3,"SURE YOU WANT TO DELETE ? "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !,"You have no test lists. Instead of creating your own",!,"would you prefer to copy another user's lists "
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: G
  • Line Location: A+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!?3,"Enter test list number (1-99) then a ',' then test order number (1-7)",!,"[Entering 2,3 would put the test selected in test list 2 and test order 3]",!
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: F+0
Function Call: WRITE
  • Prompt: ?10+(B*8),N(A,B),$E(" ",1,7-$L(N(A,B))),"|"
  • Line Location: F1+1
Function Call: WRITE
  • Prompt: $C(7),!,$P(Y,"^",2)," has no test lists."
  • Line Location: I+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"Test list for ",$P(^VA(200,DUZ,0),U),!,LR("%")
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls