source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNDDFM.m@ 1389

Last change on this file since 1389 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1SPNDDFM ;SD/CM- UPDATES REG STATUS USING FIELD MONITOR; 7-9-01
2 ;;2.0;Spinal Cord Dysfunction;**18**;01/02/97
3 ;
4EDIT ;
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
12DEL ;
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
19DEL2 ;
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"
33MSG ;
34 S XMTEXT="SPNARR("
35 S XMY("G.SPNL SCD COORDINATOR")=""
36SEND ;
37 D ^XMD
38 Q
Note: See TracBrowser for help on using the repository browser.