Routine: GMTSMCPS

Package	Total	Call Graph
Health Summary	2	HSUM^GMTSMCMA CKP^GMTSUP
Registration	1	KVAR^VADPT
VA Fileman	1	^DIWP

Entry Points

Name	Comments	DBIA/ICR reference
GETREC(MCL,RMAR,TV,VV,SP)	; Return Single Record
SEARCH	; Search for Selected Patient
FULL	; Full Summary
ADBF	; Print Full Summary for only abnormal or null
CONVERT(TITLE)	; Convert to Mixed Case TEMP = Temp
WARP(VALUE,LENGTH,TEMP,MAX)	; Warp a field
CAP	; Capture
BEG	; One Line summary only
ABN	; Print Brief summary for only abnormal or Null
BRIEF	; Brief Summary
EXIT	; Clean up and Quit
REPORT(LOOP,MCL,RMAR,BLINE,TV,VV,SP)	; Report for Procedure
RETURN(TYPE,LINE)	; Return key Elements
PRINT(VALUE,VV,TITLE,TV,SP)	; Print a Field and its Value
WORD(MCL,LOOP,TITLE,RMAR,TV,VV,SP)	; Display Word Processing
START(BRIEF,MCTYPE)	; Get the record and display the record

External References

Name	Field # of Occurrence
^DIWP	WARP+3, WORD+4
HSUM^GMTSMCMA	SEARCH+2
CKP^GMTSUP	GETREC+8, GETREC+9, GETREC+12, REPORT+10, WORD+7, WORD+9, PRINT+7
KVAR^VADPT	START+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,MCDATE,?(TV+SP),MCPROC Line Location: GETREC+8
Function Call: WRITE	Prompt: !,BLINE Line Location: GETREC+9
Function Call: WRITE	Prompt: ! Line Location: GETREC+12
Function Call: WRITE	Prompt: ! Line Location: REPORT+10
Function Call: WRITE	Prompt: !,$J($G(TARRAY(LOOP3)),TV),?(TV+SP),^UTILITY($J,"W",DIWL,SLOOP,0) Line Location: WORD+8
Function Call: WRITE	Prompt: ! Line Location: WORD+9
Function Call: WRITE	Prompt: !,$J($G(TARRAY(LOOP2)),TV),?(TV+SP),$G(VARRAY(LOOP2-SPAC)) Line Location: PRINT+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(690 - [#690]	START+8
^TMP("MCAR"	START+2!, START+10, START+11, GETREC+14, REPORT+3, WORD+3, WORD+4, RETURN+2, RETURN+3, RETURN+4! , RETURN+5!, EXIT+2!
^UTILITY($J	WARP+2!, WARP+4, WARP+5, WORD+2!, WORD+6, WORD+8

Label References

Name	Line Occurrences
$$CONVERT	PRINT+2
$$RETURN	GETREC+3, GETREC+4, GETREC+5, GETREC+7
EXIT	START+8, START+10, START+12
GETREC	START+11
PRINT	GETREC+10, GETREC+11, REPORT+9
REPORT	GETREC+14
SEARCH	START+9
START	BEG+1, BRIEF+1, ABN+1, FULL+1, CAP+1, ADBF+1
WARP	WORD+2, PRINT+3, PRINT+4
WORD	REPORT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLINE	GETREC+1~, GETREC+2*, GETREC+9, GETREC+14, REPORT~
BRIEF	START~, GETREC+6, GETREC+13
DA	EXIT+1!
>> DFN	START+8, SEARCH+2
DIWF	WARP+1~, WORD+1~
DIWL	WARP+1~, WARP+3, WARP+4, WARP+5, WORD+1~, WORD+2, WORD+6, WORD+8
DIWR	WARP+1~, WARP+3, WORD+1~, WORD+2
>> GMTSBEG	SEARCH+2
>> GMTSEND	SEARCH+2
>> GMTSNDM	SEARCH+1
>> GMTSQIT	START+11, GETREC+8, GETREC+9, GETREC+12, GETREC+14, REPORT+10, WORD+6, WORD+7, WORD+9, PRINT+7 , PRINT+9
HOLD	REPORT+1~, CONVERT+1~, CONVERT+3, CONVERT+5, CONVERT+6, RETURN+1~, RETURN+3, RETURN+6
HOLD2	CONVERT+1~, CONVERT+5*, CONVERT+6
IOM	START+3
K	EXIT+2!
LARRAY	REPORT+2~
LENGTH	WARP~, WARP+3
LINE	GETREC+1~, REPORT+1~, REPORT+3*, REPORT+4, REPORT+5, RETURN~, RETURN+2, RETURN+3, RETURN+4, RETURN+5
LL	EXIT+1!
LL1	EXIT+1!
LOOP	GETREC+1~, GETREC+2, GETREC+14, REPORT~, REPORT+3, REPORT+7, WORD~, WORD+3, WORD+4, CONVERT+1~ , CONVERT+3*
LOOP2	REPORT+2~, PRINT+1~, PRINT+7*, PRINT+8
LOOP3	WARP+1~, WARP+4, WARP+5, WARP+7, WORD+1~, WORD+6*, WORD+8
LOWER	CONVERT+1~, CONVERT+2*, CONVERT+6
M	EXIT+2!
MAX	START+1~, SEARCH+1, SEARCH+2, REPORT+2~, WARP~, WARP+4, WARP+8, PRINT+5, PRINT+7, EXIT+1!
MCARDT	EXIT+2!
MCARNM	EXIT+2!
MCARPPS	EXIT+1!
MCARPROC	EXIT+2!
MCDATE	GETREC+1~, GETREC+3*, GETREC+8
MCHOLD	RETURN+1~, RETURN+2*, RETURN+3, RETURN+5
MCI	EXIT+1!
MCJ	EXIT+1!
MCL	START+11*, GETREC~, GETREC+3, GETREC+4, GETREC+5, GETREC+7, GETREC+14, REPORT~, REPORT+3, REPORT+7 , WORD~, WORD+3, WORD+4, EXIT+1!
MCPROC	GETREC+1~, GETREC+4*, GETREC+8
MCPSUM	GETREC+1~, GETREC+7*, GETREC+11
MCSUM	GETREC+1~, GETREC+5*, GETREC+6, GETREC+10
MCTYPE	START~, SEARCH+2, REPORT+6
MLEN	REPORT+1~
N	EXIT+2!
OT	EXIT+1!
PR	EXIT+1!
R	EXIT+1!
RANGE	REPORT+1~
RMAR	START+3*, START+4, START+5, START+6, START+11, GETREC~, GETREC+14, REPORT~, REPORT+7, WORD~ , EXIT+2!
S1	EXIT+1!
S2	EXIT+1!
S4	EXIT+1!
S5	EXIT+1!
S6	EXIT+1!
SLOOP	WORD+1~, WORD+3, WORD+4, WORD+5, WORD+6*, WORD+8
SP	START+1~, START+6*, START+11, GETREC~, GETREC+8, GETREC+10, GETREC+11, GETREC+14, REPORT~, REPORT+7 , REPORT+9, WORD~, WORD+8, PRINT~, PRINT+8
SPAC	WORD+1~, PRINT+1~, PRINT+6*, PRINT+8
TARRAY	REPORT+2~, WORD+1~, WORD+2, PRINT+1~, PRINT+4
TARRAY(	WORD+8, PRINT+8
TEMP	REPORT+1~, REPORT+4, REPORT+7, WARP~, CONVERT+1~, CONVERT+4, CONVERT+6*, CONVERT+7
TEMP(	WARP+7*
TEMP1	WARP+1~, WARP+5, WARP+6, WARP+7
TITLE	REPORT+1~, REPORT+4, REPORT+7, REPORT+9, WORD~, WORD+2, CONVERT~, CONVERT+3, PRINT~, PRINT+2 , PRINT+4
TMAX	REPORT+2~, WORD+1~, WORD+2, PRINT+1~, PRINT+4, PRINT+5, PRINT+6
TV	START+1~, START+4*, START+6, START+11, GETREC~, GETREC+8, GETREC+10, GETREC+11, GETREC+14, REPORT~ , REPORT+7, REPORT+9, WORD~, WORD+2, WORD+8, PRINT~, PRINT+4, PRINT+8
TYPE	RETURN~, RETURN+2, RETURN+4
U	REPORT+4, REPORT+5, WORD+4, RETURN+3
UNITS	REPORT+1~, REPORT+5*, REPORT+8
UPPER	CONVERT+1~, CONVERT+2*, CONVERT+6
VA	EXIT+1!
VALUE	REPORT+1~, REPORT+5, REPORT+6, REPORT+8, REPORT+9, WARP~, WARP+3, PRINT~, PRINT+3
VARRAY	PRINT+1~, PRINT+3
VARRAY(	PRINT+8
VARRY	REPORT+2~
VMAX	REPORT+2~, PRINT+1~, PRINT+3, PRINT+5, PRINT+6
VV	START+1~, START+5*, START+6, START+11, GETREC~, GETREC+10, GETREC+11, GETREC+14, REPORT~, REPORT+7 , REPORT+9, WORD~, WORD+2, PRINT~, PRINT+3
X	WARP+1~, WARP+3, WORD+1~, WORD+4

Customize PDF page

Package: Health Summary

Routine: GMTSMCPS

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: