| [613] | 1 | DGRPCB ;ALB/MRL - CONSISTENCY EDIT BULLETIN ; 29 AUG 88@0932
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; Fire bulletin of inconsistencies
|
|---|
| 5 | ;
|
|---|
| 6 | EN I '$D(^DGIN(38.5,DFN,0)) Q
|
|---|
| 7 | S DGD="0^",DGD1=^DGIN(38.5,DFN,0),DGDAY=$P(DGD1,"^",6) I DGDAY]"" S X1=DT,X2=DGDAY D ^%DTC S DGD=+X,Y=DGDAY X ^DD("DD") S $P(DGD,"^",2)=Y
|
|---|
| 8 | I +DGD!($P(DGD1,"^",6)=DT) W !!,"Last notification message was sent '",$P(DGD,"^",2),"' [",$S($P(DGD1,"^",6)=DT:"TODAY",1:+DGD_" - Day"_$S(+DGD=1:"",1:"s")_" ago"),"]"
|
|---|
| 9 | I $S($P(DGD1,"^",6)=DT:1,+DGD'>6&(+DGD):1,1:0),'DGCT2 W !!,"No new message sent since it's been less than 7 days since last message",!,"and no new inconsistencies were found..." Q
|
|---|
| 10 | W !! I 'DGD,'$P(DGD1,"^",6) W "Initial notification"
|
|---|
| 11 | E W $S('DGCT2:"Reminder",1:"Updated")
|
|---|
| 12 | W " message sent..." I +DGCT2 W $S(+DGCT2:"'"_+DGCT2_"'",1:"No")," new inconsistenc",$S(+DGCT2=1:"y",1:"ies")," found..."
|
|---|
| 13 | S XMSUB="INCONSISTENCY EDIT" F I=1:1 S J=$P($T(T+I),";;",2) Q:J="QUIT" S DGTEXT(I,0)=J,DGC=I
|
|---|
| 14 | D ^DGPATV S DGC=DGC+1,DGTEXT(DGC,0)="",DGC=DGC+1,DGTEXT(DGC,0)="PATIENT NAME: "_DGNAME_" SSN: "_$P(SSN,"^",2),DGC=DGC+1,DGTEXT(DGC,0)=""
|
|---|
| 15 | S DGC=DGC+1,DGTEXT(DGC,0)="NOTIFICATION STATUS: "_$S('+DGD:"THIS IS THE FIRST NOTIFICATION MESSAGE.",1:"INITIALLY NOTIFIED '"_$P(DGD,"^",2)_" ["_+DGD_" - DAY"_$S(+DGD=1:"",1:"S")_" AGO]"),$P(^DGIN(38.5,DFN,0),"^",6)=DT
|
|---|
| 16 | S Y=$P(DGD1,"^",2) X:Y]"" ^DD("DD") S Y=$S(Y]"":Y,1:"UNKNOWN DATE"),DGC=DGC+1,DGTEXT(DGC,0)="",DGC=DGC+1,DGTEXT(DGC,0)="INITIALLY IDENTIFIED BY: '"_$S($D(^VA(200,+$P(DGD1,"^",3),0)):$P(^(0),"^",1),1:"UNKNOWN")_"' ON '"_Y_"'."
|
|---|
| 17 | S DGC=DGC+1,DGTEXT(DGC,0)="" F I=1:1 S J=$P(DGER,",",I) Q:J="" I $D(^DGIN(38.6,J,0)) S DGC=DGC+1,DGTEXT(DGC,0)=$E(J_" ",1,3)_"- "_$P(^(0),"^",2)_$S(DGKEY(+$E(DGEDIT,J)):"*",1:"")
|
|---|
| 18 | KILL S DGB=6 D ^DGBUL,KILL^DGPATV K DGB,DGC,DGD,DGD1,DGDAY,DGEDIT,I,J,X,X1,X2 Q
|
|---|
| 19 | T ;
|
|---|
| 20 | ;;The following inconsistencies remain on file for the below named patient.
|
|---|
| 21 | ;;Those inconsistencies followed with a asterisk [*] are verified and editable by
|
|---|
| 22 | ;;only those users who hold the "DG ELIGIBILITY" security key. I may not be a
|
|---|
| 23 | ;;holder of this key and therefore may have not been able to update these data
|
|---|
| 24 | ;;elements. Please use the 'Edit Inconsistent Data' option to clear up these
|
|---|
| 25 | ;;remaining inconsistencies asap. Thank you.
|
|---|
| 26 | ;;QUIT
|
|---|
