Routine: RGEX03

Information

RGEX03 ;BAY/ALS-LIST MANAGER FOR MPI/PD EXCEPTIONS ;10/13/99

Source file <RGEX03.m>

Name	Comments	DBIA/ICR reference
EN(DATA)	; -- main entry point for RG EXCPT ACTION
HDR	; -- header code
INIT	; -- init variables and list array
ADDNOTE	;Display Exception Notes, Word Processing field
ADDTMP	;
UPD	;
PA	;Patient Audit
PAQ
HI	;Hinq Inquiry
DISP	; Display Only Query
POT	;Potential Match on MPI, Query MPI, resolve duplicate if needed. 43;57 MPIC_1893 OBSOLETE; remove PMR
REJ	;Primary View Reject. **44 Added entry point
MPIPV	;MPI Primary View PDAT. **48 Added entry point
LOAD	; Edit Patient Data, if patient's eligibility is verified - check for DG ELIGIBILITY key for user
SENS	; check for patient sensitivity and user security
EDIT	; edit patient data
QUIT
REC	; Check if user is attempting to access own record ; check for security key
DEATH	; Check for access to edit date of death
DIEC	;Do the ^DIE call from the DEATH module
INQ	; Patient Inquiry
EDTNOT	; Edit Exception Notes
PDAT
GETEX(RETURN,DFN)	; Get array of pending exceptions for a patient
QGET	;
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option updates the exception status to PROCESSED.",!,"After it is processed it will not be listed in the summary." Line Location: UPD+2
Function Call: WRITE	Prompt: !!,"Access denied: Required parameters not defined" Line Location: SENS+3
Function Call: WRITE	Prompt: !!?15,"*PATIENT MARKED SENSITIVE*" Line Location: SENS+4
Function Call: WRITE	Prompt: !!?15,"Access not allowed on your own PATIENT (#2) file entry" Line Location: SENS+5
Function Call: WRITE	Prompt: !!?15,"Access denied: Your SSN is not defined" Line Location: SENS+6
Function Call: WRITE	Prompt: !!,"You do not have the proper security to edit date of death." Line Location: DEATH+17
Function Call: WRITE	Prompt: !! Line Location: HELP+1