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

Package: Lab Service

Routine: LRMIPSZ5


Information

LRMIPSZ5 ;DALOI/STAFF - MICRO PATIENT REPORT - BACTERIA, ANTIBIOTICS ;05/24/11 14:37

Source Information

Source file <LRMIPSZ5.m>

Entry Points

Name Comments DBIA/ICR reference
BACT ;
; from LRMIPSZ2
SECT ; Print antibiotic susceptibility for each section
CHECK ;
FIRST ;
LAB ;
AB ;
BUGHDR ;
ORG ;
SIR ; Display the susceptibility results/interpretations
DCOM ;
NHDR ;
NP ;
; Convenience method

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+84
Function Call: WRITE
  • Prompt: !,"ANTIBIOTIC SUSCEPTIBILITY TEST RESULTS:"
  • Line Location: BACT+86
Function Call: WRITE
  • Prompt: " ('*' indicates display is suppressed)"
  • Line Location: BACT+87
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+92
Function Call: WRITE
  • Prompt: !
  • Line Location: SECT+13
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR($P(LRX,U),30,".")
  • Line Location: AB+11
Function Call: WRITE
  • Prompt: !
  • Line Location: BUGHDR+9
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,A),":"
  • Line Location: BUGHDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: BUGHDR+13
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,A),":"
  • Line Location: BUGHDR+17
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,A,1),"SUSC",?LRTAB(LRSECT,A,2),"INTP"
  • Line Location: BUGHDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ORG+5
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,$P(LRSECT(LRSECT),"^",J)),":"
  • Line Location: ORG+8
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,LRBUG),$S(LR2ORMOR:LRBUG(LRBUG)_". ",1:""),LRORG
  • Line Location: ORG+10
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,II,1),$P($G(LRRES(J)),U,II)
  • Line Location: SIR+6
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,II,2),$P(LRINT(J),U,II)," "
  • Line Location: SIR+7
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,II,2),$P(LRINT(J),U,II)," "
  • Line Location: SIR+8
Function Call: WRITE
  • Prompt: ?LRTAB(LRSECT,II,1),$P(LRRES(J),U,II)," "
  • Line Location: SIR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DCOM+4
Function Call: WRITE
  • Prompt: ?LRCOMTAB(LRSECT),LRDCOM
  • Line Location: DCOM+5
Function Call: WRITE
  • Prompt: ?LRCOMTAB(LRSECT),LRDCOM(0,J)
  • Line Location: DCOM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DCOM+15
Function Call: WRITE
  • Prompt: ?LRCOMTAB(LRSECT),LRDCOM(J,A)
  • Line Location: DCOM+16
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !,"PATIENT'S IDENTIFICATION",?60,"MICROBIOLOGY REPORT"
  • Line Location: NHDR+4
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+5
Function Call: WRITE
  • Prompt: @IOF,!,?18,"MICROBIOLOGY LAB ",$$INS^LRU
  • Line Location: NHDR+7
Function Call: WRITE
  • Prompt: ?$X+10,$$HTE^XLFDT($H,"D"),!
  • Line Location: NHDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NHDR+9
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",LRACC,?25,"TAKEN:",LRTK,?52,"RECEIVED:",LRRC
  • Line Location: NHDR+10
Info |  Source |  Entry Points |  Interaction Calls