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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBLTX

Package: Lab Service

Routine: LRBLTX


Information

LRBLTX ;AVAMC/REG - TESTS FOR TX RELATED DISORDERS ; 2/17/88 20:59 ;

Source Information

Source file <LRBLTX.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
L
Z
R
D
E
C
T
B
G
SET
H
A
W
END
K
F
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",!
  • 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: " Specimen: ",LRT(2)," Value: ",LRT(3),!,$P(L(L,O),"^",4),"// "
  • 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: !
  • 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: F+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69.2 - [#69.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call