Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRAPS2

Package: Lab Service

Routine: LRAPS2


Information

LRAPS2 ;AVAMC/REG - AUTOPSY PRT ;8/11/95 09:36 ;

Source Information

Source file <LRAPS2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report not verified."
  • Line Location: LRAPS2+3
Function Call: WRITE
  • Prompt: !,LRAU(3)
  • Line Location: LRAPS2+4
Function Call: WRITE
  • Prompt: !,LRAU(4)
  • Line Location: LRAPS2+5
Function Call: WRITE
  • Prompt: !,$P(^LAB(61,+^LR(LRDFN,"AY",O,0),0),"^")
  • Line Location: LRAPS2+10
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
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls