**** PPI-R scoring syntax ****

COMPUTE ppi_B_original = SUM(ppi016,ppi018,ppi019,(5-ppi038),ppi040,ppi060,ppi062,(5-ppi082),ppi084,ppi090,(5-ppi100),
ppi112,ppi122,ppi134,ppi144).
EXECUTE .
COMPUTE ppi_R_original= SUM(ppi004,ppi014,ppi015,ppi026,ppi035,ppi036,ppi048,ppi058,ppi070,ppi080,
ppi094,ppi105,ppi116,ppi127,ppi138,ppi149).
EXECUTE .
COMPUTE ppi_St_original= SUM((5-ppi006),(5-ppi010),(5-ppi028),ppi032,(5-ppi050),ppi054,(5-ppi072),(5-ppi076),ppi096,
ppi118,(5-ppi119),ppi140,(5-ppi141)) .
EXECUTE .
COMPUTE ppi_So_original= SUM(ppi002,(5-ppi021),(5-ppi022),(5-ppi024),ppi034,ppi041,ppi043,ppi046,ppi056,ppi063,(5-ppi065),
(5-ppi068),ppi078,ppi085,(5-ppi087),ppi091,(5-ppi113),(5-ppi135)).
EXECUTE .
COMPUTE ppi_Co_original= SUM((5-ppi005),(5-ppi009),(5-ppi027),(5-ppi031),ppi049,(5-ppi053),(5-ppi071),(5-ppi075),(5-ppi097),
(5-ppi098),(5-ppi109),(5-ppi110),(5-ppi120),ppi131,(5-ppi142),(5-ppi153)).
EXECUTE .
COMPUTE ppi_M_original= SUM(ppi001,ppi011,(5-ppi017),ppi023,ppi033,ppi039,ppi045,ppi055,ppi061,ppi067,
ppi077,(5-ppi083),ppi092,ppi103,ppi114,ppi125,ppi132,ppi136,ppi147,ppi154).
EXECUTE .
COMPUTE ppi_Ca_original= SUM(ppi007,ppi029,(5-ppi044),(5-ppi051),ppi066,(5-ppi073),(5-ppi088),(5-ppi089),(5-ppi099),(5-ppi101),
(5-ppi108),ppi111,(5-ppi121),(5-ppi123),(5-ppi130),(5-ppi133),(5-ppi143),(5-ppi145),(5-ppi152)).
EXECUTE .
COMPUTE ppi_F_original= SUM((5-ppi003),ppi012,ppi013,ppi025,(5-ppi047),ppi057,(5-ppi069),(5-ppi079),ppi093,ppi104,
ppi115,ppi126,ppi137,ppi148).
EXECUTE .
COMPUTE ppi_V_original= SUM(ppi020,ppi037,ppi042,(5-ppi059),ppi064,ppi081,(5-ppi086),ppi095,(5-ppi106),(5-ppi117),(5-ppi128),
ppi139,ppi150).
EXECUTE .
COMPUTE ppi_D_original= SUM(ppi008,(5-ppi030),ppi052,(5-ppi074),ppi102,ppi107,(5-ppi124),(5-ppi129),(5-ppi146),ppi151).
EXECUTE .

COMPUTE ppi_SUM_original = SUM(ppi001,ppi002,(5-ppi003),ppi004,(5-ppi005),(5-ppi006),ppi007,(5-ppi009),
(5-ppi010),ppi011,ppi012,ppi013,ppi014,ppi015,ppi016,(5-ppi017),ppi018,ppi019,(5-ppi021),
(5-ppi022),ppi023,(5-ppi024),ppi025,ppi026,(5-ppi027),(5-ppi028),ppi029,(5-ppi031),ppi032,ppi033,
ppi034,ppi035,ppi036,(5-ppi038),ppi039,ppi040,ppi041,ppi043,(5-ppi044),ppi045,ppi046,
(5-ppi047),ppi048,ppi049,(5-ppi050),(5-ppi051),(5-ppi053),ppi054,ppi055,ppi056,ppi057,ppi058,
ppi060,ppi061,ppi062,ppi063,(5-ppi065),ppi066,ppi067,(5-ppi068),(5-ppi069),ppi070,(5-ppi071),
(5-ppi072),(5-ppi073),(5-ppi075),(5-ppi076),ppi077,ppi078,(5-ppi079),ppi080,(5-ppi082),(5-ppi083),ppi084,
ppi085,(5-ppi087),(5-ppi088),(5-ppi089),ppi090,ppi091,ppi092,ppi093,ppi094,ppi096,(5-ppi097),
(5-ppi098),(5-ppi099),(5-ppi100),(5-ppi101),ppi103,ppi104,ppi105,(5-ppi108),(5-ppi109),(5-ppi110),ppi111,
ppi112,(5-ppi113),ppi114,ppi115,ppi116,ppi118,(5-ppi119),(5-ppi120),(5-ppi121),ppi122,(5-ppi123),
ppi125,ppi126,ppi127,(5-ppi130),ppi131,ppi132,(5-ppi133),ppi134,(5-ppi135),ppi136,ppi137,ppi138,
ppi140,(5-ppi141),(5-ppi142),(5-ppi143),ppi144,(5-ppi145),ppi147,ppi148,ppi149,(5-ppi152),(5-ppi153),ppi154).
EXECUTE .


*Fearless Dominance (St, So, F)*

COMPUTE PPI_R_FD= SUM((5-ppi006),(5-ppi010),(5-ppi028),ppi032,(5-ppi050),ppi054,(5-ppi072),(5-ppi076),ppi096,
ppi118,(5-ppi119),ppi140,(5-ppi141),ppi002,(5-ppi021),(5-ppi022),(5-ppi024),ppi034,ppi041,ppi043,ppi046,
ppi056,ppi063,(5-ppi065),(5-ppi068),ppi078,ppi085,(5-ppi087),ppi091,(5-ppi113),(5-ppi135),(5-ppi003),ppi012,
ppi013,ppi025,(5-ppi047),ppi057,(5-ppi069),(5-ppi079),ppi093,ppi104,ppi115,ppi126,ppi137,ppi148).
EXECUTE.

*Self-centered Impulsivity (B,M,Ca,R)*

COMPUTE PPI_R_SI= SUM(ppi016,ppi018,ppi019,(5-ppi038),ppi040,ppi060,ppi062,(5-ppi082),ppi084,ppi090,(5-ppi100),
ppi112,ppi122,ppi134,ppi144,ppi001,ppi011,(5-ppi017),ppi023,ppi033,ppi039,ppi045,ppi055,ppi061,ppi067,
ppi077,(5-ppi083),ppi092,ppi103,ppi114,ppi125,ppi132,ppi136,ppi147,ppi154,ppi007,ppi029,(5-ppi044),
(5-ppi051),ppi066,(5-ppi073),(5-ppi088),(5-ppi089),(5-ppi099),(5-ppi101),(5-ppi108),ppi111,(5-ppi121),
(5-ppi123),(5-ppi130),(5-ppi133),(5-ppi143),(5-ppi145),(5-ppi152),ppi004,ppi014,ppi015,ppi026,ppi035,
ppi036,ppi048,ppi058,ppi070,ppi080,ppi094,ppi105,ppi116,ppi127,ppi138,ppi149).
EXECUTE.

*Coldheartedness*

COMPUTE PPI_R_CO= SUM((5-ppi005),(5-ppi009),(5-ppi027),(5-ppi031),ppi049,(5-ppi053),(5-ppi071),(5-ppi075),(5-ppi097),
(5-ppi098),(5-ppi109),(5-ppi110),(5-ppi120),ppi131,(5-ppi142),(5-ppi153)).
EXECUTE.


*Inconsistent Responding*

COMPUTE PPI_IR15=SUM(ABS(ppi001-ppi039),ABS((5-ppi003)-(5-ppi047)),ABS((5-ppi010)-ppi118),ABS(ppi013-ppi093),ABS(ppi018-ppi062)
    ,ABS((5-ppi024)-(5-ppi087)),ABS((5-ppi028)-(5-ppi076)),ABS(ppi032-(5-ppi141)),ABS(ppi034-ppi078),ABS(ppi040-ppi134),ABS(ppi061-ppi154)
    ,ABS((5-ppi071)-(5-ppi109)),ABS((5-ppi072)-(5-ppi119)),ABS((5-ppi089)-ppi111),ABS(ppi126-ppi148)).
VARIABLE LABELS  PPI_IR15 'Inconsistent Responding 15'.
Execute. 

COMPUTE PPI_IR_Subtotal=SUM(ABS(ppi002-ppi063),ABS(ppi004-ppi036),ABS(ppi011-ppi132),ABS(ppi012-ppi137),ABS(ppi014-ppi080)
    ,ABS(ppi015-ppi149),ABS(ppi016-ppi084),ABS((5-ppi017)-(5-ppi097)),ABS((5-ppi021)-ppi043),ABS(ppi023-ppi136),ABS(ppi025-ppi057)
    ,ABS(ppi026-ppi058),ABS(ppi033-ppi091),ABS((5-ppi044)-(5-ppi108)),ABS(ppi046-(5-ppi068)),ABS(ppi049-(5-ppi153)),ABS(ppi077-ppi103)
    ,ABS(ppi090-ppi144),ABS(ppi094-ppi116),ABS(ppi096-ppi140),ABS((5-ppi098)-(5-ppi110)),ABS(ppi035-ppi127),ABS((5-ppi113)-(5-ppi135))
    ,ABS(ppi125-ppi147),ABS((5-ppi130)-(5-ppi143))).
VARIABLE LABELS  PPI_IR_Subtotal 'Inconsistent Responding Subtotal'.
Execute. 

COMPUTE PPI_IR40=PPI_IR15+PPI_IR_Subtotal.
VARIABLE LABELS PPI_IR40 'Inconsistent Responding 40'.
EXECUTE.