XUPC991 ;BPO/CLT - UPDATE EFFECTIVE DATE FIELD ; 06 Oct 2016 8:49 AM
Source file <XUPC991.m>
| 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) | ;
|
