Routine: GMTSMCPS

Information

GMTSMCPS ; WISC/DCB - Medicine 2.2 Health Summary Component ; 08/27/2002

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

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