Routine: RMPOPED1

Information

RMPOPED1 ;EDS/MDB,DDW,RVD - HOME OXYGEN MISC FILE EDITS CONT. ;7/24/98

Name	Comments	DBIA/ICR reference
RMPRWARN(RMPRICD,RMPRACS,RMPODFN,ITEM,RMPRCONT)	; ; Display Inactive ICD code warning.
CONTINUE()	; ; prompt user to continue w/ current Item after warning was issued
DLTITEM(RMPODFN,ITEM)	; ; Delete Inactive ICD code from Item

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This item contains the ICD Diagnosis Code: ",RMPRICD," which was inactive based" Line Location: RMPRWARN+2
Function Call: WRITE	Prompt: !,"on the start date of the currently selected prescription." Line Location: RMPRWARN+3
Function Call: WRITE	Prompt: !!,"You may 1) select a different item with no ICD code or with an active ICD code," Line Location: RMPRWARN+4
Function Call: WRITE	Prompt: !," 2) enter a new item or " Line Location: RMPRWARN+5
Function Call: WRITE	Prompt: !," 3) proceed with this item. If you proceed with this item, the existing" Line Location: RMPRWARN+6
Function Call: WRITE	Prompt: !," ICD Diagnosis code ",RMPRICD," will be DELETED." Line Location: RMPRWARN+7
Function Call: WRITE	Prompt: !!,"You may then enter an active ICD-",RMPRACS," Diagnosis code or you may leave" Line Location: RMPRWARN+8
Function Call: WRITE	Prompt: !,"the ICD Diagnosis field blank." Line Location: RMPRWARN+9
Function Call: WRITE	Prompt: ! Line Location: CONTINUE+4
Function Call: WRITE	Prompt: ! Line Location: CONTINUE+6