RCDPRLIS ;WISC/RFJ - list of receipts report ;1 Jun 99
Source file <RCDPRLIS.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 1 | RCDP LIST OF RECEIPTS REPORT |
Name | Comments | DBIA/ICR reference |
---|---|---|
DQ | ; queued report starts here
; PRCA*4.5*321 Extensive changes to this subroutine for filter/sort/ListMan |
|
RCPTTL(RCRECTDA) | ; Returns the Total Amount of all of the Receipt Transactions
; PRCA*4.5*349 - Added Method ; Input: RCRECTDA - IEN of the Receipt (#344) ; Returns: Total Amount of all of the Receipt Transactions |
|
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
|
Name | Field # of Occurrence |
---|---|
DD^%DT | DQ+64 |
NOW^%DTC | DQ+64 |
^%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+13 |
$$FMSSTAT^RCDPUREC | DQ+14 |
PAUSE^RCRJRTR1 | DQ+97, DQ+111 |
DATESEL^RCRJRTRA | RCDPRLIS+7 |
$$FMADD^XLFDT | DQ+8 |
$$FMTE^XLFDT | DQ+62, DQ+63, DQ+77 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^GECS(2100.1 - [#2100.1] | FIELD^DID |
^RC(341.1 - [#341.1] | GET1^DIQ |
Name | Field # of Occurrence |
---|---|
^( | RCPTTL+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DQ+2~, DQ+64, DQ+116*, 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+69*, DQ+74*, DQ+76, DQ+91, DQ+92 |
CODES | BLDS~, BLDS+8, BLDS+9, BLDS+10 |
DATA | DQ+2~, DQ+40*, DQ+41*, DQ+43*, DQ+44*, DQ+45*, DQ+48*, DQ+49*, DQ+50*, DQ+53* , DQ+54*, DQ+60, DQ+72*, DQ+73, DQ+78, DQ+79, DQ+80, DQ+81, DQ+82, DQ+83 , DQ+84, DQ+85, DQ+92, DQ+95 |
DATE | DQ+2~, DQ+73*, DQ+77 |
DATEDIS1 | DQ+2~, DQ+62*, HDR+5 |
DATEDIS2 | DQ+2~, DQ+63*, HDR+5 |
DATEEND | RCDPRLIS+4~, RCDPRLIS+8, DQ+9*, DQ+10, DQ+63 |
DATESTRT | RCDPRLIS+4~, RCDPRLIS+8, DQ+8, DQ+62 |
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+116 |
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+14*, DQ+15, DQ+49, DQ+50, DQ+51 |
FMSTATUS | DQ+2~, DQ+15*, DQ+16, DQ+58 |
IO | DQ+66, DQ+68 |
IO("Q" | RCDPRLIS+33! |
IO(0 | DQ+66, DQ+116 |
IOF | H+2 |
IOSL | DQ+97, DQ+111 |
IOST | DQ+66 |
J | SELFILTF+6~, BLDS+8*, BLDS+9, BLDS+10 |
K | HDR+3~, HDR+13*, HDR+20* |
NOW | DQ+2~, DQ+64*, H+2 |
PAGE | DQ+2~, DQ+65*, H+2* |
PICKED | BLDS~ |
PICKED( | BLDS+10 |
POP | RCDPRLIS+4~, RCDPRLIS+32 |
PTYPE | DQ+2~, DQ+17*, DQ+18, DQ+23, DQ+26, DQ+59 |
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+8*, DQ+10*, DQ+11 |
RCDPDATA | DQ+2~, DQ+12! |
RCDPDATA(344 | DQ+17, DQ+22*, DQ+23, DQ+27, DQ+32, DQ+36, DQ+40, DQ+41, DQ+42, DQ+45 , DQ+57 |
RCDPFPRE | DQ+5~, DQ+95*, DQ+102 |
RCFILTF | RCDPRLIS+4~, RCDPRLIS+15, RCDPRLIS+16, DQ+16, HDR+9 |
RCFILTF( | DQ+16, HDR+13 |
RCFILTT | RCDPRLIS+4~, RCDPRLIS+19, RCDPRLIS+20, DQ+18, HDR+16 |
RCFILTT( | DQ+18, HDR+20 |
RCIEN | SELFILTT+6~, SELFILTT+28*, SELFILTT+29, SELFILTT+30 |
RCIX | DQ+5~, DQ+57*, DQ+58*, DQ+59*, DQ+60, DQ+70*, DQ+71, DQ+72 |
RCLSTMGR | RCDPRLIS+4~, RCDPRLIS+24*, RCDPRLIS+27, DQ+66, DQ+68, DQ+76, DQ+79, DQ+82, DQ+88, DQ+97 , DQ+99, DQ+118 |
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+5~, DQ+11*, DQ+13, DQ+14, DQ+17, DQ+19, DQ+22, DQ+23, DQ+27, DQ+32 , DQ+36, DQ+40, DQ+41, DQ+42, DQ+45, DQ+54, DQ+57, DQ+60, DQ+71*, DQ+72 , RCPTTL~, RCPTTL+7 |
RCREP | SORTSEL+3~ |
RCRJFLAG | DQ+5~, DQ+70, DQ+71, DQ+97, DQ+101, DQ+109, DQ+111, DQ+115 |
RCRJLINE | DQ+5~, DQ+65*, HDR+24, H+8 |
RCSORT | RCDPRLIS+4~, RCDPRLIS+11*, RCDPRLIS+12, DQ+57, DQ+58, DQ+59, HDR+6 |
RCTTL | DQ+5~, DQ+19*, DQ+26, DQ+30, DQ+48 |
RCUSER | DQ+5~, DQ+33*, DQ+36*, DQ+37, DQ+38*, DQ+44 |
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+5~, DQ+66*, DQ+97, DQ+111, DQ+116, H+2 |
SPACE | DQ+5~, DQ+7*, DQ+76, DQ+78, DQ+79, DQ+80, DQ+83, DQ+84 |
STATUS | STATUS~, STATUS+3*, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+8, STATUS+9 |
TOTAL | RCPTTL+4~, RCPTTL+5*, RCPTTL+8*, RCPTTL+9 |
TOTALS | DQ+5~, DQ+27*, DQ+30*, DQ+104 |
TOTALS( | DQ+23*, DQ+26*, DQ+109, DQ+110 |
TYPE | DQ+5~, DQ+109*, DQ+110 |
X | DQ+5~, RCPTTL+4~, RCPTTL+5*, RCPTTL+6, RCPTTL+7*, RCPTTL+8, SORTSEL+3~, SELFILTF+6~, SELFILTT+6~, BLDS+9* , BLDS+10 |
XX | DQ+5~, DQ+75*, DQ+76*, DQ+77*, DQ+78*, DQ+79*, DQ+80*, DQ+81*, DQ+82*, DQ+83* , DQ+84*, DQ+85*, DQ+89, DQ+91, 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+5~, DQ+62*, DQ+63*, DQ+64*, 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+66 |
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+5~, DQ+42*, DQ+43, DQ+51*, DQ+53 |