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

Package: Lab Service

Routine: LRDPA1


Information

LRDPA1 ;AVAMC/REG/DALISC/FHS - PT LOOKUP IN FILES FOR LAB ;9/6/94 09:03 ;

Source Information

Source file <LRDPA1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRDPA2  D^LRU  ASK^LRWU  
Kernel 1 $$FMTE^XLFDT  
Registration 1 IN5^VADPT  

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 LRDPA  

Entry Points

Name Comments DBIA/ICR reference
EN
L
A

External References

Name Field # of Occurrence
^LRDPA2 L+1
D^LRU EN+14
ASK^LRWU L
IN5^VADPT A+5
$$FMTE^XLFDT EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRP," ID: ",SSN," "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "Physician: ",LRMD,!
  • Condition for execution: LRMD]""
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"ABO group: ",LRPABO," Rh type: ",LRPRH
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"Infection control warning:",$C(7),!?5,^(.091),!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: $C(7),!!,?34,"",LRLLOC,"",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"AGE: ",AGE
  • Condition for execution: AGE
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: " DATE OF BIRTH: ",DOB
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient in hospital but Ward Location begins with a space !!!",!,"Location =>",LRLLOC,"<=",!,"Ask MAS to fix it",!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Ward on Adm: ",LRAWRD," Service: ",LRS,!,"Adm Date: ",LRADM," Adm DX: ",LRADX,!,"Present Ward: ",LRLLOC,?30,"Primary MD: ",LRMD
  • Line Location: A+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] EN
^DIC(42 - [#42] EN+5, A+5
^LR - [#63] EN+3, EN+4, EN+6, EN+9, EN+10, EN+14*, L
^SC - [#44] EN+5, EN+6, L, A+5
^SC("B" EN+6, L
^VA(200 - [#200] EN+3

Label References

Name Line Occurrences
A EN+16

Naked Globals

Name Field # of Occurrence
^( EN+3, EN+4, EN+10, EN+14
^(0 EN+3, EN+6, L

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE EN+15
>> DFN EN+14, L*
>> DOB EN+12*, EN+13*, EN+15
I A+4~
>> LRADM EN*, A+2*, A+6
>> LRADX EN*, A+1*, A+6
>> LRAWRD EN*, A+5*, A+6
>> LRCAPLOC EN+4*, EN+5*
>> LRDFN EN+3, EN+4, EN+6, EN+9, EN+10, EN+14, L*
>> LRDPF EN, EN+16, A+1
LREXP EN!, EN+14*
>> LRFNAM EN*
>> LRLABKY L
>> LRLLOC EN+5*, EN+6*, EN+7*, EN+14*, L*, A*, A+6
>> LRMD EN*, EN+2*, EN+3*, EN+8, A+6
>> LRMD(1 EN*, EN+3*
>> LRMD(2 EN+2*, EN+3
>> LRP EN+1*, EN+8
>> LRPABO EN+9*
>> LRPF EN*, EN+14
>> LRPFN EN*
>> LRPRH EN+9*
>> LRQ L
>> LRS EN*, EN+11*, A+6
>> LRS(1 EN*, EN+11*
>> LRSS EN+9, L+1
>> LRSVC EN*, EN+6*, EN+11*, L*
N A+4~
>> PNM EN+1
>> SSN EN+8
U EN+2, EN+3, EN+5, EN+11, EN+12, A+2, A+3, A+5, A+7
>> VADM(3 EN+12
>> VAIN(1 A+1
>> VAIN(11 A+7
>> VAIN(2 EN+2
>> VAIN(3 EN+11
>> VAIN(4 EN+5
>> VAIN(7 A+2, A+3
>> VAIN(9 A+1
VAIP A+8!
VAIP("D" A+3*
VAIP(5 A+5
X LRDPA1+2~, EN+3*, EN+6*, EN+9*, L*, A+4~
Y EN+14*, A+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All