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

Package: Lab Service

Routine: LRMIPSZ5


Information

LRMIPSZ5 ; IHS/DIR/FJE - MICRO PATIENT REPORT - BACTERIA, ANTIBIOTICS 10/24/88 16:18 ;

Source Information

Source file <LRMIPSZ5.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 FH^LRMIPSU  ($$INS,D)^LRU  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRMIPSZ2  

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^LRMIPSU AB+1, NHDR+1
$$INS^LRU NHDR+6
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: !,$E($P(^(0),U),1,14)
  • Line Location: AB+1
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 ",$$INS^LRU
  • 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)
^LAB(61.2 - [#61.2] BUGHDR
^LAB(62.06 - [#62.06] BACT+8, CHECK, AB+1
^LAB(69.9 - [#69.9] BACT+2
^LR - [#63] BACT+1, BACT+4, CHECK, FIRST*, BUGHDR
^XUSEC("LRLAB" BACT+6, LAB

Label References

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

Naked Globals

Name Field # of Occurrence
^( BACT+4, CHECK, FIRST, BUGHDR
^(0 AB+1
^(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+1
B1 CHECK*, CHECK+1*, CHECK+2!, FIRST, LAB, LAB+1
B2 CHECK*, 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*, SIR1
IOF NHDR+6
IOSL BACT+6, AB+1, NHDR
>> J AB+1*, BUGHDR+1*, BUGHDR+2*, ORG*, SIR, DCOM, SIR1
>> K DCOM*
LR1PASS BACT+10!, CHECK!, CHECK+2!
LR1PASS( CHECK+1, FIRST*
>> LR2ORMOR ORG+1
>> LRABCNT BACT+5*, BACT+6, AB+1
>> LRACC NHDR+7
>> LRACNT BACT+8*, AB+1*
>> LRADM NHDR+5
>> LRADX NHDR+5
>> LRAO BACT+8*
LRBN BACT+5*, BACT+10!, CHECK*, CHECK+1*, CHECK+2!, FIRST, LAB, LAB+1
>> LRBUG BACT+4*, CHECK, FIRST, BUGHDR*, ORG+1
>> LRCOMTAB BACT+7*, DCOM
>> LRDCOM AB+1*, DCOM
>> LRDCOM( DCOM
>> LRDFN BACT+1, BACT+4, CHECK, FIRST, BUGHDR
>> LREND BACT+6, BACT+8, CHECK, CHECK+1, AB, AB+1, BUGHDR, NHDR+1
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, FIRST, BUGHDR
LRINT BACT+3!, BACT+10!
LRINT( LAB*, LAB+1*, AB+1, SIR, SIR1
>> LRORG BUGHDR*, ORG+1
>> LRPG NHDR+6*
>> LRRC NHDR+7
LRRES BACT+3!, BACT+10!
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+1, 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