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

Package: Lab Service

Routine: LRULB1


Information

LRULB1 ;AVAMC/REG - LAB LOG-BOOK CONT. ;3/3/94 14:28 ;

Source Information

Source file <LRULB1.m>

Entry Points

Name Comments DBIA/ICR reference
T
PRT
W
LIST
ORG
LST
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?7,$E(LRP,1,15),?24,$E(O(1),1,14),?48,H(2),?65,H(1)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !?8,SSN,?27,LRLLOC
  • Condition for execution: A<1
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LRC(5)
  • Condition for execution: $L(LRC(5))
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!,LR("%")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?7,SSN,?27,LRLLOC
  • Condition for execution: A=0
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A>0
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: ?50,$E(X,1,30)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Q>0
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: ?46,$S($D(^LAB(61,O(1),0)):$E($P(^LAB(61,O(1),0),"^"),1,14),1:"")
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE",?22,LRAA(1)," Log-Book for ",LRH(0)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"#= Not PATIENT file",?48,"|-------Date/time----|",!,"Acc no",?14,"Name",?24,"Spec/Sample",?39,"Results",?48,"Received",?65,"Taken",!?14,"SSN",?24,"Location",?58,"Tests"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Info |  Source |  Entry Points |  Interaction Calls