Changeset 871 for Scheduling/trunk/m

Timestamp:

Jul 14, 2010, 8:55:40 AM (14 years ago)

Author:

Sam Habiel

Message:

PID added insted of SNN

File:

• Scheduling/trunk/m/BSDX09.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX09.m

@@ -26 +26 @@
         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 +58 @@
         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