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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPS1

Package: Lab Service

Routine: LRAPS1


Information

LRAPS1 ;AVAMC/REG/CYM/KLL - ANATOMIC PATH PRINT ;2/9/98 08:04 ;

Source Information

Source file <LRAPS1.m>

Entry Points

Name Comments DBIA/ICR reference
S ;from LRAPS
EN
L
E
HDR1
HDR2
HDR21
HDR3
M

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"Organ/tissue:",?17,"Date rec'd: ",LRH(3),?43,"Acc #:",N,?64,$E(LR("PATH"),1,12)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?5,"Report not verified."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,$E(^(B,0),1,74)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.3,B(1),0),"^")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.5,B(1),0),"^")
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " (",$S(B(2)=0:"Negative",B(2)=1:"Positive",1:"?"),")"
  • Condition for execution: B(2)]""
  • Line Location: L+1
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.4,B(1),0),"^")
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !?10,$P(^LAB(61.1,M(1),0),"^")
  • Line Location: L+3
Function Call: WRITE
  • Prompt: !?5,E(4)," ",E(3)," Date: ",E(2)
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !?12,$P(^LAB(61.2,E(1),0),"^")
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?30,$S(S="SP":"SURGICAL PATHOLOGY",S="CY":"CYTOPATHOLOGY",S="EM":"ELECTRON MICROSCOPY",1:"")
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?3,"Organ/tissue:",?20,"Date rec'd: ",LRH(3),?43,"Acc #:",$J(N,5),?64,$E(LR("PATH"),1,12)
  • Line Location: HDR21+0
Function Call: WRITE
  • Prompt: !?5,O(6)
  • Line Location: HDR3+0
Function Call: WRITE
  • Prompt: " ",W(3)," gm"
  • Condition for execution: W(3)
  • Line Location: HDR3+0
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP "
  • Variable: LRA("A")
  • Timeout: DTIME
  • Line Location: M+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: M+1
Function Call: WRITE
  • Prompt: @IOF,$E(LRP,1,30),?31,SSN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5)
  • Line Location: M+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.08 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call