IBCEF73 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am
Source file <IBCEF73.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHCKSEC(IBFRM,IBPROV,IBTYPE,IBVAL) | ;
|
|
| CHSEC(IBFRM,IBPROV,IBTYPE,IBVAL) | ;
|
|
| CHCKSUB(IBFRM,IBREC,IBFAC,IBTYPE,IBXSAVE) | ;
|
|
| CHSUB(IBFRM,IBREC,IBVAL) | ;
|
|
| OPR2(IBFRM) | ;
|
|
| OP1(IBFRM) | ;
|
|
| OPR3(IBFRM) | ;
|
|
| OP2(IBFRM) | ;
|
|
| SUB1(IBFRM) | ;
|
|
| OPR4(IBFRM) | ;
|
|
| OP9(IBFRM) | ;
|
|
| SUB2(IBFRM) | ;
|
|
| OP3(IBFRM) | ;
|
|
| OPR5(IBFRM) | ;
|
|
| OPR8(IBFRM) | ;
|
|
| OP4(IBFRM) | ;
|
|
| OP8(IBFRM) | ;
|
|
| OP6(IBFRM) | ;
|
|
| OP7(IBFRM) | ;
|
|
| OPRB(IBFRM) | ;
|
|
| CHCKPRV1(IBFRM,IBVAL) | ;
|
|
| CHPRV1(IBFRM,IBVAL) | ;
|
|
| PRV1(IBFRM) | ;
|
|
| PTSELF | ;This tag is for the CI2 segment. If the IBXSAVE("IADR") is empty
|
|
| NOPUNCT(X,SPACE,EXC) | ; Strip punctuation from data in X
; SPACE = flag if 1 strip SPACES ; EXC = list of punct not to strip |
|
| PROVID(IBXIEN) | ;This modified version of prov id call is to acquire the SSN
|
|
| TAX3559(IBPROV) | ;
|
|
| SSN200(IBPTR) | ||
| SSN3559(IBPROV) | ;
|
|
| PRV1FMT(P) | ;FORMAT CODE FOR PRV1 SEGMENT THAT WON'T FIT ON LINE
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
