PRSDUTIL ;HISC/MGD-PAID DOWNLOAD UTILITY SUB-ROUTINES ;09/10/2003
Source file <PRSDUTIL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PIC9 | ;Replace 0s
|
|
| SIGN | ;Sign conversion
|
|
| D | ;.0
|
|
| DD | ;.00
|
|
| DDD | ;.000
|
|
| DDDD | ;.0000
|
|
| DDDDD | ;.00000
|
|
| AHRS | ;Acct hrs
|
|
| PCT | ;%
|
|
| RZ | ;Remove leading 0s
|
|
| DATE | ;Convert Austin Date to Fileman Date
|
|
| LZ | ;Insert leading 0s
|
|
| RTS | ;Remove trailing spaces
|
|
| OT | ;Output trans
|
|
| SOT | ;State
|
|
| AC | ;Asgmnt code
|
|
| TITLE | ;Title
|
|
| NH | ;Norm Hrs
|
|
| STEP | ;Step
|
|
| ORGCC | ;Org/Cost Cntr
|
|
| PVAE | ;Prior VA Exp
|
|
| ZIP | ;Zip
|
|
| NPLWOP | ;Nonpay & LWOP Hrs
|
|
| NEWSSN | ;New SSN
|
|
| COMP | ;0 out comp time bal
|
|
| OST | ;Occupation Series & Title Output Transform
|
|
| OSTOT | ||
| OSTEX | ||
| LD | ; Set Labor Distribution fields into Multiple.
|
|
| PATCH32 | ;Subprograms LOOP450 and DTCMP are post-installation routines
|
|
| LOOP450 | ;
|
|
| DTCMP(IEN,NODE,DATANODE,PIECES) | ;
|
|
| MSSG(FLAG) | ;OUT PUT POST INSTALLATION MESSAGE.
|
| FileNo | Call Tags |
|---|---|
| ^PRSP(454 - [#454] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | SOT+2, SOT+3 |
| ^PRSP(454 - [#454] | OT+1, OT+2, AC+3, AC+4, AC+5, AC+6, ORGCC+3 |
| ^PRSP(454.1 - [#454.1] | OT+2 |
| ^PRSPC - [#450] | AC+2, TITLE+2*, TITLE+3*, NH+1, NH+3*, ORGCC+1*, PVAE+1*, NPLWOP+1, NPLWOP+3*, NPLWOP+4* , COMP+1*, LOOP450+21, LOOP450+26, LOOP450+28, DTCMP+8* |
| ^PRSPC(0 | LOOP450+18 |
| ^PRST(459 - [#459] | NPLWOP+3*, NPLWOP+4* |
| ^TMP($J | ORGCC+3* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LOOP450+6~, LOOP450+20*, LOOP450+22*, LOOP450+23 |
| %DT | DATE+4~, DATE+6* |
| ABC | PVAE+1*, PVAE+2!, COMP+1* |
| AC | AC+2*, AC+3, AC+6*, AC+7, AC+8! |
| AC1 | AC+2*, AC+5*, AC+7, AC+8! |
| CCORG | ORGCC+2*, ORGCC+3, ORGCC+4! |
| CHECK | LOOP450+6~ |
| CHECK( | LOOP450+25, LOOP450+27 |
| CHECK("BOND1" | LOOP450+14* |
| CHECK("BOND2" | LOOP450+15* |
| CHECK("MSD2" | LOOP450+13* |
| CHECK("PCD" | LOOP450+12* |
| CHECK("TSP1" | LOOP450+16* |
| CHECK(0 | LOOP450+7* |
| CHECK(1 | LOOP450+8* |
| CHECK(2 | LOOP450+9* |
| CHECK(3 | LOOP450+10* |
| CHECK(4 | LOOP450+11* |
| COST | ORGCC+1*, ORGCC+4! |
| >> D0 | AC+2 |
| DATA | SIGN+1, SIGN+3*, SIGN+4*, D+1*, DD+1*, DDD+1*, DDDD+1*, DDDDD+1*, AHRS+1, AHRS+3* , PCT+1*, PCT+2*, RZ+1*, RZ+2, RZ+3*, RZ+4*, DATE+2, DATE+3*, DATE+5, DATE+7* , LZ+1*, RTS+1, RTS+2*, TITLE+1*, TITLE+2, NH+1*, NH+2, STEP+1*, STEP+2*, ORGCC+1 , ORGCC+2, PVAE+1, ZIP+1*, ZIP+2*, ZIP+3*, NPLWOP+2, NEWSSN+1, COMP+1, LD+2*, LD+4* , DTCMP+3~, DTCMP+5*, DTCMP+6, DTCMP+7 |
| DATANODE | DTCMP~, DTCMP+5 |
| DB | NH+1*, NH+2, NH+4! |
| >> DBNAME | ORGCC+1, NPLWOP+3, NPLWOP+4 |
| DD | ORGCC+3! |
| DIC | ORGCC+3*, ORGCC+4! |
| DIC(0 | ORGCC+3* |
| DIF | PIC9+1*, PIC9+2! |
| DIV | LOOP450+6~, LOOP450+19*, LOOP450+23 |
| DLAYGO | ORGCC+3*, ORGCC+4! |
| DO | ORGCC+3! |
| DTOUT | DATE+4~ |
| FC | RZ+2*, RZ+4, RZ+5! |
| FD | AHRS+1*, AHRS+3, AHRS+4! |
| FF | PIC9+1*, PIC9+2! |
| FLAG | MSSG~, MSSG+2 |
| >> GRPVAL | PIC9+1* |
| IEN | TITLE+2, TITLE+3, NH+1, NH+3, ORGCC+1, PVAE+1, NPLWOP+1, NPLWOP+3, NPLWOP+4, COMP+1 , DTCMP~, DTCMP+8 |
| IEN454 | OT+1*, OT+2, OT+3! |
| IEN5 | SOT+2*, SOT+3, SOT+4! |
| L | SIGN+1*, SIGN+3, SIGN+5!, D+1*!, DD+1*!, DDD+1*!, DDDD+1*!, DDDDD+1*!, AHRS+1*, AHRS+4! , LZ+1, LZ+2!, NEWSSN+1* |
| LC | SIGN+2*, SIGN+3, SIGN+5! |
| LD | AHRS+1*, AHRS+2*, AHRS+3, AHRS+4!, TITLE+2*, TITLE+3, TITLE+4!, OST+1*, OST+2, OST+3 , OST+4, OSTOT+1, OSTOT+2, OSTOT+3, OSTEX! |
| LLL | AC+3*, AC+4, AC+5, AC+6, AC+8! |
| >> LTH | PIC9+1 |
| LVGRP | NPLWOP+1*, NPLWOP+2, NPLWOP+5! |
| MSSG | MSSG+1~, MSSG+2*, MSSG+3*, MSSG+4 |
| ND | LOOP450+6~, LOOP450+24*, LOOP450+25*, LOOP450+26, LOOP450+27, LOOP450+28 |
| NEWDATE | DTCMP+3~, DTCMP+7*, DTCMP+8 |
| NEXT | DTCMP+3~, DTCMP+4* |
| NH | NH+2*, NH+3, NH+4! |
| NLD | OST+3*, OSTEX! |
| NODE | PVAE+1, DTCMP~, DTCMP+8 |
| NPLWOP | NPLWOP+2*, NPLWOP+3, NPLWOP+4, NPLWOP+5! |
| OCCS | AC+4*, AC+5, AC+6, AC+8! |
| OSC | AC+2*, AC+6, AC+8!, OST+1*, OSTEX! |
| OSC14 | OST+1*, OST+3, OST+4, OSTOT+1, OSTOT+2, OSTOT+3, OSTEX! |
| OSC15 | OST+1*, OST+3, OST+4, OSTEX! |
| PIECE | PVAE+1*, DTCMP+3~, DTCMP+4*, DTCMP+5, DTCMP+8 |
| PIECES | LOOP450+6~, LOOP450+27*, LOOP450+28, DTCMP~, DTCMP+4 |
| >> PPIEN | NPLWOP+3, NPLWOP+4 |
| PRSTMP | LD+1~, LD+2*, LD+4 |
| PV | PVAE+1*, PVAE+2! |
| REC | LOOP450+6~, LOOP450+21*, LOOP450+26, LOOP450+28 |
| S | SIGN+1*, SIGN+2, SIGN+4, SIGN+5! |
| SLOOP | RTS+2*, RTS+3! |
| SUB454 | OT+1, OT+2, OT+3!, OSTOT*! |
| SUF | OSTOT+3*, OSTEX! |
| >> TYPE | NPLWOP+3, NPLWOP+4 |
| U | OT+2, SOT+3, AC+2, AC+4, TITLE+2, TITLE+3, NH+1, NH+3, ORGCC+1, PVAE+1 , NPLWOP+1, NPLWOP+3, NPLWOP+4, COMP+1 |
| UUU | LZ+1*, LZ+2! |
| X | DATE+4~, DATE+5*, ORGCC+3*, ORGCC+4! |
| XPDIDTOT | LOOP450+6~, LOOP450+18*, LOOP450+19 |
| Y | DATE+4~, DATE+7, OT+1, OT+2*, SOT+1, SOT+2, SOT+3*, AC+1, AC+3, AC+7* , OST+1, OST+3*, OST+4*, OSTOT+1*, OSTOT+2*, OSTOT+3* |