PRSDSERV ;WOIFO/MGD,PLT - PAID DOWNLOAD MESSAGE SERVER ;12/3/07
Source file <PRSDSERV.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 |
|---|---|---|
| SETPRS | ;start employee record
|
|
| EXIT | ||
| REMSB | ||
| SSNLOOP | ||
| START | ; Process download
; RTYPE is used to determine which series of routines to call to ; process the download |
|
| PROC | ||
| PROC2 | ||
| TMPERR | ||
| TMPERR1 | ||
| UNL | ||
| SSN | ||
| SSNOUT | ||
| ERR | ||
| LDINIT | ; Load Initial Labor Distribution Values
|
|
| LDFNL | ; Load Final Labor Distribution Values
|
|
| LDLOAD() | ; Retrieve current Labor Distribution Values from #450
|
|
| LDCMP | ; Compare Initial and Final Labor Distribution for changes
; and update audit trail in #458 if necessary. |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | SSNLOOP+10 |
| NOW^%DTC | PRSDSERV+3 |
| FILE^DICN | PRSDSERV+23, ERR |
| ^DIE | LDCMP+15, LDCMP+17, LDCMP+19 |
| UPDATE^DIE | LDCMP+28, LDCMP+46, LDCMP+74 |
| ^DIK | LDCMP+59 |
| $$GET1^DIQ | LDLOAD+5, LDLOAD+6, LDLOAD+7, LDLOAD+8 |
| ^PRSDADD | SSN+3 |
| ^PRSDCOMP | PROC2 |
| ^PRSDDL | PRSDSERV+16 |
| ^PRSDERR | SSNLOOP+9 |
| TRANSCK^PRSDERR | SSNLOOP+13 |
| PROC^PRSDPROC | PRSDSERV+21 |
| ^PRSDPTYP | SSNOUT |
| ^PRSDSTAT | SSNLOOP+9 |
| RTS^PRSDUTIL | SSN+2 |
| REMSBMSG^XMA1C | REMSB |
| REC^XMS3 | PRSDSERV+3, PRSDSERV+15, SSNLOOP, SSNLOOP+13 |
| FileNo | Call Tags |
|---|---|
| ^PRSPC - [#450] | Classic Fileman Calls |
| 450.0757 | GET1^DIQ |
| ^PRSD(450.11 - [#450.11] | Classic Fileman Calls |
| ^PRSD(450.12 - [#450.12] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRSD(450.11 - [#450.11] | ERR* |
| ^PRSD(450.12 - [#450.12] | PRSDSERV+11, PRSDSERV+22, PRSDSERV+24*, PRSDSERV+25*, PRSDSERV+26*, SETPRS+3*, SSNLOOP+8* |
| ^PRSPC - [#450] | PROC2+1! |
| ^PRSPC("SSN" | SSN, SSN+3, SSN+4 |
| ^PRST(458 - [#458] | LDCMP+5, LDCMP+9, LDCMP+23, LDCMP+33, LDCMP+35, LDCMP+62 |
| ^TMP($J | PRSDSERV+20*, SSN+2* |
| ^VA(200 - [#200] | LDCMP+44 |
| ^XTMP("PRS" | PRSDSERV+19, SETPRS+2!, SSNLOOP+6!, SSNLOOP+7*, SSNLOOP+11*, SSNLOOP+13*, SSNLOOP+14!, START+4, START+5, START+7 , PROC, PROC2+2!, TMPERR+1*, TMPERR1!, UNL |
| Name | Line Occurrences |
|---|---|
| $$LDLOAD | LDINIT+1, LDFNL+1 |
| @( | PROC |
| ERR | SSN |
| EXIT | PRSDSERV+3, PRSDSERV+4, PRSDSERV+9, PRSDSERV+11, PRSDSERV+15, PRSDSERV+16, PRSDSERV+19, PRSDSERV+22 |
| LDCMP | START+11 |
| LDFNL | START+11 |
| LDINIT | START+11 |
| PROC | START+11 |
| PROC2 | START+11 |
| REMSB | SSNLOOP+9 |
| SETPRS | PRSDSERV+21 |
| SSN | START+10 |
| SSNLOOP | SETPRS+1 |
| SSNOUT | SSN+3 |
| START | SSNLOOP+9 |
| TMPERR | START+12 |
| TMPERR1 | TMPERR |
| UNL | START+12 |
| Name | Field # of Occurrence |
|---|---|
| ^( | START+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PRSDSERV+3, EXIT! |
| %H | EXIT! |
| %I | EXIT! |
| A | SETPRS+1*, EXIT! |
| AA | EXIT! |
| AAA | EXIT! |
| ADDFLG | EXIT! |
| B | EXIT!, SSNLOOP+13* |
| BB | EXIT! |
| CC | EXIT! |
| CDATE | EXIT+6!, SSNLOOP+10*, SSNLOOP+11 |
| DA | EXIT!, SSN+3!, LDCMP+13*, LDCMP+58* |
| DA(1 | LDCMP+56*, LDCMP+58 |
| DATA | EXIT!, PROC2+1*, SSN+2* |
| DATE | PRSDSERV+8*, PRSDSERV+19, PRSDSERV+22, PRSDSERV+24, PRSDSERV+26, SETPRS+2, EXIT!, SSNLOOP+7, SSNLOOP+13, SSNLOOP+14 , START+4, START+5, START+7, PROC, PROC2+2, TMPERR+1, TMPERR1, UNL, ERR |
| DBNAME | EXIT! |
| DD | PRSDSERV+23!, ERR! |
| DIC | PRSDSERV+23*, EXIT!, ERR* |
| DIC(0 | PRSDSERV+23*, ERR* |
| DIE | SSN+3!, LDCMP+13* |
| DIK | EXIT!, LDCMP+58* |
| DINUM | EXIT! |
| DLAYGO | EXIT+1! |
| DLID | EXIT+1! |
| DO | PRSDSERV+23!, ERR! |
| DR | SSN+3!, LDCMP+14*, LDCMP+16*, LDCMP+18* |
| E1 | EXIT+1! |
| E2 | EXIT+1! |
| E458IEN | LDCMP+3~ |
| E458IEN(1 | LDCMP+25* |
| ECNT | EXIT+1!, SSNLOOP+9*, SSNOUT+1* |
| ECOUNT | EXIT+1! |
| EE | EXIT+1!, PROC2+1* |
| EMPCNT | PRSDSERV+7*, SETPRS+1, EXIT+1! |
| ERRCNT | EXIT+1! |
| ERRFLG | EXIT+1!, START+9*, START+11, START+12, SSN+3, SSNOUT*, ERR+1* |
| ERRID | EXIT+1! |
| ERRIEN | EXIT+1! |
| ERRMSG | EXIT+2!, SSN*, ERR |
| FLD | EXIT+2! |
| FLDNUM | EXIT+2! |
| GNUM | EXIT+2! |
| GRP | EXIT+2! |
| GRPVAL | EXIT+2! |
| I | LDCMP+3~, LDCMP+51*, LDCMP+52, LDCMP+54*, LDCMP+57*, LDCMP+58 |
| IEN | EXIT+2!, PROC2+1, SSN+4*, LDLOAD+5, LDLOAD+6, LDLOAD+7, LDLOAD+8, LDCMP+9, LDCMP+13, LDCMP+23 , LDCMP+25, LDCMP+26, LDCMP+35, LDCMP+37, LDCMP+56, LDCMP+62 |
| IENS | LDCMP+3~, LDCMP+24*, LDCMP+26, LDCMP+27, LDCMP+37*, LDCMP+42, LDCMP+43, LDCMP+44, LDCMP+45, LDCMP+65 |
| IENS1 | LDCMP+3~, LDCMP+65*, LDCMP+69, LDCMP+70, LDCMP+71, LDCMP+72, LDCMP+73 |
| II | EXIT+2! |
| INDX | LDCMP+3~ |
| J | LDCMP+3~, LDCMP+52*, LDCMP+53*, LDCMP+64*, LDCMP+65 |
| KFLG | SSNLOOP+12!, SSNLOOP+14! |
| LD | LDLOAD+2~, LDLOAD+3*, LDLOAD+9*, LDLOAD+10, LDCMP+62*, LDCMP+65 |
| LDA | LDCMP+3~, LDCMP+9*, LDCMP+10*, LDCMP+35*, LDCMP+36*, LDCMP+42 |
| LDCC | LDLOAD+2~, LDLOAD+7*, LDLOAD+9 |
| LDCODE | LDLOAD+2~, LDLOAD+5*, LDLOAD+9 |
| LDFCP | LDLOAD+2~, LDLOAD+8*, LDLOAD+9 |
| LDFNL | LDFNL+1*, LDCMP+2, LDCMP+51, LDCMP+75! |
| LDINIT | LDINIT+1*, LDCMP+2, LDCMP+53*, LDCMP+67, LDCMP+70, LDCMP+71, LDCMP+72, LDCMP+73, LDCMP+75! |
| LDPCT | LDLOAD+2~, LDLOAD+6*, LDLOAD+9 |
| LPE | PRSDSERV+4*, PRSDSERV+14*, EXIT+2!, SSNLOOP+13 |
| LTH | EXIT+2! |
| MFLD | EXIT+2! |
| MNR | PRSDSERV+21*, EXIT+6! |
| MO | EXIT+2! |
| MTYPE | PRSDSERV+12*, PRSDSERV+20, EXIT+2! |
| MULT | EXIT+2! |
| NAME | EXIT+3!, SSN+1*, SSN+2* |
| NODE | EXIT+3!, PROC2+1* |
| NODE459 | EXIT+3! |
| OLDSSN | SSN+3! |
| PDATE | EXIT+6!, SSNLOOP+10*, SSNLOOP+11 |
| PIC | EXIT+3! |
| PIECE | EXIT+3! |
| PIECE459 | EXIT+3! |
| PP | EXIT+3!, PROC2, TMPERR, SSNOUT |
| PP455 | EXIT+3! |
| PPA | LDCMP+3~, LDCMP+5*, LDCMP+6, LDCMP+9, LDCMP+23, LDCMP+24, LDCMP+33*, LDCMP+34, LDCMP+35, LDCMP+37 , LDCMP+62 |
| PPIEN | EXIT+3! |
| PRSD | EXIT+3! |
| PRSDIEN | PRSDSERV+24*, SETPRS+3, EXIT+3!, SSNLOOP+8 |
| PRSFDA | LDCMP+3~, LDCMP+41!, LDCMP+55!, LDCMP+68! |
| PRSFDA( | LDCMP+26*, LDCMP+27*, LDCMP+42*, LDCMP+43*, LDCMP+44*, LDCMP+45*, LDCMP+69*, LDCMP+70*, LDCMP+71*, LDCMP+72* , LDCMP+73* |
| PRSLD | LDLOAD+2~, LDLOAD+4*, LDLOAD+5, LDLOAD+6, LDLOAD+7, LDLOAD+8, LDCMP+63*, LDCMP+64, LDCMP+67, LDCMP+69 , LDCMP+70, LDCMP+71, LDCMP+72, LDCMP+73 |
| RCD | EXIT+3!, START+9*, PROC*, TMPERR+1*, SSN+1, SSN+2 |
| RTN | EXIT+4!, PROC* |
| RTNNUM | EXIT+4!, PROC* |
| RTYPE | EXIT+4!, START+3*, PROC |
| SEQNUM | PRSDSERV+7*, PRSDSERV+19, PRSDSERV+20, PRSDSERV+22, PRSDSERV+24, PRSDSERV+26, SETPRS+2, EXIT+4!, SSNLOOP+7 |
| SSN | SETPRS+1, SETPRS+3, EXIT+4!, SSNLOOP+1*, SSNLOOP+2*, SSNLOOP+5, SSNLOOP+9*, SSNLOOP+13, SSNLOOP+14, START+3* , START+4*, START+5, START+7, PROC, PROC2+2, TMPERR+1, TMPERR1, UNL, SSN, SSN+2 , SSN+3, SSN+4 |
| SSNLINE | EXIT+4! |
| STA | PRSDSERV+8*, PRSDSERV+15*, PRSDSERV+19, PRSDSERV+22, PRSDSERV+24, PRSDSERV+26, SETPRS+2, EXIT+4!, SSNLOOP+7, SSNLOOP+13 , SSNLOOP+14, START+4, START+5, START+7, PROC, PROC2+2, TMPERR+1, TMPERR1, UNL, ERR |
| STA450 | EXIT+4! |
| SUB | PRSDSERV+8*, EXIT+1!, SSNLOOP+13, SSNLOOP+14, START+4, START+5, START+7, PROC, PROC2+2, TMPERR+1 , TMPERR1, UNL |
| SUM | EXIT+4! |
| TIME | PRSDSERV+3*, PRSDSERV+25, EXIT+5!, SSNLOOP+10, LDCMP+5, LDCMP+33, LDCMP+43 |
| TLDPER | LDCMP+3~, LDCMP+50*, LDCMP+51* |
| TMPIEN | EXIT+4!, START+7*, START+8, START+9, PROC*, TMPERR+1* |
| TMPLINE | EXIT+4!, SSNLOOP+13* |
| TYPE | PRSDSERV+7*, PRSDSERV+9, PRSDSERV+12, PRSDSERV+14, PRSDSERV+16, PRSDSERV+19, PRSDSERV+22, PRSDSERV+24, PRSDSERV+26, SETPRS+2 , EXIT+5!, SSNLOOP+1, SSNLOOP+6, SSNLOOP+7, SSNLOOP+13, SSNLOOP+14, START+3, START+4, START+5, START+7 , PROC, PROC2, PROC2+2, TMPERR, TMPERR+1, TMPERR1, UNL, SSN, SSN+1, SSN+2 , SSNOUT, ERR, LDCMP+45 |
| U | PRSDSERV+24, PRSDSERV+25, SETPRS+3, SSNLOOP+8, PROC2+1, ERR, LDLOAD+9, LDCMP+5, LDCMP+33, LDCMP+51 , LDCMP+53, LDCMP+67, LDCMP+70, LDCMP+71, LDCMP+72, LDCMP+73 |
| VAIEN | SSN+3! |
| VANAME | SSN+3! |
| X | PRSDSERV+23*, EXIT+5!, SSNLOOP+10, ERR* |
| X1 | EXIT+6!, SSNLOOP+10* |
| X2 | EXIT+6!, SSNLOOP+10* |
| XCNP | EXIT+5! |
| XMDUZ | EXIT+5! |
| XMER | PRSDSERV+3, PRSDSERV+15, EXIT+5! |
| XMLOC | EXIT+5! |
| XMMG | EXIT+6! |
| XMPOS | PRSDSERV+3*, SETPRS+1*, EXIT+5!, SSNLOOP+12*, SSNLOOP+13 |
| XMRG | PRSDSERV+4, PRSDSERV+7, PRSDSERV+8, PRSDSERV+15, EXIT+5!, SSNLOOP+1, SSNLOOP+13 |
| XMSER | REMSB*! |
| XMSUB | EXIT+5! |
| XMTEXT | EXIT+5! |
| XMY | EXIT+5! |
| >> XMZ | PRSDSERV+11, PRSDSERV+23, REMSB, SSNLOOP+13 |
| Y | PRSDSERV+24, PRSDSERV+25, PRSDSERV+26, EXIT+5!, ERR |
| YR | EXIT+5! |
| Name | Field # of Occurrence |
|---|---|
| $T(@RTN | PROC |