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

Package: Health Summary

Routine: GMTSLRA


Information

GMTSLRA ; SLC/JER,KER - Surgical Pathology Component ; 09/21/2001

Source Information

Source file <GMTSLRA.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Surgical Pathology
WRT ; Writes Surgical Pathology Record
WRTSPC ; Writes Specimen field entries
TEXT ; Handles GROSS DESCRIPTION & MICROSCOPIC EXAM/DX Print
SUPPR ; Writes Supplementary Report
WRTTM ; Writes Topography and Morphology
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+4
Function Call: WRITE
  • Prompt: "Surgeon/Physician:",?19,$G(SP),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?9,"Specimen:"
  • Line Location: WRTSPC+2
Function Call: WRITE
  • Prompt: ?19,^TMP("LRA",$J,IX,.1,GMS),!
  • Line Location: WRTSPC+4
Function Call: WRITE
  • Prompt: ?(17-$L(X)),X_":",!
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: $P(GMTSLN,"|"),!
  • Line Location: TEXT+6
Function Call: WRITE
  • Prompt: "Supplementary Rpt: ",X,!
  • Line Location: SUPPR+3
Function Call: WRITE
  • Prompt: ?7,"Topography:",?19,$P(X,U),!
  • Line Location: WRTTM+2
Function Call: WRITE
  • Prompt: ?9,"Disease:"
  • Condition for execution: GMD=1
  • Line Location: WRTTM+5
Function Call: WRITE
  • Prompt: ?21,^TMP("LRA",$J,IX,IX0,IX1,1,GMD),!
  • Line Location: WRTTM+5
Function Call: WRITE
  • Prompt: ?7,"Morphology:",?21,^TMP("LRA",$J,IX,IX0,IX1,2,GMT),!
  • Line Location: WRTTM+10
Function Call: WRITE
  • Prompt: ?9,"Etiology:"
  • Condition for execution: GME=1
  • Line Location: WRTTM+13
Function Call: WRITE
  • Prompt: ?23,^TMP("LRA",$J,IX,IX0,IX1,2,GMT,1,GME),!
  • Line Location: WRTTM+13
Function Call: WRITE
  • Prompt: ?7,"Procedures:"
  • Line Location: WRTP+2
Function Call: WRITE
  • Prompt: ?21,$P(GMQ,"|"),!
  • Line Location: WRTP+7

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