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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRAPS1

Package: Lab Service

Routine: LRAPS1


Information

LRAPS1 ;AVAMC/REG/CYM/KLL - ANATOMIC PATH PRINT ;2/9/98 08:04 ;

Source Information

Source file <LRAPS1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 D^LRU  $$Y2K^LRX  
VA Fileman 1 $$EXTERNAL^DILFD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPS  LRAPS3  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR2
HDR3
HDR1
M
L
S ;from LRAPS
HDR21
E

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD EN+1
D^LRU L+4
$$Y2K^LRX EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"Organ/tissue:",?17,"Date rec'd: ",LRH(3),?43,"Acc #:",N,?64,$E(LR("PATH"),1,12)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?5,"Report not verified."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,$E(^(B,0),1,74)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.3,B(1),0),"^")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.5,B(1),0),"^")
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " (",$S(B(2)=0:"Negative",B(2)=1:"Positive",1:"?"),")"
  • Condition for execution: B(2)]""
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.4,B(1),0),"^")
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.1,M(1),0),"^")
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !?5,E(4)," ",E(3)," Date: ",E(2)
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !?12,$P(^LAB(61.2,E(1),0),"^")
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?30,$S(S="SP":"SURGICAL PATHOLOGY",S="CY":"CYTOPATHOLOGY",S="EM":"ELECTRON MICROSCOPY",1:"")
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?3,"Organ/tissue:",?20,"Date rec'd: ",LRH(3),?43,"Acc #:",$J(N,5),?64,$E(LR("PATH"),1,12)
  • Line Location: HDR21+0
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: HDR3+0
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: HDR3+0
Function Call: READ
  • Prompt: "'^' TO STOP "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRA("A")
  • Line Location: M+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: M+1
Function Call: WRITE
  • Prompt: @IOF,$E(LRP,1,30),?31,SSN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5)
  • Line Location: M+2
Function Call: WRITE
  • Prompt: @IOF,$E(LRP,1,30),?31,HRCN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5)
  • Line Location: M+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.08 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] EN+7
^LAB(61.1 - [#61.1] L+3
^LAB(61.2 - [#61.2] E
^LAB(61.3 - [#61.3] L
^LAB(61.4 - [#61.4] L+2
^LAB(61.5 - [#61.5] L+1
^LR - [#63] S+1, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E
, HDR1
^XUSEC("LRLAB" EN+6

Label References

Name Line Occurrences
E L+3
EN S+1
HDR1 S+1, M+3
HDR2 EN+7
HDR21 HDR3
HDR3 L, L+1, L+2, L+3, L+4, E
L EN+7
M S+1, EN+2, HDR1, HDR2, HDR3, M+1

Naked Globals

Name Field # of Occurrence
^( EN+8, L, L+1, L+2, L+3, L+4, E

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B EN+8*, L*, L+1*, L+2*
>> B(1 L*, L+1*, L+2*
>> B(2 L+1*
>> DOB M+3
DTIME M+1
DUZ EN+6
>> E L+4*, E*
>> E(1 L+4*, E*
>> E(2 L+4*
>> E(3 L+4*
>> E(4 L+4*
>> H(2 EN*, EN+2*
>> HRCN M+3
IOF M+3
IOSL S+1, EN+2, EN+7, L, L+1, L+2, L+3, L+4, E, HDR1
>> LR( L+4
>> LR("%" HDR1
>> LR("PATH" EN*, EN+1*, EN+3, HDR21
>> LRA("A" LRAPS1+5*, S+1, EN+3, EN+7, L, L+1, L+2, L+3, E, HDR1
, HDR2, HDR3, M+1*
>> LRDFN S+1, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E
, HDR1
>> LRH(3 EN*, EN+3, HDR21
>> LRI S+1*, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E
>> LRLLOC M+3
>> LRP M+3
>> LRQ(3 EN+8
>> M L+3*, E
>> M(1 L+3*
>> N EN*, EN+2*, EN+3, HDR21
>> N(11 EN*, EN+4
>> O EN+7*, L, L+1, L+2, L+3, L+4, E
>> O(6 EN+7*, HDR3
>> ORHFS M
>> S S+1*, EN, EN+7, EN+8, L, L+1, L+2, L+3, L+4, E
, HDR1, HDR1+1
U EN
>> W(3 EN+7*, HDR3
>> X EN*, EN+7*, L+1*
>> Y L+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All