FBUCUTL ;ALBISC/TET - UNAUTHORIZED CLAIMS UTILITY ;12/7/2001
Source file <FBUCUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CDTC(X1,X2) | ;date comparison
|
|
| DTC(X1,X2) | ;days between two days
|
|
| VET(X) | ;veteran name
|
|
| VEN(X) | ;vendor name
|
|
| PROG(X) | ;fee program name
|
|
| PTR(FBGL,FBIEN) | ;get .01 value of pointer
|
|
| LOCK(FBGL,FBDA,GO) | ;lock entry before editing
|
|
| L | ||
| DAYS(X,FB1725) | ;number of days associated with a status
|
|
| DISAP(DA1,X) | ;disapproval reason for disapproved dispositions
|
|
| STATUS(X) | ;get status internal entry number
|
|
| ORDER(X) | ;get order number of status
|
|
| PAY(X,FBGL) | ;determine if any payments have been made
|
|
| OVER(KEY) | ;determine if ability to override
|
|
| UPOK(X) | ;ok to update
|
|
| TIME(ED) | ;determine if expiration date passed
|
|
| UNTIME(FBX) | ;write untimely message - called from input templates
|
|
| FBZ(X) | ;get zero node on 162.7
|
|
| FILE(FBGL,X,FBDI,FBDA1) | ;add entry to file or subfile
|
|
| ADD | ||
| PEND(FBDA) | ;check if any info pending for claim
|
|
| PAYST(FBDA,FBUCP) | ; unauthorized claim payment status (released+)
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | VET+3 |
| ^FB(162.92 - [#162.92] | DAYS+5, STATUS+3, ORDER+3 |
| ^FB(162.94 - [#162.94] | DISAP+6 |
| ^FB583 - [#162.7] | DISAP+6*, FBZ+4 |
| ^FBAA(161.8 - [#161.8] | PROG+3 |
| ^FBAA(162.1 - [#162.1] | PAY+5, PAYST+16, PAYST+18 |
| ^FBAA(162.8 - [#162.8] | PEND+3 |
| ^FBAAC("AM" | PAY+5, PAYST+26, PAYST+28, PAYST+30, PAYST+32 |
| ^FBAAI("E" | PAY+5, PAYST+40 |
| ^FBAAV - [#161.2] | VEN+3 |
| ^XUSEC( | OVER+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %H | CDTC+4! |
| %Y | DTC+4~! |
| DA | DISAP+4~, FILE+7~ |
| DA(1 | DISAP+6*, FILE+8* |
| DA1 | DISAP~, DISAP+5, DISAP+6 |
| DD | DISAP+6!, ADD! |
| DIC | DISAP+4~, DISAP+5*, FILE+7~, ADD*! |
| DIC(0 | DISAP+5*, ADD* |
| DINUM | FILE+7~, ADD*! |
| DO | DISAP+6!, ADD! |
| DT | TIME+3 |
| DUZ | OVER+3 |
| ED | TIME~, TIME+3 |
| FB1725 | DAYS~, DAYS+6 |
| FBBS | PAYST+9~, PAYST+20*, PAYST+21, PAYST+22, PAYST+34*, PAYST+35, PAYST+36, PAYST+42*, PAYST+43, PAYST+44 |
| FBC | PAYST+9~, PAYST+11*, PAYST+23*, PAYST+37*, PAYST+45*, PAYST+46, PAYST+47 |
| >> FBCUP( | PAYST+12! |
| FBDA | LOCK~, LOCK+8, LOCK+9, FILE+7, PEND~, PEND+3, PAYST~, PAYST+12, PAYST+13, PAYST+21 , PAYST+35, PAYST+43, PAYST+47 |
| FBDA1 | FILE~, FILE+8 |
| FBDI | FILE~, FILE+7, ADD |
| FBGL | PTR~, PTR+4, LOCK~, LOCK+8, LOCK+9*, L, PAY~, PAY+4*, PAY+5, FILE~ , ADD, PAYST+9~, PAYST+13*, PAYST+16, PAYST+18, PAYST+26, PAYST+28, PAYST+30, PAYST+32, PAYST+40 |
| FBIEN | PTR~, PTR+4 |
| >> FBIENS | PAYST+19*, PAYST+20, PAYST+21, PAYST+33*, PAYST+34, PAYST+35, PAYST+41*, PAYST+42, PAYST+43 |
| >> FBLOCK | LOCK+8*, L* |
| FBPDA | PAYST+9~, PAYST+15*, PAYST+16*, PAYST+18, PAYST+19, PAYST+25*, PAYST+26*, PAYST+28, PAYST+30, PAYST+32 , PAYST+33, PAYST+39*, PAYST+40*, PAYST+41 |
| FBPDA1 | PAYST+9~, PAYST+17*, PAYST+18*, PAYST+19, PAYST+27*, PAYST+28*, PAYST+30, PAYST+32, PAYST+33 |
| FBPDA2 | PAYST+9~, PAYST+29*, PAYST+30*, PAYST+32, PAYST+33 |
| FBPDA3 | PAYST+9~, PAYST+31*, PAYST+32*, PAYST+33 |
| FBRET | PAYST+9~, PAYST+10*, PAYST+22*, PAYST+36*, PAYST+44*, PAYST+46*, PAYST+47, PAYST+48 |
| FBUCP | PAYST~, PAYST+12, PAYST+21, PAYST+35, PAYST+43, PAYST+47 |
| FBVAL | PTR+4~, PTR+5*, PTR+6 |
| FBX | UNTIME~, UNTIME+2 |
| FBY | DAYS+4~, DAYS+5*, DAYS+6 |
| GO | LOCK~, LOCK+8*, L |
| KEY | OVER~, OVER+3 |
| NODE | PTR+4~*, PTR+5 |
| U | VET+3, VEN+3, PROG+3, DAYS+6, DISAP+6, ORDER+3, UNTIME+2, PAYST+22, PAYST+36, PAYST+44 , PAYST+47 |
| X | CDTC+4~, DTC+4~, VET~, VET+3*, VEN~, VEN+3*, PROG~, PROG+3*, DAYS~, DAYS+5 , DISAP~, DISAP+6, STATUS~, STATUS+3, ORDER~, ORDER+3*, PAY~, PAY+4, UPOK~, UPOK+3 , FBZ~, FBZ+3, FBZ+4*, FILE~, FILE+7, ADD |
| X1 | CDTC~, DTC~ |
| X2 | CDTC~, DTC~ |
| Y | DISAP+4~, FILE+7~, ADD, ADD+1 |
| >> ZTQUEUED | L |