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

Package: Lab Service

Routine: LRUPAD2


Information

LRUPAD2 ;AVAMC/REG/WTY - LAB ACCESSION LIST BY PATIENT ;9/25/00

Source Information

Source file <LRUPAD2.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
NEW
W
O
L
T
XT
A
B
C
P
H
H1
H2
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19),?31,$J(N,5)
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: ?37,$E($P(LRX,"^"),1,5),?44,$P(LRX,"^",5),?52,$E($P(LRX,"^",2),1,5)
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: ?40,"Entry not in lab data file."
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?44,Z(2)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: ?45,$S($D(^LAB(61,C(3),0)):$E($P(^LAB(61,C(3),0),"^"),1,26),1:"")
  • Line Location: L+2
Function Call: WRITE
  • Prompt: ?59,$E($P(^LAB(60,+Z(1),0),"^"),1,15)
  • Line Location: T+1
Function Call: WRITE
  • Prompt: ?76,$E(TECH,1,4)
  • Line Location: T+4
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19)
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>0
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?31,$J(N,5),?37,$J($P(LRX,"^"),5),?44,$P(LRX,"^",5)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: ?52,$E($P(LRX,"^",2),1,5)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS(",LRSTR,"-",LRLST,")"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"# = Not VA patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Count",?7,"ID",?11,"Patient",?32,"ACC#"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?11,$E(V,1,19)
  • Line Location: H2+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