PRCFFU5 ;WISC/SJG-OBLIGATION PROCESSING UTILITIES ;
Source file <PRCFFU5.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FMSFCP(REQST,SPFCP,MP) | ;
; REQST - 2237 Request ; MP - Method of Processing ; SPFCP - Supply Fund Control Point ; FLAG - Flag to indicate if CP has been updated ; - Flag = "Y" when FCP has been updated ; - Flag = "N" when FCP has not been updated |
|
| ASKSITE(FLAG) | ; Interface with GECS to prompt for station/fcp
|
|
| EXIT | ||
| NODE22 | ; Called from PRCH58OB to build Node 22 for 1358 Obligations
|
|
| BBFY(PO) | ; Get FMS Beginning Budget Fiscal Year
|
|
| DELSCH(XDATE) | ; Get the Delivery Date from the latest of either the P.O.
; Delivery Date or the latest date in the Delivery Schedule |
|
| UPPER(X) | ; Convert to 'UPPER' case
|
|
| LOWER(X) | ; Convert to 'lower' case
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(442 | NODE22+3 |
| ^PRC(442 - [#442] | NODE22+3* |
| ^PRC(442.8 - [#442.8] | DELSCH+4, DELSCH+5, DELSCH+6, DELSCH+7 |
| Name | Line Occurrences |
|---|---|
| EXIT | ASKSITE+3, ASKSITE+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AMT | NODE22+9* |
| BBFY | BBFY+2~, BBFY+4*, BBFY+6 |
| >> BOC | NODE22+8*, NODE22+10, NODE22+12 |
| >> BUDSTR | ASKSITE+5* |
| >> CTR | NODE22+5*, NODE22+7, NODE22+14 |
| DA | NODE22+2~*, NODE22+3, NODE22+8, NODE22+9, NODE22+11, NODE22+14~*, BBFY+2~* |
| DA(1 | NODE22+11*, NODE22+12 |
| DD | NODE22+13! |
| >> DELDATE | DELSCH+3 |
| DELSCH | DELSCH+11! |
| DELSCH( | DELSCH+9, DELSCH+10 |
| DELSCH("A" | DELSCH+7*, DELSCH+8 |
| DELSCH(9999999 | DELSCH+3*, DELSCH+8* |
| DELSCHL | DELSCH+9*, DELSCH+10, DELSCH+11! |
| DIC | NODE22+2*!, NODE22+12*, NODE22+14, NODE22+15!, BBFY+2*, BBFY+3! |
| DIC(0 | NODE22+12* |
| DIE | NODE22+14*, NODE22+15! |
| DIQ | NODE22+2*!, BBFY+2*, BBFY+3! |
| DIQ(0 | BBFY+2* |
| DO | NODE22+13! |
| DR | NODE22+2*!, NODE22+14*, NODE22+15!, BBFY+2*, BBFY+3! |
| >> ERROR | ASKSITE+1*, ASKSITE+3*, ASKSITE+4* |
| FLAG | FMSFCP+8~*, FMSFCP+11*, FMSFCP+14*, FMSFCP+18*, FMSFCP+19, ASKSITE~ |
| FMSL | NODE22+14*, NODE22+16! |
| LOOP | DELSCH+2~, DELSCH+5*, DELSCH+6 |
| LOOP1 | DELSCH+2~, DELSCH+6*, DELSCH+7, DELSCH+8 |
| LOOP2 | DELSCH+2~, DELSCH+9* |
| MP | FMSFCP~, FMSFCP+11, FMSFCP+14 |
| NODE | NODE22+3!*, NODE22+16! |
| PO | NODE22+2, BBFY~, BBFY+2, BBFY+4 |
| >> PRC("CP" | ASKSITE+4, ASKSITE+5 |
| >> PRC("SITE" | ASKSITE+3, ASKSITE+5 |
| >> PRCFA("REF" | DELSCH+4, DELSCH+5, DELSCH+6 |
| PRCTEMP | BBFY+1!, BBFY+5! |
| PRCTEMP(442 | BBFY+4 |
| PRCTMP | NODE22+1!, NODE22+16! |
| PRCTMP(442 | NODE22+8, NODE22+9 |
| REQST | FMSFCP~, FMSFCP+11, FMSFCP+14, FMSFCP+18 |
| SPFCP | FMSFCP~, FMSFCP+11, FMSFCP+14, FMSFCP+18 |
| STR | NODE22+4*, NODE22+7, NODE22+16! |
| SUBSTR | NODE22+6!, NODE22+7*, NODE22+8, NODE22+9, NODE22+16! |
| U | NODE22+3, NODE22+7, DELSCH+8, DELSCH+10 |
| X | ASKSITE+1~, NODE22+12*, NODE22+15!, UPPER~, UPPER+1, LOWER~, LOWER+1 |
| XDATE | DELSCH~, DELSCH+3, DELSCH+10*, DELSCH+12 |
| Y | ASKSITE+1~, NODE22+14, NODE22+15! |
| >> YDATE | DELSCH+8* |
