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

Package: Lab Service

Routine: LRUWG


Information

LRUWG ;AVAMC/REG - SINGLE TEST WORKLIST ;2/22/94 09:45 ;

Source Information

Source file <LRUWG.m>

Entry Points

Name Comments DBIA/ICR reference
T
D
ST
QUE
ACN
L
H
NEW
TT
STF ;
WRT
ZZ
SCN
ASK
LRAD
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Single test worklist"
  • Line Location: LRUWG+2
Function Call: WRITE
  • Prompt: $C(7),!,"No INSTITUTION designated in LAB TEST FILE (#60, field 6)",!
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!,"No Accession AREA for this test",!
  • Line Location: T+4
Function Call: WRITE
  • Prompt: $C(7)," Date not specific enough"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",W(1)," ACCESSIONS IN FILE FOR ",LRH(0),!
  • Line Location: D+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Start from accn #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: ST+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Go to accn #: LAST// "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY"
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !,$J(Z,3),") ",$J($S(T(5)>.999:T(5),1:T(5)*1000),5),?14,$P(N,"^",6)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L($P(N,"^",6))>21
  • Line Location: L+0
Function Call: WRITE
  • Prompt: ?37,N(7),?49,$S(X:$P($G(^VA(200,X,0)),"^",2),1:X),?54,$P(N,"^",2),?60,$E($P(N,"^"),1,19),!?15
  • Line Location: L+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !,^TMP($J,W,0)," Worklist",?40,"(* = STAT)"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COUNT",?6,"ACC#",?17,"RESULT",?37,"Completed",?49,"Tech",?54,"ID",?60,"PATIENT",!,LR("%"),!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?15,T(2),T(3),":",!,LRH(0)
  • Line Location: NEW+0
Function Call: WRITE
  • Prompt: !?15,T(2),T(3),":",!,LRH(0)
  • Line Location: ZZ+0

FileMan Files Accessed Via FileMan Db Call

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