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

Package: Lab Service

Routine: LRPHLIS1


Information

LRPHLIS1 ;SLC/CJS - PRINT COLLECTION LIST (CONT.) ; 3/28/89 19:39

Source Information

Source file <LRPHLIS1.m>

Entry Points

Name Comments DBIA/ICR reference
L1 ;
L2
L3
L4
L5
L6
L7
S7
B5
B6
B7
LRTOP
HEAD
REM
WARDHD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,$S(LRRB=0:"",1:LRRB),?15,$E(PNM,1,28)
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: " INF WARN: ",LRINFW
  • Condition for execution: $L(LRINFW)
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: ?45,SSN,?60,"Order #: ",LRORD
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: !,?21,$E($P(^LAB(60,+LRTV,0),U),1,20)
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: ?42,$J(LRVOL,6,1),"ML"
  • Condition for execution: LRVOL>0
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: ?52,LRTOP,?65,LRACC
  • Line Location: L7+1
Function Call: WRITE
  • Prompt: !,?65,$J(LRTVOL,6,1),"ML T"
  • Condition for execution: LRTVOL>0
  • Line Location: L7+1
Function Call: WRITE
  • Prompt: @IOF,!!,?34,"COLLECTION LIST ",LRDT0,!,?34,N,$S(N=1:"ST",N=2:"ND",N=3:"RD",1:"TH")," PRINTING"
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,"Ward",!,?5,"Bed",?15,"Name",?45,"SSN",?65,"Accession",!,LRLLOC
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!?5,$S(LRRB=0:"",1:LRRB),?15,$E(PNM,1,28)
  • Line Location: REM+1
Function Call: WRITE
  • Prompt: " PT INFO : ",LRINFW
  • Condition for execution: $L(LRINFW)
  • Line Location: REM+1
Function Call: WRITE
  • Prompt: ?45,SSN,?60,"Order #: ",LRORD,!
  • Line Location: REM+1
Info |  Source |  Entry Points |  Interaction Calls