Routine: GMPLDIS1

Package	Total	Caller Graph
Problem List	1	GMPL1

Entry Points

Name	Comments	DBIA/ICR reference
DIS1
DISPLAY	; display current values for problem in GMPFLD array
ACCEPT(GMPFLD)	; accept current values of problem to save?
HELP	; help msg for $$ACCEPT, redisplay values

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ACCEPT+1
Function Call: WRITE	Prompt: !," "_TEXT(I) Line Location: DIS1+2
Function Call: WRITE	Prompt: "/"_$P(GMPFLD(1.14),U,2) Line Location: DIS1+6
Function Call: WRITE	Prompt: ", Resolved "_$$EXTDT^GMPLX($P(GMPFLD(1.07),U)) Line Location: DIS1+7
Function Call: WRITE	Prompt: !," Service: "_$P(GMPFLD(1.06),U,2) Line Location: DIS1+11
Function Call: WRITE	Prompt: !," Clinic: "_$P(GMPFLD(1.08),U,2) Line Location: DIS1+12
Function Call: WRITE	Prompt: ?55,"ICD Code: "_$P(GMPFLD(.01),U,2) Line Location: DIS1+15
Routine Call	DIR Line Location: ACCEPT+5

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

Name	Line Occurrences
DISPLAY	ACCEPT+1, HELP+6

Name	Field # of Occurrence
CMMT	DISPLAY+1~, DISPLAY+5, DISPLAY+7, DISPLAY+8
DIR	ACCEPT+1~
DIR("?"	ACCEPT+4*
DIR("A"	ACCEPT+3*
DIR("B"	ACCEPT+2*
DIR(0	ACCEPT+2*
DTIME	HELP+6
>> DTOUT	ACCEPT+5
>> DUOUT	ACCEPT+5
DUZ	DIS1+15
GMPFLD	ACCEPT~, DISPLAY+1
GMPFLD(	DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+9, DIS1+11, DIS1+12 , DIS1+14, DIS1+15
GMPFLD(10	DISPLAY+4
>> GMPLVIEW("VIEW"	DIS1+11
>> GMPVA	DIS1+4, DIS1+8
I	DISPLAY+1~, DISPLAY+2, DISPLAY+4, DIS1+2*
NTS	DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+8
PROB	DISPLAY+1~, DISPLAY+6, DISPLAY+7, DISPLAY+8
SP	DISPLAY+1~, DISPLAY+2, DISPLAY+3*, DIS1+8, DIS1+10, DIS1+13
TEXT	DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DIS1+2
TEXT(	DIS1+2
TEXT(1	DISPLAY+7*, DIS1+1
TEXT(2	DISPLAY+7*
U	DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+8, DIS1+9, DIS1+10 , DIS1+11, DIS1+12, DIS1+13, DIS1+14, DIS1+15
>> VALMCC	DIS1, DIS1+16
X	ACCEPT+1~, HELP+1~, HELP+6*
Y	ACCEPT+1~, ACCEPT+5, ACCEPT+6