Routine: GMTSMCZZ

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 record
SEARCH	;SEARCH FOR SELECTED PATIENT
FULL	;Full Sunnary
ADBF	;Print Full Summary for only abnotmal or null
GMTSMCPS	;WISC/DCB - Medicine 2.2 Health Summary Component ;5/10/94
WARP(VALUE,LENGTH,TEMP,MAX)	;WARP A FIELD
CAP	;Capture
BEG	;One Line summary only
ABN	;Print Brief summary for only abnomaral or Null
BRIEF	;Brief Summary
EXIT	;
REPORT(LOOP,MCL,RMAR,BLINE,TV,VV,SP)	;Report on procedure
RETURN(TYPE,LINE)	;Return key elements
CONVERT(TITLE)	;Convert a word to upper/lower case TEMP = Temp
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+3
CKP^GMTSUP	GETREC+7, GETREC+8, GETREC+11, GETREC+16, 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+7
Function Call: WRITE	Prompt: !,BLINE Line Location: GETREC+8
Function Call: WRITE	Prompt: ! Line Location: GETREC+11
Function Call: WRITE	Prompt: ! Line Location: GETREC+16
Function Call: WRITE	Prompt: ! Line Location: REPORT+10
Function Call: WRITE	Prompt: ! Line Location: WORD+9

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+6
EXIT	START+8, START+10, START+12
GETREC	START+11
PRINT	GETREC+9, GETREC+10, 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+8, GETREC+14, REPORT~
BRIEF	START~, GETREC+12, GETREC+13
DA	EXIT+1!
>> DFN	START+8, SEARCH+3
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+3
>> GMTSEND	SEARCH+3
>> GMTSNDM	SEARCH+1
>> GMTSQIT	START+11, GETREC+7, GETREC+8, GETREC+11, GETREC+14, GETREC+16, 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	SEARCH+1, SEARCH+2, SEARCH+3, REPORT+2~, WARP~, WARP+4, WARP+8, PRINT+5*, EXIT+1!
MCARDT	EXIT+2!
MCARNM	EXIT+2!
MCARPPS	EXIT+1!
MCARPROC	EXIT+2!
MCDATE	GETREC+1~, GETREC+3*, GETREC+7
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+6, GETREC+14, REPORT~, REPORT+3, REPORT+7 , WORD~, WORD+3, WORD+4, EXIT+1!
MCPROC	GETREC+1~, GETREC+4*, GETREC+7
MCPSUM	GETREC+1~, GETREC+6*, GETREC+10
MCSUM	GETREC+1~, GETREC+5*, GETREC+9, GETREC+13
MCTYPE	START~, SEARCH+3, REPORT+6
MLEN	GETREC+16, 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, GETREC+16, 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+7, GETREC+9, GETREC+10, 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, PRINT+7
TV	START+1~, START+4*, START+6, START+11, GETREC~, GETREC+7, GETREC+9, GETREC+10, 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+9, GETREC+10, 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: GMTSMCZZ

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: