source: WorldVistAEHR/trunk/r/INCOMPLETE_RECORDS_TRACKING-DGJ/DGJTVW2.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.1 KB
Line 
1DGJTVW2 ;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 ;
79TMP 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
83SFRM S DGJVAL="NOT APPLICABLE"
84 Q
Note: See TracBrowser for help on using the repository browser.