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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRUPAD1

Package: Lab Service

Routine: LRUPAD1


Information

LRUPAD1 ;AVAMC/REG/WTY - LAB ACCESSION LIST COND'T ;9/25/00

Source Information

Source file <LRUPAD1.m>

Entry Points

Name Comments DBIA/ICR reference
V
W
L
O
T
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,5)
  • Line Location: V+0
Function Call: WRITE
  • Prompt: $E(LRP,1,20),?34,SSN(1),?40,$E(A(7),1,5)
  • Line Location: V+6
Function Call: WRITE
  • Prompt: ?47,Y
  • Line Location: V+9
Function Call: WRITE
  • Prompt: ?72,$J(+N(6),5)
  • Line Location: V+17
Function Call: WRITE
  • Prompt: "b"
  • Condition for execution: $P(N(6),"^",2)
  • Line Location: V+17
Function Call: WRITE
  • Prompt: ?79,C(6)
  • Line Location: V+17
Function Call: WRITE
  • Prompt: ?46,$S(C(2)>0&(P(0)="STERILIZER"!(P(0)="ENVIRONMENTAL")):$E($P(^LAB(62,C(2),0),"^"),1,14),$D(^LAB(61,C(3),0)):$E($P(^LAB(61,C(3),0),"^"),1,13),1:"")
  • Line Location: V+18
Function Call: WRITE
  • Prompt: ?61,Z(2),?62,$E($P(^LAB(60,+Z(3),0),"^"),1,13)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: ?76,$E(TECH,1,4)
  • Line Location: L+4
Function Call: WRITE
  • Prompt: ?58,$S($D(^LAB(61,C(3),0)):$E($P(^LAB(61,C(3),0),"^"),1,14),1:"")
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call