Routine: GMPLEDT4

Package	Total	Call Graph
Problem List	3	(DATE,DELETE)^GMPLEDT2 JUMP^GMPLEDT3 ($$DUPL,$$DUPLOK,$$EXTDT,$$NOS,SEARCH)^GMPLX
DRG Grouper	1	$$CODEN^ICDCODE
VA Fileman	1	^DIR

Package

Total

Call Graph

Problem List

(DATE,DELETE)^GMPLEDT2 JUMP^GMPLEDT3 ($$DUPL,$$DUPLOK,$$EXTDT,$$NOS,SEARCH)^GMPLX

DRG Grouper

$$CODEN^ICDCODE

VA Fileman

^DIR

Package	Total	Caller Graph
Problem List	2	GMPL1 GMPLEDT1

Package

Total

Caller Graph

Problem List

GMPL1 GMPLEDT1

Entry Points

Name	Comments	DBIA/ICR reference
RESOLVED	; edit field 1.07
TERM	; edit field 1.01
R1
T2	; new text -- pass to look-up
NTES	; Edit existing note, display # in XQORNOD(0)
TEXT(DFLT)	; Enter/edit provider narrative text (no lookup)
T1
PRIORITY	; edit field 1.14
ED1
PR1
EDNOTE	; Edit note text given PROMPT,DEFAULT (returns X,Y)

Name	Field # of Occurrence
^DIR	T1+10, TEXT+4, ED1, ED1+6, PR1
DATE^GMPLEDT2	R1
DELETE^GMPLEDT2	T1+11
JUMP^GMPLEDT3	T1+2, ED1+1, PR1+1
$$DUPL^GMPLX	T2+4
$$DUPLOK^GMPLX	T2+5
$$EXTDT^GMPLX	NTES+5, R1+2
$$NOS^GMPLX	T2+9
SEARCH^GMPLX	T2+2
$$CODEN^ICDCODE	T2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PROBLEM: "_$P(GMPFLD(.05),U,2)_"//" Line Location: T1+0
Function Call: READ	Timeout: DTIME Variable: PROB Line Location: T1+1
Function Call: WRITE	Prompt: !!?4,"Enter a description of this problem, up to 80 characters.",! Line Location: T1+5
Function Call: WRITE	Prompt: ! Line Location: T2+5
Function Call: WRITE	Prompt: $C(7) Line Location: ED1+6
Function Call: WRITE	Prompt: !!,"Text may not exceed 60 characters!",!,$C(7) Line Location: ED1+8
Function Call: WRITE	Prompt: !!,"Date Resolved cannot be prior to the Date of Onset!",$C(7) Line Location: R1+1
Routine Call	DIR Line Location: T1+10 TEXT+4 ED1 ED1+6 PR1

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("GMPL ICD CODE"	NTES+2

Name	Line Occurrences
ED1	ED1+1, ED1+2, ED1+8
EDNOTE	NTES+6
PR1	PR1+1
R1	R1+1
T1	T1+2, T1+4, T1+11, T2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DEFAULT	NTES+1~, NTES+4, EDNOTE+2, ED1+2, RESOLVED+1~, RESOLVED+2
DFLT	TEXT~, TEXT+2, TEXT+4
DIR	T1+9!, T1+10!, TEXT+1~, EDNOTE+1~, ED1+3~, PRIORITY+1~
DIR("?"	TEXT+3, EDNOTE+3, EDNOTE+4, ED1+5, PRIORITY+4*
DIR("A"	T1+9, TEXT+2, EDNOTE+1, ED1+4, PRIORITY+2*
DIR("B"	TEXT+2, EDNOTE+2, ED1+3, ED1+8, PRIORITY+3*
DIR(0	T1+10, TEXT+2, EDNOTE+1, ED1+3, PRIORITY+2*
DTIME	T1+1
DTOUT	TERM+1~, T1+1*, TEXT+1~, TEXT+4, EDNOTE+1~, ED1, ED1+3~, ED1+6, PRIORITY+1~, PR1
DUOUT	ED1+3~, ED1+6
DUP	TERM+1~, T2+4*, T2+5
DUZ	NTES+2
>> GMPARAM("CLU"	T2+1
>> GMPDFN	T2+4
>> GMPFLD(	T1, T1+3, T2+1, T2+6, T2+8, T2+9, RESOLVED+1, RESOLVED+2, R1+2, PRIORITY+3 , PR1+3
>> GMPFLD(10	NTES+4, NTES+7*
>> GMPIFN	T1+2, T1+6, ED1+1, PR1+1
GMPLJUMP	T1+2!, ED1+1!, R1, PR1+1!
>> GMPLUSER	T2+1
GMPQUIT	TERM+1~, T1+1, T1+2, T1+6, T1+11, T2+3, NTES+6, EDNOTE+1~, ED1, ED1+1 , ED1+2, ED1+6, RESOLVED+1~, R1, PRIORITY+1~, PR1*, PR1+1
>> GMPVA	NTES+2
HELPMSG	RESOLVED+1~, RESOLVED+3*
ICD	TERM+1~, T2+3*, T2+8
NOTE	NTES+1~, NTES+4*, NTES+5
NT	NTES+1~, NTES+2*, NTES+3
NUM	NTES+1~, NTES+3*, NTES+4, NTES+7
ONSET	RESOLVED+1~*, R1+1
PROB	TERM+1~, T1+1*, T1+2, T1+3, T1+4, T1+6, T1+11, T2+1, T2+2, T2+4 , T2+6
PROMPT	NTES+1~, NTES+5, EDNOTE+1, RESOLVED+1~, RESOLVED+2
TERM	TERM+1~, T2+3*, T2+4, T2+6
U	T1, T1+3, T2+1, T2+6, T2+8, T2+9, NTES+3, NTES+4, NTES+5, NTES+7 , R1+2, PRIORITY+3, PR1+2
>> VALMBCK	T1+11
X	TEXT+1~, TEXT+4, NTES+1~, ED1+2, ED1+3~, ED1+8, ED1+9, RESOLVED+1~, PRIORITY+1~
>> XQORNOD(0	NTES+3
Y	TERM+1~, T2+2, T2+3, TEXT+1~, TEXT+4, TEXT+5, NTES+1~, NTES+7, ED1, ED1+1 , ED1+2, ED1+6, ED1+7, ED1+9, RESOLVED+1~, R1+1, R1+2, PRIORITY+1~, PR1, PR1+1 , PR1+2, PR1+3
Y(1	T2+3

Customize PDF page

Package: Problem List

Routine: GMPLEDT4

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: