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

Package: Lab Service

Routine: LROR4A


Information

LROR4A ;AVAMC/REG/SLC/CJS/BA - MICRO PATIENT REPORT - BACTERIA, SIC/SBC, MIC ; 3/16/88 2:41 PM ;

Source Information

Source file <LROR4A.m>

Entry Points

Name Comments DBIA/ICR reference
ANTI ;from LRMIPSZ1
BACT ;from LRMIPSZ1
BUG
GRAM
BSMEAR
BRMK
LST
SSD
MIC
CMNT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?28,"Antibiotic Level(s):",!,"ANTIBIOTIC",?20,"CONC RANGE (ug/ml)",?42,"DRAW TIME"
  • Line Location: ANTI+1
Function Call: WRITE
  • Prompt: !,$P(^LR(LRDFN,"MI",LRIDT,14,B,0),U),?20,$P(^(0),U,3),?42,$S($P(^(0),U,2)="P":"PEAK",$P(^(0),U,2)="T":"TROUGH",1:"")
  • Line Location: ANTI+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !,"Bacteriology Remark(s):"
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !,?3,^LR(LRDFN,"MI",LRIDT,4,B,0)
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+2
Function Call: WRITE
  • Prompt: !,"* BACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: BUG+2
Function Call: WRITE
  • Prompt: !,"URINE SCREEN: "_$S(LRUS="N":"Negative",LRUS="P":"Positive",1:LRUS)
  • Line Location: BUG+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+4
Function Call: WRITE
  • Prompt: !,"SPUTUM SCREEN: ",LRNS
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !,"GRAM STAIN:"
  • Line Location: GRAM+0
Function Call: WRITE
  • Prompt: ?14,^(LRGRM,0),!
  • Line Location: GRAM+0
Function Call: WRITE
  • Prompt: !,"BACTERIOLOGY SMEAR/PREP:",!
  • Line Location: BSMEAR+0
Function Call: WRITE
  • Prompt: ?5,^(LRMYC,0),!
  • Line Location: BSMEAR+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,"CULTURE RESULTS:"
  • Condition for execution: LRAX=1
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRAX>1
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: ?17,$S(LR2ORMOR:LRBUG_". ",1:""),LRQU,LRORG
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SSD+0
Function Call: WRITE
  • Prompt: !,?20,"SIT "
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: "(",LRDRTM1,")"
  • Condition for execution: $L(LRDRTM1)
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: ": ",LRSIC1
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: !,?20,"SBT "
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: "(",LRDRTM1,")"
  • Condition for execution: $L(LRDRTM1)
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: ": ",LRSBC1
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: !,?20,"SIT "
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: "(",LRDRTM2,")"
  • Condition for execution: $L(LRDRTM2)
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: ": ",LRSIC2
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: !,?20,"SBT "
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: "(",LRDRTM2,")"
  • Condition for execution: $L(LRDRTM2)
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: ": ",LRSBC2
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: !,?18,"Antibiotic"
  • Line Location: MIC+0
Function Call: WRITE
  • Prompt: ?35,"MIC (ug/ml)",?50,"MBC (ug/ml)"
  • Line Location: MIC+0
Function Call: WRITE
  • Prompt: !,?18,$P(^(B,0),U),?35,$J($P(^(0),U,2),7),?50,$S($P(^(0),U,3):$J($P(^(0),U,3),7),1:"")
  • Line Location: MIC+1
Function Call: WRITE
  • Prompt: !?20
  • Line Location: CMNT+0
Function Call: WRITE
  • Prompt: "Comment: "
  • Condition for execution: A=0
  • Line Location: CMNT+0
Function Call: WRITE
  • Prompt: ?29,^(LRPC,0)
  • Line Location: CMNT+0
Info |  Source |  Entry Points |  Interaction Calls