Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRUPA

Package: Lab Service

Routine: LRUPA


Information

LRUPA ;AVAMC/REG/WTY - LAB ACCESSION LIST:DATE & TEST ;9/25/00

Source Information

Source file <LRUPA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 5 (D,F,L,M,S,V,YN)^LRU  ^LRUBYDIV  ^LRUPA1  ^LRUPA2  (BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Lab Service 4 LRAPP  LRBLPAL  LRUPA  LRUPA1  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
A
N1
N2
QUE
H ;from LRUPA1
END

External References

Name Field # of Occurrence
^%DT LRUPA+7, LRUPA+8, A
^DIC N2+2
D^LRU LRUPA+7, LRUPA+8, A
F^LRU H+2
L^LRU QUE
M^LRU H+1
S^LRU QUE
V^LRU END
YN^LRU LRUPA+9, N2+1, N2+2
^LRUBYDIV LRUPA+6
^LRUPA1 QUE+1
^LRUPA2 N2+1
BEG^LRUTL N2+3
END^LRUTL QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," ACCESSION LIST"
  • Line Location: LRUPA+7
Function Call: WRITE
  • Prompt: !!,"Accession list date: ",Z(1)," OK "
  • Line Location: LRUPA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",Z(1)
  • Line Location: A+2
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: FIRST // "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: N1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !!,"LIST BY PATIENT "
  • Line Location: N2+1
Function Call: WRITE
  • Prompt: !!,"LIST BY COLLECTION SAMPLE "
  • Line Location: N2+2
Function Call: WRITE
  • Prompt: !?72,"-----",!,"Cell block (b) count: ",Q(1),?58,"Slide count:",?72,$J(Q(2),5)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS for ",Z(1),!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "Collection Sample: ",C,!
  • Condition for execution: $D(C)#2
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "# = Not VA patient "
  • Line Location: H+3
Function Call: WRITE
  • Prompt: "* = Reviewed by pathologist"
  • Condition for execution: LRSS="CY"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?30,"*=STAT"
  • Condition for execution: LRSS="CH"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Acc num",?12,$S(LRSS="MI":"Patient/Source",1:"Patient"),?28,"ID",?34,"Loc"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: ?48,"Organ/tissue",!,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: "Specimen date"
  • Condition for execution: LRSS="BB"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?72,"Count"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?64,"Test",?76,"Tech",!,LR("%")
  • Line Location: H+6
Function Call: WRITE
  • Prompt: ?42,"Date/time of Autopsy"
  • Condition for execution: LRSS="AU"
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+7
Routine Call
  • DIC
  • Line Location:
    • N2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62 - [#62] QUE
^LRO(68 - [#68] LRUPA+8, A+1, A+2, QUE+1

Label References

Name Line Occurrences
A A+2
END LRUPA+6, LRUPA+9, A, N1, N1+1, N2, N2+1, N2+2, N2+3, QUE+6
H QUE, QUE+2
N1 N1, N1+1
N2 N2

Naked Globals

Name Field # of Occurrence
^(3 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRUPA+9*, A, A+2*, N2+1*, N2+2*
%DT LRUPA+7*, LRUPA+8*, A*!
%DT("A" A*
>> B QUE+1*
C LRUPA+7!, N2+2*, H+2
C(1 N2+2*
DIC N2+2*!
DIC("A" N2+2*
DIC(0 N2+2*
DT LRUPA+8
DTIME N1, N1+1, N2
IO QUE
IOF QUE+3, QUE+5
IOSL QUE+2
IOST QUE+3, QUE+5, H+1
>> LR("%" H+4, H+6, H+7
>> LR("F" QUE*, H+1
>> LR("FORM" QUE+5
>> LR("Q" QUE+1, QUE+2, H+1
>> LRAA LRUPA+6, LRUPA+8, A+1, A+2, QUE+1
>> LRAA(1 LRUPA+6, LRUPA+7
>> LRAD A+1*, A+2, N1, N1+1, QUE+1
>> LRC(5 QUE+1*
>> LRO(68 LRUPA+7*, H+2
>> LRSS N2+2, QUE+2, QUE+3, QUE+4, H+3, H+4, H+5, H+6, H+7
>> LRU(1 QUE*
>> N QUE+1*
>> N(1 N1*, N1+1*, QUE+1
>> N(2 N2*, QUE+1
>> POP N2+3
>> Q(1 QUE*, QUE+2
>> Q(2 QUE*, QUE+2
U LRUPA+8, A+1, N1, N1+1, N2, N2+2
>> X LRUPA+7*, LRUPA+8*, A*
>> Y LRUPA+6, LRUPA+7*, LRUPA+8*, A*, A+1, N2+2
>> Z(1 LRUPA+7*, LRUPA+8*, LRUPA+9, A*, A+2, H+2
>> ZTRTN N2+3*
>> ZTSK N2+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All