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

Package: Accounts Receivable

Routine: RCTCSP4E


Information

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

Source Information

Source file <RCTCSP4E.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ; report header
HDRX ;
EXCELHD ; print an Excel header record (only 1 Excel header should print for the whole report)
EXCELN ; write a line of Excel data
CSV(STRING,DATA) ; build the Excel data string format
DIVHDR ;
DLEVEL ; stop/reactivate report at 340 debtor level
QENT ;queue ENTRY
DSR ;
PRINT ;print for debtor level
DLHDR ;Debtor Level Header
DEVICE() ; Device Selection
DLXHD ; print an Excel header record DEBTOR level
DEXLN ; write a line of Excel data for debtor

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?47,"Cross-Servicing Stop Reactivate Report by ",$S(RCTCDIV="D":"Division",1:"Debtor"),?122,"Page: ",PAGE
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: !,"Date Range: "
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - "
  • Line Location: HDR+27
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($G(RCTCDATE("END")),"2Z")
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: " Currently Flagged, Reactivated, or Both: "
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both")
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: " "_DIV1
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: " Division: All"
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: ?111,$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !,"Debtors: "
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: RTCN_" "
  • Line Location: HDR+38
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: HDR+41
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: HDR+43
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HDR+48
Function Call: WRITE
  • Prompt: RCH
  • Line Location: EXCELHD+26
Function Call: WRITE
  • Prompt: !,RCZ
  • Line Location: EXCELN+20
Function Call: WRITE
  • Prompt: !,"Date Range: "
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: "All"
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - ",$$FMTE^XLFDT($G(RCTCDATE("END")),"2Z")
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: ?47,"Cross-Servicing Stop Reactivate Report by Bill",?122,"Page: ",PAGE
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVHDR+6
Function Call: WRITE
  • Prompt: "Division(s): All"
  • Line Location: DIVHDR+6
Function Call: WRITE
  • Prompt: ?45," Currently Flagged, Reactivated, or Both: "
  • Line Location: DIVHDR+7
Function Call: WRITE
  • Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both")
  • Line Location: DIVHDR+8
Function Call: WRITE
  • Prompt: ?111,$P($$FMTE^XLFDT($$NOW^XLFDT),":",1,2)
  • Line Location: DIVHDR+9
Function Call: WRITE
  • Prompt: !,"Division(s): "
  • Line Location: DIVHDR+11
Function Call: WRITE
  • Prompt: $E(DV1,1,$L(DV1)-2)
  • Line Location: DIVHDR+12
Function Call: WRITE
  • Prompt: !,"Debtor Range: "
  • Line Location: DIVHDR+13
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: DIVHDR+14
Function Call: WRITE
  • Prompt: RCTCDEBT1,":",RCTCDEBT2
  • Line Location: DIVHDR+15
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: DIVHDR+16
Function Call: WRITE
  • Prompt: !,"Debtor Name",?24,"Division",?34,"Pt ID",?44,"Bill#",?55,"AR CAT",?66,"Status",?78,"Letter1",?88,"StopDate",?100,"Reason",?110,"CS STOP",?120,"User"
  • Line Location: DIVHDR+17
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: DIVHDR+19
Function Call: WRITE
  • Prompt: !,NN
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?35,PTID
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?42,SSN
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?54,SR
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?57,XDATE
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?75,REASON
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?107,USER
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !!,?20,"*** ",$S($G(RCTCSTOP):"Report Ended",1:"End of Report")," ***"
  • Line Location: PRINT+21
Function Call: READ
  • Prompt: !!
  • Variable: "Type <Enter> to continue or '^' to exit
  • Timeout: ",X:DTIME
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"Date Range: "
  • Line Location: DLHDR+2
Function Call: WRITE
  • Prompt: "All"
  • Line Location: DLHDR+3
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - ",$$FMTE^XLFDT($G(RCTCDATE("END")),"2Z")
  • Line Location: DLHDR+4
Function Call: WRITE
  • Prompt: ?35,"Cross-Servicing Stop Reactivate Report at Debtor Level",?122,"Page: ",PAGE
  • Line Location: DLHDR+5
Function Call: WRITE
  • Prompt: !?33," Currently Flagged, Reactivated, or Both: "
  • Line Location: DLHDR+6
Function Call: WRITE
  • Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both")
  • Line Location: DLHDR+7
Function Call: WRITE
  • Prompt: !,"Debtor Range: ",DEBRANGE
  • Line Location: DLHDR+8
Function Call: WRITE
  • Prompt: ?111,$P($$FMTE^XLFDT($$NOW^XLFDT),":",1,2)
  • Line Location: DLHDR+9
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: DLHDR+10
Function Call: WRITE
  • Prompt: !,"Debtor Name",?35,"Pt ID",?42,"SSN",?53,"S/R",?57,"Date",?75,"Reason",?107,"User"
  • Line Location: DLHDR+11
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: DLHDR+12
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: RCH
  • Line Location: DLXHD+9
Function Call: WRITE
  • Prompt: !,RCZ
  • Line Location: DEXLN+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RCD(340 - [#340] GET1^DIQ
340.08 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call