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 |  Local Variables  | All
Print Page as PDF
Routine: LRAUMLK

Package: Lab Service

Routine: LRAUMLK


Information

LRAUMLK ;VAMC/MLK - AUTOPSY SLIDE LABELS; Jan 15, 2025@01:48

Source Information

Source file <LRAUMLK.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 3 ^LRAP  (V,XR)^LRU  (BEG,END)^LRUTL  
VA FileMan 3 ^%DT  ^DIC  YN^DICN  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Lab Service 1 LRAUMLK  

Entry Points

Name Comments DBIA/ICR reference
ASK ;SECTION WITH INPUTS
R
R1
R2
SET
ADDL
ADDL1
STAIN
SLIDE
TSK
QUE
PL
PL1
PL2
PL3
HELP
END

External References

Name Field # of Occurrence
^%DT ASK+1, ASK+2
^DIC STAIN
YN^DICN R1, ADDL
^LRAP LRAUMLK+3
V^LRU END
XR^LRU LRAUMLK+3
BEG^LRUTL TSK
END^LRUTL PL+1
$$SITE^VASITE QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"Autopsy Slide Labels"
  • Line Location: LRAUMLK+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " ",LR(2)+1700
  • Line Location: ASK+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Autopsy Case number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Autopsy not entered",!
  • Line Location: R+1
Function Call: WRITE
  • Prompt: " Answer 'Y' or 'N'"
  • Line Location: R1+0
Function Call: READ
  • Prompt: !
  • Variable: "Enter total number of blocks
  • Timeout: ",BLKS:DTIME
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: "Answer 'Y' or 'N'"
  • Line Location: ADDL+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter Block #: "
  • Variable: BLK
  • Timeout: DTIME
  • Line Location: ADDL1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter # of slides for this block/stain: 1//"
  • Variable: TS
  • Timeout: DTIME
  • Line Location: SLIDE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !,X,?10,X,?20,X,?30,X,?40,X,?50,X
  • Line Location: PL1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PL2+0
Function Call: WRITE
  • Prompt: ?B*10,$S($D(^TMP($J,I,B+1)):$P(^TMP($J,I,B+1),U,C),1:"")
  • Line Location: PL2+0
Function Call: WRITE
  • Prompt: !,X,?10,X+1,?20,X+2,?30,X+3,?40,X+4,?50,X+5
  • Line Location: PL3+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!
  • Line Location: HELP+0
Routine Call
  • DIC
  • Line Location:
    • STAIN

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] STAIN+1
^LR - [#63] R+1
^TMP($J SET*, SET+2*, SLIDE+1*, PL2

Label References

Name Line Occurrences
ADDL R1+1, SET+1, ADDL
ADDL1 ADDL1, SLIDE+2
ASK ASK+2
END LRAUMLK+3, ASK+1, R, R1+1, R2, ADDL+1, ADDL1, STAIN, SLIDE, TSK
, PL+1
HELP R, R2, ADDL1, SLIDE
PL1 PL
PL2 PL
R R, R+1
R1 R1
R2 R2
SLIDE SLIDE
STAIN STAIN
TSK ADDL+1, ADDL1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % R1*, R1+1, ADDL*, ADDL+1
>> %DT ASK+1*, ASK+2*
>> B PL2*
>> BLK ADDL1*, SLIDE+1
>> BLKS R2*, SET, SET+1, SET+2
>> C PL2*
DIC STAIN*!, STAIN+1!
DIC("A" STAIN*
DIC("S" STAIN*
DIC(0 STAIN*
DTIME ASK+1, R, R2, ADDL1, SLIDE
>> DTOUT STAIN
>> DUOUT STAIN
>> I SET*, PL*, PL2
IO QUE
IOF QUE
>> J R1+1*, SET*, SET+1*, SET+2*, SLIDE+1*
>> K SLIDE+1*
>> LR("SITE" QUE+2*, PL
>> LR(1 QUE+2*, PL
>> LR(2 ASK+2*, R+1, QUE+2
>> LR(3 R*, R+1, QUE+2
>> LR(5 ASK+1*
>> LRABV R+1, PL
>> LRDICS LRAUMLK+3*
>> LRXREF R+1
>> LRY ASK+1*
>> POP TSK
>> ST STAIN+1*, SLIDE+1
>> TS SLIDE*, SLIDE+1
U ASK+1, R, STAIN+1, QUE+2, PL2
>> WR R1+1*, SET*, SET+1*, SET+2, SET+3*, SLIDE+1*, PL
>> X ASK+1*, R*, PL*, PL1, PL3
>> Y LRAUMLK+3, ASK+1, ASK+2, STAIN, STAIN+1
>> ZTDESC TSK*
>> ZTRTN TSK*
>> ZTSAVE("LR*" TSK*
>> ZTSAVE("WR" TSK*
>> ZTSAVE("^TMP($J," TSK*
>> ZTSK TSK
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All