Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEAD1

Package: Accounts Receivable

Routine: RCDPEAD1


Information

RCDPEAD1 ;OIFO-BAYPINES/PJH - AUTO-DECREASE REPORT ;Nov 23, 2014@12:48:50

Source Information

Source file <RCDPEAD1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 6 $$CARCLMT^RCDPEAD  $$LINE^RCDPEAD2  (ASK,REPORT,SAVE)^RCDPEADP  $$PHARM^RCDPEAP1  LMRPT^RCDPEARL  $$ISTYPE^RCDPEU1  
VA FileMan 3 EN^DDIOL  $$EXTERNAL^DILFD  $$GET1^DIQ  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Accounts Receivable 1 RCDPEADP  

Entry Points

Name Comments DBIA/ICR reference
CARCS(A1,A2,A3,CARCS) ; Get CARC Auto-Decrease data
; Input: A1 - "EXCEL" if exporting to excel
; Internal fileman date if not exporting to excel
; A2 - Excel Line Counter if exporting to excel
; External Claim number is sorting by claim
; External Payer Name if sorting by Payer
; External Patient Name if sorting by Patient Name
; A3 - Record Counter
; CARCS - ^ delimited string of CARC information
; See SAVE for a complete description
; Output: ^TMP("RCDPEADP",$J,A1,A2,A3,A4) - C1^C2^C3^C4 Where:
; - A1 - "EXCEL" if exporting to excel
; Internal fileman date if not exporting to excel
; A2 - Excel Line Counter if exporting to excel
; External Claim number is sorting by claim
; External Payer Name if sorting by Payer
; External Patient Name if sorting by Patient Name
; A3 - Record Counter
; A4 - CARC Counter
; C1 - CARC Code (file 361.111, field .01)
; C2 - Decrease Amount (file 361.111, field .02)
; C3 - Quantity (file 361.111, field .03)
; C4 - Reason (file 361.111, field .04)
COMPILE(INPUTS,RCVAUTD,DTOTAL,GTOTAL) ; EP Generate the Auto-Decrease report ^TMP array
; Input: INPUTS - A1^A2^A3^...^An Where:
; A1 - 1 - All divisions selected
; 2 - Selected divisions
; A2 - C - Sort by Claim
; P - Sort by Payer
; N - Sort by Patient Name
; A3 - F - First to Last Sort Order
; L - Last to First Sort Order
; A4 - B1|B2
; B1 - Auto-Post Start Date
; B2 - Auto-Post End Date
; A5 - 1 - Output to Excel
; 2 - Otherwise
; RCVAUTD - Array of selected Divisions
; Only passed if A1=2
; Output: DTOTAL() - Array of totals by Auto-Post Date
; GTOTAL - Grand totals
; ^TMP("RCDPEADP",$J) - Array of report data
; See SAVE for a full description
ERASTA(ERAIEN,STA,STNUM,STNAM) ; Get the station for this ERA
; Input: ERAIEN - Internal IEN for file 344.4
; Output: STA - Internal Station IEN
; STNUM - Station Number
; STNAM - Station Name
HDR(EXCEL,HDRINFO,PAGE,NOLINE) ; Print the report header
; Input: EXCEL - 1 if output to Excel, 0 otherwise
; HDRINFO() - Array of Header information
; PAGE - Current Page Number
; NOLINE - 1 to not display Claim line header
; Optional, defaults to 0
; Output: PAGE - Updated Page Number (if EXCEL=0)
HINFO(INPUTS,HDRINFO) ;Get header information
; Input: INPUTS - See REPORT^RCDPEADP for a complete description
; HDRINFO - Return array - passed by reference
; Output: HDRINFO - Formatted header array for ListMan
LMAN(DATA,A1,A2,A3,XX) ; Format and save List Manager line
; Input: DATA - ERA line adjustment total
; A1,A2,A3 - ^TMP("RCDPEAP") subscripts
; XX - List Counter for ^TMP("RCDPE_ADP",$J)
LMOUT(INPUT,RCVAUTD,IO) ; EP Output report to Listman
; Input: INPUT - See REPORT for a complete description
; RCVAUTD - Array of selected Divisions
; Only passed if A1=2
; IO - Output device array
; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers)
; for output to Listman
; Only set when A7-1
TOTALD(EXCEL,HDRINFO,PAGE,STOP,DAY,DTOTAL) ; Totals for a single day
; Input: EXCEL - 1 if output to Excel, 0 otherwise
; HDRINFO() - Array of header information
; PAGE - Current Page Number
; DAY - Internal Fileman date to display totals for
; DTOTAL() - Array of totals by day
; IOSL - Page length
; Output: PAGE - Updated Page Number (if a new header is displayed)
; STOP - 1 if displaying to screen and user asked to stop
TOTALG(EXCEL,HDRINFO,PAGE,GTOTAL,STOP) ; Overall report total
; Input: EXCEL - 1 if output to Excel, 0 otherwise
; HDRINFO() - Array of header information
; PAGE - Current Page Number
; GTOTAL() - Grand Totals for report
; IOSL - Page length
; Output: PAGE - Updated Page Number (if a new header is displayed)
MAX(RCINP,RCMAX) ; Input CARCs and remove any over what was actually auto-decreased
; INPUT - RCINP - list of all CARCs on EEOB
; RCMAX - total amount auto-decreased on claim
; OUTPUT - RCOUT - list of CARCs actually auto-decreased
;

External References

Name Field # of Occurrence
EN^DDIOL HDR+27
$$EXTERNAL^DILFD ERASTA+15
$$GET1^DIQ COMPILE+51, COMPILE+54, COMPILE+56, ERASTA+8, ERASTA+10, ERASTA+12, ERASTA+16
$$CARCLMT^RCDPEAD COMPILE+59
$$LINE^RCDPEAD2 HINFO+15
ASK^RCDPEADP TOTALD+11, TOTALG+9
REPORT^RCDPEADP LMOUT+9
SAVE^RCDPEADP COMPILE+62
$$PHARM^RCDPEAP1 COMPILE+43
LMRPT^RCDPEARL LMOUT+21
$$ISTYPE^RCDPEU1 COMPILE+42
$$FMADD^XLFDT COMPILE+24
$$FMTE^XLFDT HINFO+6, HINFO+7, HINFO+8, TOTALD+16
$$NOW^XLFDT HINFO+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"STATION^STATION NUMBER^CLAIM #^PATIENT NAME^PAYER^DECREASE AMOUNT^DATE^CARC"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "^DECREASE AMT^#^REASON"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!,Y
  • Line Location: TOTALD+18
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: TOTALD+20
Function Call: WRITE
  • Prompt: !!,"**** Totals for Date Range: # of Decrease Adjustments: "_+$P(GTOTAL,U,1)
  • Line Location: TOTALG+13
Function Call: WRITE
  • Prompt: !,Y,!
  • Line Location: TOTALG+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.41 GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
^DGCR(399 - [#399] EXTERNAL^DILFD,  GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] COMPILE+35, COMPILE+38, COMPILE+49
^TMP("RCDPEADP" CARCS+33*, LMAN+15, LMAN+17, LMOUT+23!
^TMP("RCDPE_ADP" LMAN+10*, LMAN+11*, LMAN+12*, LMAN+13*, LMAN+22*, LMAN+23*, LMOUT+21, LMOUT+23!
^TMP($J LMOUT+23!

Label References

Name Line Occurrences
$$MAX COMPILE+60
ERASTA COMPILE+40
HDR TOTALD+13, TOTALG+11
HINFO LMOUT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 CARCS~, CARCS+33, LMAN~, LMAN+15, LMAN+17
A2 CARCS~, CARCS+33, LMAN~, LMAN+15, LMAN+17
A3 CARCS~, CARCS+33, LMAN~, LMAN+15, LMAN+17
ADDATE COMPILE+20~, COMPILE+24*, COMPILE+35*, COMPILE+38, COMPILE+49, COMPILE+59, COMPILE+62
AMT CARCS+23~, CARCS+29*, CARCS+32, COMPILE+20~, COMPILE+56*, COMPILE+60
CARC CARCS+23~, CARCS+28*, CARCS+32
CARCAMT LMAN+4~, LMAN+17*
CARCS CARCS~, CARCS+26, CARCS+27, COMPILE+20~, COMPILE+59*, COMPILE+60*, COMPILE+61, COMPILE+62
CCTR CARCS+23~, CARCS+26*, CARCS+27, CARCS+33, LMAN+4~, LMAN+14*, LMAN+15*, LMAN+17
DAMT TOTALD+9~, TOTALD+15*, TOTALD+19
DATA LMAN~, LMAN+5, LMAN+6, LMAN+7, LMAN+8, LMAN+9
DATA1 LMAN+4~, LMAN+17*, LMAN+18, LMAN+19, LMAN+20, LMAN+21
DAY TOTALD~, TOTALD+15, TOTALD+16
DCNT TOTALD+9~, TOTALD+15*, TOTALD+17
DIV HDR+7~
DTOTAL COMPILE~, TOTALD~
DTOTAL( TOTALD+15
END COMPILE+20~, COMPILE+25*, COMPILE+35
EOBIEN COMPILE+20~, COMPILE+51*, COMPILE+59
ERABILL ERASTA+5~, ERASTA+6*, ERASTA+10*, ERASTA+11, ERASTA+12
ERAEOB ERASTA+5~, ERASTA+6*, ERASTA+8*, ERASTA+9, ERASTA+10
ERAIEN COMPILE+20~, COMPILE+36*, COMPILE+37, COMPILE+38*, COMPILE+39, COMPILE+40, COMPILE+42, COMPILE+43, COMPILE+49, COMPILE+51
, COMPILE+54, COMPILE+56, COMPILE+62, ERASTA~, ERASTA+8
EXCEL COMPILE+20~, COMPILE+27*, COMPILE+62, HDR~, HDR+9, TOTALD~, TOTALD+10, TOTALD+13, TOTALG~, TOTALG+8
, TOTALG+11
GTOTAL COMPILE~, TOTALG~, TOTALG+13, TOTALG+14
HDR LMOUT+8~, LMOUT+21
HDR("TITLE" LMOUT+11*
HDR(1 LMOUT+12*
HDR(2 LMOUT+14*
HDR(3 LMOUT+16*
HDR(4 LMOUT+17*
HDR(5 LMOUT+18*
HDR(6 LMOUT+19*
HDR(7 LMOUT+20*
HDRINFO HDR~, HINFO~, LMOUT+8~, LMOUT+10, TOTALD~, TOTALD+13, TOTALG~, TOTALG+11
HDRINFO("DIVISIONS" HDR+18, HINFO+15*, LMOUT+13
HDRINFO("END" HDR+21, HINFO+7*, LMOUT+16
HDRINFO("RUNDATE" HDR+17, HINFO+8*, LMOUT+12
HDRINFO("SORT" HDR+22, HINFO+10*, HINFO+12*, LMOUT+17
HDRINFO("START" HDR+21, HINFO+6*, LMOUT+16
HDRINFO("TYPE" HDR+22, HINFO+18*, HINFO+19*, LMOUT+17
INPUT LMOUT~, LMOUT+9, LMOUT+10
INPUTS COMPILE~, COMPILE+23, COMPILE+27, COMPILE+28, COMPILE+29, COMPILE+41, HINFO~, HINFO+5, HINFO+9, HINFO+11
, HINFO+14, HINFO+17
IO LMOUT~, LMOUT+9
IOF HDR+14
IOSL TOTALD+10, TOTALG+8
J MAX+5~, MAX+9*
MSG HDR+7~, HDR+27
MSG(1 HDR+15*, HDR+16*
MSG(2 HDR+17*
MSG(3 HDR+19*
MSG(4 HDR+21*
MSG(5 HDR+22*
MSG(6 HDR+23*
MSG(7 HDR+25*
MSG(8 HDR+26*
NOLINE HDR~, HDR+8*, HDR+24
OCARC CARCS+23~, CARCS+27*, CARCS+28, CARCS+29, CARCS+30, CARCS+31
PAGE HDR~, HDR+13*, HDR+16, TOTALD~, TOTALD+13, TOTALG~, TOTALG+11
QUANT CARCS+23~, CARCS+30*, CARCS+32
RCIARR MAX+5~, MAX+10
RCIARR( MAX+9*, MAX+16, MAX+18, MAX+19, MAX+22
RCINP MAX~, MAX+9
RCITEM MAX+5~, MAX+9*
RCJ MAX+5~, MAX+15*, MAX+16*, MAX+18, MAX+19, MAX+22
RCK MAX+5~, MAX+17*, MAX+18*, MAX+19, MAX+22
RCMAX MAX~, MAX+20
RCNT MAX+5~, MAX+15*, MAX+21*, MAX+22
RCOUT MAX+5~, MAX+7*, MAX+10, MAX+22*, MAX+23
RCRZ COMPILE+20~, COMPILE+47*, COMPILE+48, COMPILE+49*, COMPILE+50, COMPILE+51, COMPILE+54, COMPILE+56, COMPILE+62
RCSORT COMPILE+20~, COMPILE+28*, COMPILE+62
RCTOT MAX+5~, MAX+15*, MAX+19*, MAX+20
RCTR COMPILE+20~, COMPILE+26*, COMPILE+62
RCTYPE COMPILE+20~, COMPILE+29*, COMPILE+42
RCVAUTD COMPILE~, HINFO+15, LMOUT~, LMOUT+9
RCVAUTD( COMPILE+41
RCZERO COMPILE+20~, COMPILE+53*, COMPILE+54*, COMPILE+59
REASON CARCS+23~, CARCS+31*, CARCS+32
STA COMPILE+21~, COMPILE+40, COMPILE+41, ERASTA~, ERASTA+7*, ERASTA+14*, ERASTA+15
STAIEN ERASTA+5~, ERASTA+12*, ERASTA+13, ERASTA+14, ERASTA+16
STNAM COMPILE+21~, COMPILE+40, COMPILE+62, ERASTA~, ERASTA+7*, ERASTA+15*
STNUM COMPILE+21~, COMPILE+40, COMPILE+62, ERASTA~, ERASTA+7*, ERASTA+16*
STOP TOTALD~, TOTALD+11, TOTALD+12, TOTALD+14, TOTALG~, TOTALG+9, TOTALG+10, TOTALG+12
SUB HDR+7~
U LMAN+5, LMAN+6, LMAN+7, LMAN+8, LMAN+9, LMAN+17, LMAN+18, LMAN+19, LMAN+20, LMAN+21
, TOTALD+15, TOTALG+13, TOTALG+14, MAX+9, MAX+22
WHICH COMPILE+21~, COMPILE+43*, COMPILE+59
XX CARCS+23~, CARCS+32*, CARCS+33, COMPILE+21~, COMPILE+23*, COMPILE+24, COMPILE+25, HDR+7~, HDR+20*, HDR+21
, HINFO+4~, HINFO+5*, HINFO+6, HINFO+7, HINFO+9*, HINFO+10, HINFO+11*, HINFO+12, HINFO+14*, HINFO+15
, HINFO+17*, HINFO+19, LMAN~, LMAN+10*, LMAN+11*, LMAN+12*, LMAN+13*, LMAN+22*, LMAN+23*, LMOUT+8~
, LMOUT+15*, LMOUT+16
Y HDR+7~, LMAN+4~, LMAN+5*, LMAN+6*, LMAN+7*, LMAN+8*, LMAN+9*, LMAN+10, LMAN+18*, LMAN+19*
, LMAN+20*, LMAN+21*, LMAN+22, TOTALD+9~, TOTALD+16*, TOTALD+17*, TOTALD+18, TOTALD+19*, TOTALD+20, TOTALG+7~
, TOTALG+14*, TOTALG+15
Z0 HDR+7~, HDR+18*, HDR+19, LMOUT+8~, LMOUT+13*, LMOUT+14
Z1 HDR+7~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All