Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls