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

Package: Accounts Receivable

Routine: RCDPRLIS


Information

RCDPRLIS ;WISC/RFJ - list of receipts report ;1 Jun 99

Source Information

Source file <RCDPRLIS.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Accounts Receivable 6 $$ASKLM^RCDPEARL  EN^RCDPRL  DIQ344^RCDPRPLM  $$FMSSTAT^RCDPUREC  PAUSE^RCRJRTR1  DATESEL^RCRJRTRA  
VA FileMan 5 DD^%DT  NOW^%DTC  FIELD^DID  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
DQ ; queued report starts here
; PRCA*4.5*321 Extensive changes to this subroutine for filter/sort/ListMan
TYPE(AREVENT) ; Returns an abbreviated type of the AR EVENT - PRCA*4.5*332 Subroutine added
; Input: AREVENT - External AR Event Type (file 344, field .04)
; Returns: 6 character (max) event type abbreviation
STATUS(STATUS) ; Returns an abbreviated status of the FMS Doc Status - PRCA*4.5*332 Subroutine added
; Input: STATUS - 2nd word of the FMS Doc Status
; Returns: 9 character (max) status
CLEAN ; Clean up ^TMP arrays
SORTSEL() ; Select sort order for report, by Date Opened, FMS Status or Payment Type
; Input: None
; Return: Sort Type D - Date, F - FMS Status, T - Payment Type
SELFILTF(RETURN) ; Ask if user want to filter by FMS status. If yes get list of status.
; Input: None
; Output: RETURN, passed by reference
; RETURN - 1=Filter by FMS Status, 0=Don't
; RETURN(STATUS) - array of FMS Status to include in the report
;
SELFILTT(RETURN) ; Ask if user want to filter by Payment Type. If yes get list of types.
; Input: None
; Output: RETURN, passed by reference
; RETURN - 1=Filter by FMS Status, 0=Don't
; RETURN(STATUS) - array of FMS Status to include in the report
;
BLDS(CODES,PICKED) ; Build DIR(0) string taking into account codes already picked.
; Input: CODES - Set of codes string in fileman format e.g. A:Apple;B:Ball;
; PICKED - Array of values already picked, subscripted by external value e.g. PICKED("Apple")=""
; Return: RETURN in DIR(0) format. Set of codes that only includes ones not picked.
; e.g "SAO^B:Ball"
;
HDR ; Compile header into ^TMP for use in ListMan or report
; Input: None
; Output: Header information in ^TMP($J,"RCDPRLIS","HDR",n) for us in report or ListMan formats
H ; header

External References

Name Field # of Occurrence
DD^%DT DQ+59
NOW^%DTC DQ+59
^%ZIS RCDPRLIS+32
^%ZISC CLEAN+1
^%ZTLOAD RCDPRLIS+33
FIELD^DID SELFILTF+24
$$GET1^DIQ SELFILTT+29, SELFILTT+30
^DIR SORTSEL+13, SELFILTF+17, SELFILTF+39, SELFILTT+17, SELFILTT+40
$$ASKLM^RCDPEARL RCDPRLIS+24
EN^RCDPRL RCDPRLIS+29
DIQ344^RCDPRPLM DQ+11
$$FMSSTAT^RCDPUREC DQ+13
PAUSE^RCRJRTR1 DQ+92, DQ+106
DATESEL^RCRJRTRA RCDPRLIS+7
$$FMADD^XLFDT DQ+6
$$FMTE^XLFDT DQ+57, DQ+58, DQ+72

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+23
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+32
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: RCDPRLIS+36
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: DQ+84
Function Call: WRITE
  • Prompt: !?54,"*CR tied to deposit"
  • Line Location: DQ+97
Function Call: WRITE
  • Prompt: !?33,"------ -----------"
  • Line Location: DQ+98
Function Call: WRITE
  • Prompt: !?33,$J($P($G(TOTALS),"^"),6),$J($P($G(TOTALS),"^",2),13,2)
  • Line Location: DQ+99
Function Call: WRITE
  • Prompt: !!,"TOTALS BY TYPE OF PAYMENT"
  • Line Location: DQ+102
Function Call: WRITE
  • Prompt: !,"-------------------------"
  • Line Location: DQ+103
Function Call: WRITE
  • Prompt: !,TYPE,?33,$J($P(TOTALS(TYPE),"^"),6),$J($P(TOTALS(TYPE),"^",2),13,2)
  • Line Location: DQ+105
Function Call: WRITE
  • Prompt: !!,"*** END OF REPORT ***",!
  • Line Location: DQ+108
Function Call: WRITE
  • Prompt: !
  • Line Location: SORTSEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+38
Function Call: WRITE
  • Prompt: !!,"No FMS Status' were selected. All FMS Status' will be shown",!
  • Line Location: SELFILTF+50
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+39
Function Call: WRITE
  • Prompt: !!,"No Payment Types were selected. Filter will not be used",!
  • Line Location: SELFILTT+52
Function Call: WRITE
  • Prompt: !,RCRJLINE
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $C(13),^TMP($J,"RCDPRLIS","HDR",1),?(80-$L(%)),%
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",2)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",3)
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",4)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",5)
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,RCRJLINE
  • Line Location: H+8
Routine Call
  • DIR
  • Line Location:
    • SORTSEL+13
    • SELFILTF+17
    • SELFILTF+39
    • SELFILTT+17
    • SELFILTT+40
Routine Call
  • %ZIS
  • Line Location:
    • RCDPRLIS+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100.1 - [#2100.1] FIELD^DID
^RC(341.1 - [#341.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RC(341.1 - [#341.1] SELFILTT+27, SELFILTT+28
^RCY(344 - [#344] DQ+8, DQ+9
^TMP($J DQ+4!, DQ+55*, DQ+65, DQ+66, DQ+67, DQ+86*, DQ+87*, CLEAN+2!, HDR+4*, HDR+7*
HDR+14*, HDR+21*, HDR+23*, H+3, H+4, H+5, H+6, H+7

Label References

Name Line Occurrences
$$BLDS SELFILTF+44, SELFILTT+45
$$SORTSEL RCDPRLIS+11
$$STATUS DQ+46
$$TYPE DQ+39
CLEAN RCDPRLIS+27, DQ+96, DQ+110, DQ+113
DQ RCDPRLIS+28, RCDPRLIS+37
H DQ+63, DQ+92, DQ+106
HDR DQ+62
SELFILTF RCDPRLIS+15
SELFILTT RCDPRLIS+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+2~, DQ+59, DQ+111*, H+1~, H+2*, H+3
%I DQ+2~
%ZIS RCDPRLIS+4~, RCDPRLIS+32*
AREVENT TYPE~, TYPE+3, TYPE+4, TYPE+5, TYPE+6, TYPE+7
CNT DQ+2~, DQ+64*, DQ+69*, DQ+71, DQ+86, DQ+87
CODES BLDS~, BLDS+8, BLDS+9, BLDS+10
DATA DQ+2~, DQ+37*, DQ+38*, DQ+40*, DQ+41*, DQ+42*, DQ+43*, DQ+44*, DQ+45*, DQ+48*
DQ+49*, DQ+55, DQ+67*, DQ+68, DQ+73, DQ+74, DQ+75, DQ+76, DQ+77, DQ+78
DQ+79, DQ+80, DQ+87, DQ+90
DATE DQ+2~, DQ+68*, DQ+72
DATEDIS1 DQ+2~, DQ+57*, HDR+5
DATEDIS2 DQ+2~, DQ+58*, HDR+5
DATEEND RCDPRLIS+4~, RCDPRLIS+8, DQ+7*, DQ+8, DQ+58
DATESTRT RCDPRLIS+4~, RCDPRLIS+8, DQ+6, DQ+57
DIR SORTSEL+3~, SELFILTF+6~, SELFILTF+29!, SELFILTT+6~, SELFILTT+24!
DIR("?" SORTSEL+8*, SORTSEL+9*, SORTSEL+10*, SORTSEL+11*, SORTSEL+12*, SELFILTF+14*, SELFILTF+15*, SELFILTF+16*, SELFILTF+32!, SELFILTF+33*
, SELFILTF+34*, SELFILTF+35*, SELFILTT+14*, SELFILTT+15*, SELFILTT+16*, SELFILTT+33!, SELFILTT+34*, SELFILTT+35*, SELFILTT+36*
DIR("A" SORTSEL+6*, SELFILTF+12*, SELFILTF+31*, SELFILTT+12*, SELFILTT+32*
DIR("B" SORTSEL+7*, SELFILTF+13*, SELFILTT+13*
DIR(0 SORTSEL+5*, SELFILTF+11*, SELFILTF+30*, SELFILTF+44*, SELFILTF+45, SELFILTT+11*, SELFILTT+31*, SELFILTT+45*, SELFILTT+46
DIROUT SORTSEL+3~, SELFILTF+6~, SELFILTT+6~
DIRUT SORTSEL+3~, SELFILTF+6~, SELFILTF+18, SELFILTT+6~, SELFILTT+18
DTIME DQ+111
DTOUT SORTSEL+3~, SORTSEL+14, SELFILTF+6~, SELFILTF+40, SELFILTT+6~, SELFILTT+41
DUOUT SORTSEL+3~, SORTSEL+14, SELFILTF+6~, SELFILTF+40, SELFILTT+6~, SELFILTT+41
FMSDOCNO DQ+2~, DQ+13*, DQ+15, DQ+44, DQ+45, DQ+46
FMSTATUS DQ+2~, DQ+15*, DQ+16, DQ+53
IO DQ+61, DQ+63
IO("Q" RCDPRLIS+33!
>> IO(0 DQ+61, DQ+111
IOF H+2
IOSL DQ+92, DQ+106
IOST DQ+61
J SELFILTF+6~, BLDS+8*, BLDS+9, BLDS+10
K HDR+3~, HDR+13*, HDR+20*
NOW DQ+2~, DQ+59*, H+2
PAGE DQ+2~, DQ+60*, H+2*
PICKED BLDS~
PICKED( BLDS+10
POP RCDPRLIS+4~, RCDPRLIS+32
PTYPE DQ+2~, DQ+18*, DQ+19, DQ+23, DQ+24, DQ+54
QUIT SELFILTF+6~, SELFILTF+36*, SELFILTF+37, SELFILTF+40*, SELFILTF+41*, SELFILTF+45*, SELFILTT+6~, SELFILTT+37*, SELFILTT+38, SELFILTT+41*
, SELFILTT+42*, SELFILTT+46*
RCDK DQ+2~, DQ+6*, DQ+8*, DQ+9
RCDPDATA DQ+2~, DQ+10!
RCDPDATA(344 DQ+18, DQ+22*, DQ+23, DQ+24, DQ+25, DQ+26, DQ+29, DQ+33, DQ+37, DQ+38
DQ+39, DQ+42, DQ+43, DQ+52
RCDPFPRE DQ+3~, DQ+90*, DQ+97
RCFILTF RCDPRLIS+4~, RCDPRLIS+15, RCDPRLIS+16, DQ+16, HDR+9
RCFILTF( DQ+16, HDR+13
RCFILTT RCDPRLIS+4~, RCDPRLIS+19, RCDPRLIS+20, DQ+19, HDR+16
RCFILTT( DQ+19, HDR+20
RCIEN SELFILTT+6~, SELFILTT+28*, SELFILTT+29, SELFILTT+30
RCIX DQ+3~, DQ+52*, DQ+53*, DQ+54*, DQ+55, DQ+65*, DQ+66, DQ+67
RCLSTMGR RCDPRLIS+4~, RCDPRLIS+24*, RCDPRLIS+27, DQ+61, DQ+63, DQ+71, DQ+74, DQ+77, DQ+83, DQ+92
DQ+94, DQ+113
RCNAME SELFILTT+6~, SELFILTT+26*, SELFILTT+27*, SELFILTT+28
RCODES SELFILTF+6~, SELFILTF+25*, SELFILTF+27*, SELFILTF+28*, SELFILTF+30, SELFILTF+44, SELFILTT+6~, SELFILTT+26*, SELFILTT+30*, SELFILTT+31
, SELFILTT+45
RCOUT SELFILTF+6~
RCOUT("POINTER" SELFILTF+25
RCRECTDA DQ+3~, DQ+9*, DQ+11, DQ+13, DQ+18, DQ+22, DQ+23, DQ+24, DQ+25, DQ+26
DQ+29, DQ+33, DQ+37, DQ+38, DQ+39, DQ+42, DQ+43, DQ+49, DQ+52, DQ+55
DQ+66*, DQ+67
RCREP SORTSEL+3~
RCRJFLAG DQ+3~, DQ+65, DQ+66, DQ+92, DQ+96, DQ+104, DQ+106, DQ+110
RCRJLINE DQ+3~, DQ+60*, HDR+24, H+8
RCSORT RCDPRLIS+4~, RCDPRLIS+11*, RCDPRLIS+12, DQ+52, DQ+53, DQ+54, HDR+6
RCUSER DQ+3~, DQ+30*, DQ+33*, DQ+34, DQ+35*, DQ+41
RETURN SORTSEL+14*, SORTSEL+15*, SORTSEL+16, SELFILTF~, SELFILTF+7!, SELFILTF+8*, SELFILTF+18*, SELFILTF+20*, SELFILTF+40!*, SELFILTF+44
, SELFILTF+46, SELFILTF+49*, SELFILTT~, SELFILTT+7!, SELFILTT+8*, SELFILTT+18*, SELFILTT+20*, SELFILTT+41!*, SELFILTT+45, SELFILTT+48
, SELFILTT+51*, BLDS+6~, BLDS+7*, BLDS+10*, BLDS+11
RETURN( SELFILTF+42*, SELFILTT+43*
RETURN("" SELFILTF+48, SELFILTT+50
SCREEN DQ+3~, DQ+61*, DQ+92, DQ+106, DQ+111, H+2
SPACE DQ+3~, DQ+5*, DQ+71, DQ+73, DQ+74, DQ+75, DQ+78, DQ+79
STATUS STATUS~, STATUS+3*, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+8, STATUS+9
TOTALS DQ+3~, DQ+25*, DQ+26*, DQ+99
TOTALS( DQ+23*, DQ+24*, DQ+104, DQ+105
TYPE DQ+3~, DQ+104*, DQ+105
X DQ+3~, SORTSEL+3~, SELFILTF+6~, SELFILTT+6~, BLDS+9*, BLDS+10
XX DQ+3~, DQ+70*, DQ+71*, DQ+72*, DQ+73*, DQ+74*, DQ+75*, DQ+76*, DQ+77*, DQ+78*
DQ+79*, DQ+80*, DQ+84, DQ+86, HDR+3~, HDR+5*, HDR+6*, HDR+7, HDR+10*, HDR+12*
HDR+13*, HDR+14, HDR+17*, HDR+19*, HDR+20*, HDR+21
Y DQ+3~, DQ+57*, DQ+58*, DQ+59*, SORTSEL+3~, SORTSEL+14, SORTSEL+15, SELFILTF+6~, SELFILTF+19, SELFILTF+41
, SELFILTT+6~, SELFILTT+19
Y(0 SELFILTF+42, SELFILTT+42, SELFILTT+43
ZTDESC RCDPRLIS+5~, RCDPRLIS+34*
ZTQUEUED RCDPRLIS+5~, DQ+61
ZTRTN RCDPRLIS+5~, RCDPRLIS+34*
ZTSAVE RCDPRLIS+5~
ZTSAVE("DATE*" RCDPRLIS+35*
ZTSAVE("RC*" RCDPRLIS+35*
ZTSAVE("ZTREQ" RCDPRLIS+35*
ZTSK RCDPRLIS+5~, RCDPRLIS+33!
ZZ DQ+3~, DQ+39*, DQ+40, DQ+46*, DQ+48
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All