- 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 Mar 13, 2025@21:05:43 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
