Name | Value |
---|---|
NUMBER | 4471 |
IA # | 4471 |
FILE NUMBER | 450 |
DATE CREATED | 2006/01/10 |
CUSTODIAL PACKAGE | PAID |
USAGE | Private |
TYPE | Other |
NAME | CREATE NEW CROSS REFERENCE |
GENERAL DESCRIPTION | Kernel patch XU*8*384 requests to create the new AXUSEC Cross-reference for field SEPARATION IND(#80) of the file PAID EMPLOYEE(#450) to send a bulletin message to the mail group XUSEC/PRC PAID SEPARATION when the field SEPARATION IND(#80) is set 'Y' for an employee. hard codes set for the cross-ref: S ^DD(450,80,1,160001,0)="450^AXUSEC^MUMPS" S ^DD(450,80,1,160001,1)="D:$T(^XUSECBUL)'="""" ^XUSECBUL" S ^DD(450,80,1,160001,2)="Q" S ^DD(450,80,1,160001,"%D",0)="^^3^3^3060110^" S ^DD(450,80,1,160001,"%D",1,0)="This cross reference is used to send a message when an employee's:" S ^DD(450,80,1,160001,"%D",2,0)="File: PAID EMPLOYEE(#450)" S ^DD(450,80,1,160001,"%D",3,0)="Field: SEPARATION IND(#80) is set to 'Y '" S ^DD(450,80,1,160001,"DT")=3060110 S ^DD(450,80,"DT")=3060110 Q ========================================= CROSS-REFERENCE: 450^AXUSEC^MUMPS 1)= D:$T(^XUSECBUL)'="" ^XUSECBUL 2)= Q This cross reference is used to send a message when an employee's: File: PAID EMPLOYEE(#450) Field: SEPARATION IND(#80) is set to 'Y' |
STATUS | Expired |
SUBSCRIBING PACKAGE | KERNEL |