XUPC991 ;BPO/CLT - UPDATE EFFECTIVE DATE FIELD ; 06 Oct 2016 8:49 AM
Source file <XUPC991.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 |
|---|---|---|
| SET(XUDA,XUDA1) | ;SET THE EFFECTIVE DATE FIELD INFO TO CURRENT STATUS and DATE
; XUDA - The IEN of vuid STATUS (#8932.199,.02) ; XUDA1 - The IEN of the PERSON CLASS (#8932.1) entry ; X1 - old change array before edit ; X2 - new change array after edit ; XUNM - external name value of vuid STATUS field |
|
| SETJ(XUDA,XUDA1) | ; save of vuid status to field 3 and 4
|
|
| SETS | ;save the status
|
|
| SETD | ; make sure field 4 is clear when status is 'a'
|
|
| SETQ | ; quit
|
|
| SETSD | ;set for inactive
|
|
| SETSA | ;set for active
|
|
| KILL(XUDA,XUDA1) | ;
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SET+9 |
| A | SETJ+1~, SETJ+5*, SETJ+6, SETJ+7 |
| AR | SETJ+1~, SETJ+3* |
| AR(3 | SETJ+4 |
| B | SETJ+1~, SETJ+5*, SETJ+6 |
| C | SETJ+1~ |
| CD | SETJ+1~ |
| CS | SETJ+1~, SETJ+4*, SETJ+6, SETJ+7 |
| D | SETJ+1~ |
| DA | SETJ+1~ |
| DI | SETJ+1~ |
| DIE | SETJ+1~ |
| DIQ | SETJ+1~ |
| DL | SETJ+1~ |
| DP | SETJ+1~ |
| DR | SETJ+1~ |
| E | SETJ+1~ |
| F | SETJ+1~ |
| F("8932.1" | SETJ+3 |
| FDA | SETJ+1~, SETS+3!, SETD+3! |
| FDA( | SETS+4*, SETD+4* |
| >> X1 | SET+8 |
| >> X2 | SET+8 |
| XUDA | SET~, SET+11, SET+15, SETJ~, KILL~ |
| XUDA1 | SET~, SET+11, SET+15, SETJ~, SETJ+2, SETJ+3, SETS+4, SETD+4, KILL~ |
| XUDT | SETJ+1~ |
| XUN | SET+7~, SET+8*, SET+17! |
| XUN(1 | SETJ+5 |
| XUNM | SET+7~, SET+9*, SET+17!, SETJ+5 |
| XUO | SET+7~, SET+8*, SET+17! |
| XUSTAT | SETJ+1~, SETS+4, SETSD+1*, SETSA+1* |
| ZTDESC | SET+7~, SET+10*, SET+17! |
| ZTDTH | SET+7~, SET+10*, SET+17! |
| ZTIO | SET+7~, SET+13*, SET+17! |
| ZTRTN | SET+7~, SET+11*, SET+17! |
| ZTSAVE | SET+7~, SET+17! |
| ZTSAVE("XUDA" | SET+11* |
| ZTSAVE("XUDA1" | SET+11* |
| ZTSAVE("XUN(" | SET+12* |
| ZTSAVE("XUNM" | SET+11* |
| ZTSAVE("XUO(" | SET+12* |
| ZTSK | SET+7~, SET+17! |
