[628] | 1 | DGJTVW ;ALB/MAF - DISPLAY SCREENS FOR INCOMPLETE RECORDS TRACKING (LIST PROCESSOR) ; JAN 31,1989@900
|
---|
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
|
---|
| 3 | EN2 D HDR^DGJTEE S DGJTVIEW=1 K DIC D EN^DGJTVW1 Q
|
---|
| 4 | ;Display coded by and date coded on screens.
|
---|
| 5 | CODDT S DGJVAL=" "_$S('$D(DGJTVIEW):"*",1:"")_"Date Coded: "
|
---|
| 6 | S X=""
|
---|
| 7 | S X=$$SETSTR^VALM1(DGJVAL,X,42,21)
|
---|
| 8 | S DGJT1=2 D 1 S Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
|
---|
| 9 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP^DGJTVW2
|
---|
| 10 | Q
|
---|
| 11 | CODBY S DGJVAL=" "_$S('$D(DGJTVIEW):"*",1:"")_"Coded By: "
|
---|
| 12 | S X=""
|
---|
| 13 | S X=$$SETSTR^VALM1(DGJVAL,X,42,21)
|
---|
| 14 | S DGJT1=3 D 1 S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 15 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP^DGJTVW2
|
---|
| 16 | Q
|
---|
| 17 | 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:"")
|
---|
| 18 | Q
|
---|
| 19 | COM ;Code to print the comments lines on screens.
|
---|
| 20 | S X=""
|
---|
| 21 | S X=$$SETSTR^VALM1("4)",X,1,2) D TMP^DGJTVW2
|
---|
| 22 | S X=""
|
---|
| 23 | S X=$$SETSTR^VALM1("Comments:",X,1,9)
|
---|
| 24 | S DGJVAL=$P(^VAS(393,$P(DGJTEDT,"^",2),"MSG"),"^",1)
|
---|
| 25 | S X=$$SETSTR^VALM1($E(DGJVAL,1,64),X,11,64) D TMP^DGJTVW2
|
---|
| 26 | S X=""
|
---|
| 27 | S X=$$SETSTR^VALM1($E(DGJVAL,65,129),X,11,64) D TMP^DGJTVW2
|
---|
| 28 | S X=""
|
---|
| 29 | S X=$$SETSTR^VALM1($E(DGJVAL,130,194),X,11,64) D TMP^DGJTVW2
|
---|
| 30 | S X=""
|
---|
| 31 | S X=$$SETSTR^VALM1($E(DGJVAL,195,232),X,11,64) D TMP^DGJTVW2
|
---|
| 32 | Q
|
---|
| 33 | STAT1 ;check on the status of the report after a change has been made.
|
---|
| 34 | I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)']"" S DGJTST="INCOMPLETE" G STAT
|
---|
| 35 | I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",7)]"" S DGJTST="REVIEWED" G STAT
|
---|
| 36 | I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"",$P(DGJTDEL,"^",3)=0 S DGJTST="SIGNED NO REVIEW" G STAT
|
---|
| 37 | I $D(DGJTSF),$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"",$P(DGJTDEL,"^",3)=1 S DGJTST="SIGNED" G STAT
|
---|
| 38 | I $P(DGJTNDT,"^",1)']"" S DGJTST="INCOMPLETE" G STAT
|
---|
| 39 | I $P(DGJTNDT,"^",3)']"" S DGJTST="DICTATED" G STAT
|
---|
| 40 | I $P(DGJTNDT,"^",5)']"" S DGJTST="TRANSCRIBED" G STAT
|
---|
| 41 | I $P(DGJTDEL,"^",3)=0 S DGJTST="SIGNED NO REVIEW" G STAT
|
---|
| 42 | I $P(DGJTNDT,"^",7)']"" S DGJTST="SIGNED" G STAT
|
---|
| 43 | I $P(DGJTDEL,"^",3)=1 S DGJTST="REVIEWED"
|
---|
| 44 | 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
|
---|
| 45 | Q
|
---|