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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Accounts Receivable 4 ($$PAYMNT,COMPILE)^RCDPEAPQ  $$ENDORPRT^RCDPEARL  INFO^RCDPEM6  ($$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 3 EN^DDIOL  $$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: 6

Package Total Caller Graph
Accounts Receivable 6 RCDPARC  RCDPE AUTO-POST REPORT  RCDPENER  RCDPENR2  RCDPEP  RCDPPLB  

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

External References

Name Field # of Occurrence
^%ZIS RPT+30
HOME^%ZIS RPT+43
^%ZISC DISP+77
^%ZTLOAD RPT+39
EN^DDIOL HDR+47
$$GET1^DIQ STADIV+17
^DIR DETORSUM+10, NMORTIN+10, SORTT+11, DISPTY+9, DATES+8, DATES+14, ASK+6
$$PAYMNT^RCDPEAPQ RPT+7
COMPILE^RCDPEAPQ REPORT+18
$$ENDORPRT^RCDPEARL DISP+69, DISP+74
INFO^RCDPEM6 RPT+27
$$PAYRNG^RCDPEU1 RPT+12
$$RTYPE^RCDPEU1 RPT+9
$$SELPAY^RCDPEU1 RPT+21
DIVISION^VAUTOMA STADIV+10
$$FMTE^XLFDT DISP+8, HDR+17, HDR+18
$$NOW^XLFDT DISP+8

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
Routine Call
  • %ZIS
  • Line Location:
    • RPT+30
Routine Call
  • %ZIS
  • Line Location:
    • RPT+43
Routine Call
  • DIR
  • Line Location:
    • DETORSUM+10
    • NMORTIN+10
    • SORTT+11
    • DISPTY+9
    • DATES+8
    • DATES+14
    • ASK+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( REPORT+16!, REPORT+17, REPORT+22!
^TMP("RCDPEAPP2" REPORT+16!, REPORT+22!
^TMP("RCDPEU1" REPORT+22!
^TMP("RCSELPAY" SELPAY+10, SELPAY+11, REPORT+22!

Label References

Name Line Occurrences
$$DETORSUM RPT+6
$$DISPTY RPT+26
$$DTRNG RPT+24
$$NMORTIN RPT+10
$$SORTT RPT+23
$$STADIV RPT+5
ASK DISP+69, DISP+74, HDR+19
DATES DTRNG+5
DISP REPORT+19
HDR DISP+16, DISP+19, DISP+32, DISP+72, TOTALS+7, TOTALD+11, TOTALDP+11, TOTALG+7
HDRP DISP+27
LINED DISP+13
LINEP DISP+14
REPORT RPT+45
TOTALD DISP+63, TOTALS+18
TOTALDP DISP+50, TOTALS+17
TOTALG DISP+67, TOTALS+19
TOTALS DISP+68

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS RPT+30*
BDATE DATES~, DATES+5*, DATES+9*, DATES+10*, DATES+13, DATES+15*
CTR LINEP+6~, LINEP+14*, LINEP+15, LINEP+16*, LINEP+17, LINEP+18
DATA TOTALDP+10~, TOTALDP+12*, TOTALDP+13, TOTALDP+14
DBAL TOTALS+2~, TOTALD+8~, TOTALD+10*, TOTALD+13, TOTALD+16, TOTALDP+10~, TOTALDP+14*, TOTALDP+17, TOTALDP+20
DBAMT TOTALS+2~, TOTALD+8~, TOTALD+9*, TOTALD+12, TOTALD+14, TOTALD+16, TOTALDP+10~, TOTALDP+13*, TOTALDP+16, TOTALDP+18
, TOTALDP+20
DCNT TOTALS+2~, TOTALD+8~, TOTALD+9*, TOTALD+15, TOTALD+16, TOTALDP+10~, TOTALDP+13*, TOTALDP+19, TOTALDP+20
DIR STADIV+9~, DETORSUM+5~, NMORTIN+5~, SORTT+5~, DTRNG+4~, DISPTY+5~, DATES+4~, DATES+8!, DATES+14!, ASK+3~
DIR("?" DETORSUM+9*, NMORTIN+9*, SORTT+9*, SORTT+10*, DATES+6*, DATES+11*
DIR("A" DETORSUM+6*, NMORTIN+7*, SORTT+7*, DISPTY+7*, DATES+7*, DATES+13*, ASK+4*
DIR("B" DETORSUM+7*, NMORTIN+8*, SORTT+8*, DISPTY+8*, DATES+12*
DIR(0 DETORSUM+6*, NMORTIN+6*, SORTT+6*, DISPTY+6*, DATES+7*, DATES+13*, ASK+5*
DIROUT STADIV+9~, DETORSUM+5~, NMORTIN+5~, SORTT+5~, DTRNG+4~, DISPTY+5~, DATES+4~, ASK+3~
DIRUT STADIV+9~, DETORSUM+5~, NMORTIN+5~, SORTT+5~, DTRNG+4~, DISPTY+5~, DATES+4~, ASK+3~, ASK+7
DIV STADIV+9~, STADIV+13*, STADIV+14, STADIV+15*, STADIV+16, STADIV+17, STADIV+19, TOTALS+2~, TOTALS+3*, TOTALS+4
, TOTALS+5*, TOTALS+6, TOTALS+8, TOTALS+11, TOTALS+15, TOTALS+17, TOTALS+18, TOTALD~, TOTALD+9, TOTALD+10
, TOTALD+12, TOTALDP~, TOTALDP+12
DIVS STADIV~, STADIV+12!, DISP+7~, DISP+13, DISP+16, DISP+19, DISP+32, DISP+72, HDR~, LINED~
, LINED+6!, TOTALS+7, TOTALD+11, TOTALDP+11, TOTALG+7
DIVS( STADIV+19*, HDR+29, HDR+31, LINED+13, LINED+14*, LINED+15*
DIVS(1 LINED+7*, LINED+8*
DPAMT TOTALS+2~, TOTALD+10*, TOTALD+13, TOTALD+14, TOTALD+16, TOTALDP+10~, TOTALDP+14*, TOTALDP+16, TOTALDP+18, TOTALDP+20
DPAMTL TOTALD+8~
DPAYS LINEP+6~
DPAYS( LINEP+19, LINEP+20*
DT DATES+7, DATES+13
DTOUT STADIV+9~, DETORSUM+5~, DETORSUM+11, NMORTIN+5~, NMORTIN+11, SORTT+5~, SORTT+12, DTRNG+4~, DISPTY+5~, DISPTY+10
, DATES+4~, DATES+9, DATES+15, ASK+3~
DUOUT STADIV+9~, DETORSUM+5~, DETORSUM+11, NMORTIN+5~, NMORTIN+11, SORTT+5~, SORTT+12, DTRNG+4~, DISPTY+5~, DISPTY+10
, DATES+4~, DATES+9, DATES+15, ASK+3~, ASK+7
EDATE DATES~, DATES+5*, DATES+16*
END HDR+11~, HDR+18*, HDR+39
GLOB REPORT+15~, REPORT+17*, DISP+17, DISP+22, DISP+24, DISP+29, DISP+30, DISP+50, DISP+63, TOTALS+5
, TOTALS+11, TOTALS+15, TOTALD+9, TOTALD+10, TOTALDP+12
GTOTAL REPORT+15~, DISP+66, DISP+71, TOTALG+8, TOTALG+9, TOTALG+10, TOTALG+11, TOTALG+12, TOTALG+13
IO DISP+10
IO("Q" RPT+33, RPT+42!
IOF HDR+21
IOSL DISP+32, TOTALD+11, TOTALDP+11, TOTALG+7
IOST ASK+2
LINE1 DISP+7~, DISP+9*, HDRP+3, TOTALS+8, TOTALD+17, TOTALDP+21, TOTALG+14
LINE2 DISP+7~, DISP+9*, HDR+40, HDR+46
LN HDR+11~, HDR+27*, HDR+31*, HDR+33, HDR+34, HDR+35, HDR+36*, HDR+37, HDR+38*, HDR+39
, HDR+40*, HDR+41*, HDR+43, HDR+44, HDR+45, HDR+46*, LINED+5~, LINED+7*, LINED+13, LINED+14*
, LINED+15, LINEP+6~, LINEP+8*, LINEP+21, LINEP+22*, LINEP+23
MSG HDR+11~, HDR+47
MSG( HDR+31*, HDR+33*, HDR+34*, HDR+35*, HDR+37*, HDR+39*, HDR+40*, HDR+43*, HDR+44*, HDR+45*
, HDR+46*
MSG(1 HDR+22*, HDR+24*, HDR+25*
PAYER SELPAY+8~, SELPAY+11*, SELPAY+12
PAYERS DISP+7~, DISP+14, DISP+16, DISP+19, DISP+32, DISP+72, HDR~, LINEP~, LINEP+7!, TOTALS+7
, TOTALD+11, TOTALDP+11, TOTALG+7
PAYERS( LINEP+21, LINEP+22*, LINEP+23*
PAYERS(1 LINEP+8*, LINEP+10*
PAYIX1 TOTALS+2~, TOTALS+9*, TOTALS+10, TOTALS+11*, TOTALS+12, TOTALS+15, TOTALS+17, TOTALDP~, TOTALDP+12, TOTALDP+16
PAYIX2 TOTALS+2~, TOTALS+13*, TOTALS+14, TOTALS+15*, TOTALS+16, TOTALS+17, TOTALDP~, TOTALDP+12, TOTALDP+16
PAYNAM HDRP~, HDRP+3
PAYR LINEP+6~, LINEP+8*, LINEP+11, LINEP+12*, LINEP+13, LINEP+16, LINEP+18
PCE LINEP+6~, LINEP+9*, LINEP+18
POP RPT+1~, RPT+30
PSUB SELPAY+8~, SELPAY+9*, SELPAY+10*, SELPAY+11, SELPAY+12
RCDATA DISP+7~, DISP+30*, DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+41
, DISP+42, DISP+43, DISP+44, DISP+45, DISP+46, DISP+52, DISP+54, DISP+57, DISP+59*, DISP+60
RCDISP RPT+1~, RPT+25*, RPT+26*, RPT+27, RPT+29, RPT+33, DISP+16, DISP+18, DISP+27, DISP+31
, DISP+50, DISP+51, DISP+63, DISP+67, DISP+68, HDR+13, TOTALD+11, TOTALDP+11, TOTALG+7
RCDIV RPT+1~, RPT+5*, STADIV+11*, DISP+13, LINED~, LINED+8
RCDIVS RPT+1~, RPT+5, DISP+13, LINED~
RCDIVS( LINED+10, LINED+12
RCDTRNG RPT+1~, RPT+4*
RCEND DTRNG+4~, DTRNG+5, DTRNG+7
RCHDRDT DISP+7~, DISP+8*, HDR+25
RCJOB RPT+1~, RPT+4*, SELPAY~, SELPAY+10, SELPAY+11, REPORT+22
RCLAIM RPT+1~, RPT+9*, RPT+17, HDR+34
RCPAGE RPT+1~, RPT+4*, HDR+19, HDR+20*, HDR+25
RCPAR RPT+1~, RPT+21
RCPAR("DICA" RPT+20*
RCPAR("FILE" RPT+19*
RCPAR("SELC" RPT+12*, RPT+13, RPT+14, RPT+16
RCPAR("SRCH" RPT+18*
RCPAR("TYPE" RPT+17*
RCPARRAY RPT+1~, SELPAY~, DISP+14, LINEP~
RCPARRAY( SELPAY+12*, LINEP+12, LINEP+16, LINEP+18
RCPAY RPT+2~, RPT+14*, DISP+14, DISP+53~, DISP+54*, DISP+55, DISP+56*, DISP+57*, DISP+58*, DISP+59
, HDR+37, LINEP~, LINEP+10
RCPAYMNT RPT+2~, RPT+7*, HDR+24
RCPROG RPT+2~, RPT+4*, REPORT+16, REPORT+17, REPORT+22
RCRANGE RPT+2~, RPT+24*, HDR+17, HDR+18
RCSORT RPT+3~, RPT+23*, DISP+55, DISP+56, DISP+58, HDR+35
RCSTART DTRNG+4~, DTRNG+5, DTRNG+6, DTRNG+7, DTRNG+8
RCSTOP DISP+7~, DISP+15*, DISP+17, DISP+22, DISP+24, DISP+29, DISP+31, DISP+32, DISP+66, DISP+69
, DISP+74, HDR+12, HDR+19, TOTALS+4, TOTALS+10, TOTALS+14, TOTALD+11, TOTALDP+11, TOTALG+7
RCTIN DISP+53~, DISP+55*, DISP+58
RCTYPE RPT+3~, RPT+6*, RPT+25, DISP+17, DISP+27, DISP+63, DISP+67, DISP+68, HDR+22, HDR+42
, TOTALDP+15
RCWHICH RPT+3~, RPT+10*, RPT+12, RPT+18, RPT+20, DISP+14, HDR+37, LINEP~, LINEP+9
RNGFLG DTRNG+4~
STANAM RPT+3~
STANUM RPT+3~
START HDR+11~, HDR+17*, HDR+39
STNUM STADIV+9~, STADIV+17*, STADIV+18*, STADIV+19
STOP ASK~, ASK+7*
SUB DISP+7~, DISP+15*, DISP+17*, DISP+20, DISP+22, DISP+24, DISP+29, DISP+30, DISP+50, DISP+63
, LINED+5~, LINED+7*, LINED+9, LINED+10*, LINED+11, LINED+12
SUB1 DISP+7~, DISP+21*, DISP+22*, DISP+24, DISP+27, DISP+29, DISP+30, DISP+50, DISP+63
SUB2 DISP+7~, DISP+23*, DISP+24*, DISP+27, DISP+29, DISP+30, DISP+50
SUB3 DISP+7~, DISP+28*, DISP+29*, DISP+30, DISP+50
U DISP+33, DISP+34, DISP+35, DISP+36, DISP+37, DISP+38, DISP+39, DISP+41, DISP+42, DISP+43
, DISP+44, DISP+45, DISP+46, HDR+17, HDR+18, LINEP+10, TOTALD+9, TOTALD+10, TOTALDP+13, TOTALDP+14
, TOTALG+8, TOTALG+9, TOTALG+10, TOTALG+11, TOTALG+12, TOTALG+13
VAUTD STADIV+9~, STADIV+11
VAUTD( STADIV+15, STADIV+19
X RPT+3~, DETORSUM+5~, NMORTIN+5~, SORTT+5~, DTRNG+4~, DISPTY+5~, DATES+4~
XX RPT+16, RPT+21*, DETORSUM+5~, DETORSUM+8*, DETORSUM+9, HDR+11~, HDR+14*, HDR+15*, HDR+16, HDR+27*
, HDR+28, HDR+29*, HDR+30, HDR+31, LINED+5~, LINED+12*, LINED+13, LINED+14, LINED+15, LINEP+6~
, LINEP+18*, LINEP+19, LINEP+20, LINEP+21, LINEP+22, LINEP+23
Y RPT+3~, STADIV+9~, STADIV+10, DETORSUM+5~, DETORSUM+12, NMORTIN+5~, NMORTIN+12, SORTT+5~, SORTT+13, DTRNG+4~
, DISPTY+5~, DISPTY+11, DATES+4~, DATES+9, DATES+10, DATES+15, DATES+16, HDR+11~
Y(0 DATES+12
ZTDESC RPT+34~, RPT+36*
ZTQUEUED RPT+34~, DISP+77, DISP+78
ZTREQ REPORT+15~, DISP+78*
ZTRTN RPT+34~, RPT+35*
ZTSAVE RPT+34~
ZTSAVE("RC*" RPT+37*
ZTSAVE("^TMP(""RCDPEU1"",$J," RPT+38*
ZTSK RPT+34~, RPT+40, DISP+69, DISP+74
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