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

Package: Lab Service

Routine: LRMIPSU


Information

LRMIPSU ; IHS/DIR/FJE - MICRO PATIENT REPORT ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <LRMIPSU.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Changes To Lab 3 ^BLRALAU  ($$ADDON,ESIGINFO)^BLRUTIL  LABHDR^BLRUTIL2  
Kernel 2 ($$FMTE,$$HTE)^XLFDT  $$CJ^XLFSTR  
Lab Service 2 ^LRAIPRIV  $$INS^LRU  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Lab Service 7 LRMIPSZ1  LRMIPSZ2  LRMIPSZ3  LRMIPSZ4  LRMIPSZ5  LROR4  LROR4A  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - from LRMIPSZ2, LRMIPSZ3, LRMIPSZ4
HDR ;EP - from LRMIPSZ1
IHSKEY ; EP -- Legends for Micro Reports
REFS ;EP - from LRMIPSZ1
LIST
FOOT ;EP - from LRMIPSZ1
; F X=1:1 W ! Q:$Y>(IOSL-LRFLIP)
WR
FH ;EP - from LRMIPSZ1, LRMIPSZ2, LRMIPSZ5
WAIT ; EP - from LRMIPSZ1, LRMIPSZ2
;
FHR ;EP - from LRMIPSZ1, LRMIPSZ2

External References

Name Field # of Occurrence
^BLRALAU WAIT+4
$$ADDON^BLRUTIL WAIT+4
ESIGINFO^BLRUTIL HDR+35
LABHDR^BLRUTIL2 HDR+26
^LRAIPRIV HDR+28
$$INS^LRU FOOT+11
$$FMTE^XLFDT HDR+10
$$HTE^XLFDT HDR+13
$$CJ^XLFSTR IHSKEY+2, IHSKEY+3, HDR+20, HDR+21
$$GET^XPAR HDR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(LREF,2),". ",$P(X1,U,2),!,$P(X1,U)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: $P(^LAB(95,$P(X1,U,3),0),U)," ",$P(X1,U,4),":"
  • Condition for execution: $L($P(X1,U,3))
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: $P(X1,U,5)
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: ",",$E($P(X1,U,6),1,3)+1700
  • Condition for execution: $L($P(X1,U,6))
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: IA
  • Condition for execution: $D(IA)
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: ?60," ROUTING: ",LRPATLOC,!
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: !,PNM,?$X+3,HRCN,?$X+3
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: IA
  • Condition for execution: $D(IA)
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: ?60," ROUTING: ",LRPATLOC,!
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: $$INS^LRU," LABORATORY",?62,LRACC,!,"MICROBIOLOGY",?62,"page ",LRPG,!
  • Line Location: FOOT+11
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: IHSKEY+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("S=Sensitive I=Intermediate R=Resistant NI=Not Immune I=Immune",IOM)
  • Line Location: IHSKEY+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" IB=Inducible Beta Lactam NR=Non Reactive WR=Weakly Reactive R=Reactive",IOM),!
  • Line Location: IHSKEY+3
Function Call: WRITE
  • Prompt: !,PNM,?20," ",HRCN,?35," AGE: ",AGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?46,"LOC: ",LRWRD
  • Condition for execution: $L(LRWRD)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?61," ",LRDT0
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$E(PNM,1,18),?19,HRCN
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?29,"DOB: ",$$FMTE^XLFDT(DOB,"5DZ")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?29,"AGE: ",AGE
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?64,$TR($$HTE^XLFDT($H,"5MZ"),"@"," ")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,HDRSTR
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !,HDRSTR,!
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: !,"Site/Specimen: ",LRST
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: !,"Provider: ",LRDOC,!
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: "Comment on specimen: ",LRCMNT,!
  • Condition for execution: $L(LRCMNT)
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+9
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+10
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WAIT+11
Function Call: WRITE
  • Prompt: !,"Preliminary Comments: "
  • Condition for execution: +$O(^LR(LRDFN,"MI",LRIDT,LRPRE,0))
  • Line Location: PRE+1
Function Call: WRITE
  • Prompt: !?3,^(J,0)
  • Line Location: PRE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.2 - [#61.2] LIST, LIST+2, WR
^LAB(95 - [#95] WR+4
^LR - [#63] PRE+1
^XUSEC("LRLAB" HDR+29, PRE+1

Label References

Name Line Occurrences
FOOT FH+1, FHR+1, WR+1
HDR FH+1, FHR+1, WR+1
IHSKEY FOOT+8, WAIT+7
LIST REFS+2
REFS FHR+1
WAIT HDR+1
WR LIST+2

Naked Globals

Name Field # of Occurrence
^( PRE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE HDR+11
>> B REFS+1*, WR+2*
>> DOB HDR+10
DTIME WAIT+11
DUZ HDR+29, PRE+1
DUZ("AG" HDR+28
DUZ(2 WAIT+4
HDRSTR HDR+19~, HDR+20*, HDR+21*, HDR+23*, HDR+25
>> HRCN FOOT+10, HDR+9, WAIT+11
>> I REFS+2*, LIST+2*, WAIT+9*, PRE+1*
>> IA FOOT+10
IOF HDR+2
IOM IHSKEY+1, IHSKEY+2, IHSKEY+3, HDR+20, HDR+21
IOSL FH+1, FHR+1, WR+1, FOOT+2, WAIT+9
IOST HDR+2, WAIT+7
>> J PRE+1*
>> LRACC FOOT+11, HDR+21, HDR+30
LRBUG REFS+3!
LRBUG( REFS+2
>> LRCMNT HDR+33
>> LRCS FOOT+3, FOOT+5, HDR+31, HDR+32
>> LRDFN PRE+1
>> LRDOC HDR+33
>> LREF REFS+1*, REFS+2*, WR+3
>> LREND FHR+1, REFS+2, LIST+2, WR+1, HDR+1, WAIT+11*
>> LRFLIP FH+1, FHR+1, WR+1, FOOT+2
>> LRH HDR+29
>> LRHC FOOT+3, HDR+14, HDR+29, WAIT+11
>> LRIDT PRE+1
>> LRIFN REFS+2*, LIST, LIST+2, WR
>> LRJ0 HDR+2
>> LRJ02 HDR+2*
>> LRNUM LIST+1*, LIST+2*, WR
>> LRPATLOC FOOT+10, WAIT+11
>> LRPG FOOT+11, HDR+1*, HDR+20, HDR+21, HDR+23, HDR+30, HDR+32, HDR+33
>> LRPRE PRE+1
>> LRRC HDR+30
>> LRST FOOT+5, HDR+32
>> LRTK FOOT+3, HDR+31
>> LRTUS PRE+1
>> LRWRD HDR+12
>> LRWRDVEW HDR+29, PRE+1
>> PNM FOOT+10, HDR+9, WAIT+11
U WR, WR+3, WR+4, WR+5, WAIT+3
>> X FOOT+2*, WAIT+11*
>> X1 WR*, WR+3, WR+4, WR+5
>> XQY0 WAIT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All