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

Package: Accounts Receivable

Routine: RCDPEFA1


Information

RCDPEFA1 ;AITC/FA - FIRST PARTY AUTO-DECREASE REPORT ; 6/12/19 7:36am

Source Information

Source file <RCDPEFA1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Accounts Receivable 4 ($$ASKLM,$$ENDORPRT,LMRPT)^RCDPEARL  ($$ASKPAT,$$ASKSORT,$$DETSUM,$$DEVICE,$$DISPTY,$$DTRNG,$$SORTORD,$$STADIV,LMAN,TOTALD,TOTALG)^RCDPEFA2  $$ASKSTOP^RCDPELAR  INFO^RCDPEM6  
Kernel 4 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Accounts Receivable 2 RCDPEFA2  RCDPEFA3  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point for Auto-Decrease Adjustment report [RCDPE FIRST PARTY AUTO-DECREASE]
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, N - Sort by Patient Name
; A3 - F - sort First to Last, L - sort Last to First
; A4 - B1|B2
; B1 - Auto-Post Start Date
; B2 - Auto-Post End Date
; A5 - 1 - Output to Excel, else 0
; A6 - 1 - Output to List Manager, else 0
; A7 - C1|C2
; C1 - P - Filter list by Patient
; A - Show all 1st Party Auto-Decreases"
; C2 - IEN into file #2 (if C1=P, null otherwise)
; RCVAUTD - Array of selected Divisions, Only passed if A1=2
; IO - Output Device
COMPILE(INPUTS,RCVAUTD,DTOTAL,GTOTAL) ;EP Generate the Auto-Decrease report ^TMP array
; Input: INPUTS - See REPORT for details
; RCVAUTD - Array of Divisions
; Only passed if A1=2
; Output: DTOTAL - Array of totals by Auto-Post Date
; GTOTAL - Grand totals
; ^TMP("RCDPEFADP",$J)- Array of report data, See SAVE for a full description
SAVE(RCDEBTOR,RCAMT,RCBILL,RCBILL3,RCOPAY,RCDTI,RCDT,EXCEL,RCSORT,RCTR,STNAM,STNUM,RCCMT) ; Put data into ^TMP
; Input: RCDEBTOR - Patient Name
; RCAMT - Auto-Decrease amount
; RCBILL - Copay Claim #
; RCBILL3 - 3rd Party Claim #
; RCCOPAY - Copay Amount
; RCDTI - Auto-decrease date (internal)
; RCDT - Auto-decrease date (external)
; EXCEL - 1 output to Excel, 0 otherwise
; RCSORT - C - Sort by Claim, N - Sort by Patient Name
; DTOTAL() - Current array of totals by Auto-Decrease Date
; GTOTAL - Current Grand total
; RCTR - Record Counter
; STNAM - Station name
; STNUM - Station number
; RCCMT - PRCA*4.5*349 - Comments
; ^TMP("RCDPEFADP",$J)- Current report data
; See below for a full description
; Output: DTOTAL() - Updated array of totals by Auto-Post Date
; GTOTAL - Updated Grand totals
; RCTR - Record Counter
; ^TMP("RCDPEFADP",$J,A1,A2,A3) = B1^B2^B3^...^Bn Where:
; A1 - "EXCEL" if report to excel, fileman date if not
; A2 - Excel Line Counter if to excel, Claim # if sort by claim,
; Patient Name if sort by Name
; A3 - Record Counter
; B1 - External Station Name
; B2 - External Station Number
; B3 - External Patient Name/SSN
; B4 - Copay Amount
; B5 - Auto-Decrease Amount
; B6 - Copay Bill Number
; B7 - 3rd Party Bill Number
; B8 - Auto-Decrease Date
; ^TMP("RCDPEFADP",$J,A1,A2,A3,"CMT") = Multi-line comment added for PRCA*4.5*349
DISP(INPUTS,DTOTAL,GTOTAL) ; Format the display for screen/printer or MS Excel
; Input: INPUTS - See REPORT for details
; DTOTAL()- Array of totals by Internal Auto-Post date
; GTOTAL - Grand Totals for the selected date period
; ^TMP("RCDPEFADP",$J) - See SAVE for description
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
DIV(STAIEN,STNUM,STNAM) ; Get the station for this ERA
; Input: DAIEN - AR ACCOUNT IEN
; Output: 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 for description
; HDRINFO - Header array for ListMan, passed by ref.
LINE(DIV) ; List selected stations
; Input: DIV() - Array of selected divisions
; Returns: Comma delimited list of selected divisions
LMOUT(INPUT,RCVAUTD,IO) ; Output report to Listman
; Input: INPUT - see REPORT for description
; RCVAUTD - Array of selected Divisions
; IO - Device array
; Output: ^TMP("RCDPE_LAR",$J,nn) - Array of display lines (no headers)
PCENT(AMNT,COPAY) ; Return percentage of dollars auto-decreased

External References

Name Field # of Occurrence
HOME^%ZIS EN+38
^%ZISC REPORT+22, DISP+91
^%ZTLOAD EN+36
EN^DDIOL HDR+27
$$GET1^DIQ COMPILE+32, COMPILE+34, COMPILE+39, COMPILE+41, COMPILE+42, COMPILE+45, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+51
, COMPILE+53, COMPILE+54, COMPILE+55, COMPILE+57, COMPILE+59, DIV+6, DIV+7
^DIR ASK+8
$$ASKLM^RCDPEARL EN+21
$$ENDORPRT^RCDPEARL DISP+75, DISP+82, DISP+89
LMRPT^RCDPEARL LMOUT+17
$$ASKPAT^RCDPEFA2 EN+9
$$ASKSORT^RCDPEFA2 EN+12
$$DETSUM^RCDPEFA2 EN+4
$$DEVICE^RCDPEFA2 EN+28
$$DISPTY^RCDPEFA2 EN+25
$$DTRNG^RCDPEFA2 EN+18
$$SORTORD^RCDPEFA2 EN+16
$$STADIV^RCDPEFA2 EN+2
LMAN^RCDPEFA2 DISP+50
TOTALD^RCDPEFA2 DISP+38
TOTALG^RCDPEFA2 DISP+73
$$ASKSTOP^RCDPELAR DISP+83
INFO^RCDPEM6 EN+27
$$FMADD^XLFDT COMPILE+12
$$FMTE^XLFDT COMPILE+56, DISP+13, DISP+14, DISP+15, HINFO+5, HINFO+6, HINFO+7
$$NOW^XLFDT DISP+15, HINFO+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !,DATA
  • Line Location: DISP+46
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: DISP+61
Function Call: WRITE
  • Prompt: !,?6,"Comment: "
  • Line Location: DISP+64
Function Call: WRITE
  • Prompt: ^TMP("RCDPEFADP",$J,A1,A2,A3,"CMT",CNT),!,?11
  • Line Location: DISP+67
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL,!
  • Line Location: DISP+75
Function Call: WRITE
  • Prompt: !!,?26,"*** No Records to Print ***",!
  • Line Location: DISP+81
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL
  • Line Location: DISP+82
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"STATION^STATION NUMBER^PATIENT^COPAY AMOUNT^DECREASE AMOUNT^"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "COPAY BILL #^3RD PARTY BILL #^AUTO DECREASE DATE"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+14
Routine Call
  • %ZIS
  • Line Location:
    • EN+38
Routine Call
  • DIR
  • Line Location:
    • ASK+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^RCD(340 - [#340] GET1^DIQ
^IB - [#350] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
^PRCA(433 - [#433] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB("ABIL" COMPILE+44
^PRCA(430.3 - [#430.3] COMPILE+23
^PRCA(433 - [#433] COMPILE+27, COMPILE+31
^TMP("RCDPEFADP" REPORT+18!, REPORT+21!, SAVE+40, SAVE+41*, SAVE+50*, SAVE+55*, DISP+30, DISP+37, DISP+43, DISP+45
, DISP+49, DISP+66, DISP+67, LMOUT+18!
^TMP("RCDPE_ADP" REPORT+18!, DISP+87*, DISP+88*, DISP+89*, LMOUT+17, LMOUT+18!
^TMP("RCDPE_FAD" COMPILE+20*
^TMP("RCSELPAY" REPORT+21!
^TMP($J LMOUT+18!

Label References

Name Line Occurrences
$$LINE DISP+24, HINFO+16
ASK DISP+33, DISP+52, DISP+76
COMPILE REPORT+19
DISP REPORT+20
DIV COMPILE+58
HDR DISP+27, DISP+34, DISP+54, DISP+80
HINFO LMOUT+7
LMOUT EN+24
REPORT EN+39, LMOUT+6
SAVE COMPILE+60

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 SAVE+35~, SAVE+40*, SAVE+41, SAVE+45*, SAVE+50, SAVE+55, DISP+5~, DISP+26*, DISP+29, DISP+30*
, DISP+31, DISP+37, DISP+38, DISP+43, DISP+45, DISP+49, DISP+66, DISP+67
A2 SAVE+35~, SAVE+40*, SAVE+41, SAVE+46*, SAVE+50, SAVE+55, DISP+5~, DISP+35*, DISP+36, DISP+37*
, DISP+38, DISP+39, DISP+43, DISP+45, DISP+49, DISP+66, DISP+67
A3 DISP+5~, DISP+41*, DISP+42, DISP+43*, DISP+44, DISP+45, DISP+49, DISP+66, DISP+67
AMNT PCENT~, PCENT+2
AMT COMPILE+7~
BEG COMPILE+7~, COMPILE+12*, COMPILE+26
CNT SAVE+35~, SAVE+53*, SAVE+54*, SAVE+55, DISP+65~, DISP+66*, DISP+67
COPAY PCENT~, PCENT+1, PCENT+2
DAIEN COMPILE+7~, COMPILE+23*, COMPILE+27, COMPILE+31
DATA DISP+5~, DISP+45*, DISP+46, DISP+50, DISP+55, DISP+56, DISP+57, DISP+58, DISP+59, DISP+60
DIR ASK+3~
DIR("A" ASK+5*
DIR(0 ASK+6*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+9
DISP EN+1~, EN+4*, EN+5, EN+6, EN+8, EN+12, EN+15, EN+25, DISP+5~, DISP+9*
, DISP+20, DISP+27, DISP+32, DISP+40
DIV HDR+7~, LINE~
DIV( LINE+5
DTOTAL REPORT+16~, REPORT+19, REPORT+20, COMPILE~, DISP~, DISP+38
DTOTAL( SAVE+59*, SAVE+60*, SAVE+61*
DTOUT ASK+3~
DUOUT ASK+3~, ASK+9
END COMPILE+7~, COMPILE+13*, COMPILE+27
EXCEL COMPILE+7~, COMPILE+15*, COMPILE+60, SAVE~, SAVE+39, SAVE+44, DISP+5~, DISP+7*, DISP+27, DISP+34
, DISP+38, DISP+46, DISP+54, DISP+72, DISP+74, DISP+80, HDR~, HDR+9
GTOTAL REPORT+16~, REPORT+19, REPORT+20, COMPILE~, SAVE+64*, SAVE+65*, SAVE+66*, DISP~, DISP+71, DISP+73
, DISP+79
HDR LMOUT+5~, LMOUT+17
HDR("TITLE" LMOUT+8*
HDR(1 LMOUT+9*
HDR(2 LMOUT+11*
HDR(3 LMOUT+12*
HDR(4 LMOUT+13*
HDR(5 LMOUT+14*
HDR(6 LMOUT+15*
HDR(7 LMOUT+16*
HDRINFO DISP+5~, DISP+27, DISP+34, DISP+38, DISP+54, DISP+73, DISP+80, HDR~, HINFO~, LMOUT+5~
, LMOUT+7
HDRINFO("DISP" DISP+20*, HDR+22
HDRINFO("DIVISIONS" DISP+24*, HDR+18, HINFO+16*, LMOUT+10
HDRINFO("END" DISP+14*, HDR+21, HINFO+6*, LMOUT+12
HDRINFO("RUNDATE" DISP+15*, HDR+17, HINFO+7*, LMOUT+9
HDRINFO("SORT" DISP+17*, DISP+19*, HDR+22, HINFO+9*, HINFO+11*, HINFO+12*, LMOUT+13
HDRINFO("START" DISP+13*, HDR+21, HINFO+5*, LMOUT+12
INPUT EN+1~, EN+2*, EN+3, EN+6*, EN+7*, EN+9*, EN+10, EN+11*, EN+12*, EN+13
EN+14*, EN+16*, EN+17, EN+18*, EN+19, EN+20*, EN+21*, EN+22, EN+23, EN+24
EN+25*, EN+26, EN+27, EN+31, EN+39, DISP+50, LMOUT~, LMOUT+6, LMOUT+7
INPUTS REPORT~, REPORT+19, REPORT+20, COMPILE~, COMPILE+10, COMPILE+11, COMPILE+15, COMPILE+16, COMPILE+38, DISP~
, DISP+7, DISP+8, DISP+9, DISP+12, DISP+16, DISP+18, DISP+23, DISP+28, DISP+63, HINFO~
, HINFO+4, HINFO+8, HINFO+10, HINFO+12, HINFO+15
IO EN+24, EN+28, EN+39, REPORT~, REPORT+17, DISP+6, LMOUT~, LMOUT+6
IO("Q" EN+31, EN+38!
IOF HDR+14
IOSL DISP+51
IOST ASK+4
LCNT DISP+5~, DISP+26*, DISP+38, DISP+50, DISP+73, DISP+87*, DISP+88*, DISP+89
LINE LINE+3~, LINE+4*, LINE+5*, LINE+6
LMAN DISP+5~, DISP+8*, DISP+27, DISP+32, DISP+38, DISP+47, DISP+73, DISP+74, DISP+79, DISP+86
MODE DISP+5~, DISP+28*, DISP+37
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
P LINE+3~, LINE+4*, LINE+5*
PAGE DISP+5~, DISP+26*, DISP+27, DISP+33, DISP+34, DISP+38, DISP+54, DISP+73, DISP+80, HDR~
, HDR+13*, HDR+16
PIEN COMPILE+7~, COMPILE+11*, COMPILE+52
RC430IEN COMPILE+8~, COMPILE+32*, COMPILE+33, COMPILE+34, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+58
RCAMT COMPILE+57*, COMPILE+60, SAVE~, SAVE+49, SAVE+60, SAVE+65
RCBILL COMPILE+7~, COMPILE+41*, COMPILE+44, COMPILE+60, SAVE~, SAVE+46, SAVE+49
RCBILL3 COMPILE+7~, COMPILE+42*, COMPILE+43, COMPILE+60, SAVE~, SAVE+49
RCCMT COMPILE+7~, COMPILE+59*, COMPILE+60, SAVE~, SAVE+52, DISP+48~, DISP+49*, DISP+50
RCCMT( SAVE+53, SAVE+55
RCCOPAY COMPILE+7~, COMPILE+45*, COMPILE+60
RCDEBTOR COMPILE+7~, COMPILE+49*, COMPILE+53*, COMPILE+54*, COMPILE+60, SAVE~, SAVE+46, SAVE+49
RCDIEN COMPILE+7~, COMPILE+50*, COMPILE+51*, COMPILE+52, COMPILE+53, COMPILE+54
RCDT COMPILE+7~, COMPILE+56*, COMPILE+60, SAVE~, SAVE+49
RCDTI COMPILE+7~, COMPILE+55*, COMPILE+56, COMPILE+60, SAVE~, SAVE+45, SAVE+59, SAVE+60, SAVE+61
RCOPAY SAVE~, SAVE+49, SAVE+61, SAVE+66
RCRDNUM DISP+5~
RCSITE COMPILE+8~, COMPILE+34*, COMPILE+35, COMPILE+38
RCSORT COMPILE+8~, COMPILE+16*, COMPILE+60, SAVE~, SAVE+46
RCTR COMPILE+8~, COMPILE+14*, COMPILE+60, SAVE~, SAVE+36*, SAVE+50, SAVE+55
RCTRAND COMPILE+8~, COMPILE+26*, COMPILE+27*, COMPILE+31
RCTYPE COMPILE+8~
RCUSER COMPILE+8~, COMPILE+39*, COMPILE+40
RCVAUTD EN+1~, EN+2, EN+24, EN+39, REPORT~, REPORT+19, COMPILE~, DISP+24, HINFO+16, LMOUT~
, LMOUT+6
RCVAUTD( COMPILE+38
STA COMPILE+8~
STAIEN DIV~, DIV+5, DIV+6, DIV+7
STNAM COMPILE+8~, COMPILE+58, COMPILE+60, SAVE~, SAVE+49, DIV~, DIV+4*, DIV+6*
STNUM COMPILE+8~, COMPILE+58, COMPILE+60, SAVE~, SAVE+49, DIV~, DIV+4*, DIV+7*
STOP DISP+5~, DISP+26*, DISP+29, DISP+32, DISP+33, DISP+36, DISP+38, DISP+42, DISP+51, DISP+52
, DISP+53, DISP+72, DISP+73, DISP+76, ASK~, ASK+9*
SUB HDR+7~, LINE+3~, LINE+4*, LINE+5*
TRANDA COMPILE+8~, COMPILE+30*, COMPILE+31*, COMPILE+32, COMPILE+39, COMPILE+41, COMPILE+42, COMPILE+55, COMPILE+57, COMPILE+59
TYP ASK~, ASK+5
U EN+6, EN+7, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, EN+16, EN+17
EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+25, EN+26, EN+27, EN+31
, COMPILE+10, COMPILE+11, COMPILE+15, COMPILE+16, COMPILE+38, SAVE+49, SAVE+59, SAVE+60, SAVE+61, SAVE+64
, SAVE+65, SAVE+66, DISP+7, DISP+8, DISP+9, DISP+12, DISP+16, DISP+18, DISP+23, DISP+28
, DISP+55, DISP+56, DISP+57, DISP+58, DISP+59, DISP+60, DISP+63, HINFO+4, HINFO+8, HINFO+10
, HINFO+12, HINFO+15
X DISP+5~, DISP+83*
XX REPORT+16~, COMPILE+8~, COMPILE+10*, COMPILE+12, COMPILE+13, COMPILE+44*, COMPILE+45, SAVE+35~, SAVE+49*, SAVE+50
, SAVE+53*, SAVE+55, DISP+12*, DISP+13, DISP+14, DISP+16*, DISP+17, DISP+18*, DISP+19, DISP+23*
, DISP+24, HDR+7~, HDR+20*, HDR+21, HINFO+3~, HINFO+4*, HINFO+5, HINFO+6, HINFO+8*, HINFO+9
, HINFO+10*, HINFO+11, HINFO+15*, HINFO+16
Y DISP+5~, DISP+55*, DISP+56*, DISP+57*, DISP+58*, DISP+59*, DISP+60*, DISP+61, HDR+7~
Z0 HDR+7~, HDR+18*, HDR+19, LMOUT+5~, LMOUT+10*, LMOUT+11
Z1 HDR+7~
ZTDESC EN+32~, EN+34*
ZTQUEUED EN+32~, DISP+83, DISP+91, DISP+92
ZTREQ REPORT+16~, DISP+92*
ZTRTN EN+32~, EN+33*
ZTSAVE EN+32~
ZTSAVE("INPUT" EN+35*
ZTSAVE("IO*" EN+35*
ZTSAVE("RC*" EN+35*
ZTSK EN+32~, EN+37
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