Routine: PSOERXAU

Information

PSOERXAU ;BIRM/MFR - eRx Audit Log View - Listmam Driver ;11/02/20

Name	Comments	DBIA/ICR reference
EN(PSOERXID)	;Menu option entry point
HDR
INIT	;Populates the Body section for ListMan
SETLINE	;Sets the line to be displayed in ListMan
VIDEO	; - Changes the Video Attributes for the list ; - Highlighting the group lines (order type and status)
SETSORT(SORTBY)	;Sets the data sorted by the SORTBY specified
DT	;Sort by Date/Time
FN	;Sort by Field Name
EB	;Sort by Edite By
SH	;Show/Hide eRx Value
SORT(FIELD)	;Sort entries by FIELD
REFRESH	;Screen Refresh
EXIT	;
HELP
SETHDR	; - Displays the Header Line
SETOLD(PSOERXID,AUD)	; Set Old Value
SETVALUE(ERXIEN,FIELD,AUDIEN,TYPE)	; Set Old and New Values ; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (52.49) ; (r) FIELD - Audited Field (e.g., "SIG", "DRUG", etc.) ; (r) AUDIEN - Internal Entry Number for the Audit Log sub-file ; (r) TYPE - Value Type ("OLD" or "NEW")
ERXVAL(ERXIEN,FIELD)	; Set the Original Value ; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (52.49) ; (r) FIELD - Field Name

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please wait..." Line Location: EN+4
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: REFRESH+1