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: RCDPEADP

Package: Accounts Receivable

Routine: RCDPEADP


Information

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

Source Information

Source file <RCDPEADP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Accounts Receivable 7 (CARCS,COMPILE,HDR,LMAN,LMOUT,TOTALD,TOTALG)^RCDPEAD1  ($$CLAIM,$$LINE,EXCEL)^RCDPEAD2  ($$ASKLM,$$ENDORPRT)^RCDPEARL  $$ASKSTOP^RCDPELAR  INFO^RCDPEM6  $$RTYPE^RCDPEU1  $$PNM4^RCDPEWL1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

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: 5

Package Total Caller Graph
Accounts Receivable 5 RCDPEAD1  RCDPENR1  RCDPENR2  RCDPENR3  RCDPENR4  

Entry Points

Name Comments DBIA/ICR reference
RPT ; entry point for Auto-Decrease Adjustment report [RCDPE AUTO-DECREASE REPORT]
STADIV(RCVAUTD) ; Division/Station Filter
; Input: None
; Output: RCVAUTD() - Array of selected Divisions/Stations if 2 is returned
; Returns: 1 - All Divisions/Stations selected
; 2 - Specified Divisions/Stations selected
; 0 - "^" or timeout
ASKSORT() ; Select the sort criteria
; Input: None
; Returns: C - Sort by Claim
; P - Sort by Payer
; N - Sort by Patient Name
; 0 - User entered '^' or timed out
SORTORD(SORT) ; Select the sort order
; Input: SORT - 'C' - Sort by Claim Number
; 'P' - Sort by Payer
; 'N' - Sort by Patient Name
; Returns: F - First to Last
; L - Last to First
; 0 - User entered '^' or timed out
DTRNG() ; Get the date range for the report
; Input: None
; Returns: A1|A2|A3 - Where:
; A1 - 0 - User up-arrowed or timed out, 1 otherwise
; A2 - Auto-Post Start Date
; A3 - Auto-Post End Date
DATES(BDATE,EDATE) ; Get a date range.
; Input: None
; Output: BDATE - Internal Auto-Post Start Date
; EDATE - Internal Auto-Post End Date
D1 ; looping tag
DISPTY() ; Get display/output type
; Input: None
; Returns: 1 - Output to Excel
; 0 - Output to paper
DEVICE(EXCEL,IO) ; Select the output device
; Input: EXCEL - 1 - Output to Excel, 0 otherwise
; Output:
; IO - Array of selected output info
; Returns: 0 - No device selected, 1 Otherwise
REPORT(INPUTS,RCVAUTD,IO) ; EP Compile and print report
; 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
; 0 - Otherwise
; A6 - 1 - Output to List Manager
; 0 - Otherwise
; A7 - M/P/T/A = Medical/Pharmacy/Tricare/All
SAVE(ADDATE,ERAIEN,RCRZ,EXCEL,RCSORT,CARCS,RCTR,STNAM,STNUM) ; Put the data into the ^TMP global
; Input: ADDATE - Current Internal Date being processed
; ERAIEN - Internal IEN of the ERA record
; RCRZ - ERA line number
; EXCEL - 1 output to Excel, 0 otherwise
; RCSORT - C - Sort by Claim
; P - Sort by Payer
; N - Sort by Patient Name
; CARCS - ^ delimited string of CARC information found
; on the EOB record pointed to by the ERA detail record
; A1;A2;A3;A4^B1;B2;B3;B4^...^N1;N2;N3;N4 Where:
; A1 - Auto-Decrease amount of the 1st CARC code
; A2 - 1st CARC code
; A3 - Quantity of the first CARC code
; A4 - Truncated Reason text of the 1st CARC
; DTOTAL() - Current Array of totals by Auto-Post Date
; GTOTAL - Current Grand totals
; RCTR - Current Record Counter
; STNAM - Station name
; STNUM - Station number
; ^TMP("RCDPEADP",$J) - Current report data
; See DISP for a full description
; Output: DTOTAL() - Updated Array of totals by Auto-Post Date
; GTOTAL - Updated Grand totals
; RCTR - Updated Record Counter
; ^TMP("RCDPEADP",$J,A1,A2,A3) - B1^B2^B3^...^Bn 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
; B1 - External Station Name
; B2 - External Station Number
; B3 - External Claim Number
; B4 - External Patient Name
; B5 - External Payer Name
; B6 - Auto-Decrease Amount
; B7 - Auto-Decrease Date
; ^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)
DISP(INPUTS,DTOTAL,GTOTAL) ; Format the display for screen/printer or MS Excel
; 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
; 0 - Otherwise
; A6 - 1 - Output to List Manager
; 0 - Otherwise
; A7 - M/P/T/A = Medical/Pharmacy/Tricare/All
DCARCS(A1,A2,A3,EXCEL,HDRINFO,PAGE,STOP) ; Display detailes CARC information - added as part of PRCA*4.5*318 re-write
; 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
; EXCEL - 1 if exporting to Excel, 0 otherwise
; HDRINFO() - Array of header information
; PAGE - Current Page number
; ^TMP("RCDPEADP",$J) - Array of report data. See SAVE for details
; Output: PAGE - Updated Page number
; STOP - 1 if user aborts display, 0 otherwise
ASK(STOP,TYP) ; Ask to continue, if TYP=1 then prompt to finish
; Input: TYP - 1 - Prompt to finish, 0 Otherwise
; IOST - Device Type
; Output: STOP - 1 to abort print, 0 otherwise

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
HOME^%ZIS RPT+33
^%ZISC REPORT+28, DISP+98
^%ZTLOAD RPT+29
$$GET1^DIQ SAVE+54, SAVE+56, SAVE+58
^DIR ASKSORT+12, SORTORD+13, D1+5, D1+13, DISPTY+8, ASK+9
CARCS^RCDPEAD1 SAVE+77
COMPILE^RCDPEAD1 REPORT+25
HDR^RCDPEAD1 DISP+50, DISP+67, DISP+87, DCARCS+24
LMAN^RCDPEAD1 DISP+63
LMOUT^RCDPEAD1 RPT+17
TOTALD^RCDPEAD1 DISP+55
TOTALG^RCDPEAD1 DISP+80
$$CLAIM^RCDPEAD2 SAVE+59
$$LINE^RCDPEAD2 DISP+42
EXCEL^RCDPEAD2 DISP+62
$$ASKLM^RCDPEARL RPT+14
$$ENDORPRT^RCDPEARL DISP+82, DISP+89, DISP+96
$$ASKSTOP^RCDPELAR DISP+90
INFO^RCDPEM6 RPT+20
$$RTYPE^RCDPEU1 RPT+12
$$PNM4^RCDPEWL1 SAVE+60
DIVISION^VAUTOMA STADIV+10
$$FMTE^XLFDT SAVE+55, DISP+28, DISP+29, DISP+30
$$NOW^XLFDT DISP+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" has been queued."
  • Line Location: RPT+30
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RPT+31
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DISP+73
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL,!
  • Line Location: DISP+82
Function Call: WRITE
  • Prompt: !!,?26,"*** No Records to Print ***",!
  • Line Location: DISP+88
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL
  • Line Location: DISP+89
Function Call: WRITE
  • Prompt: !!,"CARC^Decrease Amt^Quantity^Reason"
  • Line Location: DCARCS+28
Function Call: WRITE
  • Prompt: !!," CARC Decrease Amt # Reason"
  • Line Location: DCARCS+29
Function Call: WRITE
  • Prompt: !," -------------------- ------------- ---- -----------------------------"
  • Line Location: DCARCS+30
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: DCARCS+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • RPT+33
Routine Call
  • DIR
  • Line Location:
    • ASKSORT+12
    • SORTORD+13
    • D1+5
    • D1+13
    • DISPTY+8
    • ASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GET1^DIQ
344.41 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("RCDPEADP" REPORT+24!, REPORT+27!, SAVE+66, SAVE+67*, SAVE+76*, DISP+47, DISP+54, DISP+59, DISP+61, DCARCS+17
, DCARCS+19
^TMP("RCDPE_ADP" REPORT+24!, DISP+94*, DISP+95*, DISP+96*
^TMP("RCSELPAY" REPORT+27!

Label References

Name Line Occurrences
$$ASKSORT RPT+4
$$DEVICE RPT+21
$$DISPTY RPT+18
$$DTRNG RPT+8
$$SORTORD RPT+6
$$STADIV RPT+2
ASK DISP+49, DISP+65, DISP+83, DCARCS+21
DATES DTRNG+7
DCARCS DISP+74
DISP REPORT+26
REPORT RPT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+5~, DEVICE+6*
A1 SAVE+53~, SAVE+66*, SAVE+67, SAVE+71*, SAVE+76, SAVE+77, DISP+22~, DISP+44*, DISP+46, DISP+47*
, DISP+48, DISP+54, DISP+55, DISP+59, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~, DCARCS+17
, DCARCS+19
A2 SAVE+53~, SAVE+66*, SAVE+67, SAVE+72*, SAVE+76, SAVE+77, DISP+22~, DISP+52*, DISP+53, DISP+54*
, DISP+55, DISP+56, DISP+59, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~, DCARCS+17, DCARCS+19
A3 DISP+22~, DISP+57*, DISP+58, DISP+59*, DISP+60, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~
, DCARCS+17, DCARCS+19
A4 DCARCS+14~, DCARCS+15*, DCARCS+16, DCARCS+17*, DCARCS+18, DCARCS+19
ADDATE SAVE~, SAVE+55, SAVE+71, SAVE+80, SAVE+81
AMOUNT SAVE+53~, SAVE+56*, SAVE+57, SAVE+75, SAVE+81, SAVE+84
BDATE DATES~, D1+1*, D1+7*, D1+8*, D1+11, D1+15*
CARC SAVE+53~
CARCS SAVE~, SAVE+77
CLAIM SAVE+53~, SAVE+59*, SAVE+72, SAVE+75
DATA DISP+22~, DISP+61*, DISP+62, DISP+63, DISP+68, DISP+69, DISP+70, DISP+71, DISP+72, DCARCS+14~
, DCARCS+19*, DCARCS+31, DCARCS+32, DCARCS+33, DCARCS+34
DATE SAVE+53~, SAVE+55*, SAVE+75
DIR STADIV+6~, ASKSORT+6~, SORTORD+7~, DTRNG+6~, D1+6!, D1+14!, DISPTY+4~, ASK+4~
DIR("?" ASKSORT+9*, ASKSORT+10*, D1+2*, D1+9*
DIR("A" ASKSORT+8*, SORTORD+10*, D1+4*, D1+12*, DISPTY+6*, ASK+6*
DIR("B" ASKSORT+11*, SORTORD+12*, D1+10*, DISPTY+7*
DIR(0 ASKSORT+7*, SORTORD+11*, D1+3*, D1+11*, DISPTY+5*, ASK+7*
DIROUT STADIV+6~, ASKSORT+6~, SORTORD+7~, DTRNG+6~, DISPTY+4~, ASK+4~
DIRUT ASKSORT+6~, SORTORD+7~, DTRNG+6~, DISPTY+4~, ASK+4~, ASK+10
DT D1+3, D1+11
DTOTAL REPORT+22~, REPORT+25, REPORT+26, DISP~, DISP+55
DTOTAL( SAVE+80*, SAVE+81*
DTOUT STADIV+6~, ASKSORT+6~, ASKSORT+13, SORTORD+7~, SORTORD+14, DTRNG+6~, D1+7, D1+15, DISPTY+4~, ASK+4~
DUOUT STADIV+6~, ASKSORT+6~, ASKSORT+13, SORTORD+7~, SORTORD+14, DTRNG+6~, D1+7, D1+15, DISPTY+4~, DISPTY+9
, ASK+4~, ASK+10
EDATE DATES~, D1+1*, D1+16*
EOBIEN SAVE+53~, SAVE+58*, SAVE+59
ERAIEN SAVE~, SAVE+54, SAVE+56, SAVE+58, SAVE+60
EXCEL DEVICE~, SAVE~, SAVE+65, SAVE+70, DISP+22~, DISP+24*, DISP+50, DISP+55, DISP+62, DISP+67
, DISP+74, DISP+75, DISP+79, DISP+80, DISP+87, DCARCS~, DCARCS+20, DCARCS+24, DCARCS+27
FIRST DCARCS+14~, DCARCS+15*, DCARCS+23*, DCARCS+25, DCARCS+26*
GTOTAL REPORT+22~, REPORT+25, REPORT+26, SAVE+84*, DISP~, DISP+78, DISP+80, DISP+86
HDRINFO DISP+22~, DISP+50, DISP+55, DISP+67, DISP+74, DISP+80, DISP+87, DCARCS~, DCARCS+24
HDRINFO("DIVISIONS" DISP+42*
HDRINFO("END" DISP+29*
HDRINFO("RUNDATE" DISP+30*
HDRINFO("SORT" DISP+32*, DISP+34*
HDRINFO("START" DISP+28*
HDRINFO("TYPE" DISP+37*, DISP+38*
INPUT RPT+1~, RPT+2*, RPT+3, RPT+4*, RPT+5, RPT+6*, RPT+7, RPT+8*, RPT+9, RPT+10*
RPT+12*, RPT+13, RPT+14*, RPT+15, RPT+16, RPT+17, RPT+18*, RPT+19, RPT+20, RPT+21
RPT+24, RPT+35
INPUTS REPORT~, REPORT+25, REPORT+26, DISP~, DISP+24, DISP+27, DISP+31, DISP+33, DISP+36, DISP+41
, DISP+45
IO RPT+17, RPT+21, RPT+35, DEVICE~, REPORT~, REPORT+23, DISP+23
IO("Q" RPT+24, RPT+32!
IOSL DISP+64, DCARCS+20
IOST ASK+5
LCNT DISP+22~, DISP+44*, DISP+63, DISP+94*, DISP+95*, DISP+96
LMAN DISP+22~, DISP+24*, DISP+50, DISP+55, DISP+63, DISP+78, DISP+86, DISP+93
MODE DISP+22~, DISP+45*, DISP+54
PAGE DISP+22~, DISP+44*, DISP+49, DISP+50, DISP+55, DISP+67, DISP+74, DISP+80, DISP+87, DCARCS~
, DCARCS+24
PAYNAM SAVE+53~, SAVE+54*, SAVE+72, SAVE+75
POP DEVICE+5~, DEVICE+8
PTNAM SAVE+53~, SAVE+60*, SAVE+61*, SAVE+72, SAVE+75
RCEND DTRNG+6~, DTRNG+7, DTRNG+9
RCRDNUM DISP+22~
RCRZ SAVE~, SAVE+56, SAVE+58, SAVE+60
RCSORT SAVE~, SAVE+72
RCSTART DTRNG+6~, DTRNG+7, DTRNG+8, DTRNG+9, DTRNG+10
RCTR SAVE~, SAVE+62*, SAVE+76, SAVE+77
RCVAUTD RPT+1~, RPT+2, RPT+17, RPT+35, STADIV~, STADIV+13*, REPORT~, REPORT+25, DISP+42
RNGFLG DTRNG+6~
SORT SORTORD~, SORTORD+9
STNAM SAVE~, SAVE+75
STNUM SAVE~, SAVE+75
STOP DISP+22~, DISP+44*, DISP+46, DISP+49, DISP+53, DISP+55, DISP+58, DISP+64, DISP+65, DISP+66
, DISP+74, DISP+79, DISP+80, DISP+81, DISP+83, DCARCS~, DCARCS+16, DCARCS+20, DCARCS+21, DCARCS+22
, ASK~, ASK+10*
TYP ASK~, ASK+6
U SAVE+75, SAVE+80, SAVE+81, SAVE+84, DISP+24, DISP+68, DISP+69, DISP+70, DISP+71, DISP+72
, DCARCS+31, DCARCS+32, DCARCS+33, DCARCS+34
VAUTD STADIV+6~, STADIV+12, STADIV+13
X DTRNG+6~, DISP+90*
XX ASKSORT+6~, SORTORD+7~, SORTORD+8*, SORTORD+10, REPORT+22~, SAVE+53~, SAVE+75*, SAVE+76, DISP+27*, DISP+28
, DISP+29, DISP+31*, DISP+32, DISP+33*, DISP+34, DISP+36*, DISP+38, DISP+41*, DISP+42, DCARCS+14~
, DCARCS+31*, DCARCS+32*, DCARCS+33*, DCARCS+34*, DCARCS+35
Y STADIV+6~, STADIV+11, ASKSORT+14, SORTORD+15, DTRNG+6~, D1+7, D1+8, D1+15, D1+16, DISPTY+4~
, DISPTY+10, SAVE+53~, DISP+22~, DISP+68*, DISP+69*, DISP+70*, DISP+71*, DISP+72*, DISP+73
Y(0 D1+10
YY SORTORD+7~, SORTORD+9*, SORTORD+10
ZTDESC RPT+25~, RPT+27*
ZTQUEUED RPT+25~, DISP+90, DISP+98, DISP+99
ZTREQ REPORT+22~, DISP+99*
ZTRTN RPT+25~, RPT+26*
ZTSAVE RPT+25~
ZTSAVE("INPUT" RPT+28*
ZTSAVE("IO*" RPT+28*
ZTSAVE("RC*" RPT+28*
ZTSK RPT+25~, RPT+30, RPT+32!
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