Routine: GMPLDISP

Information

GMPLDISP ; ISL/MKB,JER,TC - Problem List detailed display ;08/26/14 11:57

Name	Comments	DBIA/ICR reference
EN	; Init Variables (need GMPLSEL,GMPLNO) and List Array
PROB	; Display problem GMPIFN
PR1	; Onset ; SC Condition ; Status ; Exposure ; Provider ; Service/Clinic
PR2	; Recorded ; Entered
PR3	; Comments
PR4	; Audit Trail
PRQ	; Header Node
HDR	; Header Code (uses GMPDFN, GMPIFN)
HELP	; Help Code
DEFLT()	; Default Action, using GMPI and GMPLNO
ERROR	; Error Message - drop into EXIT
EXIT	; Exit Code

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no more problems that have been selected to view!",! Line Location: EN+3
Function Call: WRITE	Prompt: !!,"Retrieving current data for problem #"_GMPLNUM_" ...",! Line Location: EN+6
Function Call: WRITE	Prompt: !!?4,"You may view detailed information here on this problem;" Line Location: HELP+1
Function Call: WRITE	Prompt: !?4,"more data may be available by entering 'Next Screen'." Line Location: HELP+2
Function Call: WRITE	Prompt: !?4,"If you have selected multiple problems to view, you may" Line Location: HELP+3
Function Call: WRITE	Prompt: !?4,"enter 'Continue to Next Selected Problem'; to return to" Line Location: HELP+4
Function Call: WRITE	Prompt: !?4,"the patient's problem list, enter 'Quit to Problem List'." Line Location: HELP+5
Function Call: WRITE	Prompt: !!,"Press <return> to continue ... " Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"ERROR -- Cannot continue ... Returning to Problem List.",! Line Location: ERROR+1