RCDPRPLM ; WISC/RFJ-receipt profile List Manager main routine ;31 Oct 2018 09:14:14
Source file <RCDPRPLM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RECTPROF | ;EP from RECEIPT^RCDPLPL1
; Entry point called by link payment to prevent NEWing fast exit var RCDPFXIT |
|
| INIT | ;EP from ListMan template RCDP RECEIPT PROFILE MENU
; EP from CUSTOMIZ^RCDPRPL2 ; Initialization for list manager ; Input: RCRECTDA - IEN for the selected receipt (#344) |
|
| SET(STRING,LINE,COLBEG,COLEND,FIELD,ON,OFF) | ; Sets a line into the body
; of the ListMan template ; Input: ; STRING - Label for the data being set ; LINE - line # being built ; COLBEG - Beginning column for the text ; COLEND - Ending column for the text ; FIELD - Field # for value being set, optional ; NOTE: if FIELD is .17 trace # is retrieved from EFT record ; ON, OFF - for text characteristics ; RCDPDATA - array for receipt being processed ; RCTRDA - IEN in TRANSACTION sub-file (#344.01) |
|
| TRCNUM(ARBPIEN) | ; returns trace #, ARBPIEN is IEN in file #344 - PRCA*4.5*332
|
|
| DIQ344(DA,DR) | ; Retrieves data for fields in file #344
; Input: DA - IEN of the receipt to retrieve data from (#344) ; DR - List of fields to retrieve data for ; Output: RCDPDATA - Array of retrieved data |
|
| DIQ34401(DA,SUBDA) | ; Retrieves data for fields in the transaction subfile (#344.01)
; of the receipt file (#344) ; Input: DA - IEN of the receipt to retrieve data from (#344) ; SUBDA - IEN of the sub-file record (#344.01) ; Output: RCDPDATA - Array of retrieved data |
|
| HDR | ;EP from ListMan Template RCDP RECEIPT PROFILE
; Header code for list manager display |
|
| EXIT | ;EP from ListMan Template RCDP RECEIPT PROFILE
; Exit option/clean up |
|
| SP() |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | Classic Fileman Calls |
| ^RCY(344.31 - [#344.31] | GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
