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

Package: Lab Service

Routine: LRUPA1


Information

LRUPA1 ;AVAMC/REG - LAB ACCESSION LIST COND'T ;3/3/94 10:07 ;

Source Information

Source file <LRUPA1.m>

Entry Points

Name Comments DBIA/ICR reference
V
W
L
O
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,7),?11,"Entry not in lab results file"
  • Line Location: LRUPA1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: V+0
Function Call: WRITE
  • Prompt: $E(A(3),4,5),"/",$E(A(3),6,7)
  • Line Location: V+0
Function Call: WRITE
  • Prompt: ?5,$J(N,5)
  • Line Location: V+1
Function Call: WRITE
  • Prompt: $E(LRP,1,15),?28,SSN(1),?34,$E(A(7),1,5)
  • Line Location: V+3
Function Call: WRITE
  • Prompt: !?7,SSN," ",$P(Z,"^",5)," ",$P(Z,"^",6)
  • Line Location: V+3
Function Call: WRITE
  • Prompt: ?42,Y
  • Line Location: V+4
Function Call: WRITE
  • Prompt: ?40,"Not in lab results file"
  • Line Location: V+5
Function Call: WRITE
  • Prompt: ?72,$J(+N(6),5)
  • Line Location: V+7
Function Call: WRITE
  • Prompt: "b"
  • Condition for execution: $P(N(6),"^",2)
  • Line Location: V+7
Function Call: WRITE
  • Prompt: ?79,C(6)
  • Line Location: V+7
Function Call: WRITE
  • Prompt: ?40,Y
  • Line Location: V+8
Function Call: WRITE
  • Prompt: ?41,$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(^(0),"^"),1,13),1:"")
  • Line Location: V+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A>0
  • Line Location: L+1
Function Call: WRITE
  • Prompt: ?54,"*"
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B>0
  • Line Location: O+0
Function Call: WRITE
  • Prompt: ?46,$S($D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,23),1:"")
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $E(A(3),4,5),"/",$E(A(3),6,7)
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $E(LRP,1,20),?28,SSN(1),?34,$E(A(7),1,5)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?40,LRA
  • Condition for execution: LRSS="BB"
  • Line Location: H+1
Info |  Source |  Entry Points |  Interaction Calls