| FILE | 
50.416 | 
| NAME | 
P1 | 
| DESCRIPTION | 
 
 
 | 
| SHORT DESCRIPTION | 
CROSS REFERENCE ON PRIMARY INGREDIENT | 
| TYPE | 
MUMPS | 
| EXECUTION | 
RECORD | 
| ACTIVITY | 
IR | 
| USE | 
LOOKUP & SORTING | 
| ROOT TYPE | 
INDEX FILE | 
| ROOT FILE | 
50.416 | 
| SET LOGIC | 
I X2(1)'="",X2(2)="" S ^PS(50.416,"P",X2(1),DA)="" | 
| CROSS-REFERENCE VALUES | 
- 
- ORDER NUMBER:    1
 
- TYPE OF VALUE:    FIELD
 
- FILE:    50.416
 
- FIELD:    .01
 
- COLLATION:    forwards
 
 
- 
- ORDER NUMBER:    2
 
- TYPE OF VALUE:    FIELD
 
- FILE:    50.416
 
- FIELD:    2
 
- COLLATION:    forwards
 
 
 
 | 
| KILL LOGIC | 
I X2(1)=""!(X2(2)'="")!(X1(1)'=X2(1)) K ^PS(50.416,"P",X1(1),DA) | 
| KILL ENTIRE INDEX CODE | 
K ^PS(50.416,"P") |