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

Package: Lab Service

Routine: LRAPCUM


Information

LRAPCUM ;AVAMC/REG/KLL - AP PATIENT CUM ;9/25/00

Source Information

Source file <LRAPCUM.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 6 ^LRAPCUM1  ^LRDPA  SUPA^LRSPRPT  ^LRSPRPTM  (D,L,YN)^LRU  (D,SET)^LRUA  
VA Fileman 2 ^DIWP  ^DIWW  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 3 LRAPCUM1  LRAPDS  LRAPPA  
IHS View Patient Record 1 BVPRP  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
E
F
SP
P
S
R
U
W
WP
MORE

External References

Name Field # of Occurrence
^%ZIS LRAPCUM+8
^DIWP F+5, U+6, WP+6
^DIWW F+6, U+7, WP+7
^LRAPCUM1 W+33
^LRDPA P
SUPA^LRSPRPT W+26
^LRSPRPTM W+11, W+13, W+15, W+16
D^LRU W, W+21, SP
L^LRU LRAPCUM+8
YN^LRU R
D^LRUA W, W+1
SET^LRUA W+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?15,LRAA(1)," PATIENT REPORT(S) DISPLAY"
  • Line Location: LRAPCUM+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No ",LRAA(1)," reports on file",!
  • Line Location: R+1
Function Call: WRITE
  • Prompt: Q:LRA(2)?1P
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !?2,$P(^LR(LRDFN,LRSS,LRI,LRV,C,0),U)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"Date Spec taken: ",LRW(1),?38,"Pathologist:",LRW(2),!,"Date Spec rec'd: ",LRW(10),?38,$S(LRSS="SP":"Resident: ",1:"Tech: "),LRW(4)
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,$S($L(LRW(3)):"Date completed: ",1:"REPORT INCOMPLETE"),LRW(3),?38,"Accession #: ",$P(B,"^",6),!,"Submitted by: ",$P(B,"^",5),?38,"Practitioner:",LRW(7),!,LR("%")
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,$C(7),"Report not verified",!
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,"Specimen: "
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !,"Brief Clinical History:"
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !,"Preoperative Diagnosis:"
  • Line Location: W+7
Function Call: WRITE
  • Prompt: !,"Operative Findings:"
  • Line Location: W+8
Function Call: WRITE
  • Prompt: !,"Postoperative Diagnosis:"
  • Line Location: W+9
Function Call: WRITE
  • Prompt: !,LR(69.2,.13)
  • Line Location: W+11
Function Call: WRITE
  • Prompt: !,LR(69.2,.03)
  • Line Location: W+13
Function Call: WRITE
  • Prompt: !,LR(69.2,.04)," (Date Spec taken: ",LRW(1),")"
  • Line Location: W+15
Function Call: WRITE
  • Prompt: !,LR(69.2,.14)
  • Line Location: W+16
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRA(2)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !,E(1)," ",E," Date: ",T(2)," ",!
  • Line Location: WP+0
Function Call: WRITE
  • Prompt: !,^(A,0)
  • Line Location: A+0
Routine Call
  • %ZIS
  • Line Location:
    • LRAPCUM+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] R+1, R+2, C, F+2, F+4, W+5, W+6, W+7, W+8, W+9
, W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3, U+5
, B, SP, WP+4, WP+6, A
^TMP($J E!
^UTILITY($J F+1!, U+1!, WP+2!
^XUSEC("LRLAB" W+33

Label References

Name Line Occurrences
A W+4
B W+32
C W+5
E F, U, WP+1
F W+6, W+7, W+8, W+9, W+12, W+14, W+16, W+17
MORE C, F+3, W+4, W+11, W+13, W+15, W+16, W+23, W+34, MORE
, U+4, SP, WP+5
P P
R P
S R+2
SP B
U W+28
W R+2
WP SP

Naked Globals

Name Field # of Occurrence
^( R+2, W+21, SP, A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % R*
>> A MORE+1*, S*, A*
>> B R+2*, W, W+1, W+3
>> C C*, F+2*, F+4, W+20*, W+21, W+24, W+25, U+3, U+5, B*
, SP, WP+4, WP+6
DIC P!
>> DIWF E*
>> DIWL E*
>> DIWR E*
DTIME MORE
DUZ W+33
>> E U+2*, U+3*, U+5, SP*, WP
>> E(1 SP*, WP
>> F WP+3*, WP+4*, WP+6
>> G SP*, WP+4, WP+6
IOF R+2
IOM E
>> IOP LRAPCUM+8*
>> LR( W+11, W+13, W+15, W+16, SP
>> LR("%" W+3
>> LR("Q" P*, W+25*, W+27
>> LR(0 W+11*, W+13*, W+15*, W+16*
>> LRA(1 R+2*, C, F+3, W+11, W+13, W+15, W+16, W+23, MORE+2*, U+4
, SP, WP+5
>> LRA(2 R+2, C, F+2, F+3, F+6, W+5, W+6, W+7, W+8, W+9
, W+11, W+12, W+13, W+14, W+15, W+16, W+17, W+20, W+23, W+25
, W+27*, W+28, W+29, W+34, MORE*, MORE+1, S*, U+3, U+4, U+7
, B, SP, WP+4, WP+5, WP+7
>> LRAA(1 LRAPCUM+9, R+1
>> LRDFN P, R+1, R+2, C, F+2, F+4, W+5, W+6, W+7, W+8
, W+9, W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3
, U+5, B, SP, WP+4, WP+6, A
>> LRI R+2*, C, F+2, F+4, W+5, W+6, W+7, W+8, W+9, W+11
, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3, U+5, B
, SP, WP+4, WP+6, A
>> LRSS R+1, R+2, C, F+2, F+4, W+2, W+5, W+6, W+7, W+8
, W+9, W+11, W+13, W+15, W+16, W+18, W+20, W+24, W+31, U+3
, U+5, B, SP, WP+4, WP+6, A
>> LRV C, F+2, F+4, W+5*, W+6*, W+7*, W+8*, W+9*, W+12*, W+14*
, W+16*, W+17*, W+25*
>> LRW(1 W*, W+2, W+15
>> LRW(10 W*, W+2
>> LRW(11 W*, W+4
>> LRW(2 W*, W+2
>> LRW(3 W*, W+3
>> LRW(4 W+1*, W+2
>> LRW(7 W+1*, W+3
>> LRZ C*, F+2*, F+6, U+3*, U+7, WP+4*, WP+7
>> T(2 SP*, WP
U C, F+4, W+11, W+13, W+15, W+16, W+21, W+24
>> X F+4*, W*, W+1*, W+21*, W+22, W+24, W+28, U+5*, SP*, WP+6*
>> Y W*, W+21*, W+22, SP*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All