Produced by Araxis Merge on 11/9/2018 12:34:13 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXV003.m | Mon Nov 5 16:45:13 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXV003.m | Mon Nov 5 17:53:34 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 426 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMXV003 ;HAC /jsg - AUT O SELECTED VENDOR (A SV) REPORT / EXPORT (QUEUED);0 4/15/09 10 :10 AM | |
2 | ;; 1;Auto Ven dor Select ion;;Dec 2 1,2009;Bui ld 10 | |
3 | ;Req uirements defined by : DEV00284 1-02 & BAT 0002841-01 : Auto Ven dor Select ; | |
4 | ;Key s: AUTO VE NDOR SELEC TION PROCE SS ASV ; | |
5 | ;Dis plays, pri nts or exp orts the n umber of E DI/OCR sub missions f or a speci fied | |
6 | ;dat e range an d the perc entage of Auto Selec ts relativ e to the t otal EDI/O CR ; | |
7 | ;sub missions a nd the tot al submiss ions durin g the peri od. ; | |
8 | ;PAR AMS - soli cit run ti me paramet eres form user ; | |
9 | ;CAL C - counts the EDI/O CR submiss ions and A SVs and sa ves by dat e ; | |
10 | ;PDI s - counts all PDIs for the sp ecified pe riod and s aves by da te ; | |
11 | ;ASV IO - displ ays, print s or expor ts the sav ed data by date with percentag es ; | |
12 | ; | |
13 | PARAMS N TYPE,DEL ,SD,ED,EM, TAB,IOFILE ,QED | |
14 | S U= "^",QED=0, XDUZ=DUZ Q :"^^@"[$$C RITERIA ;Get run t ime parame ters | |
15 | I $D (IO("Q"))! (TYPE="E") S QED=1 ;To Q or not to Q | |
16 | S TA B=$S(DEL'= "":DEL,1:U ) I 'QED D CALC Q ;I f not queu eing | |
17 | S ZT RTN="CALC^ CHMXV003" D VARSAVE, ^%ZTLOAD ;If queu eing | |
18 | S IO P="HOME" D HOME^%ZIS W !,"Your Task Numb er is: ",Z TSK R X:3 | |
19 | Q | |
20 | ; | |
21 | CRITERIA() ;TYP E=P!E;DEL= delimiter; SD=Start D ate;ED=End Date;EM=E -Mail? | |
22 | S (TYPE,DEL, SD,ED,EM,I OFILE,CHUC I)="",POP= 0 | |
23 | W !!,"Auto S elected Ve ndor Repor t:",! | |
24 | S TYPE=$$VPo rE() Q:TYP E=U U ;Pr int or exp ort? | |
25 | I TYPE="E" S DEL=$$DCh ar() Q:DEL ="@" U S:D EL="<Tab>" DEL=$C(9) ;Delim iter | |
26 | D NOW^%DTC S TODAY=X | |
27 | D GETDATE Q: POP | |
28 | ;S SD=$$SDat e(TODAY) Q :SD=U U ;Start date | |
29 | ;S ED=$$EDat e(TODAY) Q :ED=U U ;End date | |
30 | S EM=$$EMail () Q:EM=U U ;E-m ail? | |
31 | I TYPE="P" W !!,"Repor t does NOT require a ""WIDE"" printer.", !! | |
32 | I S IOP="Q" D ^%ZIS Q :POP U ;If printi ng, get de vice | |
33 | IF TYPE="P" { W !,"Pri nting Auto Selected Vendor Rep ort for " | |
34 | W $$DFD( SD)," thro ugh ",$$DF D(ED),!,"t o: ",IO,IO N,".",! } | |
35 | EL SEIF TYPE= "E" { X ^% ZOSF("UCI" ) S CHUCI= $P(Y,",") | |
36 | S IOFILE="A SV_"_DUZ_" _"_TODAY_" _"_($P($H, ",",2)\60) | |
37 | S :CHUCI'="H AC" IOFILE =IOFILE_"_ TST" S IOF ILE=IOFILE _".TXT" | |
38 | W !,"Exp orting Aut o Selected Vendor Re port (",$$ DFD(SD) | |
39 | W " thro ugh ",$$DF D(ED),") t o:" | |
40 | W !!,?24 ,"Data sha re: Fs3big " | |
41 | W !,?28, "Folder: C PD_VENDOR_ REPORTS" | |
42 | W !,?30, "File: ",I OFILE,! } | |
43 | EL SE { W !!, "Gathering AVS data ..." } | |
44 | Q 1 | |
45 | ; | |
46 | DFD(D) Q $E(D,4,5)_ "/"_$E(D,6 ,7)_"/"_$E (D,2,3) ;F ormat date | |
47 | ; | |
48 | VARSAVE ;S ave variab les for qu eued job: | |
49 | S CHF IO=$G(ION) ,ZTIO="" S PAR=$$VPA CK | |
50 | S ZTD ESC="Auto Selected V endor "_$S (TYPE="P": "Report",1 :"File Ext ract") | |
51 | S (ZT SAVE("CHFI O"),ZTSAVE ("U"),ZTSA VE("PAR")) ="" | |
52 | Q | |
53 | ; | |
54 | VPACK() Q $LB(TYPE,D EL,SD,ED,Q ED,TAB,TOD AY,IOFILE, CHUCI,XDUZ ,EM) | |
55 | ; | |
56 | VSET(P) S TYPE=$LI(P ,1),DEL=$L I(P,2),SD= $LI(P,3),E D=$LI(P,4) | |
57 | S QED =$LI(P,5), TAB=$LI(P, 6),TODAY=$ LI(P,7),IO FILE=$LI(P ,8) | |
58 | S CHU CI=$LI(P,9 ),XDUZ=$LI (P,10),EM= $LI(P,11) Q | |
59 | ; | |
60 | CALC ;S can CHAMPV A IMAGES f ile index "B" to cou nt PDIs be tween the Start Date and the ; | |
61 | ;End Dat e to get t otal of Al l submissi ons during period; s ave by dat e: ; | |
62 | D:'$D(QE D) VSET(PA R) ;Unpack, get Start Date | |
63 | K AVS,PD I,EO ;Initializ e count ar rays | |
64 | PDIs S CHPDI="20" _$$FMJUL^C HTFLIB(SD- 1)_"999999 99" ;Start PDI | |
65 | S EPDI=" 20"_$$FMJU L^CHTFLIB( ED)_"99999 999" ;End PDI | |
66 | F S CHP DI=$O(^CHM IMAGE(CHPD I)) Q:CHPD I>EPDI D | |
67 | .S FD=$$ JULFM^CHTF LIB($E(CHP DI,3,7)) | |
68 | .Q: FD>ED | |
69 | .S PDI(F D)=$I(PDI( FD)) ;Total Su bmissions | |
70 | .S CHPGM =$E(CHPDI, 8,9) | |
71 | .Q:CHPGM '=94&(CHPG M'=91) ;M ust be EDI or OCR | |
72 | . S EOF=0 | |
73 | . S:CHPGM=94 EOF=1 | |
74 | .S EO(FD )=$I(EO(FD )) ;To tal EDI/OC R submissi ons | |
75 | .S EO(FD ,EOF)=$I(E O(FD,EOF)) ;Inc rement EDI or OCR co unter by d ate | |
76 | .I $$AVS (CHPDI,0) D ; Was vendor auto sele cted? | |
77 | ..S AVS( FD)=$I(AVS (FD)) ;In crement au to selecte d | |
78 | ..S AVS( FD,EOF)=$I (AVS(FD,EO F)) ;Increme nt AVS by EOF by dat e | |
79 | CEND ;F inished wi th data co llection, spin off o utput: | |
80 | ;K CD,PT RS,CLAP,CA BP,SEOD,EE OD,SPDI,EP DI,FD | |
81 | G ASVIO: 'QED | |
82 | S %ZIS=" Q",IOP="Q; "_CHFIO D ^%ZIS K ZT IO | |
83 | S ZTRTN= "ASVIO^CHM XV003",ZTD ESC="AUTO SELECTED V ENDORS",ZT DTH=$H | |
84 | S PAR=$$ VPACK,(ZTS AVE("PDI(" ),ZTSAVE(" PAR"),ZTSA VE("CHFIO" ))="" | |
85 | S (ZTSAV E("TAS"),Z TSAVE("TEO S"),ZTSAVE ("EO("),ZT SAVE("AVS( "))="" | |
86 | D ^%ZTLO AD | |
87 | Q | |
88 | AVS(P,N) ;(Pd i,Numberse lected);Wa s vendor a uto select ed?: | |
89 | I '$ D(^CHMIMAG E(P,100)) Q 0 ;Not | |
90 | I '$ D(^CHMIMAG E(P,100,0) ,N) Q 0 ;Not | |
91 | Q $S ($P(N,U,4) =1:1,1:0) ;If numbe r selected = 1, then Yes; else Not | |
92 | ASVIO ;P ut accumul ated data to printer or file: | |
93 | D:'$D(Q ED) VSET(P AR) | |
94 | IF TYPE ="E" { | |
95 | S XFILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[Fs3big .CPD_VENDO R_REPORTS] " | |
96 | S XFIL E=XFILE_IO FILE O XFI LE:"NWS" | |
97 | D INIT (1),HEADER (1),DETAIL C XFILE } | |
98 | ELSEIF TYP E="V" { D INIT(0) W !!,SUB," ( ",PARAM,") :",! | |
99 | D COLUMN,DET AIL,EOR } | |
100 | ELSE { D I NIT(0),HEA DER(0,1),D ETAIL,EOR } | |
101 | IF CHUC I="HAC",EM '="NN" { | |
102 | S ZML( 1)="",XMTE XT="ZML(", XMDUZ=XDUZ ,XMY(EM)=" " | |
103 | S XMSU B="Your Au to Selecte d Vendor " _$S(TYPE=" E":"File", 1:"Report" )_" Is Rea dy" | |
104 | D ^XMD } | |
105 | Q | |
106 | ; | |
107 | EOR W !!,"End Of Report " Q | |
108 | DETAIL ;P rint or ex port dates , counts, percentage s: | |
109 | S N=1 | |
110 | S SD=" " | |
111 | F S S D=$O(PDI(S D)) Q:SD=" " D | |
112 | .S X=$ $FIX($$FMT E^DILIBF(S D,6))_TAB | |
113 | .S X=X _$J(+$G(AV S(SD,0)),6 ,0)_TAB ;# EDI s auto sel ected | |
114 | .S X=X _$J(+$G(AV S(SD,1)),6 ,0)_TAB ;# OCR s auto sel ected | |
115 | .S X=X _$J($G(EO( SD)),6,0)_ TAB | |
116 | .I +$G (AVS(SD))> 0&(+$G(EO( SD))>0) S X=X_$J(AVS (SD)/EO(SD )*100,5,1) _TAB | |
117 | .E S X=X_"----- "_TAB | |
118 | .S X=X _$J($G(PDI (SD)),6,0) _TAB | |
119 | .I +$G (AVS(SD))> 0 S X=X_$J (AVS(SD)/P DI(SD)*100 ,5,1)_TAB | |
120 | .E S X=X_"----- "_TAB | |
121 | .D LIN EOUT(X,TYP E,N) S N=0 | |
122 | .I TYP E="P",$$HC (2) | |
123 | Q | |
124 | ; | |
125 | HC(L) I $Y+L>$S(CH UCI="HAC": 59,1:58) D HEADER(0, 1) S N=1 | |
126 | Q 1 ; | |
127 | LINEOUT(X, T,N) ;(Xs cratch,Typ e,liNefeed );Put a ro w out to s creen, pri nter or fi le: | |
128 | IF T="E" { U XFILE W X,! } | |
129 | ELSE { D :N EXTRA | |
130 | W !,$P(X,U) ,?13,$P(X, U,2),?23,$ P(X,U,3),? 35,$P(X,U, 4) | |
131 | W ?48,$P(X, U,5),?58,$ P(X,U,6),? 70,$P(X,U, 7) } | |
132 | Q | |
133 | ; | |
134 | EXTRA W: $$HC(1) ! Q ; | |
135 | HEADER(EF, CPF) ;Pri nt or expo rt header (EF=Export Flag, CPF =Column ti tle Print Flag): | |
136 | IF EF { U XFILE W "Auto Sele cted Vendo r Report ( "_PARAM_") : ",!,HDR, ! } | |
137 | ELSE { | |
138 | W @IOF,! ,DUZ,?TT,T ITLE,?71," Page: ",$J (PG,3) | |
139 | W !,DATE ,?ST,SUB,! ,TIME,?PT, PARAM,! | |
140 | D:CPF COLUMN S PG=PG+1 } | |
141 | Q | |
142 | ; | |
143 | INIT(EF) ;Set up print or export header (EF =Export Fl ag): | |
144 | IF E F { S HDR= "" | |
145 | F I=1:1:7 S HDR=HDR_ $P($P($T(F HDR),";",2 ),U,I)_$S( I'=12:TAB, 1:"") | |
146 | S PARAM=$$ DFD(SD)_" to "_$$DFD (ED) } | |
147 | ELSE { | |
148 | S D ATE=$$FIX( $$FMTE^DIL IBF(TODAY, 6)),TIME=$ $HTIM^ACKQ UTL($H,0) | |
149 | S TITLE="H EALTH ADMI NISTRATION CENTER",T T=40-($L(T ITLE)\2) | |
150 | S SUB="Aut o Selected Vendor Re port",ST=4 0-($L(SUB) \2) | |
151 | S PARAM=$$ DFD(SD)_" to "_$$DFD (ED),PT=40 -($L(PARAM )\2),PG=1 } | |
152 | Q | |
153 | FHDR ;D ate^EDI^OC R^# EDI/OC R^% EDI/OC R^# All^% All; | |
154 | FIX(D) Q $E(D,1,2)_ "/"_$E(D,4 ,5)_"/"_$E (D,7,10) ;<Re place "-" with "/" i n (D)ate | |
155 | ; | |
156 | COLUMN ;P rint colum n titles | |
157 | W !,"D ate",?13," EDI",?23," OCR",?33," # EDI/OCR" | |
158 | W ?45, "% EDI/OCR ",?57,"# o f All",?68 ,"% of All " | |
159 | W !,"- ---------" ,?13,"---- ---",?23," -------",? 33,"------ ---" | |
160 | W ?45, "--------- ",?57,"--- -----",?68 ,"-------- " | |
161 | Q | |
162 | ; | |
163 | ;Run t ime parame ters (crit eria): | |
164 | VPorE() ;S olicit out put destin ation (pri nt or expo rt): | |
165 | K DIR S DIR(0)= "SAB^V:Vie w on scree n;" | |
166 | S DIR (0)=DIR(0) _"P:Print to selecte d network device;" | |
167 | S DIR (0)=DIR(0) _"E:Export to delimi ted text f ile" | |
168 | S DIR ("A")="(V) iew, (P)ri nt or (E)x port outpu t: ",DIR(" B")="V" | |
169 | S DIR ("PRE")="I X="""" S X=""V"" W X" | |
170 | S DIR ("?")="""V "" to view , ""P"" to print to a network printer, " | |
171 | S DIR ("?")=DIR( "?")_"""E" " to expor t to a fil e." | |
172 | D ^DI R K DIR Q: "^^@"[X "^ " | |
173 | Q Y | |
174 | ; | |
175 | DChar() ;S olicit fie ld delimit er: | |
176 | K DIR S DIR(0)= "FAU^" | |
177 | S DIR ("A")=" Fie ld delimit er for fil e: ",DIR(" B")="<Tab> " | |
178 | S DIR ("PRE")="I X="""" S X=""<Tab>" " W X" | |
179 | S DIR ("?")="Ent er a chara cter to pl aced betwe en fields in the out put data f ile." | |
180 | D ^DI R K DIR Q: "@"[X "@" | |
181 | Q Y | |
182 | ; | |
183 | GETDATE ;G et begin/e nd dates | |
184 | W ! S %DT="AEP ",%DT("A") ="Enter Be gin Date ( Inclusive) : " D ^%DT | |
185 | I Y=-1 S POP=1 Q ; Quit i f nothing entered | |
186 | S SD =Y | |
187 | W ! S %DT="AEP ",%DT("A") ="Enter En d Date: " D ^%DT | |
188 | I Y= -1 S POP=1 Q ; Quit if nothin g entered | |
189 | S ED =Y | |
190 | I ED <SD W !,"B ad dates.. .reenter!" G GETDATE | |
191 | W ! | |
192 | Q | |
193 | SDate(D) ;Sol icit Start Date for report or file: | |
194 | K DI R S DIR(0) ="DA^10001 01:"_D_":E X" | |
195 | S DI R("A")=" Begi nning date (inclusiv e): " | |
196 | S DI R("?")="En ter valid VistA date not great er than to day." | |
197 | D ^D IR K DIR Q :"^^@"[X " ^" | |
198 | Q Y | |
199 | ; | |
200 | EDate(D) ;Sol icit End D ate for re port or fi le: | |
201 | S DI R(0)="DOA^ 1000101:"_ D_":EX" | |
202 | S DI R("A")=" E nding date (inclusiv e): " | |
203 | S DI R("?")="En ter valid VistA date not less than the S tart Date. " | |
204 | D ^D IR K DIR Q :"^^@"[X " ^" | |
205 | Q Y | |
206 | ; | |
207 | EMail() ;S olicit e-m ail notifi cation add ress: | |
208 | K DIR S DIR(0)= "FA^^I X'= ""NN"",X'? 1.U1"".""1 .U1""@VA.C OM"" K X W "" ??""" | |
209 | S DIR ("A")=" E -mail to n otify upon completio n: ",DIR(" B")="None" | |
210 | S DIR ("PRE")="I X="""" S X=""NN"" W ""No noti fication"" " | |
211 | S DIR ("?")="Ent er an Outl ook e-mail address t o notify w hen report /file is c omplete." | |
212 | D ^DI R K DIR Q: "^^@"[X "^ " | |
213 | Q Y | |
214 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.