PRCFFM1M ;WISC/SJG-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS CON'T ;4/26/94 16:40
Source file <PRCFFM1M.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 |
|---|---|---|
| V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
| NEWVAR | ; Refresh variables from 442
|
|
| EDIT | ; Check fund/year table to determine fields required for FMS
|
|
| FISCST | ; Post to Fiscal Status of Funds Tracker
|
|
| ; Print out copy of Purchase Order Amendment
|
||
| OUT1 | ||
| STACK | ; Create entry in GECS Stack File
|
|
| SEGS | ; Create entry into TMP($J for remaining segments
|
|
| TRANSF | ; Transfer nodes from TMP($J, into GECS Stack File
|
|
| TRANSM | ; Mark the document as queued for transmission
|
|
| POBAL | ; Enter Obligation Data into Purchase Order Record
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | EDIT+13 |
| C^%DTC | EDIT+10 |
| ^DIC | NEWVAR+4 |
| SETPARAM^GECSSDCT | TRANSM+3 |
| SETCS^GECSSTAA | TRANSF+1 |
| SETSTAT^GECSSTAA | TRANSM+1 |
| EDIT^PRCFFU | EDIT+1 |
| STACK^PRCFFU | STACK+1 |
| NEW^PRCFFU1 | SEGS+4 |
| FISC^PRCFFU4 | FISCST+1 |
| EN7^PRCFFU41 | POBAL+3 |
| $$BBFY^PRCFFU5 | NEWVAR+10 |
| GENDIQ^PRCFFU7 | NEWVAR+11 |
| ^PRCHQUE | PRINT+6 |
| ENCODE^PRCSC2 | EDIT+36 |
| REMOVE^PRCSC2 | EDIT+36 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(442 - [#442] | EDIT+32 |
| ^PRCS(410 - [#410] | EDIT+34, EDIT+35* |
| ^TMP($J | SEGS+1!, TRANSF+1, TRANSF+2! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | OUT1! |
| >> %DT | EDIT+12* |
| %Y | OUT1! |
| BBFY | OUT1+1! |
| >> D0 | PRINT+4* |
| >> D1 | PRINT+5* |
| DA | EDIT+31~, EDIT+35*, EDIT+36 |
| DEL | EDIT+31~, EDIT+32*, EDIT+35 |
| DIC | NEWVAR+1!, NEWVAR+3*, NEWVAR+4!, OUT1! |
| DIC("S" | NEWVAR+2* |
| DIC(0 | NEWVAR+3* |
| DUZ | EDIT+36 |
| ERFLAG | OUT1+3! |
| FLG | PRINT+1, OUT1! |
| FMSDOCT | POBAL+2~*, POBAL+3 |
| FMSINT | SEGS+2~*, SEGS+4 |
| FMSMOD | OUT1+3!, SEGS+3*, SEGS+4, POBAL+3 |
| FMSNO | OUT1+3! |
| FMSVENID | OUT1+3! |
| GECSFMS | OUT1+2! |
| GECSFMS("DA" | TRANSF+1, TRANSM+1, TRANSM+3 |
| I | OUT1! |
| J | OUT1! |
| K | OUT1! |
| LOOP | OUT1+2!, TRANSF+1~* |
| LOOP1 | OUT1+2! |
| LOOP2 | OUT1+2! |
| LOOP3 | OUT1+2! |
| LOOP4 | OUT1+2! |
| LOOPVAL | OUT1+2! |
| MESSAGE | EDIT+31~, EDIT+36 |
| MOD | OUT1+3! |
| NEW | OUT1+2! |
| NUMB | OUT1+3! |
| OLD | OUT1+3! |
| OLDVAL | OUT1+3! |
| P | OUT1! |
| P2 | TRANSM+2~*, TRANSM+3 |
| PARAM1 | OUT1+2! |
| PAT | OUT1+2! |
| PO | NEWVAR+5*, NEWVAR+10, NEWVAR+11, OUT1+2!, SEGS+2, TRANSM+2 |
| PO(0 | NEWVAR+5*, NEWVAR+6, NEWVAR+9 |
| PODATE | OUT1+3! |
| >> POESIG | POBAL+1* |
| >> PRC("PARAM" | FISCST+1 |
| PRCCCC | OUT1+1! |
| PRCCSCC | OUT1+1! |
| >> PRCFA("ACCPD" | TRANSM+2 |
| >> PRCFA("AMEND#" | PRINT+5, TRANSM+2 |
| >> PRCFA("BBFY" | NEWVAR+10* |
| >> PRCFA("CANCEL" | EDIT+4, EDIT+5 |
| >> PRCFA("MOD" | EDIT+4*, SEGS+3 |
| >> PRCFA("MP" | NEWVAR+9* |
| >> PRCFA("OBLDATE" | EDIT+9, EDIT+11*, EDIT+14*, TRANSM+2, POBAL+3 |
| >> PRCFA("PODA" | NEWVAR+3, EDIT+32, PRINT+4, POBAL+1 |
| >> PRCFA("REF" | NEWVAR+6*, POBAL+2 |
| >> PRCFA("TT" | EDIT+5, EDIT+6*, EDIT+8*, SEGS+4, POBAL+3 |
| PRCFAA | OUT1! |
| PRCFMO | OUT1+1! |
| PRCFPODA | OUT1! |
| >> PRCHQ | PRINT+2* |
| >> PRCHQ("DEST" | PRINT+3* |
| STR2 | OUT1+3! |
| SUB | OUT1+1! |
| TAG | OUT1+1! |
| TRDA | EDIT+31~, EDIT+32*, EDIT+33, EDIT+34, EDIT+35 |
| U | NEWVAR+6, NEWVAR+9, FISCST+1, SEGS+3, TRANSM+2 |
| X | NEWVAR+3*, EDIT+11, EDIT+12*, OUT1! |
| >> X1 | EDIT+9* |
| >> X2 | EDIT+9* |
| >> XRBLD | EDIT+5 |
| Y | NEWVAR+4, NEWVAR+5, EDIT+14, OUT1! |
| Y(0 | NEWVAR+5 |
| Z | OUT1! |
