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

Package: Lab Service

Routine: LRUER


Information

LRUER ;AVAMC/REG/CYM - ERROR TRACKING ;2/18/98 07:03 ;

Source Information

Source file <LRUER.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
A
SET
W
W1
X
P
P1
TST
B
H
H1
H2
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"List accessions with deleted comments "
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Do you want list of tests ordered for each accession with errors "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"New page for each accession area "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",SSN(1),?67,LRS
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !?5,B(1)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !?5,$P(^LR(LRDFN,"CH",LRI,1,"AC",B,C),"^",3)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>60
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: " (deleted by ",$S($P(X,"^",2)]"":$P(X,"^",2),1:$P(X,",")),")"
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "Test(s) ordered:"
  • Condition for execution: E=1
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?18,$P($G(^LAB(60,C,0)),"^"),?49,"Tech: ",J
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,LRC(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(LRC(1))>44
  • Line Location: H+1
Function Call: WRITE
  • Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/SSN",?67,"Specimen",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",SSN(1)," ",LRS
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Test(s) ordered:"
  • Line Location: H2+0
Info |  Source |  Entry Points |  Interaction Calls