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

Package: Health Summary

Routine: GMTSUP1


Information

GMTSUP1 ; SLC/JER,KER - Utilities for Paging HS ; 09/21/2001

Source Information

Source file <GMTSUP1.m>

Entry Points

Name Comments DBIA/ICR reference
RJUMP ; XQOR for "^^"-jump is no longer supported
RETURN ; Return to Health Summary without Jump
HELP ; Offers help to confused individuals
HELP1 ; Writes part of help prompt
HELP2 ; Help for "^^"-jump
LIST ; List components
SCRNLNTH ; Checks screen length
LIST1 ; Lists component information
STAR ; Writes * to indicate added component when called by GMTSUP
; for HST other than AD HOC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: RJUMP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: "These components have been selected for Ad Hoc.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: "These components are part of ",GMTSTITL," Health Summary Type",!,"or have been temporarily added. Added components are indicated by *.",!
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: "These components may be temporarily added (use ""=C"" to change limits)."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: "To leave display order and jump to a different component, select any component",!
  • Line Location: HELP1+2
Function Call: WRITE
  • Prompt: "from the above list, or select any additional component to be temporarily",!
  • Line Location: HELP1+3
Function Call: WRITE
  • Prompt: "added to the display. Add ""=C"" to component to change limits or selection",!
  • Line Location: HELP1+4
Function Call: WRITE
  • Prompt: "items. EXAMPLE: LO=C",!!
  • Line Location: HELP1+5
Function Call: WRITE
  • Prompt: "Enter: ?? to see additional components.",!
  • Line Location: HELP1+6
Function Call: WRITE
  • Prompt: ?7,"??? to see HELP for ""^^""-jump.",!
  • Line Location: HELP1+7
Function Call: WRITE
  • Prompt: ?7,"<RET> to continue display.",!
  • Line Location: HELP1+8
Function Call: WRITE
  • Prompt: ?7,"+ to proceed to next component.",!
  • Line Location: HELP1+9
Function Call: WRITE
  • Prompt: ?7,"- to return to preceeding component.",!
  • Line Location: HELP1+10
Function Call: WRITE
  • Prompt: ?7,"^ to quit present patient's summary.",!
  • Line Location: HELP1+11
Function Call: WRITE
  • Prompt: ?7,"^^ to quit and return to menu.",!!
  • Line Location: HELP1+12
Function Call: WRITE
  • Prompt: ?22,"Navigation OUTSIDE of Health Summary",!!
  • Line Location: HELP2+1
Function Call: WRITE
  • Prompt: "You may also enter ""^^"" followed by the name, partial name or synonym for",!
  • Line Location: HELP2+2
Function Call: WRITE
  • Prompt: "any of a variety of options OUTSIDE of Health Summary to which you can",!
  • Line Location: HELP2+3
Function Call: WRITE
  • Prompt: "jump. Partial matches will allow you to select from a subset of options.",!!
  • Line Location: HELP2+4
Function Call: WRITE
  • Prompt: "For example: ^^? will list ALL available options.",!
  • Line Location: HELP2+5
Function Call: WRITE
  • Prompt: ?14,"^^PN will show you all of the PROGRESS NOTES options, or",!
  • Line Location: HELP2+6
Function Call: WRITE
  • Prompt: ?14,"^^OR will show you all of the ORDER ENTRY options.",!!
  • Line Location: HELP2+7
Function Call: WRITE
  • Prompt: "You may also order a wide variety of LABORATORY tests using this syntax.",!
  • Line Location: HELP2+8
Function Call: WRITE
  • Prompt: "e.g., ^^CHEM 7 will allow you to ADD an order for that test.",!!
  • Line Location: HELP2+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: GMI#2
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: ?$S(GMI#2:0,1:40)
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: $P(CREC,U,4),?$S(GMI#2:8,1:48),$E($S($L($P(GMTSEG(GMI),U,5)):$P(GMTSEG(GMI),U,5),$L($P(CREC,U,9)):$P(CREC,U,9),1:$P(CREC,U)),1,24)
  • Line Location: LIST1+2
Function Call: WRITE
  • Prompt: $S($D(^GMT(142,TYP,1,"C",$P(GMTSEG(GMI),U,2))):" ",1:"*")
  • Line Location: STAR+2
Info |  Source |  Entry Points |  Interaction Calls