Routine: GMTSUP1

Package	Total	Call Graph
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Health Summary	4	GMTSADH GMTSADH3 GMTSADHC GMTSADOR

Entry Points

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

External References

Name	Field # of Occurrence
^DIR	SCRNLNTH+4
DISP^XQORM1	HELP+5

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
Routine Call	DIR Line Location: SCRNLNTH+4

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	STAR+2
^GMT(142.1 - [#142.1]	LIST1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CREC	LIST1+1~*, LIST1+2
DIR	SCRNLNTH+1~
DIR(0	SCRNLNTH+3*
>> DTOUT	HELP+3, HELP+4, LIST+2, SCRNLNTH+4
DUOUT	LIST+1~, LIST+2, SCRNLNTH+4
FLG	HELP+3!, HELP+4!, LIST1+2
GMDFN	RJUMP+1~
GMI	LIST+1~, LIST+2*, LIST1+1, LIST1+2, STAR+2
GMQUIT	HELP+1~, HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6, HELP1+7, HELP1+8, HELP1+9 , HELP1+10, HELP1+11, HELP1+12, HELP2+1, HELP2+2, HELP2+3, HELP2+4, HELP2+5, HELP2+6, HELP2+7 , HELP2+8, HELP2+9, SCRNLNTH+4*, SCRNLNTH+5
GMTSAV	RJUMP+1~, RETURN+1
>> GMTSEG(	LIST+2, LIST1+1, LIST1+2, STAR+2
>> GMTSTITL	HELP+4
>> GMTSTYP	HELP+3, HELP+4
IOF	HELP+2, SCRNLNTH+5
IOSL	SCRNLNTH+2
>> TYP	HELP+3, HELP+4, STAR+2
U	LIST1+1, LIST1+2, STAR+2
>> X	HELP+3, HELP+4, HELP+5, HELP+6

Customize PDF page

Package: Health Summary

Routine: GMTSUP1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: