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 ; [ 05/15/2003 12:31 PM ]

Source Information

Source file <LRUCN.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLCN  LRUCNBB  

Entry Points

Name Comments DBIA/ICR reference
SET
END
PT
F
H
QUE
W
ASK ;I '$O(^LR(LRDFN,LRSS,0)) S LRI=-1 W $C(7),!!,"There are no specimen dates for ",LRP," ",SSN Q
OUT

External References

Name Field # of Occurrence
^%DT QUE
^DIC LRUCN+5, ASK+4
^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+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"CONSULTATION REPORT"
  • Line Location: LRUCN+4
Function Call: WRITE
  • Prompt: $C(7),!,"Must have an accession area for ",LRL(1)
  • Line Location: LRUCN+5
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: W
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !,LRP,?40,"LOC: ",LRLLOC,!,"HRCN:",HRCN,?16,"SEX:",SEX," DOB: ",DOB
  • Line Location: F+4
Function Call: WRITE
  • Prompt: " AGE:",AGE
  • Condition for execution: $D(AGE)
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !
  • Line Location: F+4
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",SSN
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",HRCN
  • Line Location: ASK+2
Routine Call
  • DIC
  • Line Location:
    • LRUCN+5
    • ASK+4

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+2
^LRO(68 - [#68] LRUCN+6

Label References

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

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