DGJTUDIS.m

DGJTUDIS ;ALB/MAF - CHECK THE PARAMETERS F0R INCOMPLETE REPORTS ; FEB 12 1991

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 S DGJTFLAG=0,DGJTNODE=^VAS(393,IFN,0),DGJTDEL=$S($D(^DG(40.8,+$P(DGJTNODE,"^",6),"DT")):^("DT"),1:"") S DGJTPAR=$P(DGJTDEL,"^",6)_"^"_$P(DGJTDEL,"^",7)_"^"_$P(DGJTDEL,"^",8)

 I $D(^VAS(393,IFN,"DT")) S DGJTNODT=^VAS(393,IFN,"DT")

 D NOW^%DTC S X=%,DGJTNOW=X\1

 I DGJTSTAT[("^"_$P(DGJTNODE,"^",11)_"^") D PROC

Q Q

PROC I $P(DGJTNODE,"^",11)=$O(^DG(393.2,"B","INCOMPLETE",0)) S X1=$P(DGJTNODE,"^",3),X2=+DGJTPAR D C^%DTC S DGJTFLAG=$S(DGJTNOW=$E(X,1,7):1,DGJTNOW>(X\1):1,1:0) S:DGJTFLAG DGJTDL=DGJTNOW-$E(X,1,7) D:DGJTFLAG DAYS Q

 I $P(DGJTNODE,"^",11)=$O(^DG(393.2,"B","DICTATED",0)) S DGJTFLAG=1,X=$P(DGJTNODE,"^",3) D DAYS Q

 I $P(DGJTNODE,"^",11)=$O(^DG(393.2,"B","TRANSCRIBED",0)) S X1=$P(DGJTNODT,"^",3),X2=$P(DGJTPAR,"^",2) D C^%DTC S:DGJTNOW'<(X\1) DGJTFLAG=1 D:DGJTFLAG DAYS Q

 Q:$P(DGJTDEL,"^",3)=0  I $P(DGJTNODE,"^",11)=$O(^DG(393.2,"B","SIGNED",0)) S X1=$P(DGJTNODT,"^",5),X2=$P(DGJTPAR,"^",3) D C^%DTC S:DGJTNOW'<(X\1) DGJTFLAG=1 D:DGJTFLAG DAYS Q

 Q

DAYS S X1=DGJTNOW,X2=X\1 D ^%DTC S DGJTDL=X Q

DGJTUDIS  ;ALB/MAF - CHECK THE PARAMETERS F0R INCOMPLETE REPORTS ; FEB 12 1991

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2        SET DGJTFLAG=0

           SET DGJTNODE=^VAS(393,IFN,0)

           SET DGJTDEL=$SELECT($DATA(^DG(40.8,+$PIECE(DGJTNODE,"^",6),"DT")):^("DT"),1:"")

           SET DGJTPAR=$PIECE(DGJTDEL,"^",6)_"^"_$PIECE(DGJTDEL,"^",7)_"^"_$PIECE(DGJTDEL,"^",8)

 +3        IF $DATA(^VAS(393,IFN,"DT"))

               SET DGJTNODT=^VAS(393,IFN,"DT")

 +4        DO NOW^%DTC

           SET X=%

           SET DGJTNOW=X\1

 +5        IF DGJTSTAT[("^"_$PIECE(DGJTNODE,"^",11)_"^")

               DO PROC

Q          QUIT 

PROC       IF $PIECE(DGJTNODE,"^",11)=$ORDER(^DG(393.2,"B","INCOMPLETE",0))

               SET X1=$PIECE(DGJTNODE,"^",3)

               SET X2=+DGJTPAR

               DO C^%DTC

               SET DGJTFLAG=$SELECT(DGJTNOW=$EXTRACT(X,1,7):1,DGJTNOW>(X\1):1,1:0)

               IF DGJTFLAG

                   SET DGJTDL=DGJTNOW-$EXTRACT(X,1,7)

               IF DGJTFLAG

                   DO DAYS

               QUIT 

 +1        IF $PIECE(DGJTNODE,"^",11)=$ORDER(^DG(393.2,"B","DICTATED",0))

               SET DGJTFLAG=1

               SET X=$PIECE(DGJTNODE,"^",3)

               DO DAYS

               QUIT 

 +2        IF $PIECE(DGJTNODE,"^",11)=$ORDER(^DG(393.2,"B","TRANSCRIBED",0))

               SET X1=$PIECE(DGJTNODT,"^",3)

               SET X2=$PIECE(DGJTPAR,"^",2)

               DO C^%DTC

               IF DGJTNOW'<(X\1)

                   SET DGJTFLAG=1

               IF DGJTFLAG

                   DO DAYS

               QUIT 

 +3        IF $PIECE(DGJTDEL,"^",3)=0

               QUIT 

           IF $PIECE(DGJTNODE,"^",11)=$ORDER(^DG(393.2,"B","SIGNED",0))

               SET X1=$PIECE(DGJTNODT,"^",5)

               SET X2=$PIECE(DGJTPAR,"^",3)

               DO C^%DTC

               IF DGJTNOW'<(X\1)

                   SET DGJTFLAG=1

               IF DGJTFLAG

                   DO DAYS

               QUIT 

 +4        QUIT 

DAYS       SET X1=DGJTNOW

           SET X2=X\1

           DO ^%DTC

           SET DGJTDL=X

           QUIT