Routine: GMPLEDT1

Information

GMPLEDT1 ; SLC/MKB/KER/AJB/TC -- Edit Problem List fields ;08/27/14 07:57

Name	Comments	DBIA/ICR reference
ONSET	; Edit Date of Onset - field .13
O1	; Get Date of Onset
STATUS	; Edit Status - field .12 ; Then Edit Date Resolved - Field 1.07, if inactive
ST1	; Get Status
RECORDED	; Edit Date Recorded - field 1.09
RC1	; Get Date
SC	; Edit Service Connected - field 1.1
SC1	; Get Service Connection
SP	; Edit Exposures/Conditions ; Agent Orange - field 1.11 ; Ionizing Radiation - field 1.12 ; Persian Gulf/Environmental Contaminants - field 1.13 ; Head and/or Neck Cancer - field 1.15 ; Military Sexual Trauma - field 1.16 ; Combat Vet - field 1.17 ; SHAD - field 1.18
SOURCE	; Edit Service - field 1.06 ; or Clinic - field 1.08
S1	; Get Service/Clinic
SQ	; Quit Service/Clinic
AUTHOR	; Edit Recording Provider - field 1.04
PROV	; Edit Responsible Provider - field 1.05
ICD	; Edit ICD Code - field .01
ICD0	; Prompt for ICD Code
ICD1	; Get ICD Code
NOTE	; Attach a note to problem - field 11
TERM	; Edit Problem - field 1.01
Q	; No Editing

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date of Onset cannot be later than the date the problem was entered!",$C(7) Line Location: O1+2
Function Call: WRITE	Prompt: !!,"Date of Onset cannot be later than the date of death!",$C(7) Line Location: O1+3
Function Call: WRITE	Prompt: !!,"Date Recorded cannot be later than the problem was entered!",$C(7) Line Location: RC1+2
Function Call: WRITE	Prompt: !!,">>> Currently known service-connection data for "_$P(GMPDFN,U,2)_":" Line Location: SC+8
Function Call: WRITE	Prompt: ! Line Location: SC+16
Function Call: WRITE	Prompt: !,PROMPT_$S($L(DEFAULT):DEFAULT_"//",1:"") Line Location: S1+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: S1+2
Function Call: WRITE	Prompt: !!,HELPMSG,! Line Location: S1+4
Function Call: WRITE	Prompt: !,HELPMSG Line Location: S1+5
Function Call: WRITE	Prompt: !?5,"Only clinic"_$S(VIEW="S":"al service",1:"")_"s are allowed!",! Line Location: S1+7
Function Call: WRITE	Prompt: IORVOFF Line Location: ICD1+1
Function Call: WRITE	Prompt: !!,"ICD Code may not be deleted!",!,$C(7) Line Location: ICD1+3