DG685PST.m

DG685PST ;BAY/ALS;cleanup Patient Date Review exceptions ; 11/15/05

 ;;5.3;Registration;**685**;Aug 13,1993

 ;

 ; This is a post-install routine for DG*5.3*685

 ; The purpose is to cleanup Patient Data Review exceptions.

 ; When an entry exists in the PATIENT DATA EXCEPTION (391.98) file

 ; and the corresponding data is missing from the PATIENT DATA

 ; ELEMENT (391.99) file the exception will be retired. 

 ;

EN ; 

 N DGPDR,IEN

 S IEN=0

 F  S IEN=$O(^DGCN(391.98,IEN)) Q:'IEN  D

 . I '$O(^DGCN(391.99,"B",IEN,0)) D

 .. I $P($G(^DGCN(391.98,IEN,0)),"^",4)'=6 S DGPDR=$$EDIT^VAFCEHU1(IEN,"RD")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG685PST   614     printed  Apr 09, 2024@21:48:58                                                                                                                                                                                                     Page 2

DG685PST  ;BAY/ALS;cleanup Patient Date Review exceptions ; 11/15/05

 +1       ;;5.3;Registration;**685**;Aug 13,1993

 +2       ;

 +3       ; This is a post-install routine for DG*5.3*685

 +4       ; The purpose is to cleanup Patient Data Review exceptions.

 +5       ; When an entry exists in the PATIENT DATA EXCEPTION (391.98) file

 +6       ; and the corresponding data is missing from the PATIENT DATA

 +7       ; ELEMENT (391.99) file the exception will be retired. 

 +8       ;

EN        ; 

 +1        NEW DGPDR,IEN

 +2        SET IEN=0

 +3        FOR 

               SET IEN=$ORDER(^DGCN(391.98,IEN))

               if 'IEN

                   QUIT 

               Begin DoDot:1

 +4                IF '$ORDER(^DGCN(391.99,"B",IEN,0))

                       Begin DoDot:2

 +5                        IF $PIECE($GET(^DGCN(391.98,IEN,0)),"^",4)'=6

                               SET DGPDR=$$EDIT^VAFCEHU1(IEN,"RD")

                       End DoDot:2

               End DoDot:1

 +6        QUIT