Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Summary 4 $$DRAW^GMTSLRM  ^GMTSLRME  $$WRAP^GMTSORC  CKP^GMTSUP  
VA Fileman 1 $$GET1^DIQ  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ MAIN+2
$$DRAW^GMTSLRM WRTNODE+12
^GMTSLRME MAIN+5
$$WRAP^GMTSORC WRTNODE+20
CKP^GMTSUP MAIN+4, MAIN+6, RDNODE+3, RDNODE+9, RDNODE+12, RDNODE+15, RDNODE+18, WRTNODE+2, WRTNODE+7, WRTNODE+8
, WRTNODE+10, WRTNODE+17, WRTNODE+22, REMARKS+4, WRTGRM+1, ANTIBX+5, ANTIBX+12, WRTTEST+3, WRTTEST+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] MAIN+2, MAIN+4
^TMP("LRM" MAIN+5, MAIN+7!, INTRP+3, RDNODE+3, RDNODE+6, RDNODE+8, RDNODE+10, RDNODE+11, RDNODE+13, RDNODE+14
, RDNODE+18, WRTNODE+2, WRTNODE+7, WRTNODE+8, WRTNODE+12, WRTNODE+13, WRTNODE+14, WRTNODE+16, WRTNODE+18, WRTNODE+19
, REMARKS+3, REMARKS+7, WRTGRM+1, ANTIBX+4, ANTIBX+11, WRTTEST+2, WRTTEST+5

Label References

Name Line Occurrences
ANTIBX WRTNODE+13
INTRP MAIN+6
RDNODE INTRP+3
REMARKS WRTNODE+5
WRTGRM WRTNODE+3
WRTNODE RDNODE+6
WRTTEST RDNODE+4

Naked Globals

Name Field # of Occurrence
^( RDNODE+18, WRTNODE+12, ANTIBX+11, WRTTEST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANAM ANTIBX+1~, ANTIBX+11*, ANTIBX+12, ANTIBX+13
ANEXT ANTIBX+1~, ANTIBX+11*, ANTIBX+13
ANLEN ANTIBX+1~, ANTIBX+10*, ANTIBX+12*, ANTIBX+13*
D1 MAIN+1~
D2 MAIN+1~
D3 MAIN+1~
>> DFN MAIN+2
FIRST REMARKS+1~, REMARKS+2*, REMARKS+6*
GMABX INTRP+1~, ANTIBX+2*
GMCNT ANTIBX+1~, WRTTEST+1~
GMK INTRP+1~, INTRP+2*, RDNODE+5*, RDNODE+6*, WRTNODE+2, WRTNODE+4, WRTNODE+5, WRTNODE+7, WRTNODE+8, WRTNODE+11
, WRTNODE+12, WRTNODE+13, WRTNODE+14, WRTNODE+16, WRTNODE+18, WRTNODE+19, REMARKS+3, REMARKS+7, WRTGRM+1, ANTIBX+4
, ANTIBX+11
GML WRTNODE+1~, WRTNODE+15*, WRTNODE+16*, WRTNODE+18, WRTNODE+19, ANTIBX+1~, ANTIBX+10*, ANTIBX+11*, WRTTEST+1~, WRTTEST+4*
, WRTTEST+5*
GMSUB ANTIBX+1~, ANTIBX+3*, ANTIBX+4, ANTIBX+6, ANTIBX+7, ANTIBX+8, ANTIBX+9, ANTIBX+11
>> GMTS1 MAIN+4
>> GMTS2 MAIN+4
GMTSJ INTRP+1~, INTRP+2*, INTRP+3*, RDNODE+1, RDNODE+2, RDNODE+3, RDNODE+6, RDNODE+7, RDNODE+8, RDNODE+10
, RDNODE+11, RDNODE+13, RDNODE+14, RDNODE+18, WRTNODE+2, WRTNODE+3, WRTNODE+6, WRTNODE+7, WRTNODE+8, WRTNODE+9
, WRTNODE+12, WRTNODE+13, WRTNODE+14, WRTNODE+16, WRTNODE+18, WRTNODE+19, REMARKS+3, REMARKS+7, WRTGRM+1, ANTIBX+4
, ANTIBX+11, WRTTEST+2, WRTTEST+5
>> GMTSNDM MAIN+3
>> GMTSNPG MAIN+6, ANTIBX+12, WRTTEST+6
>> GMTSQIT MAIN+4, MAIN+6, INTRP+3, RDNODE+3, RDNODE+6, RDNODE+7, RDNODE+9, RDNODE+12, RDNODE+15, RDNODE+18
, WRTNODE+2, WRTNODE+6, WRTNODE+7, WRTNODE+8, WRTNODE+10, WRTNODE+16, WRTNODE+17, WRTNODE+22, REMARKS+3, REMARKS+4
, WRTGRM+1, ANTIBX+3, ANTIBX+5, ANTIBX+11, ANTIBX+12, WRTTEST+3, WRTTEST+5, WRTTEST+6
GMW INTRP+1~
IX MAIN+1~, MAIN+4*
IX0 MAIN+1~, MAIN+4*, MAIN+6
LRDFN MAIN+1~, MAIN+2*, MAIN+4
MAX MAIN+1~, MAIN+3*, MAIN+4
NUM REMARKS+1~, REMARKS+2*, REMARKS+3*, REMARKS+7
QTY WRTNODE+1~, WRTNODE+19*, WRTNODE+20*, WRTNODE+21, WRTNODE+22
SMEAR INTRP+1~, RDNODE+17*, RDNODE+18*
TLEN WRTTEST+1~, WRTTEST+4*, WRTTEST+6*, WRTTEST+7*
TNAM WRTTEST+1~, WRTTEST+5*, WRTTEST+6, WRTTEST+7
TNEXT WRTTEST+1~, WRTTEST+5*, WRTTEST+7
U RDNODE+3, RDNODE+8, RDNODE+10, RDNODE+11, RDNODE+13, WRTNODE+2, WRTNODE+7, WRTNODE+8, WRTNODE+12, WRTNODE+18
, WRTNODE+19, ANTIBX+11, WRTTEST+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All