Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEAPP

Package: Accounts Receivable

Routine: RCDPEAPP


Information

RCDPEAPP ;OIFO-BAYPINES/PJH - AUTO POST REPORT ;Dec 20, 2014@18:42

Source Information

Source file <RCDPEAPP.m>

Entry Points

Name Comments DBIA/ICR reference
RPT ; entry point for Auto-Post Report [RCDPE AUTO-POST REPORT]
STADIV(DIVS) ; Division/Station Filter/Sort
; Input: None
; Output: DIVS(A1)=A1^A3 Selected Divisions (if not 'ALL') Where:
; A1 - Division IEN
; A2 - Division Name
; A3 - Station Number
; Returns: -1 - User ^ or timed out
; 1 - All divisions selected
; 2 - Selected Divisions
DETORSUM() ; Ask the user wants to see the detail or summary report
; Input: None
; Returns: -1 - User ^ or timed out
; D - Detail Mode
; S - Summary Mode
NMORTIN() ; EP - Ask the user if they want to filter by Payer Name or TIN
; Input: None
; Returns: -1 - User ^ or timed out
; 1 - Filter by Payer Name
; 2 - Filter by Payer TIN
SELPAY(RCJOB,RCPARRAY) ; Move ^TMP("RCSELPAY",RCJOB) into RCPARRAY for lookup
; note that payer names for 344.4 are UPPER CASE
; Input: RCJOB - $J
; ^TMP("RCSELPAY",RCJOB,) - Temp array of selected Payers
; Output: RCPARRAY(A1,A2)=A3 - Array of selected Payers Where:
; A1 - Payer Name or TIN based on the way ^TMP("RCSELPAY" was built
; A2 - Counter
; A3 - Payer Name/TIN or TIN/Payer Name based on the way ^TMP("RCSELPAY" was built
SORTT() ; Ask the user if they want to sort by Payer Name or Payer TIN
; Input: None
; Returns: -1 - User ^ or timed out
; 0 - Sort by Payer Name
; 1 - Sort by Payer TIN
DTRNG() ; Get the date range for the report
; Input: None
; Returns: 0 - User ^ or timed out
; 1^Start Date^End Date
DISPTY() ; Get display/output type
; Input: None
; Return:: -1 - User ^ or timed out
; 0 - Not to Excel
; 1 - Output to Excel
DATES(BDATE,EDATE) ; Get a date range.
; Input: None
; Output: BDATE - Internal Begin date
; EDATE - Internal End date
REPORT ; Compile and print report
; Input: RCDISP - 0 - Output to paper or screen, 1 - Output to Excel
; RCDIV - 1 - All divisions, 2 - Selected divisions
; RCDIVS()- Array of selected divisions if RCDIV=2
; RCRANGE - 1^Start Date^End Date
; RCJOB - $J
; RCLAIM - "M" - Medical Claims, "P" - Pharmacy Claims, "B" - Both
; RCPAGE - Initialized to 0
; RCPARRAY- Array of selected payers
; RCPROG - "RCDPEAPP"
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; RCTYPE - 'D' for detail report, 'S' for summary
; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN
; ^TMP("RCDPEU1",$J) - Selected payerers (see SELPAY^RCDPEU1 for details)
DISP ; Format the display for screen/printer or MS Excel
; Input: GLOB - "^TMP("RCDPEAPP",$J)
; RCDISP - 1 - Output to Excel, 0 otherwise
; RCDIV - 1 - All Divisions selected
; RCDIVS - Array of selected Divisions (if all not selected)
; RCPARRAY- Array of selected Payers
; RCPAY - 1 - All Payers selected
ASK(STOP) ; Ask to continue
; Output: STOP - 1 if display is aborted
HDR(DIVS,PAYERS) ; Print the report header
; Input: DIVS() - Array of selected Division lines for Header
; PAYERS() - Array of selected Payer lines for Header
; RCDISP - 1 - Output to Excel, 0 otherwise
; RCHDRDT - External Print Date/Tim
; RCPAGE - Current Page number
; RCRANGE - Selected Date Range
; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN
; RCSTOP - 1 if display aborted
; Output: RCPAGE - Updated Page Number
; RCSTOP - 1 if display aborted
HDRP(PAYNAM) ; Print Payer Sub-header
; Input: LINE1 - 131 '-'s
; PAYNAM - TIN/Payer Name or Payer NAME/TIN depending on sort
LINED(RCDIV,RCDIVS,DIVS) ; List selected Divisions
; Input: RCDIV - 1 - All Divisions Selected,
; RCDIVS()- Array of selected Divisions
; Output DIVS() - Array of lines to print the Divisions
; Returns: Comma Delimitted list of Divisions
LINEP(RCPAY,RCPARRAY,RCWHICH,PAYERS) ; List selected Payers
; Input: RCPAY - 2 - All Payers selected
; RCPARRAY - Array of selected Payers
; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN
; Output: PAYERS() - Array of lines to Print the Payers
; Returns: Comma delimited list of Payer Names
TOTALS ; Print totals for summary report
; Input: GLOB - "^TMP("RCPDEAPP",$J)
TOTALD(DIV) ; Display totals for a division
; Input: DIV - Division Name
; DIVS() - Array of selected Division lines for Header
; PAYERS()- Array of selected Payer lines for Header
; GLOB - "^TMP("RCPDEAPP",$J)
; LINE1 - 131 '-'s
; RCDISP - 1 - Output to Excel, 0 otherwise
; Output: RCSTOP - 1 if display aborted, 0 otherwise
TOTALDP(DIV,PAYIX1,PAYIX2) ; Display totals for a payer within a division
; Input: DIV - Division Name
; PAYIX1 - Payer Name OR TIN
; PAYIX2 - TIN OR Payer Name
; DIVS() - Array of selected Division lines for Header
; GLOB - "^TMP("RCPDEAPP",$J)
; LINE1 - 131 '-'s
; PAYERS()- Array of selected Payer lines for Header
; RCDISP - 1 - Output to Excel, 0 otherwise
; Output: RCSTOP - 1 if display aborted, 0 otherwise
TOTALG ;Display overall report total
; Input: DIVS() - Array of selected Division lines for Header
; PAYERS()- Array of selected Payer lines for Header
; GTOTAL - Grand Totals
; LINE1 - 131 '-'s
; RCDISP - 1 - Output to Excel, 0 otherwise
; Output: RCSTOP - 1 if display aborted, 0 otherwise

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report requires 132 column display."
  • Line Location: RPT+29
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" was queued."
  • Line Location: RPT+40
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: RPT+41
Function Call: WRITE
  • Prompt: !,"DIVISION: ",SUB
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !,$P(RCDATA,U,4)
  • Line Location: DISP+33
Function Call: WRITE
  • Prompt: ?31,$P(RCDATA,U,5)
  • Line Location: DISP+34
Function Call: WRITE
  • Prompt: ?38,$P(RCDATA,U,6)
  • Line Location: DISP+35
Function Call: WRITE
  • Prompt: ?49,$P(RCDATA,U,7)
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: ?58,$P(RCDATA,U,8)
  • Line Location: DISP+37
Function Call: WRITE
  • Prompt: ?67,$P(RCDATA,U,9)
  • Line Location: DISP+38
Function Call: WRITE
  • Prompt: ?79,$E($P(RCDATA,U,10),1,12)
  • Line Location: DISP+39
Function Call: WRITE
  • Prompt: ?90,$J($P(RCDATA,U,11),10,2)
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: $J($P(RCDATA,U,12),10,2)
  • Line Location: DISP+42
Function Call: WRITE
  • Prompt: $J($P(RCDATA,U,13),10,2)
  • Line Location: DISP+43
Function Call: WRITE
  • Prompt: $J($P(RCDATA,U,14),10,2)
  • Line Location: DISP+44
Function Call: WRITE
  • Prompt: !,?8,"DEP#:",$P(RCDATA,U,16)
  • Line Location: DISP+45
Function Call: WRITE
  • Prompt: ?25,"TRACE#:",$P(RCDATA,U,15)
  • Line Location: DISP+46
Function Call: WRITE
  • Prompt: !,RCDATA
  • Line Location: DISP+60
Function Call: WRITE
  • Prompt: !!,?26,"*** NO RECORDS TO PRINT ***",!
  • Line Location: DISP+73
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,LINE1,!,"PAYER: ",PAYNAM,!,LINE1
  • Line Location: HDRP+3
Function Call: WRITE
  • Prompt: !,"DIVISION: ",DIV,!,LINE1
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !,"DIVISION TOTALS FOR ",DIV,?90,$J(DBAMT,10,2)
  • Line Location: TOTALD+12
Function Call: WRITE
  • Prompt: $J(DPAMT,10,2),$J(DBAL,10,2)
  • Line Location: TOTALD+13
Function Call: WRITE
  • Prompt: !,?8,"COUNT",?90,$J(DCNT,10,0),$J(DCNT,10,0),$J(DCNT,10,0)
  • Line Location: TOTALD+15
Function Call: WRITE
  • Prompt: !,?8,"MEAN",?90,$J(DBAMT/DCNT,10,2),$J(DPAMT/DCNT,10,2),$J(DBAL/DCNT,10,2)
  • Line Location: TOTALD+16
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: TOTALD+17
Function Call: WRITE
  • Prompt: !,"SUBTOTALS FOR PAYER: ",PAYIX1,"/",PAYIX2,?90,$J(DBAMT,10,2),$J(DPAMT,10,2)
  • Line Location: TOTALDP+16
Function Call: WRITE
  • Prompt: $J(DBAL,10,2)
  • Line Location: TOTALDP+17
Function Call: WRITE
  • Prompt: !,?8,"COUNT",?90,$J(DCNT,10,0),$J(DCNT,10,0),$J(DCNT,10,0)
  • Line Location: TOTALDP+19
Function Call: WRITE
  • Prompt: !,?8,"MEAN",?90,$J(DBAMT/DCNT,10,2),$J(DPAMT/DCNT,10,2),$J(DBAL/DCNT,10,2)
  • Line Location: TOTALDP+20
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: TOTALDP+21
Function Call: WRITE
  • Prompt: !,"GRAND TOTALS FOR ALL DIVISIONS",?90,$J(+$P(GTOTAL,U,2),10,2)
  • Line Location: TOTALG+8
Function Call: WRITE
  • Prompt: $J(+$P(GTOTAL,U,3),10,2),$J(+$P(GTOTAL,U,4),10,2)
  • Line Location: TOTALG+9
Function Call: WRITE
  • Prompt: $J($P(GTOTAL,U,3)/$P(GTOTAL,U,2)*100,9,2),"%"
  • Line Location: TOTALG+10
Function Call: WRITE
  • Prompt: !,?8,"COUNT",?90,$J(+$P(GTOTAL,U),10,0),$J(+$P(GTOTAL,U),10,0),$J(+$P(GTOTAL,U),10,0)
  • Line Location: TOTALG+11
Function Call: WRITE
  • Prompt: !,?8,"MEAN",?90,$J($P(GTOTAL,U,2)/$P(GTOTAL,U),10,2)
  • Line Location: TOTALG+12
Function Call: WRITE
  • Prompt: $J($P(GTOTAL,U,3)/$P(GTOTAL,U),10,2),$J($P(GTOTAL,U,4)/$P(GTOTAL,U),10,2)
  • Line Location: TOTALG+13
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: TOTALG+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call