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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LROW1

Package: Lab Service

Routine: LROW1


Information

LROW1 ;SLC/CJS - TEST & SAMP ;8/11/97

Source Information

Source file <LROW1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 $$VER^LR7OU1  NEW^LRORD2A  EN1^LRORDD  ^LROW1A  
VA FileMan 3 (,IX)^DIC  YN^DICN  EN^DIQ  

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

Package Total Caller Graph
Lab Service 6 LRFAST  LROE1  LROW  LROW1A  LROW3  LRSLOW  

Entry Points

Name Comments DBIA/ICR reference
L2
NOASK ;from LROR
L3 ;
W12
W18
W18A
MAX ;
W18B

External References

Name Field # of Occurrence
^DIC L2+2, NOASK+2, W12W18A
IX^DIC W18A
YN^DICN L3+11
EN^DIQ W18B+9
$$VER^LR7OU1 L3+2
NEW^LRORD2A MAX+1
EN1^LRORDD MAX+3
^LROW1A W18B+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " no '^' allowed"
  • Line Location: NOASK+2
Function Call: WRITE
  • Prompt: !,"For "_$P(^LAB(60,+LRTEST(LRTSTN),0),"^")_" "
  • Line Location: L3+5
Function Call: WRITE
  • Prompt: !,"Correct sample"
  • Line Location: L3+11
Function Call: WRITE
  • Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),U)," ",$P(^(0),U,3)
  • Line Location: L3+14
Function Call: READ
  • Formatting: !
  • Prompt: "Choose one: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: L3+15
Function Call: WRITE
  • Prompt: " ",$P(^LAB(62,LRCS(LRCSN),0),U)
  • Line Location: L3+15
Function Call: WRITE
  • Prompt: !,"Unknown is not allowed."
  • Line Location: W18+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select SITE/SPECIMEN: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: W18A+0
Function Call: WRITE
  • Prompt: !,"Unknown is not allowed."
  • Line Location: W18A+1
Function Call: WRITE
  • Prompt: !!,$C(7),"<<DUPLICATE TEST NOT ALLOWED>>",!?5,$P(^LAB(60,+LRTEST(LRTSTN),0),"^")_" has already been requested on this order.",!!
  • Line Location: W18B+7
Function Call: WRITE
  • Prompt: !," ",DIC,^(DR,0)
  • Line Location: W18B+9
Routine Call
  • DIC
  • Line Location:
    • L2+2
    • NOASK+2
    • W12
    • W18A
Routine Call
  • DIC
  • Line Location:
    • W18A

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAB(61 - [#61] Classic Fileman Calls
^LAB(62 - [#62] Classic Fileman Calls
^LAB(62.05 - [#62.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] NOASK+1, L3+5, L3+6, L3+7, L3+12, MAX+1, MAX+2, W18B+1, W18B+2, W18B+7
W18B+9
^LAB(62 - [#62] L3+7, L3+14, L3+15, W18
^LAB(69.9 - [#69.9] L3+1
^LRO(69 - [#69] W18B+4, W18B+5, W18B+6

Label References

Name Line Occurrences
L2 W12W18AMAX+1, MAX+3, W18B+8
L3 NOASK+1
W12 L3+7, L3+13, W12+1, W18
W18 L3+6, L3+9, L3+11, L3+15, W18A+1, W18A+2
W18A W18A
W18B L3+10

Naked Globals

Name Field # of Occurrence
^( W18B+6, W18B+9
^(0 NOASK+1, L3+7, L3+12, L3+14, W18B+6
^(3 L3+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L3+11*, MAX+1, MAX+3
>> D W18A*
>> DA W18B+9*
DIC LROW1+2!, L2+1*, NOASK+2!*, L3+4!, W12*, W18A*!, W18B+9*
DIC("B" NOASK+2*
DIC("S" L2+1*, NOASK+2*
DIC(0 L2+1*, NOASK+2*, W12*, W18A*
>> DIROUT L2+2*
>> DR W18B+9*
DTIME L3+15, W18A
DTOUT W12!, W18A!
DUOUT W12!, W18A!
GOT W18B+3~, W18B+4*, W18B+5, W18B+7*, W18B+8
H NOASK+1*, NOASK+2, L3+4!
I NOASK+2*, L3+14*, W18B*, W18B+3~, W18B+6*
>> J L3+7*, L3+12*
>> LRADDTST L2+2*, W18B+3, W18B+4, W18B+5, W18B+8
LRCCOM LROW1+2!
>> LRCOM LROW1+2*
LRCS L3+4!, W18B+2!
LRCS( L3+7, L3+12*, L3+14, L3+15, W18MAX+1, MAX+2, W18B+1, W18B+2*
LRCS(1 L3+6*, L3+7*, W12+1*
>> LRCSN L3+3*, L3+6*, L3+7*, L3+11, L3+12*, L3+13, L3+14, L3+15*, W12+1*, W18
MAX+1, MAX+2, W18B+1, W18B+2*
>> LRCSP W18B+1*, W18B+2*, W18B+9
LRCSX L3+4!
LRCSX( L3+6*, L3+7*, L3+12*
>> LRDAX MAX+1
LRGCOM LROW1+2!
>> LRLABKY W18W18A+1, W18B+9
>> LRLWC L2+1, NOASK+2, L3+6
LRMAX1 MAX+1*, MAX+2*, MAX+3!
>> LRMAX2 MAX+1*, MAX+2, MAX+3
LRNEDC L2!, W12*
>> LRNN L2
LRODT W18B+4~*, W18B+5, W18B+6
>> LRORIFN L3+2
LROUT L2!
>> LROUTINE NOASK+2, NOASK+3
LRSAME LROW1+2!, L3+3, L3+8, L3+10, W18B+1, W18B+2
LRSAMP LROW1+2!, L3+3*, W18B+1*, W18B+2*, W18B+6
LRSAMP( W18B+1*, W18B+2*
LRSN W18B+4~, W18B+5*, W18B+6
>> LRSPEC L3+3*, W18*, W18AW18A+2*, MAX+2, MAX+3, W18B
LRTEST LROW1+2!
LRTEST( NOASK+1*, L3+1*, L3+2*, L3+5, L3+6, L3+7, L3+12, MAX+3!, W18B+1, W18B+2
W18B+6, W18B+7!, W18B+9
>> LRTSTN LROW1+2*, NOASK+1*, L3+1, L3+2, L3+5, L3+6, L3+7, L3+12, W12*, W18A*
MAX+1*, MAX+3*, W18B+1, W18B+2, W18B+6, W18B+7*, W18B+9
>> LRTY L2+2*, NOASK+1, MAX+1, MAX+2, MAX+3, W18B
>> LRUNKNOW W18W18A+1
>> LRUNQ L3+7*, L3+8, L3+9
LRURG L2!, NOASK+1
LRXST LROW1+2!
>> LRY NOASK+1*, NOASK+2*, NOASK+3*, L3+1*
>> T( W18B
>> TT( MAX+2, MAX+3
U NOASK+1, L3+1, L3+3, L3+6, L3+7, L3+14, L3+15, W18MAX+1, MAX+2
W18B+2
>> X L2+2, L3+7*, L3+8, L3+15*, W18A*
>> X1 L3+7*, L3+8
>> Y L2+2, NOASK+2, W12+1, W18*, W18A+1, W18A+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All