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

Package: Lab Service

Routine: LRUPA2


Information

LRUPA2 ;AVAMC/REG/WTY - LAB ACCESSION LIST BY PAT ;9/25/00

Source Information

Source file <LRUPA2.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
W
O
L
XT
A
C
B
PRT
D
H
H1
H2
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?50,"Not in lab results file"
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40,"Entry not in lab result file #63."
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>0
  • Line Location: O+1
Function Call: WRITE
  • Prompt: ?43,$S($D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,35),1:"")
  • Line Location: O+1
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?12,M," "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !?12,M," "
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS for ",Z(1)," BY PATIENT"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"# =Not VA patient",?36,$S("AUBBCYEMSP"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Count",?7,"ID",?12,"Patient",?35,"ACC#"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?36
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?50,"Test",?76,"Tech"
  • Condition for execution: "AUBBCYEMSP"'[LRSS "Specimen" W:LRSS="BB" "Specimen date" W:"AUCYEMSP"'[LRSS
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?43,"Organ/tissue"
  • Condition for execution: "CYEMSP"[LRSS
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?40,"Date/time of Autopsy"
  • Condition for execution: LRSS="AU"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,$J(B,3),")",?6,$P(M,"-",3),?12,V,?33,$J(N,4)
  • 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