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

Package: Accounts Receivable

Routine: RCRJRCOU


Information

RCRJRCOU ;WISC/RFJ-ar data collector summary report ;1 Mar 97

Source Information

Source file <RCRJRCOU.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Entry point from the Option
DQ ; generate user detailed report
EXIT ;commom exit point
HDR ;Set the header
PRINT ; print records to screen or printer
DTFRMTO(PROMPT) ;Get from and to dates (added as per PRCA*4.5*320 to be able to sort by dates for reports)
HEXC ; - 'Do you want to capture data to EXCEL' prompt
FIRST ; Get 1st available date for selected status
MENU ; Selection menu
DESCTEXT ;
STORE(BILLDA,DATEBEG,DATEEND,ARACTDT,CATEGORY,TYPE,RCFUND,RCRSC,RCVALUE,SCREEN) ;
EN ; option entry point to run the report
DQQ ; Print the report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,$P(MSG,";;",2)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,?3,$P(MSG,";;",2)
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!,?10,"<< Checking available dates. Please wait >>"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !!,"The earliest date on file for selected status is: ",$G(BGDT)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!,"This report requires 132 characters",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"***The report found no receivables that match your selection***",!!
  • Line Location: DQ+62
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?14,"ARDC Detailed Report",?50,"Run Date: ",$$FMTE^XLFDT(XMNOW,"2Z"),?107,"Page:",PAGE,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: U_"ARDC Detailed Report"_U_U_"Run Date: "_$$FMTE^XLFDT(XMNOW,"2Z")_U_U_U_U_"Page:"_PAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Bill#",?14,"Create",?26,"AR Category",?50,"Bill",?68,"FMS",?75,"Fund",?84,"RSC",?93,"Principal",?107,"Current"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?14,"Date",?50,"Status",?75,"Type",?96,"Amount",?107,"Balance",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Bill#"_U_"Create"_U_"AR Category"_U_"Bill"_U_"FMS"_U_"Fund"_U_"RSC"_U_"Principal"_U_"Current"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,U_"Date"_U_U_"Status"_U_U_"Type"_U_U_"Amount"_U_"Balance",!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$P(@RCRET@(RECORD),U),?14,$P(@RCRET@(RECORD),U,2),?26,$E($P(@RCRET@(RECORD),U,3),1,20),?50,$E($P(@RCRET@(RECORD),U,4),1,15),?68,$P(@RCRET@(RECORD),U,5)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?75,$P(@RCRET@(RECORD),U,6),?84,$P(@RCRET@(RECORD),U,7),?92,$P(@RCRET@(RECORD),U,8),?104,$P(@RCRET@(RECORD),U,9)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,$P(@RCRET@(RECORD),U)_U_$P(@RCRET@(RECORD),U,2)_U_$P(@RCRET@(RECORD),U,3)_U_$P(@RCRET@(RECORD),U,4)_U_$P(@RCRET@(RECORD),U,5)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: U_$P(@RCRET@(RECORD),U,6)_U_$P(@RCRET@(RECORD),U,7)_U_$P(@RCRET@(RECORD),U,8)_U_$P(@RCRET@(RECORD),U,9)
  • Line Location: PRINT+11
Function Call: READ
  • Formatting: !!
  • Prompt: "END OF REPORT...PRESS RETURN TO CONTINUE"
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: DTFRMTO+9
Function Call: WRITE
  • Prompt: !!,"No Date selected, quitting. ",!!
  • Line Location: DTFRMTO+15
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: HEXC+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: HEXC+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: HEXC+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: HEXC+4
Function Call: WRITE
  • Prompt: !,"Select which accounting month/year for the ARDC Report"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report requires 132 characters",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DQQ+14
Function Call: WRITE
  • Prompt: $E($G(RCARRAY(430.71,RCREC_","_RCREPORT_",",X)),1,Y)
  • Line Location: DQQ+17
Function Call: WRITE
  • Prompt: "^"
  • Line Location: DQQ+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] FIND^DIC,  GET1^DIQ
^PRCA(430.2 - [#430.2] GET1^DIQ
^PRCA(430.3 - [#430.3] Classic Fileman Calls
^PRCA(430.7 - [#430.7] Classic Fileman Calls
430.71 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call