[628] | 1 | SPNDDXFR ;SD/CM- UPDATES REG STATUS BASED ON DEATH STATUS; 4-29-99
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**11**;01/02/97
|
---|
| 3 | ;
|
---|
| 4 | DOD ; Called by Mumps x-ref ASPN when editing Date of Death (file 2).
|
---|
| 5 | S U="^"
|
---|
| 6 | SET Q:'$D(X)
|
---|
| 7 | Q:'$D(^SPNL(154,DA))
|
---|
| 8 | I $P($G(^DPT(DA,.35)),U,1)'="",(X'="") S $P(^SPNL(154,DA,0),U,3)="X" S DIK="^SPNL(154,",DIK(1)=".03" D EN^DIK
|
---|
| 9 | SENDMM ;
|
---|
| 10 | I $P($G(^DPT(DA,.35)),U,1)="" D ALIVE
|
---|
| 11 | G EXIT
|
---|
| 12 | ALIVE ;
|
---|
| 13 | S SPNARR(1)=" ******** Patient NOT Deceased ********"
|
---|
| 14 | S SPNARR(2)=" "
|
---|
| 15 | S SPNARR(3)="This is to alert you that a patient marked as 'deceased'"
|
---|
| 16 | S SPNARR(4)="in the PATIENT file has been corrected to 'NOT deceased'."
|
---|
| 17 | S SPNARR(5)="Please check this patient's record in the SCD Registry to"
|
---|
| 18 | S SPNARR(6)="ensure the Registration Status field is updated."
|
---|
| 19 | S SPNARR(7)=" "
|
---|
| 20 | S SPNARR(8)="Patient's name is ----> "_$P(^DPT(DA,0),U,1)
|
---|
| 21 | S SPNARR(9)="Patient's SSN is ----> "_$P(^DPT(DA,0),U,9)
|
---|
| 22 | S XMSUB="UPDATE REGISTRATION STATUS - SCI PATIENT"
|
---|
| 23 | S XMDUZ="SCD REGISTRY"
|
---|
| 24 | MSG ;
|
---|
| 25 | S XMTEXT="SPNARR("
|
---|
| 26 | S XMY("G.SPNL SCD COORDINATOR")=""
|
---|
| 27 | SEND ;
|
---|
| 28 | D ^XMD
|
---|
| 29 | Q
|
---|
| 30 | EXIT ;
|
---|
| 31 | K SPNARR,DIK,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
| 32 | Q
|
---|