[613] | 1 | SPNDDFM ;SD/CM- UPDATES REG STATUS USING FIELD MONITOR; 7-9-01
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**18**;01/02/97
|
---|
| 3 | ;
|
---|
| 4 | EDIT ;
|
---|
| 5 | Q:'$D(^SPNL(154,DGDA))
|
---|
| 6 | Q:$P(^SPNL(154,DGDA,0),U,3)=""
|
---|
| 7 | S SPNOLD=$P(^SPNL(154,DGDA,0),U,3)
|
---|
| 8 | I $P($G(^DPT(DGDA,.35)),U,1)'="" K ^SPNL(154,"AD",SPNOLD,DGDA) S DIE="^SPNL(154,",DA=DGDA,DR=".03///EXPIRED" D ^DIE
|
---|
| 9 | D CHK^SPNHL7(DGDA)
|
---|
| 10 | K DA,DIE,DR,SPNOLD
|
---|
| 11 | Q
|
---|
| 12 | DEL ;
|
---|
| 13 | Q:'$D(^SPNL(154,DGDA))
|
---|
| 14 | Q:$P(^SPNL(154,DGDA,0),U,3)=""
|
---|
| 15 | Q:$P(^SPNL(154,DGDA,0),U,3)'="X"
|
---|
| 16 | I $P($G(^DPT(DGDA,.35)),U,1)="" D DEL2
|
---|
| 17 | K SPNARR,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
| 18 | Q
|
---|
| 19 | DEL2 ;
|
---|
| 20 | S SPNARR(1)=" ******** Patient NOT Expired ********"
|
---|
| 21 | S SPNARR(2)=" "
|
---|
| 22 | S SPNARR(3)="This is to alert you that a patient marked as 'Expired'"
|
---|
| 23 | S SPNARR(4)="in the SCD Registry is alive according to MAS records."
|
---|
| 24 | S SPNARR(4.2)="Notify your hospital's MAS personnel -- it is possible"
|
---|
| 25 | S SPNARR(4.4)="that the patient is indeed deceased, but Date of Death"
|
---|
| 26 | S SPNARR(4.6)="was not entered into pt's VA record."
|
---|
| 27 | S SPNARR(5)="However, if this patient is truely alive, please update"
|
---|
| 28 | S SPNARR(6)="his Registration Status field in the SCD Registry."
|
---|
| 29 | S SPNARR(7)=" "
|
---|
| 30 | S SPNARR(8)="Patient ----> "_$E($P($G(^DPT(DGDA,0)),U,1),1)_$E($P($G(^DPT(DGDA,0)),U,9),6,9)
|
---|
| 31 | S XMSUB="PT DEATH: MAS RECORD vs. SCD RECORD"
|
---|
| 32 | S XMDUZ="SCD REGISTRY"
|
---|
| 33 | MSG ;
|
---|
| 34 | S XMTEXT="SPNARR("
|
---|
| 35 | S XMY("G.SPNL SCD COORDINATOR")=""
|
---|
| 36 | SEND ;
|
---|
| 37 | D ^XMD
|
---|
| 38 | Q
|
---|