Routine: GMPLRPTR

Package	Total	Call Graph
VA Fileman	3	WAIT^DICD ^DIE ^DIR
Kernel	2	$$HTFM^XLFDT $$REPEAT^XLFSTR
Problem List	2	($$CODESTS,$$EXTDT,$$PROBTEXT,AUDIT,DTMOD)^GMPLX ($$NAME,$$PAT)^GMPLX1

Package

Total

Call Graph

VA Fileman

WAIT^DICD ^DIE ^DIR

Kernel

$$HTFM^XLFDT $$REPEAT^XLFSTR

Problem List

($$CODESTS,$$EXTDT,$$PROBTEXT,AUDIT,DTMOD)^GMPLX ($$NAME,$$PAT)^GMPLX1

Package	Total	Caller Graph
Problem List	1	GMPL REPLACE PROBLEMS

Package

Total

Caller Graph

Problem List

GMPL REPLACE PROBLEMS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point
HDR	; -- header code
CONTINUE()	; -- end of page prompt
GETLIST	; -- build GMPLIST() of removed problems
SEL()	; -- select problem(s)
REPLACE	; -- replace problem on patient's list
SURE()	; -- are you sure you want to do this?
DISPLAY	; -- show list on screen

External References

Name	Field # of Occurrence
WAIT^DICD	EN+2
^DIE	REPLACE+8
^DIR	CONTINUE+3, REPLACE+13, SEL+5, SURE+4
$$CODESTS^GMPLX	DISPLAY+6, REPLACE+7
$$EXTDT^GMPLX	DISPLAY+14
$$PROBTEXT^GMPLX	DISPLAY+4, REPLACE+7, REPLACE+11
AUDIT^GMPLX	REPLACE+10
DTMOD^GMPLX	REPLACE+10
$$NAME^GMPLX1	DISPLAY+14
$$PAT^GMPLX1	EN+1
$$HTFM^XLFDT	REPLACE+4
$$REPEAT^XLFSTR	HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!?10,"No 'removed' problems found for this patient.",! Line Location: EN+3
Function Call: WRITE	Prompt: "." Line Location: GETLIST+4
Function Call: WRITE	Prompt: !,NUM,?GMPLBUF,PROBLEM,?51,$$EXTDT^GMPLX(DATE),?60,$$NAME^GMPLX1(PROV) Line Location: DISPLAY+14
Function Call: WRITE	Prompt: @IOF,"REMOVED PROBLEMS FOR "_$P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_"):" Line Location: HDR+1
Function Call: WRITE	Prompt: !!," Problem",?51,"Removed By Whom",!,$$REPEAT^XLFSTR("-",79) Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: REPLACE+1
Function Call: WRITE	Prompt: !!,"Replacing problem(s) on patient's list ..." Line Location: REPLACE+3
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPLIST(NUM)),!,"has an inactive ICD9 code and will not be replaced." Line Location: REPLACE+7
Function Call: WRITE	Prompt: !," "_$$PROBTEXT^GMPLX(DA) Line Location: REPLACE+11
Function Call: WRITE	Prompt: ! Line Location: REPLACE+13
Function Call: WRITE	Prompt: $C(7) Line Location: SURE+4
Routine Call	DIE Line Location: REPLACE+8
Routine Call	DIR Line Location: CONTINUE+3 REPLACE+13 SEL+5 SURE+4

FileNo	Call Tags
^AUPNPROB - [#9000011]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETLIST+3
^AUPNPROB("AC"	GETLIST+2
^GMPL(125.8 - [#125.8]	DISPLAY+7, DISPLAY+8, DISPLAY+9

Name	Line Occurrences
$$CONTINUE	DISPLAY+11
$$SEL	REPLACE+2
$$SURE	REPLACE+2
DISPLAY	EN+4
GETLIST	EN+2
HDR	DISPLAY+1, DISPLAY+11
REPLACE	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIFN	DISPLAY+1~, DISPLAY+8*, DISPLAY+9
CHNGE	REPLACE+1~, REPLACE+9*, REPLACE+10
CNT	GETLIST+1~, GETLIST+4, GETLIST+5
DA	REPLACE+1~, REPLACE+8*, REPLACE+9, REPLACE+10, REPLACE+11
DATE	DISPLAY+1~, DISPLAY+4, DISPLAY+10, DISPLAY+14
DIE	REPLACE+1~, REPLACE+8*
DIR	CONTINUE+1~, REPLACE+13~, SEL+1~, SURE+1~
DIR("?"	SEL+4, SURE+3
DIR("A"	CONTINUE+2, SEL+3, SURE+2*
DIR("B"	SURE+2*
DIR(0	CONTINUE+2, REPLACE+13, SEL+3, SURE+2
DONE	DISPLAY+1~, DISPLAY+4!, DISPLAY+7, DISPLAY+8, DISPLAY+10*
DR	REPLACE+1~, REPLACE+8*
DT	DISPLAY+6, REPLACE+7
>> DTOUT	SEL+5
DUZ	REPLACE+9
GMPDFN	EN+1*, EN+5!, GETLIST+2, HDR+1
GMPLBUF	DISPLAY+13~*, DISPLAY+14
GMPLIST	EN+5!
GMPLIST(	GETLIST+4*, DISPLAY+2, DISPLAY+3, REPLACE+7, REPLACE+8
GMPLIST(0	EN+3, GETLIST+5*, SEL+2
GMPLNO	REPLACE+1~, REPLACE+4*, REPLACE+5
GMPLSEL	REPLACE+1~, REPLACE+2*, REPLACE+4, REPLACE+5
GMPQUIT	DISPLAY+1~, DISPLAY+2, DISPLAY+11*
>> I	REPLACE+5*
IDT	DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DISPLAY+10
IFN	GETLIST+1~, GETLIST+2, GETLIST+3, GETLIST+4, DISPLAY+3, DISPLAY+4, DISPLAY+6, DISPLAY+7, DISPLAY+8
IOF	HDR+1
IOSL	DISPLAY+11
MAX	SEL+1~, SEL+2*, SEL+3
NODE	GETLIST+1~, GETLIST+3, DISPLAY+1~, DISPLAY+9, DISPLAY+10
NOW	REPLACE+1~, REPLACE+4*, REPLACE+9
NUM	DISPLAY+1~, DISPLAY+2, DISPLAY+3, DISPLAY+14, REPLACE+1~, REPLACE+5, REPLACE+7, REPLACE+8
PROBLEM	DISPLAY+1~, DISPLAY+4, DISPLAY+6, DISPLAY+13, DISPLAY+14
PROV	DISPLAY+1~, DISPLAY+4, DISPLAY+10, DISPLAY+14
U	GETLIST+3, DISPLAY+9, DISPLAY+10, HDR+1, REPLACE+9
USER	DISPLAY+1~
X	CONTINUE+1~, SEL+1~, SEL+5, SURE+1~
Y	CONTINUE+1~, CONTINUE+4, SEL+1~, SEL+5*, SEL+6, SURE+1~, SURE+5

Customize PDF page

Package: Problem List

Routine: GMPLRPTR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: