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