Routine: GMPLRPTS

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$REPEAT,$$UP)^XLFSTR
VA Fileman	2	WAIT^DICD ^DIR
Problem List	1	($$EXTDT,SEARCH)^GMPLX

Package	Total	Caller Graph
Problem List	2	GMPL PATIENT LISTING GMPL PROBLEM LISTING

Entry Points

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

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
Routine Call	%ZIS Line Location: DEVICE+5
Routine Call	DIR Line Location: RETURN+3 STATUS+5
Routine Call	%ZIS Line Location: DEVICE+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PAT+5, PROB1+5, PROB1+6, PROB1+7
^AUPNPROB("AC"	PAT+3, PAT+5
^AUPNPROB("C"	PROB1+4
^AUTNPOV - [#9999999.27]	PROB1+8
^DPT - [#2]	PAT+6, PROB1+7
^TMP("GMPRT"	PAT+6, PROB1+9, PROB1+10, PROB1+11, PROB1+12, KILL+1!, PRT+2, PRT+4

Name	Field # of Occurrence
^(0	PAT+5

Name	Field # of Occurrence
%ZIS	DEVICE+1*, DQ!
CNT	PAT+1~
CNT(	PAT+5*
CNT("A"	PAT+4*, PAT+6
CNT("I"	PAT+4*, PAT+6
DFN	PAT+1~, PAT+3, PAT+5, PAT+6, PROB+1~, PROB1+7
DIR	RETURN+1~, STATUS+1~
DIR("?"	STATUS+4*
DIR("A"	STATUS+3*
DIR("B"	STATUS+3*
DIR(0	RETURN+3, STATUS+2
DT	HDR+2
>> DTOUT	STATUS+5
>> DUOUT	STATUS+5
>> GMPLCNT	PAT+8, PROB1+14, HDR+3
GMPLHDR	PAT+8, PROB1+14, KILL+1!, DEVICE+3, HDR+2
GMPQUIT	PAT+9, PROB1+15, KILL+1!, DEVICE+1, DEVICE+5, PRT+2, PRT+3, PRT+5, PRT+6, RETURN+3*
GMPRT	PAT+1, PAT+6, PAT+7, PROB1+3, PROB1+9, PROB1+13, KILL+1!, PRT+5
GMPTERM	PROB+1~, PROB1+1*, PROB1+4, PROB1+8, PROB1+14
GMPTEXT	PROB+1~, PROB1+1*, PROB1+8
I	RETURN+1~, RETURN+2*
IFN	PAT+1~, PAT+4, PAT+5, PROB+1~, PROB1+4*, PROB1+5, PROB1+6, PROB1+7
IO	PRT+1
IO("Q"	DEVICE+2, DQ!
IOF	PRT+6, HDR+1
IOSL	PRT+3, RETURN+2
IOST	PRT+6, RETURN+1
NAME	PROB+1~, PROB1+7, PROB1+9, PROB1+10, PROB1+11, PROB1+12, PRT+1~, PRT+2*, PRT+4
>> NODE	PROB1+7*
PAGE	PRT+1~, HDR+1, HDR+2
POP	DEVICE+1, DQ!
ST	PAT+1~, PAT+5, PROB+1~, PROB1+7, PROB1+9, PROB1+10, PROB1+11, PROB1+12
STATUS	PROB+1~, PROB1+2*, PROB1+6
TXT	PROB+1~, PROB1+7*, PROB1+8
U	PAT+5, PAT+6, PROB1+5, PROB1+6, PROB1+7, PROB1+8, PROB1+14
X	PROB+1~, PROB1, PROB1+1, KILL+1!, RETURN+1~, STATUS+1~
Y	PROB+1~, PROB1, PROB1+1, KILL+1!, RETURN+1~, RETURN+3, STATUS+1~, STATUS+5*, STATUS+6
ZTDESC	DEVICE+3*, DQ!
>> ZTQUEUED	PRT+7
>> ZTREQ	PRT+7*
ZTRTN	DEVICE+3*, DQ!
ZTSAVE	DQ!
ZTSAVE("GMPLCNT"	DEVICE+4*
ZTSAVE("GMPLHDR"	DEVICE+4*
ZTSAVE("GMPRT"	DEVICE+4*
ZTSAVE("^TMP(""GMPRT"",$J,"	DEVICE+4*
ZTSK	DEVICE+5, DQ!