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

Package: Health Summary

Routine: GMTSLREM


Information

GMTSLREM ; SLC/JER,KER - Electron Microscopy Comp Dvr ; 02/27/2002

Source Information

Source file <GMTSLREM.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main Entry Point
WRT ; Writes Electron Microscopy Record
WRTSPC ; Writes Specimen field entries
TEXT ; Handles GROSS DESCRIPTION & MICROSCOPIC EXAM/DX Print
SUPPR ; Writes Supplementary Report
WRTP ; Writes Procedure field

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?8,"Collected:",?19,$P(X,U),?31,"Acc:",?36,$P(X,U,2),!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?9,"Specimen:"
  • Line Location: WRTSPC+1
Function Call: WRITE
  • Prompt: ?19,^TMP("LREM",$J,IX,.1,GMS),!
  • Line Location: WRTSPC+2
Function Call: WRITE
  • Prompt: ?(17-$L(X)),X_":",!
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: $P(GMTSLN,"|"),!
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: "Supplementary Rpt: ",X,!
  • Line Location: SUPPR+2
Function Call: WRITE
  • Prompt: $P(GMTSRL,"|"),!
  • Line Location: SUPPR+6
Function Call: WRITE
  • Prompt: ?7,"Procedures:"
  • Line Location: WRTP+3
Function Call: WRITE
  • Prompt: ?21,$P(GMQ,"|"),!
  • Line Location: WRTP+8
Info |  Source |  Entry Points |  Interaction Calls