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

Package: Health Summary

Routine: GMTSLRS7


Information

GMTSLRS7 ; SLC/JER,KER - Sel Cum Lab Comp w/Sel Items ; 01/06/2003

Source Information

Source file <GMTSLRS7.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Selected Cumulative Lab w/Selection Items
DISPLAY ; Displays up to 7 tests across page
WRTHDR ; Writes Column Header
WRT ; Writes the Lab Record
WRTCOMM ; Writes the lab Comments
INVRT ; Inverts Global Array
;
; From: ^TMP("LRS",$J,IT,IX)=CDT^SPC^TNM^RSLT^FLAG^UNIT^LO^HI
; To: ^TMP("LRSR",$J,IX,IT)=GMI,CDT,SPC,RSLT,FLAG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: $C(7),!?10,"** Additional Results available outside occurrence limit **",!
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: "Collection DT"
  • Line Location: WRTHDR+1
Function Call: WRITE
  • Prompt: ?19,$S(+$G(GMCMNT):" ",1:""),"Spec"
  • Line Location: WRTHDR+2
Function Call: WRITE
  • Prompt: ?(((8*GMI+25)+(7-$L(HDR(GMI))\2))),$E(HDR(GMI),1,7)
  • Line Location: WRTHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTHDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTHDR+7
Function Call: WRITE
  • Prompt: $E($G(GMCOM("DT",IX)),1),?2,$P(GMX,U,2),?19,$E($P($P(GMX,U,3),";",2),1,5)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: $P(GMX,U,2),?19,$E($P($P(GMX,U,3),";",2),1,5)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?(8*TAB+25),$P(GMX,U,4)," ",$P(GMX,U,5)
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: "COMMENTS:",!
  • Line Location: WRTCOMM+3
Function Call: WRITE
  • Prompt: "COMMENTS:",!
  • Line Location: WRTCOMM+8
Function Call: WRITE
  • Prompt: ?3,$G(^TMP("LRS",$J,"C",+IX,GMLINE)),!
  • Line Location: WRTCOMM+10

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