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

Package: Lab Service

Routine: LRUCN


Information

LRUCN ;AVAMC/REG/CYM - LAB CONSULTS ;2/18/98 12:34 ;

Source Information

Source file <LRUCN.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 4 ^LRDPA  (D,L,S,V)^LRU  ^LRUCNBB  (BEG,END)^LRUTL  
VA FileMan 2 ^%DT  ^DIC  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Lab Service 2 LRBLCN  LRUCNBB  

Entry Points

Name Comments DBIA/ICR reference
PT
QUE
OUT
H
W
F
SET
ASK
END

External References

Name Field # of Occurrence
^%DT QUE
^DIC LRUCN+4, ASK+1
^LRDPA PT
D^LRU QUE
L^LRU QUE
S^LRU QUE
V^LRU END
^LRUCNBB QUE+1
BEG^LRUTL PT+2
END^LRUTL OUT
$$FMTE^XLFDT ASK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"CONSULTATION REPORT"
  • Line Location: LRUCN+3
Function Call: WRITE
  • Prompt: $C(7),!,"Must have an accession area for ",LRL(1)
  • Line Location: LRUCN+4
Function Call: WRITE
  • Prompt: !,LRL(1)," entry in LAB LETTER file (#65.9) was deleted."
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: @IOF,!!!!,LR("%"),!?5,"CLINICAL RECORD ",LRL(1),?51,"|"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?(IOM-8),"Pg:",LRQ
  • Condition for execution: LRQ>1
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?5,LRQ(1),?51,"|"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: "Specimen:",LRI(1)
  • Condition for execution: $D(LRI)
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F+0
Function Call: WRITE
  • Prompt: W
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !?60,"(",$S($D(LRE):"End of report",1:"See next page"),")",!,LRS,!,LRS(1),?60,LRD
  • Line Location: F+1
Function Call: WRITE
  • Prompt: W
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,LRP,?40,"LOC: ",LRLLOC,!,"SSN:",SSN,?16,"SEX:",SEX," DOB: ",DOB
  • Line Location: F+2
Function Call: WRITE
  • Prompt: " AGE:",AGE
  • Condition for execution: $D(AGE)
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",SSN
  • Line Location: ASK+0
Routine Call
  • DIC
  • Line Location:
    • LRUCN+4
    • ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(65.9 - [#65.9] QUE, SET, SET+1
^LR - [#63] ASK
^LRO(68 - [#68] LRUCN+5

Label References

Name Line Occurrences
ASK PT+1
END LRUCN+3, LRUCN+4, PT, PT+1, PT+2, OUT
H QUE
OUT QUE
SET QUE+1
W F+1, F+2

Naked Globals

Name Field # of Occurrence
^(3 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT QUE*
>> AGE F+2
DIC LRUCN+4*!, ASK+1!*
DIC("A" LRUCN+4*
DIC("S" LRUCN+4*
DIC(0 LRUCN+4*, ASK+1*
>> DIWF SET*
>> DIWL SET*
>> DIWR SET*
>> DOB F+2
IO QUE
IOF H
IOM H, SET
IOSL F
>> LR("%" H, W
>> LRAA LRUCN+4*, LRUCN+5
>> LRADM F+3
>> LRADX F+3
>> LRD QUE*, F+1
>> LRDFN PT, ASK
>> LRDPAF LRUCN+5*
>> LRE F+1
>> LRI PT+1, H, ASK*, ASK+1*
>> LRI(1 H, ASK+1*
>> LRL LRUCN+4*, QUE, SET, SET+1
>> LRL(1 LRUCN+4*, PT+1, QUE, H
>> LRLLOC F+2
>> LRMD F+3
>> LRP F+2, ASK
>> LRQ H*
>> LRQ(1 H
>> LRS F+1, SET+1*
>> LRS(1 F+1, SET+1*
>> LRSS LRUCN+5*, QUE+1, ASK
>> POP PT+2
>> SEX F+2
>> SSN F+2, ASK
U LRUCN+4, LRUCN+5, SET, ASK+1
>> X QUE*, F*, SET*, SET+1*
>> Y LRUCN+4, QUE, ASK+1*
>> Y(0 LRUCN+4
>> ZTRTN PT+2*
>> ZTSK PT+2
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