PRCUFC0 ;WISC/SJG-ENTRY ROUTINE FOR IFCAP/FMS CONVERSION ;12/20/93 11:25
Source file <PRCUFC0.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
|
|
| EN(LOOP,SCP,POSTAT,ND0,ND1) | ; Supply Fund and General Post Fund Conversion
; Routine called by ^PRCHPRCV ; LOOP = Internal Record Number from File 442 ; SCP = Special Fund Control Point ; POSTAT = Purchase Order Status ; ND0 = Node 0 of 442 entry ; ND1 = Node 1 of 442 entry ; SCP = 1 for GPF, SCP = 2 for Supply Fund |
|
| EN1 | ||
| EN2 | ||
| EXIT | ||
| NODE22 | ; Check/build Node 22 for commodity line roll
|
|
| CHKVAR | ; Check/set PRC() variables
|
|
| ERR4 | ||
| ERR5 |
| Name | Field # of Occurrence |
|---|---|
| $$DATE^PRC0C | CHKVAR+3 |
| GENDIQ^PRCFFU7 | EN1+3, EN1+8, EN1+15, EN2+3, EN2+8, EN2+15 |
| DUZ^PRCFSITE | CHKVAR+9 |
| ^PRCHSF | NODE22+1 |
| EN^PRCUFC0E | ERR4, ERR5 |
| GPFM^PRCUFC1 | EN1+18 |
| GPFO^PRCUFC1 | EN1+11 |
| SUPPM^PRCUFC2 | EN2+18 |
| SUPPO^PRCUFC2 | EN2+11 |
| AMTS^PRCUFCU | EN1+10, EN1+17, EN2+10, EN2+17 |
| BOCG^PRCUFCU | EN1+4, EN1+9, EN1+16 |
| BOCS^PRCUFCU | EN2+4, EN2+9, EN2+16 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(442 - [#442] | EN1+7, EN1+14, EN2+7, EN2+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMTTOT | EXIT+2! |
| BBFY | EXIT+2! |
| BEGDATE | EXIT+2! |
| BOC | EXIT+2! |
| D0 | EXIT+1! |
| >> DA | NODE22+1* |
| DATE | CHKVAR+1~, CHKVAR+2*, CHKVAR+3*, CHKVAR+4, CHKVAR+5 |
| DIC | EXIT+1! |
| DLAYGO | EXIT+1! |
| >> ERROR | ERR4*, ERR5* |
| ESHFLG | EXIT+2! |
| FATAL | EN+11*, EN1+10, EN1+17, EN2+10, EN2+17, EXIT+2! |
| FCP | CHKVAR+1~, CHKVAR+7*, CHKVAR+8 |
| FMSFLG | EN+11*, EXIT+2! |
| FMSLIN | EXIT+2! |
| FMSMOD | EXIT+2! |
| FMSVENID | EXIT+2! |
| FOB | EXIT+2! |
| GECSFMS | EXIT! |
| IDFLAG | EXIT+2! |
| LOOP | EN~, EN1+3, EN1+7, EN1+8, EN1+14, EN1+15, EN2+3, EN2+7, EN2+8, EN2+14 , EN2+15, NODE22+1, CHKVAR+2, CHKVAR+7, ERR4, ERR5 |
| LOOP1 | EXIT+3! |
| LOOP3 | EXIT+3! |
| MOD | EXIT+3! |
| ND | EXIT! |
| ND(0 | EN+9*, CHKVAR+6 |
| ND(1 | EN+9* |
| ND0 | EN~, EN+9 |
| ND1 | EN~, EN+9 |
| NODET | EXIT+3! |
| NUMB | EXIT+3! |
| PARAM1 | EXIT+3! |
| PO | EXIT+3! |
| PODATE | EXIT+3! |
| POSTAT | EN~, EN1+2, EN1+6, EN1+13, EN2+2, EN2+6, EN2+13, EXIT+3! |
| >> PRC("CP" | CHKVAR+8* |
| >> PRC("FY" | CHKVAR+4* |
| >> PRC("PER" | CHKVAR+9 |
| >> PRC("QTR" | CHKVAR+5* |
| >> PRC("SITE" | CHKVAR+6* |
| PRCCC | EXIT+3! |
| PRCCCC | EXIT+3! |
| PRCCP | EXIT+3! |
| PRCCSCC | EXIT+3! |
| PRCFA | EXIT! |
| PRCFA("CONV" | EN+10* |
| PRCFA("CONVG" | EN1+1* |
| PRCFA("CONVS" | EN2+1* |
| PRCFCHG | EXIT! |
| PRCFMO | EXIT! |
| PRCHPO | EXIT+4!, NODE22+1* |
| PRCOPODA | EXIT+4! |
| PRCREQST | EXIT+4! |
| PRCSTA | EXIT+4! |
| PRCSTR | EXIT+4! |
| PRCTMP | EN+11!, EXIT! |
| PRCTMP(442 | CHKVAR+2, CHKVAR+7 |
| SCP | EN~, EN+8, EN1, EN2, EXIT+4! |
| STR2 | EXIT+4! |
| TOTAMT | EXIT+4! |
| U | CHKVAR+4, CHKVAR+5 |
| X | EXIT+4! |
| Y | EXIT+4! |
