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

Package: Health Summary

Routine: GMTSLRM


Information

GMTSLRM ; SLC/JER,KER - Microbiology Component Driver ; 09/21/2001

Source Information

Source file <GMTSLRM.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Microbiology
INTRP ; Interprets ^TMP("LRM",$J
RDNODE ; Reads current node of ^TMP("LRM",$J
WRTNODE ; Writes current node of ^TMP("LRM",$J
DRAW(CODE) ; Peak/Trough/Random Abx level

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?10,"Collected:",?21,$P(^TMP("LRM",$J,GMZ),U),?43,"Acc:",?48,$P(^TMP("LRM",$J,GMZ),U,2),!
  • Line Location: RDNODE+2
Function Call: WRITE
  • Prompt: ?2,"Collection Sample:",?21,$P(^TMP("LRM",$J,GMZ),U,6),!
  • Line Location: RDNODE+4
Function Call: WRITE
  • Prompt: ?6,"Site/Specimen:",?21,$TR($P(^TMP("LRM",$J,GMZ),U,3),"|"," "),!
  • Line Location: RDNODE+5
Function Call: WRITE
  • Prompt: "Comment on Specimen:"
  • Line Location: RDNODE+9
Function Call: WRITE
  • Prompt: ?21,$P(COM,"|"),!
  • Line Location: RDNODE+11
Function Call: WRITE
  • Prompt: ?22,$P(COM,"|",2),!
  • Line Location: RDNODE+12
Function Call: WRITE
  • Prompt: ?2,"Sterility Control:",?21,$P(^TMP("LRM",$J,"BSTER",GMK),U),!
  • Line Location: WRTNODE+6
Function Call: WRITE
  • Prompt: ?13,"Number:",?21,GMK,?34,"Sterility Results: ",$P(^TMP("LRM",$J,GMZ,GMK),U),!
  • Line Location: WRTNODE+8
Function Call: WRITE
  • Prompt: ?4,$S(GMZ="BACT":" Bact ",GMZ="TB":"Mycobact ",GMZ="MYCO":"Mycology ",GMZ="PARA":"Parasite ",GMZ="VIRO":"Virology ",1:" ")_"Report:",?21,$P(GMN,U),!
  • Line Location: WRTNODE+9
Function Call: WRITE
  • Prompt: ?7,"Urine Screen: ",$P(GMN,U,3),!
  • Line Location: WRTNODE+11
Function Call: WRITE
  • Prompt: ?6,"Sputum Screen: ",$P(GMN,U,2),!
  • Line Location: WRTNODE+12
Function Call: WRITE
  • Prompt: ?4,"Acid Fast Stain: ",$E($P(GMN,U,2),1,20)
  • Line Location: WRTNODE+14
Function Call: WRITE
  • Prompt: ?44,$P(QTY,"|"),!
  • Line Location: WRTNODE+17
Function Call: WRITE
  • Prompt: ?44,$P(QTY,"|",2),!
  • Line Location: WRTNODE+18
Function Call: WRITE
  • Prompt: ?9,"Smear/Prep:"
  • Line Location: WRTNODE+22
Function Call: WRITE
  • Prompt: ?21,$P(RSMEAR,"|"),!
  • Line Location: WRTNODE+27
Function Call: WRITE
  • Prompt: ?22,$P(RSMEAR,"|",2),!
  • Line Location: WRTNODE+28
Function Call: WRITE
  • Prompt: ?11,"Organism:"
  • Line Location: WRTNODE+34
Function Call: WRITE
  • Prompt: ?21,$P(ORG,"|",1),!
  • Line Location: WRTNODE+35
Function Call: WRITE
  • Prompt: ?23,$P(ORG,"|",2),!
  • Line Location: WRTNODE+36
Function Call: WRITE
  • Prompt: ?11,"Quantity:"
  • Line Location: WRTNODE+37
Function Call: WRITE
  • Prompt: ?21,$P(QTY,"|"),!
  • Line Location: WRTNODE+39
Function Call: WRITE
  • Prompt: ?23,$P(QTY,"|",2),!
  • Line Location: WRTNODE+40
Function Call: WRITE
  • Prompt: ?8,"Ser Abx Lev:"
  • Line Location: WRTNODE+44
Function Call: WRITE
  • Prompt: ?21,$E($P(^TMP("LRM",$J,GMZ,GMK),U),1,20),?45,$$DRAW($P(^TMP("LRM",$J,GMZ,GMK),U,2)),?55,$P(^TMP("LRM",$J,GMZ,GMK),U,3)," ug/ml",!
  • Line Location: WRTNODE+45
Function Call: WRITE
  • Prompt: ?23,$P(^TMP("LRM",$J,GMZ,GMK,GML),U)
  • Line Location: WRTNODE+51
Function Call: WRITE
  • Prompt: ?45,$P(QTY,"|"),!
  • Line Location: WRTNODE+54
Function Call: WRITE
  • Prompt: ?45,$P(QTY,"|",2),!
  • Line Location: WRTNODE+55

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call