Routine: RCDPEWLE

Information

RCDPEWLE ;AITC/CJE - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19

Name	Comments	DBIA/ICR reference
ERADET()	; Created for PRCA4.5439 - EP from ^RCDPEWL0
AUDIT()	; Created for PRCA4.5439 - EP from ^RCDPEWL0
GETAUD(ERAIEN,OUTARR)	; Get auto-post and match audit information for a single ERA (EP) ; Input : ERAIEN - Internal entry number for file #344.4 ; Output: OUTARR - Passed by reference - returns array of text information for a report.
FMTSTAMP(X)	; Format date stamp ; Input : X date/time in fileman format ; Return : date/time in format MM/DD/YY:HH:MM:SS
PAD(X,Y)	; Right pad X to length Y ; Input : X - String to PAD ; Y - Length ; Return: X padded to length Y.
ABB(X)	; Abbreviate match status to be no more than 10 chars
ERASTR	; Enter here for new style ERA Status Change Report with ERA Detail, Auto-Post and Match Audit - PRCA4.5439
ENQ	;
RUN(RCERA,RCRANGE,RCTYPE)	;
COMPILE	; Compile report data
REPORT	; Print Report
ONE(RCERA,CNT)	; Extract data for one ERA ; Input : RCERA - Internal entry number from file 344.4 ; Output : Lines of Text in ^TMP("RCDPEWLE",$J,CNT)
HDR1	; Print main header for report
HDR2	; Print header for audit trail

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ERADET+6
Function Call: WRITE	Prompt: ! Line Location: AUDIT+5
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: ERASTR+30
Function Call: WRITE	Prompt: !,^TMP("RCDPEWLE",$J,CNT) Line Location: REPORT+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: HDR Line Location: HDR1+10
Function Call: WRITE	Prompt: !,EQL Line Location: HDR1+11