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

Package: Health Summary

Routine: GMTSLRS


Information

GMTSLRS ; SLC/JER,KER - Sel Lab Component w/Selection Items ; 01/06/2003

Source Information

Source file <GMTSLRS.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Selected Lab w/Selection Items
PANEL ; Visits "PANEL" multiple to get pointers to atomic tests
WRTHDR ; Prints columnar header
WRT ; Writes the Lab Record
; VMP/RJT - Lab Ref Range update

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: "!! Indicates COMMENTS AVAILABLE...Refer to Interim Lab Report.",!
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: "Collection DT",?18,"Specimen"
  • Line Location: WRTHDR+1
Function Call: WRITE
  • Prompt: ?29,"Test Name",?48,"Result",?58,"Units",?70,"Ref Range",!
  • Line Location: WRTHDR+2
Function Call: WRITE
  • Prompt: $P(GMX,U),?18,$P($P(GMX,U,2),";",2)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?24,"!! "
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?29,$E($P($P(GMX,U,3),";",2),1,17),?46,$P(GMX,U,4)," ",$P(GMX,U,5)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?58,$P(GMX,U,6),?67,$J("NEG",12),!
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?58,$P(GMX,U,6),?TAB,REF,!
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: "Comment: ",^TMP("LRS",$J,"C",IX,GMLINE),!
  • Line Location: WRT+20

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