diff --git a/m/BSDX09.m b/m/BSDX09.m
index ab0890a..4f60220 100644
--- a/m/BSDX09.m
+++ b/m/BSDX09.m
@@ -25,7 +25,7 @@ GETREGA(BSDXRET,BSDXPAT)	       ;EP
 	S $P(@OUT,U,5)="T00030ZIP"
 	S $P(@OUT,U,6)="T00030NAME"
 	S $P(@OUT,U,7)="D00030DOB"
-	S $P(@OUT,U,8)="T00030SSN"
+	S $P(@OUT,U,8)="T00030PID"
 	S $P(@OUT,U,9)="T00030HRN"
 	S $P(@OUT,U,10)="T00030HOMEPHONE"
 	S $P(@OUT,U,11)="T00030OFCPHONE"
@@ -57,7 +57,7 @@ GETREGA(BSDXRET,BSDXPAT)	       ;EP
 	S $P(BSDXY,U,21)=""
 	S BSDXNOD=^DPT(+BSDXPAT,0)
 	S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME
-	S $P(BSDXY,"^",8)=$P(BSDXNOD,U,9) ;SSN
+	S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID")
 	S Y=$P(BSDXNOD,U,3) I Y]""  X ^DD("DD") S Y=$TR(Y,"@"," ")
 	S $P(BSDXY,"^",7)=Y ;DOB
 	S $P(BSDXY,"^",9)=""