iSharkFly-Open
/
VistA-Scheduling
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PID added insted of SNN

This commit is contained in:
sam 2010-07-14 12:55:40 +00:00
parent e7203cda84
commit 5875df9b4a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
m/BSDX09.m
View File

@ -25,7 +25,7 @@ GETREGA(BSDXRET,BSDXPAT) ;EP
S $P(@OUT,U,5)="T00030ZIP" S $P(@OUT,U,5)="T00030ZIP"
S $P(@OUT,U,6)="T00030NAME" S $P(@OUT,U,6)="T00030NAME"
S $P(@OUT,U,7)="D00030DOB" 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,9)="T00030HRN"
S $P(@OUT,U,10)="T00030HOMEPHONE" S $P(@OUT,U,10)="T00030HOMEPHONE"
S $P(@OUT,U,11)="T00030OFCPHONE" S $P(@OUT,U,11)="T00030OFCPHONE"
@ -57,7 +57,7 @@ GETREGA(BSDXRET,BSDXPAT) ;EP
S $P(BSDXY,U,21)="" S $P(BSDXY,U,21)=""
S BSDXNOD=^DPT(+BSDXPAT,0) S BSDXNOD=^DPT(+BSDXPAT,0)
S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME 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 Y=$P(BSDXNOD,U,3) I Y]"" X ^DD("DD") S Y=$TR(Y,"@"," ")
S $P(BSDXY,"^",7)=Y ;DOB S $P(BSDXY,"^",7)=Y ;DOB
S $P(BSDXY,"^",9)="" S $P(BSDXY,"^",9)=""