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

Package: Lab Service

Routine: LRAPT


Information

LRAPT ;AVAMC/REG/WTY - AP PATIENT RPT ;9/22/00

Source Information

Source file <LRAPT.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 8 ^LRAP  ^LRAPS  (,H)^LRAPT1  ^LRAPT2  (D,F,L,M,S,SSN,V)^LRU  EN^LRUA  (,R)^LRUL  (BEG,END)^LRUTL  
Kernel 2 ^%ZIS  $$DTIME^XUP  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRAPT  LRAPT2  LRAPT3  LRSPRPT1  

Entry Points

Name Comments DBIA/ICR reference
END
H ;from LRAPT2, LRAPT3
H1 ; D H Q:LR("Q") W !,LRP,?32,SSN,?52,"DOB:",DOB Q
AU
ASK
QUE
LOOP

External References

Name Field # of Occurrence
^%DT LRAPT+10
^%ZIS LRAPT+11
^LRAP ASK+5
^LRAPS ASK+3
^LRAPT1 LOOP+12
H^LRAPT1 AU+1
^LRAPT2 AU
D^LRU LRAPT+10, LOOP+7
F^LRU H+2
L^LRU QUE
M^LRU H+1
S^LRU QUE
SSN^LRU LOOP+7
V^LRU END
EN^LRUA QUE
^LRUL ASK+6
R^LRUL ASK+6, ASK+8, QUE+7
BEG^LRUTL ASK+7
END^LRUTL QUE+7
$$DTIME^XUP LRAPT+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?28,"Cum path data summaries"
  • Line Location: LRAPT+12
Function Call: WRITE
  • Prompt: !!?14,"1. DISPLAY cum path data summary for A patient"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?14,"2. PRINT cum path data summary for patient(s)",!
  • Line Location: ASK+1
Function Call: READ
  • Prompt: "Select (1-2): "
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Answer 1 or 2",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"NO PATHOLOGY ENTRIES IN LAB FILE !",!
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: !,"ANATOMIC PATHOLOGY"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRAA(1)," QA from ",LRSTR," to ",LRLST
  • Condition for execution: $D(LR("W"))
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRP,?32,SSN,?52,"DOB:",DOB
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRP,?32,$G(HRCN),?52,"DOB:",DOB
  • Line Location: H1+1
Routine Call
  • %ZIS
  • Line Location:
    • LRAPT+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] LOOP+4
^LR - [#63] LOOP+4, LOOP+5, LOOP+9, LOOP+11, AU
^LRO(69.2 - [#69.2] ASK+6, QUE+2, QUE+3, LOOP!, LOOP+1, LOOP+2, LOOP+3

Label References

Name Line Occurrences
ASK ASK+4
AU LOOP+11
END LRAPT+10, ASK+2, ASK+5, ASK+6, ASK+8, QUE+7
H H1+1
LOOP QUE+4

Naked Globals

Name Field # of Occurrence
^( LOOP+9
^("AU" AU
^(0 LOOP+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT LRAPT+10*
>> DFN LOOP+5*, LOOP+6, LOOP+9
DIC ASK+7!
DIE ASK+7!
>> DOB LOOP+7*, H1+1
DR ASK+7!, LOOP+4*
DTIME LRAPT+13*, ASK+2
DUZ LRAPT+13, ASK+6, QUE+2, QUE+3, LOOP, LOOP+1, LOOP+2, LOOP+3
>> HRCN H1+1
IO QUE
IOF LRAPT+12, QUE+6
>> IOP LRAPT+11*
IOST QUE+6, H+1
>> LR("%" H+2
>> LR("F" H+1
>> LR("FORM" QUE+6
>> LR("Q" QUE+2, QUE+3, AU, AU+1, H+1, H1+1
>> LR("W" H+2
>> LRAA ASK+6, QUE+2, QUE+3, LOOP, LOOP+1, LOOP+2, LOOP+3
>> LRAA(1 H+2
>> LRADM LOOP+8*, LOOP+10*
>> LRADX LOOP+8*, LOOP+10*
LRAU QUE+5!
>> LRDFN QUE+3*, LOOP, LOOP+4, LOOP+5, LOOP+9, LOOP+11, AU
>> LRDICS ASK+5*
>> LRDICS(1 ASK+5*
>> LRDICS(2 ASK+5*
>> LRDPF LOOP+4*
>> LRFLN LOOP+5*
>> LRLLOC LOOP+9*
>> LRLST H+2
>> LRP LOOP+7*, H1+1
>> LRPF LOOP+4*, LOOP+5, LOOP+6, LOOP+9, LOOP+10
>> LRPPT LOOP+6*, LOOP+7
>> LRQ LOOP+4*
>> LRQ(9 QUE*
>> LRS(5 QUE*
>> LRSTR H+2
>> LRT LRAPT+10*
>> LRTOD LRAPT+10*
>> LRV(1 LOOP+12*, AU*, AU+1
>> PNM QUE+1*, QUE+2*, QUE+3, LOOP
>> PNM(1 QUE+2*
>> POP ASK+8
>> SEX LOOP+7*
>> SSN LOOP+7*
U LRAPT+13*, ASK+2, LOOP+4, LOOP+10
>> VAIN LOOP+10
>> VAIN(7 LOOP+10
>> VAIN(9 LOOP+10
>> X LRAPT+10*, ASK+2*, ASK+3, ASK+4, LOOP+2*
>> X(1 LOOP+2*
>> Y LRAPT+10, ASK+5, LOOP+7*
>> ZTRTN ASK+7*
>> ZTSK ASK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All