Routine: GMPLDIS1

Information

GMPLDIS1 ; SLC/MKB -- Displays current/default values for saving ;5/26/94 15:22

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ACCEPT+1
Function Call: WRITE	Prompt: !!?11,"Select SAVE to save this problem as listed and" Line Location: HELP+2
Function Call: WRITE	Prompt: !?11,"continue; enter E to change any of these values," Line Location: HELP+3
Function Call: WRITE	Prompt: !?11,"or Q to exit to the problem list without saving." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Press <return> to redisplay the problem values ..." Line Location: HELP+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: HELP+6
Function Call: WRITE	Prompt: !," Problem: "_TEXT(1) Line Location: DIS1+1
Function Call: WRITE	Prompt: !," "_TEXT(I) Line Location: DIS1+2
Function Call: WRITE	Prompt: !," Onset: "_$P(GMPFLD(.13),U,2) Line Location: DIS1+3
Function Call: WRITE	Prompt: !," Status: "_$P(GMPFLD(.12),U,2) Line Location: DIS1+5
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: !," Provider: "_$P(GMPFLD(1.05),U,2) Line Location: DIS1+9
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: !," Recorded: "_$P(GMPFLD(1.09),U,2)_" by "_$P(GMPFLD(1.04),U,2) Line Location: DIS1+14
Function Call: WRITE	Prompt: ?55,"ICD Code: "_$P(GMPFLD(.01),U,2) Line Location: DIS1+15