Routine: GMPLRPTS

Information

GMPLRPTS ; SLC/MKB -- Problem List Mgt Reports ;1/26/95 10:00

Name	Comments	DBIA/ICR reference
PAT	; List patients having data in Problem file #9000011
PATQ
PROB	; Search for/List patients with selected problem
PROB1
PROBQ
KILL	; Clean-up after ourselves
DEVICE	; Prompt for device to send report to -- Sets GMPQUIT to quit
DQ
PRT	; Print patient listing from ^TMP("GMPRT",$J,)
HDR	; Prints report header
RETURN	; Checks for end-of-page, continue
STATUS()	; Prompts for problem status to search for

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: PAT+6
Function Call: WRITE	Prompt: $C(7),!!,"No patient data available.",! Line Location: PAT+7
Function Call: WRITE	Prompt: $C(7),!!,"No patient data available.",! Line Location: PROB1+13
Function Call: WRITE	Prompt: !,NAME,?60,^TMP("GMPRT",$J,NAME) Line Location: PRT+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: GMPLHDR,?60,$$EXTDT^GMPLX(DT),?70,"PAGE "_PAGE,!! Line Location: HDR+2
Function Call: WRITE	Prompt: "Patient Name",?60,$S(GMPLCNT:"# Active/Inactive",1:"Status"),! Line Location: HDR+3
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: RETURN+2