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
Print Page as PDF
Routine: GMTSLRM1

Package: Health Summary

Routine: GMTSLRM1


Information

GMTSLRM1 ;SLC/SBW - Microbiology Component Continue ;2/13/98 14:15

Source Information

Source file <GMTSLRM1.m>

Entry Points

Name Comments DBIA/ICR reference
REMARKS ; Write remarks
COMMENT ; Write comment
PARACOMM ; Write comment for parasite
WRTGRM ; Writes Gram Stain Results
ANTIBX ; Writes Antibiotic susceptability data
WRTTEST ; Writes Lab Test for Accession
WRTSTER ; Writes sterility control data
TBSUSC ;Display TB Susceptiblities

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?12,"Remarks:"
  • Line Location: REMARKS+7
Function Call: WRITE
  • Prompt: ?21,$P(RPT,"|"),!
  • Line Location: REMARKS+8
Function Call: WRITE
  • Prompt: ?23,$P(RPT,"|",2),!
  • Line Location: REMARKS+9
Function Call: WRITE
  • Prompt: ?25,$P(COM,"|"),!
  • Line Location: COMMENT+8
Function Call: WRITE
  • Prompt: ?27,$P(COM,"|",2),!
  • Line Location: COMMENT+9
Function Call: WRITE
  • Prompt: ?27,$P(COM,"|"),!
  • Line Location: PARACOMM+8
Function Call: WRITE
  • Prompt: ?29,$P(COM,"|",2),!
  • Line Location: PARACOMM+9
Function Call: WRITE
  • Prompt: ?15,"Gram:"
  • Condition for execution: GMK=1
  • Line Location: WRTGRM+4
Function Call: WRITE
  • Prompt: ?21,$P(GMGRAM,"|"),!
  • Line Location: WRTGRM+4
Function Call: WRITE
  • Prompt: ?23,$P(GMGRAM,"|",2),!
  • Line Location: WRTGRM+5
Function Call: WRITE
  • Prompt: ?21
  • 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: ?4,"Test(s) ordered: "
  • Line Location: WRTTEST+3
Function Call: WRITE
  • Prompt: ?21
  • Line Location: WRTTEST+6
Function Call: WRITE
  • Prompt: TNAM,$S(TNEXT]"":", ",1:"")
  • Line Location: WRTTEST+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTTEST+8
Function Call: WRITE
  • Prompt: ?2,"Sterility Control:",?21,STER,!
  • Line Location: WRTSTER+5
Function Call: WRITE
  • Prompt: ?13,"Number:",?21,GML,?44,"Results: ",$P(^TMP("LRM",$J,GMZ,GML),U),!
  • Line Location: WRTSTER+9
Function Call: WRITE
  • Prompt: ?21,$P(^TMP("LRM",$J,GMZ,GMK,"SUSC",GMTB),U)
  • Line Location: TBSUSC+6
Function Call: WRITE
  • Prompt: ?44,$P(QTY,"|"),!
  • Line Location: TBSUSC+9
Function Call: WRITE
  • Prompt: ?44,$P(QTY,"|",2),!
  • Line Location: TBSUSC+10
Info |  Source |  Entry Points |  Interaction Calls