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 ;DALOI/RBN - MICRO PATIENT REPORT ;05/09/12 17:03

Source Information

Source file <LRMIPSU.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 4 BANNER^LRMIAU2  NP^LRMIPSZ1  ($$REFDOC,ORU,PFAC,RL)^LRRP1  $$INS^LRU  
Kernel 3 ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  $$NAME^XUAF4  
Toolkit 1 $$GET^XPAR  

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

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

Entry Points

Name Comments DBIA/ICR reference
HDR ;
; Handle different callers
FOOT ;
; Handle different callers
FH ;
; from LRMIPSZ1, LRMIPSZ2, LRMIPSZ5. Also called from LROR4
; Handle different callers
FHR ; from LRMIPSZ1, LRMIPSZ2
REFS ; from LRMIPSZ1
LIST ;
WR ;
; Handle different callers
WR1 ;
WR2 ;
FOOT1 ;
; Backward compatibility for pre NP^LRUTIL displays
; from LRMIPSZ1
FOOT2 ;
; for use with NP^LRUTIL displays
; from LRMIPSZ1
HDR1 ;
; Backward compatible for pre NP^LRUTIL displays
; from LRMIPSZ1
HDR2(LRPRNTED,LRABORT,LRPGDATA) ;
WAIT ;
; from LRMIPSZ1, LRMIPSZ2
PRE ;
; from LRMIPSZ2, LRMIPSZ3, LRMIPSZ4
; also indirectly from RPT^LROR4
PROMPT() ;
; Creates the "more" prompt for display
; Expects PNM,SSN,LRPATLOC
; Outputs
; The prompt for display
PNMSSN(PNM,SSN) ;
; Creates the Patient Name/SSN banner
; Inputs
; PNM : Patient's Name
; SSN : SSN
; Outputs
; The formatted string for the patient name and SSN
NP ;
; Convenience method

External References

Name Field # of Occurrence
BANNER^LRMIAU2 HDR1+28
NP^LRMIPSZ1 NP+2
$$REFDOC^LRRP1 HDR1+43, HDR2+74
ORU^LRRP1 HDR1+33, HDR2+60
PFAC^LRRP1 HDR1+18, HDR2+40
RL^LRRP1 HDR1+23, HDR2+52
$$INS^LRU FOOT1+11, FOOT2+17
$$FMTE^XLFDT HDR1+35, HDR2+62
$$HTE^XLFDT HDR1+9, HDR2+27
$$REPEAT^XLFSTR FOOT2+6, HDR2+80
$$GET^XPAR HDR1+18, HDR1+21, HDR2+37, HDR2+46
$$NAME^XUAF4 FOOT1+10, FOOT2+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(LREF,2),". ",$P(X1,U,2),!,$P(X1,U)
  • Line Location: WR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WR1+6
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: WR1+6
Function Call: WRITE
  • Prompt: $P(X1,U,5)
  • Line Location: WR1+7
Function Call: WRITE
  • Prompt: ",",$E($P(X1,U,6),1,3)+1700
  • Condition for execution: $L($P(X1,U,6))
  • Line Location: WR1+7
Function Call: WRITE
  • Prompt: !!,"Reference(s): "
  • Line Location: WR2+4
Function Call: WRITE
  • Prompt: !!,$J(LREF,2),". ",$P(X1,U,2)
  • Line Location: WR2+7
Function Call: WRITE
  • Prompt: !,$P(X1,U)
  • Line Location: WR2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WR2+11
Function Call: WRITE
  • Prompt: $P(^LAB(95,$P(X1,U,3),0),U)," ",$P(X1,U,4),":"
  • Line Location: WR2+13
Function Call: WRITE
  • Prompt: $P(X1,U,5)
  • Line Location: WR2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT1+4
Function Call: WRITE
  • Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: FOOT1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: FOOT1+7
Function Call: WRITE
  • Prompt: !!,PNM,?$X+3,SSN,?$X+3
  • Line Location: FOOT1+8
Function Call: WRITE
  • Prompt: IA
  • Condition for execution: $D(IA)
  • Line Location: FOOT1+8
Function Call: WRITE
  • Prompt: ?60," ROUTING: ",LRPATLOC,!
  • Line Location: FOOT1+8
Function Call: WRITE
  • Prompt: $$NAME^XUAF4(LRX)
  • Line Location: FOOT1+10
Function Call: WRITE
  • Prompt: $$INS^LRU
  • Line Location: FOOT1+11
Function Call: WRITE
  • Prompt: " LABORATORY ",?62,LRACC,!,"MICROBIOLOGY",?62,"page ",LRPG,!
  • Line Location: FOOT1+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR(LRX,IOM/$L(LRX))
  • Line Location: FOOT2+6
Function Call: WRITE
  • Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: FOOT2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT2+9
Function Call: WRITE
  • Prompt: !,LRX
  • Line Location: FOOT2+11
Function Call: WRITE
  • Prompt: ?60," ROUTING: ",LRPATLOC
  • Line Location: FOOT2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT2+14
Function Call: WRITE
  • Prompt: $$NAME^XUAF4(LRX)
  • Line Location: FOOT2+16
Function Call: WRITE
  • Prompt: $$INS^LRU
  • Line Location: FOOT2+17
Function Call: WRITE
  • Prompt: " LABORATORY ",?62,LRACC
  • Line Location: FOOT2+18
Function Call: WRITE
  • Prompt: !,"MICROBIOLOGY",?62,"page ",LRPG
  • Line Location: FOOT2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT2+20
Function Call: WRITE
  • Prompt: ?IOM-($L(X)+1),X
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !?27,"----MICROBIOLOGY----",?70
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+23
Function Call: WRITE
  • Prompt: !,"Report Completed: ",$$FMTE^XLFDT($P(LRX,"^",3),"M")
  • Line Location: HDR1+35
Function Call: WRITE
  • Prompt: !?20,">> CONTINUATION OF ",LRACC," <<"
  • Line Location: HDR1+37
Function Call: WRITE
  • Prompt: !!,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: HDR1+38
Function Call: WRITE
  • Prompt: !,"Provider: ",LRDOC
  • Line Location: HDR1+45
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+46
Function Call: WRITE
  • Prompt: "Comment on specimen: ",LRCMNT,!
  • Line Location: HDR1+47
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+22
Function Call: WRITE
  • Prompt: !,LRX,?39," AGE: ",AGE
  • Line Location: HDR2+24
Function Call: WRITE
  • Prompt: ?47," LOC: ",$E(LRWRD,1,(IOM-70))," "
  • Line Location: HDR2+25
Function Call: WRITE
  • Prompt: ?IOM-($L(X)+1),X
  • Line Location: HDR2+28
Function Call: WRITE
  • Prompt: !?27,"----MICROBIOLOGY----"
  • Line Location: HDR2+31
Function Call: WRITE
  • Prompt: ?IOM-5-4,"page ",LRPG
  • Line Location: HDR2+32
Function Call: WRITE
  • Prompt: !,LRX(I)
  • Line Location: HDR2+43
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+49
Function Call: WRITE
  • Prompt: !,LRY(I)
  • Line Location: HDR2+55
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+56
Function Call: WRITE
  • Prompt: !,"Report Completed: ",$$FMTE^XLFDT($P(LRX,"^",3),"M")
  • Line Location: HDR2+62
Function Call: WRITE
  • Prompt: !?20,">> CONTINUATION OF ",LRACC," <<"
  • Line Location: HDR2+65
Function Call: WRITE
  • Prompt: ?IOM-5-4,"page ",LRPG
  • Line Location: HDR2+66
Function Call: WRITE
  • Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK
  • Line Location: HDR2+68
Function Call: WRITE
  • Prompt: !,"Provider: ",$S($D(LRDOCZ):LRDOCZ,1:LRDOC)
  • Line Location: HDR2+76
Function Call: WRITE
  • Prompt: !,"Comment on specimen: ",LRCMNT
  • Line Location: HDR2+77
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR(LRX,IOM/$L(LRX)),!
  • Line Location: HDR2+80
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: !?3,^(J,0)
  • Line Location: PRE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRE+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.2 - [#61.2] LIST+1, LIST+3, WR1+2, WR2+2
^LAB(95 - [#95] WR1+6, WR2+13
^LR - [#63] FOOT1+9, FOOT2+15, HDR1+22, HDR1+28, HDR1+31, HDR1+34, HDR2+48, HDR2+61
^TMP("LRMI" PRE+5, PRE+8
^XUSEC("LRLAB" HDR1+13, HDR2+34, PRE+4

Label References

Name Line Occurrences
$$PNMSSN FOOT2+10, HDR2+23, PROMPT+6
FOOT FH+6, FHR+1, WR1+3
FOOT1 FOOT+6
HDR FH+6, FHR+1, WR1+3
HDR1 HDR+6
LIST REFS+2
NP FH+4, WR2+3, WR2+5, WR2+8, WR2+10, WR2+12, WR2+16, PRE+6, PRE+8, PRE+10
, PRE+12
REFS FHR+1
WAIT HDR1+4
WR LIST+3
WR1 WR+4
WR2 WR+3

Naked Globals

Name Field # of Occurrence
^( PRE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE HDR1+7, HDR2+24
>> B REFS+1*, WR1+4*, WR2+4, WR2+6*
DTIME WAIT+3
DUZ HDR1+13, HDR2+34, PRE+4
DUZ(2 HDR1+18, HDR2+40
I HDR2+13~, HDR2+42*, HDR2+43*, HDR2+54*, HDR2+55*, WAIT+2*
>> IA FOOT1+8, FOOT2+12
IOF HDR1+6, HDR2+22
IOM FOOT2+6, HDR1+7, HDR1+10, HDR2+25, HDR2+28, HDR2+32, HDR2+66, HDR2+80, PROMPT+11
IOSL FH+6, FHR+1, WR1+3, FOOT1+4, WAIT+2
IOST HDR1+6, HDR2+20
ISCONS HDR2+13~, HDR2+18*, HDR2+20*, HDR2+22, HDR2+34
J PRE+3~, PRE+7*, PRE+8*
LRABORT FH+5, WR2+3, WR2+5, WR2+8, WR2+10, WR2+12, WR2+16, HDR2~, HDR2+14*, PRE+6
, PRE+8, PRE+10, PRE+12
>> LRACC FOOT1+12, FOOT2+18, HDR1+37, HDR2+65
LRBANFLG HDR1+29~, HDR1+30*, HDR1+31*
LRBANIEN HDR1+29~, HDR1+31*
LRBUG REFS+3!
LRBUG( REFS+2
>> LRCMNT HDR1+47, HDR2+77
>> LRCS FOOT1+6, FOOT1+7, FOOT2+7, FOOT2+8, HDR1+38, HDR2+68
>> LRDFN FOOT1+9, FOOT2+15, HDR1+22, HDR1+28, HDR1+31, HDR1+34, HDR1+43, HDR2+48, HDR2+61, HDR2+74
, PRE+5, PRE+8
>> LRDOC HDR1+41, HDR1+44*, HDR1+45, HDR2+73, HDR2+76
LRDOCZ HDR2+71~, HDR2+75*, HDR2+76
>> LREF REFS+1*, REFS+2*, WR1+5, WR2+7
>> LREND FH+5*, FHR+1, REFS+2, LIST+3, WR1+3, HDR1+4, WAIT+3*
>> LRFLIP FH+6, FHR+1, WR1+3, FOOT1+4
>> LRH HDR1+13, HDR2+34
>> LRHC FOOT1+5, HDR1+13, WAIT+3
>> LRIDT FOOT1+9, FOOT2+15, HDR1+22, HDR1+28, HDR1+31, HDR1+34, HDR1+43, HDR2+48, HDR2+61, HDR2+74
, PRE+5, PRE+8
>> LRIFN REFS+2*, LIST+1, LIST+3, WR1+2, WR2+2
>> LRJ0 HDR1+6
>> LRJ02 HDR1+6*
>> LRNUM LIST+2*, LIST+3*, WR1+2, WR2+2
>> LRPATLOC FOOT1+8, FOOT2+13, WAIT+3, PROMPT+7
>> LRPG FOOT1+12, FOOT2+19, HDR1+4*, HDR1+12, HDR1+18, HDR1+28, HDR1+32, HDR1+37, HDR1+40, HDR2+15*
, HDR2+16*, HDR2+22, HDR2+30, HDR2+32, HDR2+64, HDR2+66
LRPGDATA HDR+3, FOOT+3, FH+3, WR+2, HDR2~
LRPGDATA("FTR" FOOT+4
LRPGDATA("HDR" HDR+4
LRPGDATA("PGNUM" HDR2+15
>> LRPRE PRE+5, PRE+8
LRPRNTED HDR2~
LRPRNTED("ORU" HDR2+58, HDR2+59*
LRPRNTED("PFAC" HDR2+37, HDR2+38*
LRPRNTED("REF" HDR2+70, HDR2+72*
LRPRNTED("RF" HDR2+46, HDR2+47*
>> LRSB HDR1+28
LRSS FOOT1+9, FOOT2+4~*, FOOT2+15, HDR1+15*, HDR1+22, HDR1+43, HDR2+19~*, HDR2+74
>> LRST FOOT1+7, FOOT2+8
>> LRTK FOOT1+6, FOOT2+7, HDR1+38, HDR2+68
>> LRTUS PRE+4
>> LRWRD HDR1+7, HDR2+25
>> LRWRDVEW HDR1+13, HDR2+34, PRE+4
LRX FOOT1+3~, FOOT1+9*, FOOT1+10, FOOT1+11, FOOT2+3~, FOOT2+5*, FOOT2+6, FOOT2+10*, FOOT2+11, FOOT2+15*
, FOOT2+16, FOOT2+17, HDR1+3~, HDR1+22*, HDR1+23, HDR1+34*, HDR1+35, HDR1+42~, HDR1+43*, HDR1+44
, HDR2+13~, HDR2+23*, HDR2+24, HDR2+39!, HDR2+40, HDR2+41, HDR2+48*, HDR2+50, HDR2+52, HDR2+61*
, HDR2+62, HDR2+71~, HDR2+74*, HDR2+75, HDR2+79*, HDR2+80
LRX( HDR2+43
LRY HDR2+13~, HDR2+51!, HDR2+52, HDR2+53
LRY( HDR2+55
PLOCX PROMPT+5~, PROMPT+7*, PROMPT+8*, PROMPT+9
PNM FOOT1+8, FOOT2+10, HDR1+7, HDR2+23, WAIT+3, PROMPT+6, PNMSSN~, PNMSSN+8*, PNMSSN+10
PNMX PROMPT+5~, PNMSSN+7~, PNMSSN+10*, PNMSSN+11*, PNMSSN+12
SSN FOOT1+8, FOOT2+10, HDR1+7, HDR2+23, WAIT+3, PROMPT+6, PNMSSN~, PNMSSN+9*, PNMSSN+14
STR PROMPT+5~, PROMPT+6*, PROMPT+9*, PROMPT+11*, PROMPT+12, PNMSSN+7~, PNMSSN+12*, PNMSSN+13*, PNMSSN+14*, PNMSSN+15
U WR1+2, WR1+5, WR1+6, WR1+7, WR2+2, WR2+7, WR2+9, WR2+13, WR2+14, WR2+15
WPGNM HDR2+13~, HDR2+17*, HDR2+32*, HDR2+66*
X HDR+2~, HDR+4*, HDR+5, FOOT+2~, FOOT+4*, FOOT+5, HDR1+3~, HDR1+9*, HDR1+10, HDR2+13~
, HDR2+27*, HDR2+28, WAIT+3*, PROMPT+5~, PROMPT+10*, PROMPT+11, PNMSSN+7~
>> X1 WR1+2*, WR1+5, WR1+6, WR1+7, WR2+2*, WR2+7, WR2+9, WR2+13, WR2+14, WR2+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All