[628] | 1 | DGJTVW2 ;ALB/MAF - DISPLAY SCREENS FOR INCOMPLETE RECORDS TRACKING (LIST PROCESSOR) CONT. ; SEP 31,1992@900
|
---|
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
|
---|
| 3 | K ^TMP("DGJRPT",$J)
|
---|
| 4 | S X="",(VALMCNT,DGJCNT)=0,VALMBG=1
|
---|
| 5 | S X=$$SETSTR^VALM1(DGJTHDR,X,25,$L(DGJTHDR)) D TMP
|
---|
| 6 | S X=""
|
---|
| 7 | S X=$$SETSTR^VALM1("1)",X,1,2)
|
---|
| 8 | S X=$$SETSTR^VALM1("3)",X,42,2) D TMP
|
---|
| 9 | S X=""
|
---|
| 10 | S DGJVAL=$P(DGJTNO,"^",2) S DGJVAL=$S($D(^VAS(393.3,DGJVAL,0)):$P(^(0),"^",1),1:"")
|
---|
| 11 | I DGJVAL="DISCHARGE SUMMARY" S (DGJTX4,X1)=$P(^DGPM(+$P(DGJTNO,"^",4),0),"^",1),DGJTX3=+$P(DGJTNO,"^",3) S X2=2 D C^%DTC I DGJTX3<X&($P(DGJTNO,"^",3)>DGJTX4) S DGJVAL="DISCHARGE SUM <48" S DGJTSF=1 K DGJTX3,DGJTX4
|
---|
| 12 | S X=$$SETSTR^VALM1(" *Type of Report: ",X,1,22)
|
---|
| 13 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 14 | S DGJVAL=$P(DGJTNDT,"^",1),Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
|
---|
| 15 | I $D(DGJTSF),DGJVAL']"",$P(DGJTNDT,"^",5)]"" D SFRM
|
---|
| 16 | S X=$$SETSTR^VALM1(" Date Dictated: ",X,42,21)
|
---|
| 17 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 18 | S X=""
|
---|
| 19 | S DGJVAL=" "_$S($P(DGJTNO,"^",2)=1&('$D(DGJTVIEW)):"*",1:" ")_"Event Date: "
|
---|
| 20 | S X=$$SETSTR^VALM1(DGJVAL,X,1,22)
|
---|
| 21 | S DGJVAL=$P(DGJTNO,"^",3),Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
|
---|
| 22 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 23 | S DGJVAL=$P(DGJTNDT,"^",2) S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 24 | I $D(DGJTSF),DGJVAL']"",$P(DGJTNDT,"^",5)]"" D SFRM
|
---|
| 25 | S X=$$SETSTR^VALM1(" Dictated By: ",X,42,21)
|
---|
| 26 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 27 | S X="",DGJVAL=" "_$S('$D(DGJTVIEW):"*",1:"")_"Admission: "
|
---|
| 28 | S X=$$SETSTR^VALM1(DGJVAL,X,1,22)
|
---|
| 29 | I $P(DGJTNO,"^",4)]"" S DGJVAL=$P(DGJTNO,"^",4) S Y=$S($D(^DGPM(+DGJVAL,0)):+^DGPM(DGJVAL,0),1:"") X ^DD("DD") S DGJVAL=Y
|
---|
| 30 | I $P(DGJTNO,"^",4)']"" S DGJVAL="OUTPATIENT"
|
---|
| 31 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 32 | S X=$$SETSTR^VALM1(" Date Transcribed: ",X,42,21)
|
---|
| 33 | S DGJVAL=$P(DGJTNDT,"^",3),Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
|
---|
| 34 | I $D(DGJTSF),DGJVAL']"",$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"" D SFRM
|
---|
| 35 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 36 | S X=""
|
---|
| 37 | S X=$$SETSTR^VALM1(" *Division: ",X,1,22)
|
---|
| 38 | S DGJVAL=$P(DGJTNO,"^",6) S DGJVAL=$S($D(^DG(40.8,+DGJVAL,0)):$P(^(0),"^",1),1:"")
|
---|
| 39 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 40 | S Y=$P(DGJTNDT,"^",4),C=$P(^DD(393,10.04,0),"^",2) D Y^DIQ K C S DGJVAL=Y
|
---|
| 41 | I $D(DGJTSF),DGJVAL']"",$P(DGJTNDT,"^",1)']"",$P(DGJTNDT,"^",5)]"" D SFRM
|
---|
| 42 | S X=$$SETSTR^VALM1(" Transcribed By: ",X,42,21)
|
---|
| 43 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 44 | S DGJVAL=$P(DGJTNO,"^",5) S DGJVAL=$S($D(^SC(+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 45 | S DGJVAL=" "_$S($P(DGJTNO,"^",2)=1&('$D(DGJTVIEW)):"*",1:" ")_"Location: "
|
---|
| 46 | S X=""
|
---|
| 47 | S X=$$SETSTR^VALM1(DGJVAL,X,1,22)
|
---|
| 48 | S DGJVAL=$P(DGJTNO,"^",5) S DGJVAL=$S($D(^SC(+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 49 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 50 | S X=$$SETSTR^VALM1(" Date Signed: ",X,42,21)
|
---|
| 51 | S DGJVAL=$P(DGJTNDT,"^",5),Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y
|
---|
| 52 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 53 | S DGJVAL=$P(DGJTNO,"^",8)
|
---|
| 54 | S DGJVAL=$S($D(^DG(393.1,+DGJVAL,0)):$P(^(0),"^",1),1:"")
|
---|
| 55 | S X=""
|
---|
| 56 | S X=$$SETSTR^VALM1(" *Service: ",X,1,22)
|
---|
| 57 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 58 | S DGJVAL=$P(DGJTNO,"^",8)
|
---|
| 59 | S DGJVAL=$S($D(^DG(393.1,+DGJVAL,0)):$P(^(0),"^",1),1:"")
|
---|
| 60 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 61 | S DGJVAL=$P(DGJTNDT,"^",6) S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 62 | S X=$$SETSTR^VALM1(" Signed By: ",X,42,21)
|
---|
| 63 | S X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 64 | S X=""
|
---|
| 65 | S X=$$SETSTR^VALM1(" Phys. Responsible: ",X,1,22)
|
---|
| 66 | S DGJVAL=$P(DGJTNO,"^",12) S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 67 | S X=$$SETSTR^VALM1(DGJVAL,X,23,18)
|
---|
| 68 | I $P(DGJTDEL,"^",3)=1 S X=$$SETSTR^VALM1(" Date Reviewed: ",X,42,21)
|
---|
| 69 | I $P(DGJTDEL,"^",3)=1 S DGJVAL=$P(DGJTNDT,"^",7),Y=DGJVAL I DGJVAL]"" X ^DD("DD") S DGJVAL=Y S X=$$SETSTR^VALM1(DGJVAL,X,63,18)
|
---|
| 70 | D TMP
|
---|
| 71 | S DGJVAL=$P(DGJTNDT,"^",8) S DGJVAL=$S($D(^VA(200,+DGJVAL,0)):$P(^(0),"^"),1:"")
|
---|
| 72 | S X=""
|
---|
| 73 | I $P(DGJTDEL,"^",3)=1 S X=$$SETSTR^VALM1(" Reviewed By: ",X,42,21),X=$$SETSTR^VALM1(DGJVAL,X,63,18) D TMP
|
---|
| 74 | S X=""
|
---|
| 75 | S X=$$SETSTR^VALM1("2)",X,1,2) D TMP
|
---|
| 76 | Q
|
---|
| 77 | ;
|
---|
| 78 | ;
|
---|
| 79 | TMP S DGJCNT=DGJCNT+1,VALMCNT=VALMCNT+1
|
---|
| 80 | S ^TMP("DGJRPT",$J,DGJCNT,0)=X,^TMP("DGJRPT",$J,"IDX",VALMCNT,DGJCNT)=""
|
---|
| 81 | S ^TMP("RPTIDX",$J,DGJCNT)=VALMCNT
|
---|
| 82 | Q
|
---|
| 83 | SFRM S DGJVAL="NOT APPLICABLE"
|
---|
| 84 | Q
|
---|