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'
|