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

Package: Lab Service

Routine: LRLLP2


Information

LRLLP2 ;SLC/RWF - TRAY LIST PRINT ;2/5/91 14:37 ;

Source Information

Source file <LRLLP2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?42,LRACC
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: ?52,"Ver"
  • Condition for execution: LRV
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: ?63,$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.3)),"^")
  • Line Location: LP4+5
Function Call: WRITE
  • Prompt: !,?18,Y,?42,$E(LRDOC,1,18),?63," #:",LRODNUM
  • 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: !,LRLINE,$E(LRLINE,1,39)
  • Line Location: LP3+6
Function Call: WRITE
  • Prompt: ?37,$J(^(L),8)
  • Line Location: LP5+0
Function Call: WRITE
  • Prompt: !,LRLINE,$E(LRLINE,1,39)
  • Line Location: BLANK+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:""),?55,LRNOW
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,?18,"Name",?36,"ID#",?42,"Acc #",?63,"UID",!,?18,"Collection Date/Time",?42,"Provider",?63,"Order #",!,LRLINE,$E(LRLINE,1,39)
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,"Cont'd"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: ?42,LRACC
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?52,"Ver"
  • Condition for execution: LRV
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?60," #:",LRODNUM
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: ?60," #:",LRODNUM
  • Line Location: SH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,?TAB,LRSISPEC
  • Line Location: LRSPEC+1
Info |  Source |  Entry Points |  Interaction Calls