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
Print Page as PDF
Routine: IBCEFG

Package: Integrated Billing

Routine: IBCEFG


Information

IBCEFG ;ALB/TMP - OUTPUT FORMATTER EXTRACT ;17-JAN-96

Source Information

Source file <IBCEFG.m>

Entry Points

Name Comments DBIA/ICR reference
EXTRACT(IBXFORM,IBXIEN,IBXREC,IBXPARM,IBXPOSTWA) ; Extract entry into global by rec #/pg/ln/col; WCJ;IB718v22
; IBXFORM (required) Form id pointer to file #353
; IBXIEN (required) entry # in form's base file to output
; IBXREC (optional) record # in extract file - if not defined - 1 used
; IBXPARM (optional) array used to pass in specific search variables
; that can be used to customize the determination
; of the form field definition to use for each
; form field to be extracted
; IBXPARM(1) should contain a code to identify the
; type of form being processed (see $$ELE^IBCEFG0 function)
; IBXPOSTWA (optional) = 1 if the post processing of workarounds should be executed ; WCJ;IB718v22
; Returns total # of bytes of data extracted if extract successful
; or 0 if extract not successful
EXTQ ;
DATA(IBXPG,IBXLN,IBXCOL,IBXIEN,IBXFORM,IBXDA,IBXPARM,IBXERR) ; Extract/Format Data Element
FORMAT(DATA,IBXLEN,IBXPAD,IBX0,MULTI) ; Adjust length on data for field def,add prompt
; DATA = the data to be output
; IBXLEN = the max length of the data
; IBXPAD = code for pad character
; IBX0 = the 0-node of the entry in file 364.7 being formatted
; MULTI = (optional)
; 0 or null if a single occurrence of the data
; > 0 if multiple ocurrences of the data being processed (group data)
;
SETGBL(IBXPG,IBXLN,IBXCOL,VAL,IBXSIZE) ; Sets the output global
SETEDIT(IBFORM,IBX0) ;
NULLCHEK ; Checks for no output if null, deletes variable if appropriate
; Check for no output if transmit and null
Info |  Source |  Entry Points