Routine: GMTSMCZZ

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

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

Package

Total

Call Graph

Health Summary

HSUM^GMTSMCMA CKP^GMTSUP

Registration

KVAR^VADPT

VA Fileman

^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

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

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: