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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZISC  $$FMTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Accounts Receivable 2 $$SSN^RCFN01  (DLEVEL,EXCELN,HDR)^RCTCSP4E  

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

Package Total Caller Graph
Accounts Receivable 1 RCTCSP4E  

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

External References

Name Field # of Occurrence
^%ZISC EN+15, COMPILE+7
^DIC DIVSEL+13
$$GET1^DIQ COMP+22, COMP+27, COMP+36, COMP+46, COMP+62, COMP+63, COMP+64, COMP+65, COMP+66, COMP+67
COMP+69, COMP+70
^DIR STOP+11, FLAGGED+17, DEBBILL+12, DIVSEL+9, DEBTFR+9, DBT1+7, DATES+15, DATES+24, DATES+33, FORMAT+14
, DEVICE+29, PX+1
$$SSN^RCFN01 COMP+53
DLEVEL^RCTCSP4E EN+7
EXCELN^RCTCSP4E RPTLN+4, RPTLNDIV+4
HDR^RCTCSP4E PRINT+6, PRINT+7, PRINT+8, PRINT+24, PRINTX+3, RPTLN+7, RPTLNDIV+7
$$FMTE^XLFDT RPTLN+18, RPTLN+19, RPTLNDIV+15, RPTLNDIV+16, RPTLNDIV+20
EN^XUTMDEVQ DEVICE+27

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 132 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+29
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: ?54,$E($P(BILLDATA,U,3),1,12)
  • Line Location: RPTLN+16
Function Call: WRITE
  • Prompt: ?67,$$FMTE^XLFDT($P(BILLDATA,U,5),"2Z")
  • Line Location: RPTLN+18
Function Call: WRITE
  • Prompt: ?77,$$FMTE^XLFDT($P(BILLDATA,U,6),"2Z")
  • Line Location: RPTLN+19
Function Call: WRITE
  • Prompt: ?86,$E($P(BILLDATA,U,7),1,10)
  • Line Location: RPTLN+20
Function Call: WRITE
  • Prompt: ?100,$S(TT["DELETED":"DEL",TT["PLACED":"ADD",1:"UNK")
  • Line Location: RPTLN+22
Function Call: WRITE
  • Prompt: ?105,$E($P(TRANDATA,U,3),1,17)
  • Line Location: RPTLN+24
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
Routine Call
  • DIC
  • Line Location:
    • DIVSEL+13
Routine Call
  • DIR
  • Line Location:
    • STOP+11
    • FLAGGED+17
    • DEBBILL+12
    • DIVSEL+9
    • DEBTFR+9
    • DBT1+7
    • DATES+15
    • DATES+24
    • DATES+33
    • FORMAT+14
    • DEVICE+29
    • PX+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] COMP+24, COMP+41, COMP+68
^PRCA(430.3 - [#430.3] COMP+5
^PRCA(433 - [#433] COMP+15, COMP+17, COMP+18, COMP+19
^RCD(340 - [#340] COMP+26
^TMP("RCTCSP4" EN+14!, COMP+50, COMP+55*, COMP+59, COMP+71*, COMP+74*, PRINT+6, PRINT+12, PRINT+13, PRINT+14
PRINT+15, PRINT+16, PRINT+17
^VA(200 - [#200] COMP+21

Label References

Name Line Occurrences
COMP EN+13, COMPILE+5
DATES EN+9
DBT1 DBT1+10
DEBBILL EN+6
DEBTORS EN+8
DEVICE EN+12
DIVSEL EN+10
FLAGGED EN+5
FLX FLAGGED+18, DIVSEL+10
FORMAT EN+11
PRINT COMPILE+6
PRINTX PRINTX+3
PX PRINT+7, PRINT+8
RPTLN PRINT+18
RPTLNX RPTLN+7, RPTLNDIV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARTTIEN COMP+1~, COMP+5*, COMP+11*, COMP+15, COMP+17, COMP+18
BILL PRINT+1~, PRINT+14*, PRINT+15, PRINT+16, PRINT+17
BILLDATA EN+2~, PRINT+1~, PRINT+15*, RPTLN+11, RPTLN+14, RPTLN+16, RPTLN+18, RPTLN+19, RPTLN+20, RPTLNDIV+11
RPTLNDIV+13, RPTLNDIV+14, RPTLNDIV+15, RPTLNDIV+16, RPTLNDIV+17
CAT COMP+60~, COMP+68*, COMP+69
CRT EN+2~, PRINT+1~, PRINT+2*, PX+1
DEBRANGE EN+2~
DEBTDATA EN+2~, PRINT+1~, PRINT+13*, RPTLN+10, RPTLN+12, RPTLNDIV+10, RPTLNDIV+12
DEBTNAME COMP+1~, COMP+27*, COMP+28, COMP+32, COMP+33, COMP+45, COMP+54, COMP+55
DEBTOR EN+2~
DIC EN+2~, DIVSEL+1~, DIVSEL+13*
DIC(0 DIVSEL+13*
DIR STOP+4~, STOP+11!, FLAGGED+6~, FLAGGED+17!, DEBBILL+4~, DEBBILL+12!, DIVSEL+1~, DIVSEL+9!, DEBTFR+1~, DEBTFR+9!
DEBTTO+1~, DBT1+7!, DATES+5~, DATES+15!, DATES+24!, DATES+33!, FORMAT+5~, FORMAT+14!, DEVICE+1~, DEVICE+29!
PRINT+1~
DIR("?" STOP+9*, STOP+10*, FLAGGED+12*, FLAGGED+13*, FLAGGED+14*, FLAGGED+15*, FLAGGED+16*, DEBBILL+10*, DEBBILL+11*, DIVSEL+8*
DEBTFR+6*, DEBTFR+7*, DEBTFR+8*, DBT1+4*, DBT1+5*, DBT1+6*, DATES+11*, DATES+12*, DATES+13*, DATES+14*
DATES+22*, DATES+23*, DATES+31*, DATES+32*, FORMAT+10*, FORMAT+11*, FORMAT+12*, FORMAT+13*
DIR("A" STOP+7*, FLAGGED+10*, DEBBILL+8*, DIVSEL+6*, DEBTFR+4*, DBT1+2*, DATES+9*, DATES+21*, DATES+29*, FORMAT+8*
DIR("B" STOP+8*, FLAGGED+11*, DEBBILL+9*, DIVSEL+7*, DEBTFR+5*, DBT1+3*, DATES+10*, DATES+30*, FORMAT+9*
DIR(0 STOP+6*, FLAGGED+8*, FLAGGED+9*, DEBBILL+6*, DEBBILL+7*, DIVSEL+4*, DIVSEL+5*, DEBTFR+3*, DBT1+1*, DATES+8*
DATES+20*, DATES+28*, FORMAT+7*, DEVICE+29*, PX+1*
DIROUT STOP+4~, DIVSEL+1~, FORMAT+5~, PRINT+1~
DIRUT EN+8, EN+9, STOP+4~, STOP+12, FLAGGED+18, DEBBILL+13, DIVSEL+1~, DIVSEL+10, DEBTFR+10, DBT1+8
DATES+16, DATES+25, DATES+34, FORMAT+5~, FORMAT+15, PRINT+1~
DIV1 EN+2~
DLEVEL EN+2~
DT DATES+18
DTOUT STOP+4~, DIVSEL+1~, FORMAT+5~, PRINT+1~
DUOUT STOP+4~, DIVSEL+1~, FORMAT+5~, PRINT+1~
DV EN+2~
FLAG COMP+1~, COMP+41*, COMP+42, COMP+43
G EN+2~
IENS EN+2~
IOSL PRINT+3*, PRINT+24, PRINTX+3, RPTLN+7, RPTLNDIV+7
IOST PRINT+2
N1 EN+2~
NN EN+2~
P0 COMP+1~, COMP+19*, COMP+20, COMP+21
PAGE PRINT+1~, PRINT+4*
POP DEVICE+1~, DEVICE+28
PTID EN+2~, COMP+51~, COMP+52*, COMP+54*, COMP+55
RC340 COMP+1~, COMP+24*, COMP+25, COMP+26, COMP+27, COMP+45, COMP+53
RC433 COMP+1~, COMP+18*, COMP+19, COMP+22, COMP+74, PRINT+1~, PRINT+16*, PRINT+17
RCBILLNUM COMP+1~, COMP+46*, COMP+47, COMP+59, COMP+61, COMP+71, COMP+74
RCD PRINT+1~, PRINT+12*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17
RCDEBTOR COMP+1~, COMP+45*, COMP+50, COMP+55, COMP+59, COMP+71, COMP+74
RCDT EN+2~
RCDV COMP+51~
RCIBN COMP+1~, COMP+20*, COMP+24, COMP+36, COMP+41, COMP+46, COMP+62, COMP+63, COMP+64, COMP+65
COMP+66, COMP+67, COMP+68, COMP+70
RCTC EN+2~
RCTC("DIVN" DIVSEL+13*
RCTC("DIVS" DIVSEL+3!, DIVSEL+13*, COMP+38
RCTCDATE EN+2~, EN+9, DATES+6!, DATES+17*, DATES+18, DATES+25!, DATES+34!
RCTCDATE("BEGIN" DATES+18*, DATES+26*, DATES+28, COMP+15
RCTCDATE("END" DATES+18*, DATES+35*, COMP+8*, COMP+17
RCTCDB EN+3~, EN+6, EN+7, EN+10, DEBBILL+5*, DEBBILL+14*
RCTCDEBT1 EN+3~, DEBTFR+2*, DEBTFR+11*, DBT1+10, COMP+32
RCTCDEBT2 EN+3~, DBT1*, DBT1+9*, DBT1+10, COMP+33
RCTCDIV EN+3~, EN+10*, DIVSEL+2*, DIVSEL+11*, DIVSEL+12, COMP+37, COMP+38
RCTCDIVN EN+3~, COMP+36*, COMP+37, COMP+38
RCTCDTENT COMP+1~, COMP+14*, COMP+15*, COMP+17*, COMP+18, COMP+74
RCTCEXCEL EN+3~, EN+11, FORMAT+6*, FORMAT+16*, DEVICE+3, DEVICE+4, PRINT+3, RPTLN+4, RPTLNDIV+4
RCTCFLG EN+3~, EN+5, FLAGGED~, FLAGGED+7*, FLAGGED+19*, COMP+42, COMP+43
RCTCSP4 EN+3~
RCTCSTOP EN+3~, PRINT+1~, PRINT+4*, PRINT+8, PRINT+12, PRINT+14, PRINT+16, PRINT+22, PRINT+24, PRINTX+3
RPTLN+7, RPTLNDIV+7
RCTCTT COMP+1~
RCTCTT( COMP+5*, COMP+11
RCTN EN+3~
RCTTNAME COMP+1~, COMP+22*, COMP+74
RCX COMP+60~, COMP+61*, COMP+62*, COMP+63*, COMP+64*, COMP+65*, COMP+66*, COMP+67*, COMP+69*, COMP+70*
COMP+71
REASON EN+3~
RET FLAGGED+6~, FLAGGED+7*, FLAGGED+18*, FLX+1, DEBBILL+4~, DEBBILL+5*, DEBBILL+13*, DIVSEL+1~, DIVSEL+2*, DIVSEL+10*
DEBTFR+1~, DEBTFR+2*, DEBTFR+10*, DEBTTO+1~, DBT1*, DBT1+8*, DATES+5~, DATES+7*, DATES+25*, DATES+34*
FORMAT+5~, FORMAT+6*, FORMAT+15*, DEVICE+1~, DEVICE+2*, DEVICE+28*, DEVICE+30
RTCN EN+3~
SEPLINE EN+3~, PRINT+1~, PRINT+4*
SR EN+3~
SRDT EN+3~
SSN EN+3~, COMP+51~, COMP+52*, COMP+53*, COMP+54, COMP+55
TRANDATA EN+3~, PRINT+1~, PRINT+17*, RPTLN+21, RPTLN+24, RPTLNDIV+18, RPTLNDIV+20, RPTLNDIV+21
TT RPTLN+1~, RPTLN+21*, RPTLN+22, RPTLNDIV+1~, RPTLNDIV+18*, RPTLNDIV+19
U FLAGGED+9, DEBBILL+7, DIVSEL+5, DIVSEL+13, COMP+5, COMP+20, COMP+21, COMP+24, COMP+41, COMP+45
COMP+55, COMP+62, COMP+63, COMP+64, COMP+65, COMP+66, COMP+67, COMP+68, COMP+69, COMP+70
COMP+74, RPTLN+10, RPTLN+11, RPTLN+12, RPTLN+14, RPTLN+16, RPTLN+18, RPTLN+19, RPTLN+20, RPTLN+21
RPTLN+24, RPTLNDIV+10, RPTLNDIV+11, RPTLNDIV+12, RPTLNDIV+13, RPTLNDIV+14, RPTLNDIV+15, RPTLNDIV+16, RPTLNDIV+17, RPTLNDIV+18
RPTLNDIV+20, RPTLNDIV+21
USER EN+3~, COMP+1~, COMP+21*, COMP+74
X STOP+4~, FLAGGED+6~, DEBBILL+4~, DIVSEL+1~, DEBTFR+1~, DEBTTO+1~, DATES+5~, FORMAT+5~, DEVICE+1~, PRINT+1~
XDATE EN+3~
Y STOP+4~, STOP+12*, STOP+13, FLAGGED+6~, FLAGGED+18, FLAGGED+19, DEBBILL+4~, DEBBILL+13, DEBBILL+14, DIVSEL+1~
DIVSEL+10, DIVSEL+11, DIVSEL+13, DEBTFR+1~, DEBTFR+10, DEBTFR+11, DEBTTO+1~, DBT1+8, DBT1+9, DATES+5~
DATES+16, DATES+17, DATES+25, DATES+26, DATES+34, DATES+35, FORMAT+5~, FORMAT+16, DEVICE+1~, PRINT+1~
Y(0 DIVSEL+13
ZTDESC DEVICE+1~, DEVICE+15*, DEVICE+27
>> ZTQUEUED COMPILE+3, COMPILE+8, PX+1
>> ZTREQ COMPILE+8*
ZTRTN DEVICE+1~, DEVICE+14*, DEVICE+27
ZTSAVE DEVICE+1~, DEVICE+27
ZTSAVE("DEBRANGE" DEVICE+25*
ZTSAVE("DLEVEL" DEVICE+26*
ZTSAVE("RCTC(" DEVICE+16*
ZTSAVE("RCTCDATE" DEVICE+22*
ZTSAVE("RCTCDATE(" DEVICE+23*
ZTSAVE("RCTCDB" DEVICE+17*
ZTSAVE("RCTCDEBT1" DEVICE+20*
ZTSAVE("RCTCDEBT2" DEVICE+21*
ZTSAVE("RCTCDIV" DEVICE+18*
ZTSAVE("RCTCEXCEL" DEVICE+24*
ZTSAVE("RCTCFLG" DEVICE+19*
ZTSK DEVICE+1~, DEVICE+29
>> ZTSTOP PRINT+7
>> ZZRET DATES+16*
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