Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LROR4B

Package: Lab Service

Routine: LROR4B


Information

LROR4B ; IHS/DIR/FJE - MICRO PATIENT REPORT - BACTERIA, ANTIBIOTICS 3/16/88 3:47 PM ;

Source Information

Source file <LROR4B.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 FH^LROR4  D^LRU  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LROR4A  

Entry Points

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

External References

Name Field # of Occurrence
^%DT NHDR+6
FH^LROR4 AB, NHDR+1
D^LRU NHDR+6

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,HRCN,?$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 ",$S($D(^DD("SITE")):^DD("SITE"),1:"")
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: ?$X+10,Y,!
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: ?$X+10,Y,!
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",LRACC,?25,"TAKEN:",LRTK,?52,"RECEIVED:",LRRC
  • Line Location: NHDR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" NHDR+6
^LAB(61.2 - [#61.2] BUGHDR
^LAB(62.06 - [#62.06] BACT+8, CHECK, AB
^LAB(69.9 - [#69.9] BACT+2
^LR - [#63] BACT+1, BACT+4, CHECK, BUGHDR
^XUSEC("LRLAB" BACT+6, LAB

Label References

Name Line Occurrences
AB BACT+8
BUGHDR BACT+6, AB
CHECK BACT+4
DCOM SIR
FIRST CHECK
LAB CHECK+1
NHDR BACT+6
ORG BUGHDR
SIR AB
SIR1 SIR

Naked Globals

Name Field # of Occurrence
^( BACT+4, CHECK, BUGHDR
^(0 AB
^(2 BACT+4, BUGHDR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A BACT+4*, BACT+7, LAB, LAB+1, BUGHDR*, BUGHDR+1, BUGHDR+2, ORG, ORG+1, DCOM*
B BACT+8*, CHECK*, CHECK+1*, CHECK+2!, FIRST, AB
B1 CHECK*, CHECK+1*, CHECK+2!, FIRST, LAB, LAB+1
B2 CHECK+1*, CHECK+2!, FIRST*, LAB, LAB+1
B3 CHECK+1*, CHECK+2!, FIRST*, LAB, LAB+1
>> DOB NHDR+5
DUZ BACT+6, LAB
>> HRCN NHDR+5
>> I BACT+5*, BACT+8*, CHECK*, CHECK+1*, DCOM*
II SIR*, SIR+1!, SIR1
IOF NHDR+6
IOSL BACT+6, AB, NHDR
>> J AB*, BUGHDR+1*, BUGHDR+2*, ORG*, SIR, DCOM, SIR1
>> K DCOM*
LR1PASS BACT+9!, CHECK!, CHECK+2!
LR1PASS( CHECK+1, FIRST*
>> LR2ORMOR ORG+1
>> LRABCNT BACT+5*, BACT+6, AB
>> LRACC NHDR+7
>> LRACNT BACT+8*, AB*
>> LRADM NHDR+5
>> LRADX NHDR+5
>> LRAO BACT+8*
LRBN BACT+5*, BACT+9!, CHECK*, CHECK+1*, CHECK+2!, FIRST, LAB, LAB+1
>> LRBUG BACT+4*, CHECK, BUGHDR*, ORG+1
>> LRCOMTAB BACT+7*, DCOM
>> LRDCOM AB*, DCOM
>> LRDCOM( DCOM
>> LRDFN BACT+1, BACT+4, CHECK, BUGHDR
>> LREND BACT+6, AB
LRFLAG CHECK*, CHECK+2!, FIRST*, LAB, LAB+1
>> LRFLIP BACT+6, NHDR
>> LRFMT BACT+2*, BACT+7, BUGHDR+1, BUGHDR+2, ORG, ORG+1, SIR
>> LRHC BACT+6, NHDR+1
>> LRIDT BACT+1, BACT+4, CHECK, BUGHDR
LRINT BACT+3!, BACT+9!
LRINT( LAB*, LAB+1*, AB, SIR, SIR1
>> LRORG BUGHDR*, ORG+1
>> LRPG NHDR+6*
>> LRRC NHDR+7
LRRES BACT+3!, BACT+9!
LRRES( BACT+5, LAB*, LAB+1*, SIR, SIR1
>> LRTK NHDR+7
>> LRWRD NHDR+5
>> LRWRDVEW BACT+6, LAB
>> PNM NHDR+5
>> SEX NHDR+5
U BACT+2, CHECK, CHECK+1, FIRST, LAB, LAB+1, AB, BUGHDR, SIR, SIR1
>> X NHDR*, NHDR+2*, NHDR+6*
>> Y NHDR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All