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

Package: Lab Service

Routine: LRLLP5


Information

LRLLP5 ;SLC/RWA/MILW/JMC- EXPANDED TRAY LIST PRINT ;2/5/91 14:39 ;

Source Information

Source file <LRLLP5.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP
CUP
LP2
LRLINE
LP4
LP3 ;
LP5
BLANK
HED ;
SH
TERM
END
LRSPEC ;
LEDI ; print UID and LEDI information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?64,LRACC
  • Line Location: LP4+6
Function Call: WRITE
  • Prompt: ?76,"Ver"
  • Condition for execution: LRV
  • Line Location: LP4+6
Function Call: WRITE
  • Prompt: ?86,$E(LRDOC,1,20)
  • Line Location: LP4+6
Function Call: WRITE
  • Prompt: ?86,$E(LRDOC,1,20)
  • Line Location: LP4+6
Function Call: WRITE
  • Prompt: !,?18,$E(LRLINE,1,31)
  • Line Location: LP3+1
Function Call: WRITE
  • Prompt: ?56,LRLLOC
  • Condition for execution: LRLLOC]""
  • Line Location: LP3+1
Function Call: WRITE
  • Prompt: !,?18,$P(^LAB(60,I,0),"^",1),?50,LRSPEC
  • Line Location: LP3+1
Function Call: WRITE
  • Prompt: !?18,$E(LRLINE,1,31),?56,LRSPEC
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: !?18
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $X>19
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: $P(^LAB(60,I,0),"^",1)
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: !?18
  • Line Location: LP3+3
Function Call: WRITE
  • Prompt: ?37,$J(^(L),8)
  • Line Location: LP5+0
Function Call: WRITE
  • Prompt: !!,$S(LRTYPE>0:"LOAD",1:"WORK"),"-LIST FOR ",$P(^LRO(68.2,LRINST,0),U,1),$S($D(^LRO(68.2,LRINST,10,LRPROF,0)):" (Profile: "_$P(^(0),U,1)_")",1:""),?112,LRNOW
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,?18,"Name",?50,"ID#",?64,"Acc #",?86,"Requested By",?110,"Coll. Date/Time"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,"Cont'd"
  • Line Location: HED+8
Function Call: WRITE
  • Prompt: ?64,LRACC
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?76,"Ver"
  • Condition for execution: LRV
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?86,$E(LRDOC,1,20)
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?86,$E(LRDOC,1,20)
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,?TAB,LRSISPEC
  • Line Location: LRSPEC+1
Function Call: WRITE
  • Prompt: !,?64,"UID: ",$P(LRUIDX,"^")
  • Line Location: LEDI+1
Function Call: WRITE
  • Prompt: ?86,"Ordering Site: "_$E(Y,1,20),!
  • Line Location: LEDI+2
Function Call: WRITE
  • Prompt: ?86,"Ordering Site UID: "_X,!
  • Line Location: LEDI+3
Function Call: WRITE
  • Prompt: ?86,"Collecting Site: "_$E(Y,1,20),!
  • Line Location: LEDI+4
Function Call: WRITE
  • Prompt: ?86,"Host UID: "_X
  • Line Location: LEDI+5
Info |  Source |  Entry Points |  Interaction Calls