Index: Scheduling/trunk/m/BSDX09.m
===================================================================
--- Scheduling/trunk/m/BSDX09.m	(revision 870)
+++ Scheduling/trunk/m/BSDX09.m	(revision 871)
@@ -26,5 +26,5 @@
 	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"
@@ -58,5 +58,5 @@
 	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