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 Total: 5

Package Total Call Graph
Lab Service 3 ^LRDPA2  D^LRU  ASK^LRWU  
IHS Changes To Lab 1 $$ISPIMS^BLRUTIL  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRDPA  

Entry Points

Name Comments DBIA/ICR reference
A
EN
L

External References

Name Field # of Occurrence
$$ISPIMS^BLRUTIL A+7
^LRDPA2 L+1
D^LRU EN+17
ASK^LRWU L
$$FMTE^XLFDT EN+16

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: !,LRP," ID: ",HRCN," "
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: "Physician: ",LRMD,!
  • Condition for execution: LRMD]""
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"ABO group: ",LRPABO," Rh type: ",LRPRH
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"Infection control warning:",$C(7),!?5,^(.091),!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: $C(7),!!,?34,"",LRLLOC,"",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"AGE: ",AGE
  • Condition for execution: AGE
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: " DATE OF BIRTH: ",DOB
  • Line Location: EN+18
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+9

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( A+7
A EN+19

Naked Globals

Name Field # of Occurrence
^( EN+3, EN+4, EN+13, EN+17
^(0 EN+3, EN+6, L

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE EN+18
>> DFN EN+17, L*
>> DOB EN+15*, EN+16*, EN+18
>> HRCN EN+10
I A+4~
>> LRADM EN*, A+2*, A+9
>> LRADX EN*, A+1*, A+9
>> LRAWRD EN*, A+7*, A+9
>> LRCAPLOC EN+4*, EN+5*
>> LRDFN EN+3, EN+4, EN+6, EN+12, EN+13, EN+17, L*
>> LRDPF EN, EN+19, A+1
LREXP EN!, EN+17*
>> LRFNAM EN*
>> LRLABKY L
>> LRLLOC EN+5*, EN+6*, EN+7*, EN+17*, L*, A*, A+9
>> LRMD EN*, EN+2*, EN+3*, EN+10, A+9
>> LRMD(1 EN*, EN+3*
>> LRMD(2 EN+2*, EN+3
>> LRP EN+1*, EN+10
>> LRPABO EN+12*
>> LRPF EN*, EN+17
>> LRPFN EN*
>> LRPRH EN+12*
>> LRQ L
>> LRS EN*, EN+14*, A+9
>> LRS(1 EN*, EN+14*
>> LRSS EN+12, L+1
>> LRSVC EN*, EN+6*, EN+14*, L*
N A+4~
>> PNM EN+1
U EN+2, EN+3, EN+5, EN+14, EN+15, A+2, A+3, A+7, A+10
>> VADM(3 EN+15
>> VAIN(1 A+1
>> VAIN(11 A+10
>> VAIN(2 EN+2
>> VAIN(3 EN+14
>> VAIN(4 EN+5
>> VAIN(7 A+2, A+3
>> VAIN(9 A+1
VAIP A+11!
VAIP("D" A+3*
VAIP(5 A+7
X LRDPA1+5~, EN+3*, EN+6*, EN+12*, L*, A+4~
Y EN+17*, 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