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

Package: Lab Service

Routine: LRSTUF1


Information

LRSTUF1 ;DALOI/CJS - MASS DATA ENTRY INTO FILE 63.04 ;5/13/03 1300

Source Information

Source file <LRSTUF1.m>

Entry Points

Name Comments DBIA/ICR reference
DAT
TEST
L1
L2
L3
LOOP
LREND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No way to put data in for that test."
  • Line Location: TEST+9
Function Call: WRITE
  • Prompt: !,I,?5," ",$P(^DD(63.04,I,0),"^")
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !,"1 Automatically enter your entry.",!,"2 Prompt with your entry.",!,"3 Just Prompt."
  • Line Location: L2+0
Function Call: READ
  • Formatting: !
  • Prompt: "Choice: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and 3."
  • Line Location: L2+1
Function Call: READ
  • Variable: LRSTUFF
  • Timeout: DTIME
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: !,"What do you want entered?: "
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: !," What you enter will go through the input transform to be stored in the",!," field you have specified."
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: !,"Enter the accessions you wish to edit."
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !,"Enter a string of numbers separated with , . ^ or space,",!,"or a range of numbers, e.g. 50-75. You may enter more than one line."
  • Line Location: L3+4
Function Call: READ
  • Formatting: !
  • Prompt: "Enter your selection(s) > "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !,"Enter a string of numbers separated with , . ^ or space,",!,"or a range of numbers, e.g. 50-75. You may enter more than one line."
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !,"Editing the following:"
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"Acc #: ",LRAC,?15,PNM,?45,SSN
  • Line Location: LOOP+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,"NOT APPROVED"
  • Line Location: LOOP+6
Info |  Source |  Entry Points |  Interaction Calls