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

Package: Accounts Receivable

Routine: RCTCSP4


Information

RCTCSP4 ;HAF/ASF - CS Debt Referral Stop Reactivate Report ;6/1/2017

Source Information

Source file <RCTCSP4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; main report entry point
EX ; main report exit point
STOP() ; Determine if user wants to exit out of the option entirely
; 1=yes, get out entirely
; 0=no, just go back to the previous question
FLAGGED(RCTCFLG) ; capture if the user wants bills with a current flag, reactivated, or both
; RCTCFLG=C meaning data is currently present in the STOP TCSP REFERRAL FLAG field (430,157)
; RCTCFLG=R meaning data is currently blank in the STOP TCSP REFERRAL FLAG field (430,157)
; RCTCFLG=B meaning either is wanted
; pass parameter by reference
FLX ;
DEBBILL ;
; RCTCDB=C meaning data is currently present in the STOP TCSP REFERRAL FLAG field (430,157)
; RCTCDB=R meaning data is currently blank in the STOP TCSP REFERRAL FLAG field (430,157)
DIVSEL ;
DEBTORS ; select debtor range
DEBTFR ; start with debtor
DEBTTO ; go to debtor
DBT1
DATES ; all dates or a date range - also capture from and thru dates
; RCTCDATE="A" or "R" if user wants All Dates or to select a Date Range
; RCTCDATE("BEGIN")=starting FM date
; RCTCDATE("END")=ending FM date
FORMAT ; output format is Excel format or normal report output
; RCTCEXCEL=0 for normal report output
; RCTCEXCEL=1 for Excel output
; pass parameter by reference
DEVICE() ; Device Selection
COMPILE ; entry point for the report compile to build the scratch global
; may be a background task if job queued
COMIPLX ;
COMP ; compile data into scratch global
PRINT ; entry point for printing the report
PX ;
PRINTX ;
RPTLN ; display one line on the report - either normal or Excel
RPTLNDIV ;Lines for division
RPTLNX ;X

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FLAGGED+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FLAGGED+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBBILL+12
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DEBBILL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVSEL+9
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DIVSEL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBTFR+9
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DEBTFR+10
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DBT1+8
Function Call: WRITE
  • Prompt: $C(7),!!,"You must enter something after '",RCTCDEBT1,"'!",!
  • Line Location: DBT1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+15
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DATES+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+24
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DATES+25
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DATES+34
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMAT+14
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FORMAT+15
Function Call: WRITE
  • Prompt: !!,"It is recommended that you Queue this report to a device ",!,"that is 140 or greater characters wide",!
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,"To capture as an Excel format, it is recommended that you queue this report to"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"a spool device with margins of 256 and page length of 99999,"
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"(e.g. spoolname;256;99999).This should help avoid wrapping problems.",!
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !,"Another method would be to set up your terminal to capture the detail report"
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !,"data. On some terminals, this can be done by clicking on the 'Tools' menu above,"
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !,"then click on 'Capture Incoming Data' to save to Desktop."
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !,"To avoid undesired wrapping of the data saved to the file,"
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !,"please enter '0;256;99999' at the 'DEVICE:' prompt."
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+30
Function Call: WRITE
  • Prompt: !!,"Compiling Cross-Servicing Stop Reactivate Report. Please wait ... "
  • Line Location: COMPILE+3
Function Call: WRITE
  • Prompt: !!?5,"No data found for this report."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!?5,"This report was halted during compilation by TaskManager Request."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINTX+4
Function Call: WRITE
  • Prompt: !,$E($P(DEBTDATA,U,2),1,27)
  • Line Location: RPTLN+10
Function Call: WRITE
  • Prompt: ?28,$P(BILLDATA,U,9)," "
  • Line Location: RPTLN+11
Function Call: WRITE
  • Prompt: ?34,$P(DEBTDATA,U,1)
  • Line Location: RPTLN+12
Function Call: WRITE
  • Prompt: ?41,$P(BILLDATA,U,1)
  • Line Location: RPTLN+14
Function Call: WRITE
  • Prompt: ?55,$P(BILLDATA,U,4)
  • Line Location: RPTLN+15
Function Call: WRITE
  • Prompt: ?66,$E($P(BILLDATA,U,3),1,11)
  • Line Location: RPTLN+17
Function Call: WRITE
  • Prompt: ?78,$$FMTE^XLFDT($P(BILLDATA,U,5),"2Z")
  • Line Location: RPTLN+19
Function Call: WRITE
  • Prompt: ?88,$$FMTE^XLFDT($P(BILLDATA,U,6),"2Z")
  • Line Location: RPTLN+20
Function Call: WRITE
  • Prompt: ?100,$E($P(BILLDATA,U,7),1,9)
  • Line Location: RPTLN+21
Function Call: WRITE
  • Prompt: ?110,$S(TT["DELETED":"DEL",TT["PLACED":"ADD",1:"UNK")
  • Line Location: RPTLN+23
Function Call: WRITE
  • Prompt: ?120,$E($P(TRANDATA,U,3),1,17)
  • Line Location: RPTLN+25
Function Call: WRITE
  • Prompt: !,$P(DEBTDATA,U,2)
  • Line Location: RPTLNDIV+10
Function Call: WRITE
  • Prompt: ?32,$P(BILLDATA,U,9)," "
  • Line Location: RPTLNDIV+11
Function Call: WRITE
  • Prompt: ?37,$P(DEBTDATA,U,1)
  • Line Location: RPTLNDIV+12
Function Call: WRITE
  • Prompt: ?46,$P($P(BILLDATA,U,1),"-",2)
  • Line Location: RPTLNDIV+13
Function Call: WRITE
  • Prompt: ?55,$P(BILLDATA,U,8)
  • Line Location: RPTLNDIV+14
Function Call: WRITE
  • Prompt: ?59,$$FMTE^XLFDT($P(BILLDATA,U,5),"2Z")
  • Line Location: RPTLNDIV+15
Function Call: WRITE
  • Prompt: ?69,$$FMTE^XLFDT($P(BILLDATA,U,6),"2Z")
  • Line Location: RPTLNDIV+16
Function Call: WRITE
  • Prompt: ?79,$E($P(BILLDATA,U,7),1,10)
  • Line Location: RPTLNDIV+17
Function Call: WRITE
  • Prompt: ?91,$S(TT["DELETED":"DEL",TT["PLACED":"ADD",1:"UNK")
  • Line Location: RPTLNDIV+19
Function Call: WRITE
  • Prompt: ?99,$$FMTE^XLFDT($P(TRANDATA,U,2),"2Z")
  • Line Location: RPTLNDIV+20
Function Call: WRITE
  • Prompt: ?109,$E($P(TRANDATA,U,3),1,17)
  • Line Location: RPTLNDIV+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCD(340 - [#340] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
^PRCA(430.2 - [#430.2] GET1^DIQ
^PRCA(433 - [#433] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call