Routine: GMPLEDT4

Information

GMPLEDT4 ; SLC/MKB/TC -- Problem List Edit actions cont ;04/22/15 13:09

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PROBLEM: "_$P(GMPFLD(.05),U,2)_"//" Line Location: T1+0
Function Call: READ	Variable: PROB Timeout: DTIME 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: !,PROB,!,"has an inactive ICD code. Please enter another search term." Line Location: T2+17
Function Call: WRITE	Prompt: $C(7) Line Location: ED1+6
Function Call: WRITE	Prompt: !!,"Text may not exceed 200 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