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

Package: Health Summary

Routine: GMTSADH2


Information

GMTSADH2 ; SLC/JER,KER - Ad Hoc Summary Driver ; 02/27/2002

Source Information

Source file <GMTSADH2.m>

Entry Points

Name Comments DBIA/ICR reference
CMPLIM ; Get Limits and Selection Items
SELECT ; Get Selection Items
GETSEL ; Updates GMTSEG array with Selections
SHOWDEF ; Writes out loaded (default) selection items
RESOLVE(GMREF,GMTSEG,GMI) ; Call ORUS to resolve compound items
COMPILE(GMTEST) ; Compile menu for ORUS call
HEADER ; Write Header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Default selection items are "
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: "Push Return at the first prompt to select default items.",!
  • Condition for execution: GMTSJ
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: "Select new "_$$FNAM^GMTSU(+SEL)_" items one at a time in the sequence",!,"you want them displayed. "
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: "You may select "
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: "any number of items.",!
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: "up to ",SELCNT," items.",!
  • Line Location: SELECT+8
Function Call: WRITE
  • Prompt: !?2,$C(7),"MAXIMUM # OF ITEMS SELECTED.",!
  • Line Location: SELECT+10
Function Call: WRITE
  • Prompt: !,"Select TITLE: "
  • Line Location: GETSEL+7
Function Call: WRITE
  • Prompt: !,"Select "_$$FNAM^GMTSU(+SEL)_" Selection Item: "
  • Line Location: GETSEL+8
Function Call: WRITE
  • Prompt: !!,"No SELECTION ITEMS chosen.",!
  • Line Location: SHOWDEF+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: GMTSWHL>1
  • Line Location: SHOWDEF+3
Function Call: WRITE
  • Prompt: ?30,$P(@(GMTSEG(SBS,GMTSJ,0)_GMTSEG(SBS,GMTSJ,GMTSN)_",0)"),U)
  • Line Location: SHOWDEF+3
Function Call: WRITE
  • Prompt: $C(7)," INVALID TEST...Please choose another."
  • Line Location: RESOLVE+12
Function Call: WRITE
  • Prompt: !!?15,"Select the tests which you wish to include, in the",!?19,"sequence in which you wish them to appear."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !!?((80-$L(GMHEAD))\2),GMHEAD,!
  • Line Location: HEADER+2
Info |  Source |  Entry Points |  Interaction Calls