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

Package: Lab Service

Routine: LRAPS2


Information

LRAPS2 ; IHS/DIR/AAB - AUTOPSY PRT 8/11/95 09:36 ;

Source Information

Source file <LRAPS2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 4 ^LRAPT3  ^LRAPU  D^LRAUAW  D^LRU  
VA Fileman 2 ^DIWP  ^DIWW  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPS  LRAPS3  

Entry Points

Name Comments DBIA/ICR reference
E
D
F
M
WT
EX
ZZ
HD

External References

Name Field # of Occurrence
^DIWP F
^DIWW F+1
^LRAPT3 LRAPS2+10
^LRAPU LRAPS2+3
D^LRAUAW ZZ+1
D^LRU ZZ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report not verified."
  • Line Location: LRAPS2+4
Function Call: WRITE
  • Prompt: !,LRAU(3)
  • Line Location: LRAPS2+5
Function Call: WRITE
  • Prompt: !,LRAU(4)
  • Line Location: LRAPS2+6
Function Call: WRITE
  • Prompt: !,$P(^LAB(61,+^LR(LRDFN,"AY",O,0),0),"^")
  • Line Location: LRAPS2+11
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(61.4,+^LR(LRDFN,"AY",O,1,LRB,0),0),"^")
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(61.3,+^LR(LRDFN,"AY",O,3,LRB,0),0),"^")
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(61.5,+^LR(LRDFN,"AY",O,4,LRB,0),0),"^")
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(61.1,+^LR(LRDFN,"AY",O,2,M,0),0),"^")
  • Line Location: D+6
Function Call: WRITE
  • Prompt: !?7,$P(^LAB(61.2,+^LR(LRDFN,"AY",O,2,M,1,E,0),0),"^")
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !!,"Organ/tissue:",?33,"SNOMED CODING"
  • Line Location: HD+0
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !!?20,"No organ weights entered.",!
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: !!,"Rt--Lung--Lt Liver Spleen R--Kidney--Lt Brain Body Wt(lb) Ht(in)"
  • Line Location: WT+1
Function Call: WRITE
  • Prompt: !,$J($P(X,"^",3),4),?8,$J($P(X,"^",4),4),?14,$J($P(X,"^",5),5),?21,$J($P(X,"^",6),5),?28,$J($P(X,"^",7),4),?38,$J($P(X,"^",8),4),?45,$J($P(X,"^",10),4),?55,$P(X,"^",2),?68,$P(X,"^")
  • Line Location: WT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: WT+3
Function Call: WRITE
  • Prompt: "Heart(gm)"
  • Condition for execution: $D(B)
  • Line Location: WT+3
Function Call: WRITE
  • Prompt: ?12,"TV(cm) PV(cm) MV(cm) AV(cm) RV(cm) LV(cm)"
  • Line Location: WT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WT+4
Function Call: WRITE
  • Prompt: $J(B(9),5)
  • Condition for execution: $D(B(9))
  • Line Location: WT+4
Function Call: WRITE
  • Prompt: ?12,$J($P(X,"^"),4),?20,$J($P(X,"^",2),4),?28,$J($P(X,"^",3),4),?36,$J($P(X,"^",4),4),?44,$J($P(X,"^",5),4),?52,$J($P(X,"^",6),4)
  • Line Location: WT+4
Function Call: WRITE
  • Prompt: !!,"Cavities(ml): Rt--Pleural--Lt Pericardial Peritoneal",!?14,$J($P(B(2),"^",2),4),?25,$J($P(B(2),"^"),4),?33,$J($P(B(2),"^",3),4),?45,$J($P(B(2),"^",4),4)
  • Line Location: WT+5
Function Call: WRITE
  • Prompt: !,$P(^DD(63,X,0),"^"),": ",$P(B(1),"^",B)
  • Line Location: WT+6
Function Call: WRITE
  • Prompt: !,$P(^DD(63,X,0),"^"),": ",$P(Y,"^",B)
  • Line Location: WT+7
Function Call: WRITE
  • Prompt: @IOF,"Acc #",?10,"Date/time Died",?32,"Age",?40,"AUTOPSY",?52,"Date/time of Autopsy"
  • Line Location: ZZ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ZZ+2
Function Call: WRITE
  • Prompt: $S(X(1)=7:"Resident:",1:" Senior:"),Y
  • Condition for execution: Y]""
  • Line Location: ZZ+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63 WT+6, WT+7
^LAB(61 - [#61] LRAPS2+11
^LAB(61.1 - [#61.1] D+6
^LAB(61.2 - [#61.2] E
^LAB(61.3 - [#61.3] D+2
^LAB(61.4 - [#61.4] D
^LAB(61.5 - [#61.5] D+4
^LR - [#63] LRAPS2+4, LRAPS2+5, LRAPS2+6, LRAPS2+7, LRAPS2+11, F, D, D+2, D+4, D+6
, E, WT, WT+1, WT+3, WT+7, ZZ+1
^LRO(69.2 - [#69.2] LRAPS2+3
^TMP($J EX!
^VA(200 - [#200] ZZ+2

Label References

Name Line Occurrences
D LRAPS2+11
E D+6
EX F
F LRAPS2+5, LRAPS2+6
HD LRAPS2+11
M LRAPS2+8, LRAPS2+9, LRAPS2+10, LRAPS2+11, F, D, D+2, D+4, D+6, M
WT LRAPS2+9
ZZ LRAPS2+4, M+1

Naked Globals

Name Field # of Occurrence
^("AV" WT+3
^("AW" WT+1
^("AWI" LRAPS2+7, WT+7
^("AY" LRAPS2+7
^(0 LRAPS2+3, ZZ+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A("M" LRAPS2+5!, LRAPS2+6!, LRAPS2+8!, LRAPS2+9!, LRAPS2+10!, LRAPS2+11, LRAPS2+12!, LRAPS2+13!, F, F+1
, D, D+1, D+2, D+3, D+4, D+5, D+6, M*, M+1
B WT!, WT+2, WT+3, WT+6*, WT+7*
B(1 WT+1*, WT+6
B(2 WT+3*, WT+4, WT+5
B(9 WT+1*, WT+4
>> C D+6*
>> DA ZZ+1*
>> DIWF EX*
>> DIWL EX*
>> DIWR EX*
DTIME LRAPS2+4, M
>> E E*
>> F E*
IOF ZZ
IOSL LRAPS2+11, F, D, D+2, D+4, D+6
IOST LRAPS2+4, M
>> LR F*
>> LR("M" LRAPS2+3*
>> LR(63 ZZ+1
>> LRAU(3 LRAPS2+3*, LRAPS2+5
>> LRAU(4 LRAPS2+3*, LRAPS2+6
>> LRB D*, D+2*, D+4*
>> LRDFN LRAPS2+4, LRAPS2+5, LRAPS2+6, LRAPS2+7, LRAPS2+11, F, D, D+2, D+4, D+6
, E, WT, WT+1, WT+3, WT+7, ZZ+1
>> LRLLOC ZZ+1*
>> LRP ZZ+1
>> LRSS LRAPS2+3*
>> LRV LRAPS2+5*, LRAPS2+6*, F
>> LRZ F*, F+1
>> M D+6*, E
>> O LRAPS2+11*, D, D+2, D+4, D+6, E
U LRAPS2+4
>> X LRAPS2+3*, LRAPS2+4*, F*, M*, WT+1*, WT+2, WT+3*, WT+4, WT+6*, WT+7*
, ZZ+1*, ZZ+2
>> X(1 ZZ+2*
>> Y LRAPS2+3, WT+7*, ZZ+1*, ZZ+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All