Changeset 871 for Scheduling


Ignore:
Timestamp:
Jul 14, 2010, 8:55:40 AM (14 years ago)
Author:
Sam Habiel
Message:

PID added insted of SNN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Scheduling/trunk/m/BSDX09.m

    r865 r871  
    2626        S $P(@OUT,U,6)="T00030NAME"
    2727        S $P(@OUT,U,7)="D00030DOB"
    28         S $P(@OUT,U,8)="T00030SSN"
     28        S $P(@OUT,U,8)="T00030PID"
    2929        S $P(@OUT,U,9)="T00030HRN"
    3030        S $P(@OUT,U,10)="T00030HOMEPHONE"
     
    5858        S BSDXNOD=^DPT(+BSDXPAT,0)
    5959        S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME
    60         S $P(BSDXY,"^",8)=$P(BSDXNOD,U,9) ;SSN
     60        S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID")
    6161        S Y=$P(BSDXNOD,U,3) I Y]""  X ^DD("DD") S Y=$TR(Y,"@"," ")
    6262        S $P(BSDXY,"^",7)=Y ;DOB
Note: See TracChangeset for help on using the changeset viewer.