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

Package: Lab Service

Routine: LRAUSTA


Information

LRAUSTA ;AVAMC/REG/CYM - AUTOPSY STATUS LIST ;3/11/98 10:27 ;

Source Information

Source file <LRAUSTA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 4 ^LRAP  (F,L,M,S,V,XR)^LRU  (BEG,END)^LRUTL  $$Y2K^LRX  
VA FileMan 1 ^%DT  

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 LRAPAUSTATUS  

Entry Points

Name Comments DBIA/ICR reference
YR
N1
N2
DEV
QUE
FIX
WRT
H
END

External References

Name Field # of Occurrence
^%DT YR
^LRAP LRAUSTA+2
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
XR^LRU YR
BEG^LRUTL DEV
END^LRUTL QUE+2
$$Y2K^LRX FIX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LRO(68)," STATUS LIST"
  • Line Location: LRAUSTA+2
Function Call: WRITE
  • Prompt: $C(7),!!,"No entries for ",LRO(68)," (",LRABV,") in ",H(1)+1700
  • Line Location: YR+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+0
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: !!,$P(W,"^",6),?10,$E(P,1,14),?25,P(9),?30,LRLLOC,?36,$J(LRAUDT,8),?47,$J(LRPAD,8),?58,$J(LRFAD,8),?69,$J(LRAUCOMP,8)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !?36,$P(^(0),"^")
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?36,$P(^(0),"^")
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !,LRABV," Autopsy Status List",?36,"|--------------- Date --------------|",!,"Acc#",?12,"Patient",?25,"ID",?30,"Loc",?36,"Autopsy",?49,"PAD",?59,"FAD",?68,"Completed",!?36,"Pathologist(s)",!,LR("%")
  • Line Location: H+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] WRT+1
^LR - [#63] YR, QUE+1, WRT
^VA(200 - [#200] WRT+4, WRT+5

Label References

Name Line Occurrences
END LRAUSTA+2, YR, N1, N2, DEV, QUE+2
FIX WRT+2
H QUE, WRT+3
N1 N1
N2 N2
WRT QUE+1
YR YR

Naked Globals

Name Field # of Occurrence
^( QUE+1
^("AU" WRT
^(0 WRT+4, WRT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT YR*!
%DT("A" YR*
%DT(0 YR*
DTIME N1, N2
>> H(1 YR*, QUE+1
>> I QUE+1*, WRT
IO QUE
IOSL WRT+3
IOST H
>> LR("%" H+1
>> LR("F" QUE*, H
>> LR("Q" QUE+1, WRT+3, H
>> LRABV YR, QUE+1, H+1
LRAUCOMP WRT+2*, WRT+3, END!
LRAUDT WRT+2*, WRT+3, END!
>> LRDICS LRAUSTA+2*
LRESIDEN WRT*, WRT+5, END!
LRFAD WRT+2*, WRT+3, END!
>> LRLLOC WRT*, WRT+3
>> LRO(68 LRAUSTA+2, YR
LRPAD WRT+2*, WRT+3, END!
LRSENIOR WRT*, WRT+4, END!
>> LRXREF YR, QUE+1
>> N(1 N1*, N2+1*, QUE*, QUE+1
>> N(2 N2*, N2+1*, QUE+1
>> P WRT*, WRT+1*, WRT+3
>> P(1 WRT+1*
>> P(9 WRT+1*, WRT+3
>> POP DEV
U N1, N2
>> W WRT*, WRT+2, WRT+3
>> X N2+1*, FIX*, WRT+2*
>> Y LRAUSTA+2, YR
>> Z QUE+1*
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All