source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCCVCDS1.m@ 1078

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

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1SCCVCDS1 ; ALB/TMP - SCHED VSTS CONV - SCREEN BUILD ; 25-NOV-97
2 ;;5.3;Scheduling;**211**;Aug 13, 1993
3 ;
4BLD ; -- build selected template display
5 N SCCV0,SCCV1,SCCV2,SCCVLRQ,SCCVZ,SCCVZ1
6 S VALMBG=1,SCCVSCRN=2
7 Q:'$D(SCCVDA)
8 K ^TMP("SCCV.CST.EDIT",$J),^TMP("SCCV.CST.EDIT.DX",$J)
9 S VALMCNT=0
10 S SCCV0=$G(^SD(404.98,SCCVDA,0)),SCCV1=$G(^(1)),SCCV2=$G(^(2))
11 S SCCVLRQ=+$$LSTREQ^SCCVLOG(SCCVDA),SCCVLRQ=$G(^SD(404.98,SCCVDA,"R",SCCVLRQ,0))
12 S VALMCNT=VALMCNT+1
13 S SCCVZ="Conversion Template Date Range:"
14 D SET^VALM10(VALMCNT,SCCVZ),REV^SCCVDSP2(SCCVZ,VALMCNT,1)
15 S VALMCNT=VALMCNT+1
16 D SET^VALM10(VALMCNT,"Start Date: "_$$FMTE^XLFDT($P(SCCV0,U,3),"1D"))
17 S VALMCNT=VALMCNT+1
18 D SET^VALM10(VALMCNT,"End Date : "_$$FMTE^XLFDT($P(SCCV0,U,4),"1D"))
19 S VALMCNT=VALMCNT+1
20 D SET^VALM10(VALMCNT," ")
21 I $P(SCCVLRQ,U,3) D
22 .S VALMCNT=VALMCNT+1
23 .S SCCVZ="Conversion Results:"
24 .D SET^VALM10(VALMCNT,SCCVZ),REV^SCCVDSP2(SCCVZ,VALMCNT,1)
25 .S VALMCNT=VALMCNT+1
26 .D SET^VALM10(VALMCNT,$$LAST($P(SCCV1,U)))
27 .S VALMCNT=VALMCNT+1
28 .D SET^VALM10(VALMCNT,"# Converted : "_+$P(SCCV1,U,2))
29 .S VALMCNT=VALMCNT+1
30 .D SET^VALM10(VALMCNT,"# Not Converted: "_+$P(SCCV2,U,6))
31 .S VALMCNT=VALMCNT+1
32 .D SET^VALM10(VALMCNT,"# Errors Logged: "_+$P(SCCV1,U,5))
33 I '$P(SCCVLRQ,U,3) D
34 .S VALMCNT=VALMCNT+1
35 .S SCCVZ="Estimate Results:"
36 .D SET^VALM10(VALMCNT,SCCVZ),REV^SCCVDSP2(SCCVZ,VALMCNT,1)
37 .S VALMCNT=VALMCNT+1
38 .D SET^VALM10(VALMCNT,$E("# Encounters to be added : "_+$P(SCCV2,U,7)_$J("",39),1,39)_"# Add/Edits Found : "_+$P(SCCV2,U))
39 .S VALMCNT=VALMCNT+1
40 .D SET^VALM10(VALMCNT,$E("# Visits to be added : "_+$P(SCCV2,U,8)_$J("",39),1,39)_"# Ancillaries Found : "_+$P(SCCV2,U,2))
41 .S VALMCNT=VALMCNT+1
42 .D SET^VALM10(VALMCNT,$E("# V PROVIDERs to be added : "_+$P(SCCV2,U,9)_$J("",39),1,39)_"# Appointments Found: "_+$P(SCCV2,U,3))
43 .S VALMCNT=VALMCNT+1
44 .D SET^VALM10(VALMCNT,$E("# V POVs to be added : "_+$P(SCCV2,U,10)_$J("",39),1,39)_"# Credit Stops Found: "_+$P(SCCV2,U,4))
45 .S VALMCNT=VALMCNT+1
46 .D SET^VALM10(VALMCNT,$E("# V CPTs to be added : "_+$P(SCCV2,U,11)_$J("",39),1,39)_"# Dispositions Found: "_+$P(SCCV2,U,5))
47 S VALMCNT=VALMCNT+1
48 D SET^VALM10(VALMCNT," ")
49 S VALMCNT=VALMCNT+1
50 S SCCVZ="Last Event:",SCCVZ1="Last Action Request:"
51 D SET^VALM10(VALMCNT,$E(SCCVZ_$J("",39),1,39)_SCCVZ1),REV^SCCVDSP2(SCCVZ,VALMCNT,1),REV^SCCVDSP2(SCCVZ1,VALMCNT,40)
52 S VALMCNT=VALMCNT+1
53 D SET^VALM10(VALMCNT,$E("Event : "_$$EXPAND^SCCVDSP2(404.98,.05,$P(SCCV0,U,5))_$J("",39),1,39)_"Action : "_$$NONE^SCCVDSP2(404.98,.08,$P(SCCV0,U,8),"<No action requested>"))
54 S VALMCNT=VALMCNT+1
55 D SET^VALM10(VALMCNT,$E("Status: "_$$EXPAND^SCCVDSP2(404.98,.07,$P(SCCV0,U,7))_$J("",39),1,39)_"Start Date/Tm: "_$$FMTE^XLFDT($P(SCCVLRQ,U,4)))
56 S VALMCNT=VALMCNT+1
57 D SET^VALM10(VALMCNT,$J("",39)_"Stop Date/Tm : "_$$FMTE^XLFDT($P(SCCVLRQ,U,5)))
58 S VALMCNT=VALMCNT+1
59 D SET^VALM10(VALMCNT,$E("Bulletin Upon Completion: "_$$EXPAND^SCCVDSP2(404.98,.06,+$P(SCCV0,U,6))_$J("",39),1,39)_$E("Task # : "_$P(SCCV1,U,3)_$J("",28),1,28)_"Volume: "_$P(SCCV1,U,4))
60 I '$P(SCCVLRQ,U,3) D
61 .N SCGRAPH,SCCT,Z
62 .S SCCT=$$DSPGLBL^SCCVEGD1(SCCVDA,"SCGRAPH",0)
63 .I SCCT D
64 ..S VALMCNT=VALMCNT+1
65 ..D SET^VALM10(VALMCNT," ")
66 ..S Z=0 F S Z=$O(SCGRAPH(Z)) Q:'Z I $D(SCGRAPH(Z,0)) D
67 ...S VALMCNT=VALMCNT+1
68 ...D SET^VALM10(VALMCNT,$J("",10)_SCGRAPH(Z,0))
69 Q
70 ;
71HDR ;Template screen header
72 N SCCV0,X
73 S SCCV0=$G(^SD(404.98,SCCVDA,0))
74 S X="List #: "_+$O(VALMY(0))_" "
75 S X=X_$$FMTE^XLFDT($P(SCCV0,U,3),"1D")_" - "_$$FMTE^XLFDT($P(SCCV0,U,4),"1D")_" "
76 S X=X_$$EXPAND^SCCVDSP2(404.98,.05,$P(SCCV0,U,5))_" "_$$EXPAND^SCCVDSP2(404.98,.07,$P(SCCV0,U,7))_" "
77 S X=X_"Template #: "_$P(SCCV0,U)
78 S VALMHDR(1)=X
79 Q
80 ;
81LAST(SCOE) ; -- build last encounter info string
82 N SCOE0,SCORG,X
83 S SCOE0=$G(^SCE(+SCOE,0)),SCORG=$P(SCOE0,U,8)
84 S X="Last ^SCE Entry: "_SCOE
85 S X=X_" DFN: "_$P(SCOE0,U,2)
86 S X=X_" Type: "_$S(SCORG=1:"Appointment",SCORG=2:"Stop Code Addition",SCORG=3:"Disposition",SCORG=4:"Credit Stop",1:"")
87 Q X
Note: See TracBrowser for help on using the repository browser.