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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRMIPSZ2

Package: Lab Service

Routine: LRMIPSZ2


Information

LRMIPSZ2 ;DALOI/STAFF - MICRO PATIENT REPORT - BACTERIA, SIC/SBC, MIC ;Jul 15, 2021@13:13

Source Information

Source file <LRMIPSZ2.m>

Entry Points

Name Comments DBIA/ICR reference
ANTI ;
; from LRMIPSZ1
MES ;LR*5.2*547: Display informational message if accession/test is currently being edited.
BACT ;
; from LRMIPSZ1
BUG ;
GRAM ;
BSMEAR ;
BRMK ;
; also called from T51^LRMIV1
LST ;
SSD ;
MIC ;
CMNT ;
NP ;
; Convenience method

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?28,"Antibiotic Level(s):"
  • Line Location: ANTI+4
Function Call: WRITE
  • Prompt: !,"ANTIBIOTIC",?20,"CONC RANGE (ug/ml)",?42,"DRAW TIME"
  • Line Location: ANTI+5
Function Call: WRITE
  • Prompt: !,$P(^TMP("LRMI",$J,LRDFN,"MI",LRIDT,14,B,0),U),?20,$P(^(0),U,3),?42,$$EXTERNAL^DILFD(63.42,1,"",$P(^(0),U,2))
  • Line Location: ANTI+8
Function Call: WRITE
  • Prompt: !,?22,"**** ATTENTION ****",!,?10,"The "_LR7AREA_" Report is being edited",!,?10,"by tech code ",^XTMP("LRMICRO EDIT",LRDFN,LRIDT,LR7SB)
  • Line Location: MES+5
Function Call: WRITE
  • Prompt: " and current results",!,?10,"may not be visible until approved.",!
  • Line Location: MES+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+30
Function Call: WRITE
  • Prompt: !,"Bacteriology Remark(s):"
  • Line Location: BACT+31
Function Call: WRITE
  • Prompt: !,?3,^TMP("LRMI",$J,LRDFN,"MI",LRIDT,4,B,0)
  • Line Location: BACT+34
Function Call: WRITE
  • Prompt: !,"* BACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: BUG+9
Function Call: WRITE
  • Prompt: !,"URINE SCREEN: "_$S(LRUS="N":"Negative",LRUS="P":"Positive",1:LRUS)
  • Line Location: BUG+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+13
Function Call: WRITE
  • Prompt: !,"SPUTUM SCREEN: ",LRNS
  • Line Location: BUG+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+14
Function Call: WRITE
  • Prompt: !,"GRAM STAIN:"
  • Line Location: GRAM+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: CNT>1
  • Line Location: GRAM+6
Function Call: WRITE
  • Prompt: ?12,^(LRGRM,0)
  • Line Location: GRAM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GRAM+7
Function Call: WRITE
  • Prompt: !,"BACTERIOLOGY SMEAR/PREP:",!
  • Line Location: BSMEAR+1
Function Call: WRITE
  • Prompt: ?5,^(LRMYC,0),!
  • Line Location: BSMEAR+3
Function Call: WRITE
  • Prompt: !,"CULTURE RESULTS:"
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+10
Function Call: WRITE
  • Prompt: ?17,$S(LR2ORMOR:$J(LRBUG,2)_". ",1:" "),LRORG
  • Line Location: LST+11
Function Call: WRITE
  • Prompt: !,?21
  • Line Location: LST+16
Function Call: WRITE
  • Prompt: LRX
  • Line Location: LST+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: ": ",LRSIC1
  • Line Location: SSD+8
Function Call: WRITE
  • Prompt: ": ",LRSBC1
  • Line Location: SSD+13
Function Call: WRITE
  • Prompt: ": ",LRSIC2
  • Line Location: SSD+18
Function Call: WRITE
  • Prompt: ": ",LRSBC2
  • Line Location: SSD+23
Function Call: WRITE
  • Prompt: !,?21,"Antibiotic"
  • Line Location: MIC+3
Function Call: WRITE
  • Prompt: ?38,"MIC (ug/ml)",?53,"MBC (ug/ml)"
  • Line Location: MIC+7
Function Call: WRITE
  • Prompt: !,?21,$P(^(B,0),U),?38,$J($P(^(0),U,2),7),?53,$J($P(^(0),U,3),7)
  • Line Location: MIC+11
Function Call: WRITE
  • Prompt: !,?21,"Comment: "_^UTILITY($J,"W",31,1,0)
  • Line Location: CMNT+9
Function Call: WRITE
  • Prompt: !,?21," "_^UTILITY($J,"W",31,LRIDX,0)
  • Line Location: CMNT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.42 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call