PRCHUEI ;OI&T/LKG -Routine for testing ;1/21/22 12:04
Source file <PRCHUEI.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 |
|---|---|---|
| VALIDUEI(PRCSTR) | ; Returns '1' if UEI is valid and '0' if not
|
|
| UEICHK(PRCROOT) | ; Calculates checksum
|
| Name | Line Occurrences |
|---|---|
| $$UEICHK | VALIDUEI+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| PRCI | UEICHK+1~, UEICHK+3*, UEICHK+6 |
| PRCJ | UEICHK+1~, UEICHK+5*, UEICHK+6, UEICHK+7 |
| PRCLEN | UEICHK+1~, UEICHK+2*, UEICHK+5, UEICHK+9* |
| PRCROOT | UEICHK~, UEICHK+6, UEICHK+9*, UEICHK+10 |
| PRCSTR | VALIDUEI~, VALIDUEI+2, VALIDUEI+3, VALIDUEI+4, VALIDUEI+5, VALIDUEI+6 |
| PRCSUM | UEICHK+1~, UEICHK+3, UEICHK+4*, UEICHK+8*, UEICHK+9 |
| PRCVAL | UEICHK+1~, UEICHK+6*, UEICHK+7*, UEICHK+8 |
| PRCVALID | VALIDUEI+1~*, VALIDUEI+6*, VALIDUEI+7 |