RCDPEOP ;AITC/FA - EFT Overrride Report ;Jun 06, 2014@19:11:19
Source file <RCDPEOP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EP for EFT Override Report [RCDPE EFT OVERRIDE REPORT]
|
|
LMOUT(RCRPLST,RCDTRNG,RCTYPE) | ; Output report to Listman
; Input: RCRPLST - "RCDPEOP" ; Input: RCDTRNG - ^Start Date^End Date ; RCTYPE - 'M', 'P', 'T' or 'A' ; RCRPLST - "RCDPEOP" ; ^TMP($J,RCRPLST) - Array of data lines to be displayes ; Output: Report is displayed in Listman |
|
COMPILE | ; Entry point for queued job
; Input: RCDISPTY - 1 - Display to Excel, 0 otherwise ; RCDTRNG - ^Start Date^End Date ; RCLSTMGR - ListMan flag ; RCTYPE - 'M', 'P' , 'T' or 'A' ; RCRPLST - "RCDPEOP" ; Output: ^TMP($J,RCRPLST,CT) - Array of report lines to be displayed |
|
OUTLN(D1,RCDISPTY,RCHDT,RCCTYPE,RCRPLST,CT,TOT) | ; Store one line of output into arrays
; Input: D1 - DE of sub-file 344.612 being processed ; RCDISPTY - 1 - Display to Excel, 0 otherwise ; RCHDT - Internal Date/Time of current entry being processed ; RCCTYPE - Current Override Type ; RCRPLST - "RCDPEOP" ; CT - Current line Count ; TOT - Current total # of EFT Lockout Overrides for date range ; TOT("M") - Current total # of Medical EFT LO Overrides for range ; TOT("P") - Current total # of Rx EFT LO Overrides for range ; TOT("T") - Current total # of TRICARE EFT LO Overrides for range ; ^TMP(RCRPLST,$J,RCHDT,CT) - Current Array of output display lines ; Output: CT - Updated line Count ; TOT - Updated total # of EFT Lockout Overrides for date range ; TOT("M") - Updated total # of Medical EFT LO Overrides for range ; TOT("P") - Updated total # of Rx EFT LO Overrides for range ; TOT("T") - Updated total # of TRICARE EFT LO Overrides for range ; ^TMP(RCRPLST,$J,RCHDT,CT) - Updated Array of output display lines |
|
HDRBLD(RCDISPTY,RCDTRNG,RCTYPE,RCHDR) | ; Create the report header
; Input: RCDISPTY - 1 - Output to Excel, 0 otherwise ; RCDTRNG - User selected date range - ^Start Date End Date ; RCTYPE - User selected M/P/T filter - 'M', 'P' , 'T' or 'A' ; Output: RCHDR - Array of header lines to be displayed |
|
HDRLN1(RCDTRNG) | ; Format the second header display line
; Input: RCDTRNG - User selected date range - ^Start Date End Date ; Returns: text for the first header line after the title line |
|
HDRLN2(RCTPYE) | ; Format the second header display line
; Input: RCTYPE - User selected M/P/T filter - 'M', 'P' , 'T' or 'A' ; Returns: text for the third header line after the title line |
|
HDRLN3() | ; Format the second header display line
|
|
RPT(RCDISPTY,RCHDR) | ; Display/print the report using data populated in temporary global array
; Input: RCDISPTY - 1 - Output to Excel, 0 otherwise ; RCHDR - Array of header lines to be displayed ; ^TMP($J,RCRPLST) - Array of data lines to be displayed or output to excel ; |
|
HDRDSP(PAGE,LNCNT,RCHDR,RCSTOP) | ||
ASK(STOP,TYP) | ; Ask to continue, if TYP=1 then prompt to finish
; Input: TYP - 1 - Prompt to finish, 0 Otherwise ; Output: STOP - 1 abort print, 0 otherwise |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|