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

Package: Lab Service

Routine: LROR4B


Information

LROR4B ;AVAMC/REG/SLC/CJS/BA - MICRO PATIENT REPORT - BACTERIA, ANTIBIOTICS ; 3/16/88 3:47 PM ;

Source Information

Source file <LROR4B.m>

Entry Points

Name Comments DBIA/ICR reference
BACT ;from LRMIPSZ2
CHECK
FIRST
LAB
AB
BUGHDR
ORG
SIR
DCOM
SIR1
NHDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+9
Function Call: WRITE
  • Prompt: !,$E($P(^(0),U),1,14)
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BUGHDR+1
Function Call: WRITE
  • Prompt: ?J-1*13+15,":"
  • Line Location: BUGHDR+1
Function Call: WRITE
  • Prompt: ?J-1*13+15,"SUSC INTP"
  • Line Location: BUGHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ORG+0
Function Call: WRITE
  • Prompt: ?($S(LRFMT="B":J-1*13+15,1:J*5+10)),":"
  • Line Location: ORG+0
Function Call: WRITE
  • Prompt: ?($S(LRFMT="B":A*13+15,1:A*5+15)),$S(LR2ORMOR:LRBUG_". ",1:""),LRORG
  • Line Location: ORG+1
Function Call: WRITE
  • Prompt: ?LRCOMTAB,LRDCOM
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: '('K&(LRDCOM=""))
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: ?LRCOMTAB,LRDCOM(J,A)
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: ?(II-1*13+15),$S($D(LRRES(J)):$P(LRRES(J),U,II),1:""),?(II-1*13+21),$P(LRINT(J),U,II)," "
  • Line Location: SIR1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: !,"PATIENT'S IDENTIFICATION",?60,"MICROBIOLOGY REPORT"
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !!,PNM,?$X+3,SSN,?$X+3,SEX,?$X+3,"DOB: ",DOB," WARD: ",LRWRD,!,"ADM: ",LRADM," ADM DX: ",LRADX
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: @IOF,!,?18,"MICROBIOLOGY LAB ",$S($D(^DD("SITE")):^DD("SITE"),1:"")
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: ?$X+10,Y,!
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: ?$X+10,Y,!
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",LRACC,?25,"TAKEN:",LRTK,?52,"RECEIVED:",LRRC
  • Line Location: NHDR+6
Info |  Source |  Entry Points |  Interaction Calls