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

Package: Lab Service

Routine: LRMIPSZ4


Information

LRMIPSZ4 ;DALOI/RBN - MICRO PATIENT REPORT - AFB, FUNGUS ;Jul 15, 2021@13:13

Source Information

Source file <LRMIPSZ4.m>

Entry Points

Name Comments DBIA/ICR reference
TB ;
; from LRMIPSZ1
; also called from RPT^LROR4
AFS ; Acid Fast Stain results
LIST ; List organisms
SEN ; Display AFB sensitivities.
FUNG ;
; from LRMIPSZ1
; also called from RPT^LROR4
QA ;
SHOW ;
LIST1 ;
NP ;
; Convenience method

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"* MYCOBACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: TB+24
Function Call: WRITE
  • Prompt: !,"Mycobacteriology Remark(s):"
  • Line Location: TB+34
Function Call: WRITE
  • Prompt: !,?3,^(B,0)
  • Line Location: TB+37
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: AFS+13
Function Call: WRITE
  • Prompt: !,LRX
  • Line Location: AFS+13
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRAMT
  • Line Location: AFS+14
Function Call: WRITE
  • Prompt: !,"Mycobacterium: ",LRTBC
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRQU
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !," Comment: "
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: ?13,^(B,0),!
  • Line Location: LIST+13
Function Call: WRITE
  • Prompt: !,?3,$$LJ^XLFSTR(LRTBA,30,"."),?34,LRTBS
  • Line Location: SEN+14
Function Call: WRITE
  • Prompt: !,"* MYCOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => ",Y," TECH CODE: ",DZ
  • Line Location: FUNG+25
Function Call: WRITE
  • Prompt: !,"MYCOLOGY SMEAR/PREP:"
  • Line Location: QA+5
Function Call: WRITE
  • Prompt: !?5,^(LRMYC,0)
  • Line Location: QA+7
Function Call: WRITE
  • Prompt: !,"Fungus/Yeast: "
  • Line Location: QA+12
Function Call: WRITE
  • Prompt: !,"Mycology Remark(s):"
  • Line Location: QA+19
Function Call: WRITE
  • Prompt: !,?3,^(LRMYC,0)
  • Line Location: QA+22
Function Call: WRITE
  • Prompt: !,LRTBC
  • Line Location: LIST1+3
Function Call: WRITE
  • Prompt: !,?3,"Quantity: ",LRQU
  • Line Location: LIST1+5
Function Call: WRITE
  • Prompt: !,?3,"Comment:"
  • Line Location: LIST1+8
Function Call: WRITE
  • Prompt: ?13,^(B,0),!
  • Line Location: LIST1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.05 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call