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

Package: Lab Service

Routine: LRUCN


Information

LRUCN ;AVAMC/REG/CYM - LAB CONSULTS ;2/18/98 12:34 ;

Source Information

Source file <LRUCN.m>

Entry Points

Name Comments DBIA/ICR reference
PT
QUE
OUT
H
W
F
SET
ASK
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"CONSULTATION REPORT"
  • Line Location: LRUCN+3
Function Call: WRITE
  • Prompt: $C(7),!,"Must have an accession area for ",LRL(1)
  • Line Location: LRUCN+4
Function Call: WRITE
  • Prompt: !,LRL(1)," entry in LAB LETTER file (#65.9) was deleted."
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: @IOF,!!!!,LR("%"),!?5,"CLINICAL RECORD ",LRL(1),?51,"|"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?(IOM-8),"Pg:",LRQ
  • Condition for execution: LRQ>1
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?5,LRQ(1),?51,"|"
  • Line Location: H+0
Function Call: WRITE
  • Prompt: "Specimen:",LRI(1)
  • Condition for execution: $D(LRI)
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: F+0
Function Call: WRITE
  • Prompt: W
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !?60,"(",$S($D(LRE):"End of report",1:"See next page"),")",!,LRS,!,LRS(1),?60,LRD
  • Line Location: F+1
Function Call: WRITE
  • Prompt: W
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,LRP,?40,"LOC: ",LRLLOC,!,"SSN:",SSN,?16,"SEX:",SEX," DOB: ",DOB
  • Line Location: F+2
Function Call: WRITE
  • Prompt: " AGE:",AGE
  • Condition for execution: $D(AGE)
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no specimen dates for ",LRP," ",SSN
  • Line Location: ASK+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call