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 ;AVAMC/REG/SLC/CJS/BA - MICRO PATIENT REPORT - BACTERIA, ANTIBIOTICS ; 3/16/88 3:47 PM ;

Source Information

Source file <LROR4B.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LROR4A  

Entry Points

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

External References

Name Field # of Occurrence
^%DT NHDR+5
FH^LROR4 ABNHDR+1
D^LRU NHDR+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" NHDR+5
^LAB(61.2 - [#61.2] BUGHDR
^LAB(62.06 - [#62.06] BACT+8, CHECKAB
^LAB(69.9 - [#69.9] BACT+2
^LR - [#63] BACT+1, BACT+4, CHECKBUGHDR
^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, CHECKBUGHDR
^(0 AB
^(2 BACT+4, BUGHDR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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