DGJTVW ;ALB/MAF - DISPLAY SCREENS FOR INCOMPLETE RECORDS TRACKING (LIST PROCESSOR) ; JAN 31,1989@900
;;1.0;Incomplete Records Tracking;;Jun 25, 2001
EN2 D HDR^DGJTEE S DGJTVIEW=1 K DIC D EN^DGJTVW1 Q
;Display coded by and date coded on screens.
CODDT S DGJVAL=" "_$S('$D(DGJTVIEW):"*",1:"")_"Date Coded: "
S X=""
S X=$$SETSTR^VALM1(DGJVAL,X,42,21)
S DGJT1=2 D 1 S Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP^DGJTVW2
Q
CODBY S DGJVAL=" "_$S('$D(DGJTVIEW):"*",1:"")_"Coded By: "
S X=""
S X=$$SETSTR^VALM1(DGJVAL,X,42,21)
S DGJT1=3 D 1 S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP^DGJTVW2
Q
1 S DGJVAL=$P(DGJTNO,"^",4) S DGJVAL=$S($D(^DGPM(+DGJVAL,0)):$P(^(0),"^",16),1:"") I DGJVAL]"" S DGJVAL=$S($D(^DGPT(DGJVAL,0)):$P(^DGPT(DGJVAL,0),"^",9),1:"") I DGJVAL]"" S DGJVAL=$S($D(^DGP(45.84,+DGJVAL,0)):$P(^(0),"^",DGJT1),1:"")
Q
COM ;Code to print the comments lines on screens.
S X=""
S X=$$SETSTR^VALM1("4)",X,1,2) D TMP^DGJTVW2
S X=""
S X=$$SETSTR^VALM1("Comments:",X,1,9)
S DGJVAL=$P(^VAS(393,$P(DGJTEDT,"^",2),"MSG"),"^",1)
S X=$$SETSTR^VALM1($E(DGJVAL,1,64),X,11,64) D TMP^DGJTVW2
S X=""
S X=$$SETSTR^VALM1($E(DGJVAL,65,129),X,11,64) D TMP^DGJTVW2
S X=""
S X=$$SETSTR^VALM1($E(DGJVAL,130,194),X,11,64) D TMP^DGJTVW2
S X=""
S X=$$SETSTR^VALM1($E(DGJVAL,195,232),X,11,64) D TMP^DGJTVW2
Q
STAT1 ;check on the status of the report after a change has been made.
I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)']"" S DGJTST="INCOMPLETE" G STAT
I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",7)]"" S DGJTST="REVIEWED" G STAT
I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"",$P(DGJTDEL,"^",3)=0 S DGJTST="SIGNED NO REVIEW" G STAT
I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"",$P(DGJTDEL,"^",3)=1 S DGJTST="SIGNED" G STAT
I $P(DGJTNDT,"^",1)']"" S DGJTST="INCOMPLETE" G STAT
I $P(DGJTNDT,"^",3)']"" S DGJTST="DICTATED" G STAT
I $P(DGJTNDT,"^",5)']"" S DGJTST="TRANSCRIBED" G STAT
I $P(DGJTDEL,"^",3)=0 S DGJTST="SIGNED NO REVIEW" G STAT
I $P(DGJTNDT,"^",7)']"" S DGJTST="SIGNED" G STAT
I $P(DGJTDEL,"^",3)=1 S DGJTST="REVIEWED"
STAT S DGJTNSTA=$O(^DG(393.2,"B",DGJTST,0)) S DIE="^VAS(393,",DA=$P(DGJTEDT,"^",2),DR=".11////^S X=DGJTNSTA" D ^DIE K DR,DIE S $P(DGJTNO,"^",11)=DGJTNSTA K DGJTNSTA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJTVW 2402 printed Apr 09, 2024@21:02:40 Page 2
DGJTVW ;ALB/MAF - DISPLAY SCREENS FOR INCOMPLETE RECORDS TRACKING (LIST PROCESSOR) ; JAN 31,1989@900
+1 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
EN2 DO HDR^DGJTEE
SET DGJTVIEW=1
KILL DIC
DO EN^DGJTVW1
QUIT
+1 ;Display coded by and date coded on screens.
CODDT SET DGJVAL=" "_$SELECT('$DATA(DGJTVIEW):"*",1:"")_"Date Coded: "
+1 SET X=""
+2 SET X=$$SETSTR^VALM1(DGJVAL,X,42,21)
+3 SET DGJT1=2
DO 1
SET Y=DGJVAL
IF DGJVAL]""
XECUTE ^DD("DD")
SET DGJVAL=Y
+4 SET X=$$SETSTR^VALM1(DGJVAL,X,63,18)
DO TMP^DGJTVW2
+5 QUIT
CODBY SET DGJVAL=" "_$SELECT('$DATA(DGJTVIEW):"*",1:"")_"Coded By: "
+1 SET X=""
+2 SET X=$$SETSTR^VALM1(DGJVAL,X,42,21)
+3 SET DGJT1=3
DO 1
SET DGJVAL=$SELECT($DATA(^VA(200,+DGJVAL,0)):$PIECE(^(0),"^"),1:"")
+4 SET X=$$SETSTR^VALM1(DGJVAL,X,63,18)
DO TMP^DGJTVW2
+5 QUIT
1 SET DGJVAL=$PIECE(DGJTNO,"^",4)
SET DGJVAL=$SELECT($DATA(^DGPM(+DGJVAL,0)):$PIECE(^(0),"^",16),1:"")
IF DGJVAL]""
SET DGJVAL=$SELECT($DATA(^DGPT(DGJVAL,0)):$PIECE(^DGPT(DGJVAL,0),"^",9),1:"")
IF DGJVAL]""
SET DGJVAL=$SELECT($DATA(^DGP(45.84,+DGJVAL,0)):$PIECE(^(0),"^",DGJT1),1:"")
+1 QUIT
COM ;Code to print the comments lines on screens.
+1 SET X=""
+2 SET X=$$SETSTR^VALM1("4)",X,1,2)
DO TMP^DGJTVW2
+3 SET X=""
+4 SET X=$$SETSTR^VALM1("Comments:",X,1,9)
+5 SET DGJVAL=$PIECE(^VAS(393,$PIECE(DGJTEDT,"^",2),"MSG"),"^",1)
+6 SET X=$$SETSTR^VALM1($EXTRACT(DGJVAL,1,64),X,11,64)
DO TMP^DGJTVW2
+7 SET X=""
+8 SET X=$$SETSTR^VALM1($EXTRACT(DGJVAL,65,129),X,11,64)
DO TMP^DGJTVW2
+9 SET X=""
+10 SET X=$$SETSTR^VALM1($EXTRACT(DGJVAL,130,194),X,11,64)
DO TMP^DGJTVW2
+11 SET X=""
+12 SET X=$$SETSTR^VALM1($EXTRACT(DGJVAL,195,232),X,11,64)
DO TMP^DGJTVW2
+13 QUIT
STAT1 ;check on the status of the report after a change has been made.
+1 IF $DATA(DGJTSF)
IF $PIECE(DGJTNDT,"^",1)']""
IF $PIECE(DGJTNDT,"^",5)']""
SET DGJTST="INCOMPLETE"
GOTO STAT
+2 IF $DATA(DGJTSF)
IF $PIECE(DGJTNDT,"^",1)']""
IF $PIECE(DGJTNDT,"^",7)]""
SET DGJTST="REVIEWED"
GOTO STAT
+3 IF $DATA(DGJTSF)
IF $PIECE(DGJTNDT,"^",1)']""
IF $PIECE(DGJTNDT,"^",5)]""
IF $PIECE(DGJTDEL,"^",3)=0
SET DGJTST="SIGNED NO REVIEW"
GOTO STAT
+4 IF $DATA(DGJTSF)
IF $PIECE(DGJTNDT,"^",1)']""
IF $PIECE(DGJTNDT,"^",5)]""
IF $PIECE(DGJTDEL,"^",3)=1
SET DGJTST="SIGNED"
GOTO STAT
+5 IF $PIECE(DGJTNDT,"^",1)']""
SET DGJTST="INCOMPLETE"
GOTO STAT
+6 IF $PIECE(DGJTNDT,"^",3)']""
SET DGJTST="DICTATED"
GOTO STAT
+7 IF $PIECE(DGJTNDT,"^",5)']""
SET DGJTST="TRANSCRIBED"
GOTO STAT
+8 IF $PIECE(DGJTDEL,"^",3)=0
SET DGJTST="SIGNED NO REVIEW"
GOTO STAT
+9 IF $PIECE(DGJTNDT,"^",7)']""
SET DGJTST="SIGNED"
GOTO STAT
+10 IF $PIECE(DGJTDEL,"^",3)=1
SET DGJTST="REVIEWED"
STAT SET DGJTNSTA=$ORDER(^DG(393.2,"B",DGJTST,0))
SET DIE="^VAS(393,"
SET DA=$PIECE(DGJTEDT,"^",2)
SET DR=".11////^S X=DGJTNSTA"
DO ^DIE
KILL DR,DIE
SET $PIECE(DGJTNO,"^",11)=DGJTNSTA
KILL DGJTNSTA
+1 QUIT
