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

Package: Health Summary

Routine: GMTSRM3


Information

GMTSRM3 ; SLC/DLT - Create/Modify - Selection Items ; 08/27/2002

Source Information

Source file <GMTSRM3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Logic for Selection Items
SHOWSEL ; Writes Current Selection Items
EXIT ; Exit Logic for Selection Items
RESOLVE(GMREF) ; Resolve Compound Items
REITEM(GMTST,GMTSS) ; Resequence Items
RIH ; Resequence Items Help
ARY(GMTST,GMTSS,ARY) ; Array of Items
COMPILE(GMTEST) ; Compile Menu
HEADER ; Write Header
DELCOSMO(X1,X2,X3) ; Delete Cosmic Lab Tests from Selection Items

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($O(^GMT(142,DA(1),1,DA,1,0)):"Current selection items are: ",1:"No selection items chosen.")
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Select new items one at a time in the sequence you want them displayed."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"You may select "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "any number of items.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "up to ",SELCNT," items.",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: ?30,$P(@("^"_$P(GMTSN(0),";",2)_+GMTSN(0)_",0)"),U),!
  • Line Location: SHOWSEL+1
Function Call: WRITE
  • Prompt: !?2,$C(7),"MAXIMUM # OF ITEMS SELECTED.",!
  • Line Location: EXIT+7
Function Call: WRITE
  • Prompt: $C(7),!," Duplicate test omitted."
  • Line Location: RESOLVE+17
Function Call: WRITE
  • Prompt: !,?1,GMTSCN," ",$S($L(GMTSCA):"(",1:""),GMTSCA,$S($L(GMTSCA):")",1:"")
  • Line Location: REITEM+6
Function Call: WRITE
  • Prompt: !,$J(GMTSN,6)," ",GMTSA(GMTSN)
  • Line Location: REITEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: REITEM+9
Function Call: WRITE
  • Prompt: !,?4,"Enter either 'Y' or 'N'."
  • Line Location: RIH+1
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