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

Package: Lab Service

Routine: LRAPPF1


Information

LRAPPF1 ;DALOI/STAFF - ANAT PATH FILE PRINT BY PT ;11/17/11 10:59

Source Information

Source file <LRAPPF1.m>

Entry Points

Name Comments DBIA/ICR reference
W ;
LR ;
NM ;
AUT
AM
EN ; from LRAPT1,LRAPQACN
DES ; Print Microscopic Description
L ;
A ;
E ;
H ;
H1 ;
H2 ;
H3 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"AUTOPSY #: ",N," AUTOPSY DATE: ",LRH(3),?51,"DIED: ",E
  • Line Location: AUT+4
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: AUT+8
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: AM+3
Function Call: WRITE
  • Prompt: !?2,"Organ/tissue:",?17,"Date rec'd: ",LRH(3),?43,"Acc #:",N
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?64,$E(LR("PATH"),1,12)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?5,"Report not verified."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !?5,$E(^LR(LRDFN,S,LRI,99,B,0),1,74)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !!,"Microscopic Description/Diagnosis:"
  • Line Location: DES+6
Function Call: WRITE
  • Prompt: !!,"Microscopic Description/Diagnosis:"
  • Line Location: DES+10
Function Call: WRITE
  • Prompt: !?5,LRVAL
  • Line Location: DES+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DES+12
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.3,B(1),0),"^")
  • Line Location: L+6
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.5,B(1),0),"^")
  • Line Location: L+12
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.4,B(1),0),"^")
  • Line Location: L+19
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.1,M(1),0),"^")
  • Line Location: L+25
Function Call: WRITE
  • Prompt: !?5,E(4)," ",E(3)," Date: ",E(2)
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !?12,$P(^LAB(61.2,+^LR(LRDFN,S,LRI,2,O,2,M,1,E,0),0),"^")
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,LRO(68)," "
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,"Entries listed by PATIENT (From: ",LRSTR," to: ",LRLST,")"
  • Line Location: H+8
Function Call: WRITE
  • Prompt: !,"Name",?31,"Identifier"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !,LRP,?30,SSN,?42,DOB
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !?5,"Organ/tissue:",?25,"Date received: ",LRH(3),?51,"Acc #:",N
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: H3+2
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: H3+2
Info |  Source |  Entry Points |  Interaction Calls