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

Package: Health Summary

Routine: GMTSLRMB


Information

GMTSLRMB ; SLC/JER,KER - Microbiology Component Dvr ; 09/21/2001

Source Information

Source file <GMTSLRMB.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Microbioloby Brief
INTRP ; Interprets ^TMP("LRM",$J
RDNODE ; Reads current node of ^TMP("LRM",$J
WRTNODE ; Writes current node of ^TMP("LRM",$J
REMARKS ; Write remarks
WRTGRM ; Writes Gram Stain Results
ANTIBX ; Writes Antibiotic susceptability data
WRTTEST ; Writes Lab Test for Accession

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P($P(^TMP("LRM",$J,GMTSJ),U)," "),?12,$P(^TMP("LRM",$J,GMTSJ),U,3),!
  • Line Location: RDNODE+3
Function Call: WRITE
  • Prompt: "AFB Sme:",?12,$E($P(^TMP("LRM",$J,GMTSJ,0),U,2),1,20),!
  • Line Location: RDNODE+10
Function Call: WRITE
  • Prompt: ?12,$P(^TMP("LRM",$J,GMTSJ,0),U,3),!
  • Line Location: RDNODE+13
Function Call: WRITE
  • Prompt: ?2,"Smear:"
  • Line Location: RDNODE+16
Function Call: WRITE
  • Prompt: ?12,^(SMEAR),!
  • Line Location: RDNODE+18
Function Call: WRITE
  • Prompt: ?1,"Report:",?12,$P(^TMP("LRM",$J,GMTSJ,GMK),U),!
  • Line Location: WRTNODE+2
Function Call: WRITE
  • Prompt: "Organsm:",?12,$P(^TMP("LRM",$J,GMTSJ,GMK),U),!
  • Line Location: WRTNODE+7
Function Call: WRITE
  • Prompt: ?4,"QTY:",?12,$P(^TMP("LRM",$J,GMTSJ,GMK),U,2),!
  • Line Location: WRTNODE+8
Function Call: WRITE
  • Prompt: ?12,$E($P(^TMP("LRM",$J,GMTSJ,GMK),U),1,18),?30,$$DRAW^GMTSLRM($P(^TMP("LRM",$J,GMTSJ,GMK),U,2)),?38,$P(^(GMK),U,3)," ug/ml",!
  • Line Location: WRTNODE+12
Function Call: WRITE
  • Prompt: ?12,$P(^TMP("LRM",$J,GMTSJ,GMK,GML),U)
  • Line Location: WRTNODE+18
Function Call: WRITE
  • Prompt: ?35,$P(QTY,"|"),!
  • Line Location: WRTNODE+21
Function Call: WRITE
  • Prompt: ?35,$P(QTY,"|",2),!
  • Line Location: WRTNODE+22
Function Call: WRITE
  • Prompt: "Remarks:"
  • Line Location: REMARKS+6
Function Call: WRITE
  • Prompt: ?12,^TMP("LRM",$J,GMTSJ,GMK,NUM),!
  • Line Location: REMARKS+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>0
  • Line Location: WRTGRM+1
Function Call: WRITE
  • Prompt: ?3,"Gram:"
  • Condition for execution: GMK=1
  • Line Location: WRTGRM+1
Function Call: WRITE
  • Prompt: ?12,$E(^TMP("LRM",$J,GMTSJ,GMK),1,69),!
  • Line Location: WRTGRM+1
Function Call: WRITE
  • Prompt: ?12
  • Line Location: ANTIBX+12
Function Call: WRITE
  • Prompt: ANAM,$S(ANEXT]"":", ",1:"")
  • Line Location: ANTIBX+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ANTIBX+14
Function Call: WRITE
  • Prompt: "Test(s): "
  • Line Location: WRTTEST+3
Function Call: WRITE
  • Prompt: ?12
  • Line Location: WRTTEST+6
Function Call: WRITE
  • Prompt: TNAM,$S(TNEXT]"":", ",1:"")
  • Line Location: WRTTEST+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTTEST+8

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