DGJTUDIS ;ALB/MAF - CHECK THE PARAMETERS F0R INCOMPLETE REPORTS ; FEB 12 1991
;;1.0;Incomplete Records Tracking;;Jun 25, 2001
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJTUDIS 1150 printed Dec 13, 2024@02:00:56 Page 2
DGJTUDIS ;ALB/MAF - CHECK THE PARAMETERS F0R INCOMPLETE REPORTS ; FEB 12 1991
+1 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
+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
