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 | CHMXV013.m | Mon Nov 5 16:44:42 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXV013.m | Mon Nov 5 17:53:35 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 104 |
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 | CHMXV013 ;HAC /jsg - AUT O SELECTED VENDOR LO G (AVSL) E XPORT (QUE UED);04/15 /09 10:10 AM | |
2 | ;; 1;AUTO VEN DOR SELECT ION;;Dec 2 1,2009;Bui ld 2 | |
3 | ;;DEV 002841;; | |
4 | ;Req uirements defined by : log conc ept added during dev elopment t o identify | |
5 | ;new rules and correct e rrors in t he HAC ven dor databa se. ; | |
6 | ;Key s: AUTO VE NDOR SELEC TION PROCE SS ASV LOG ; | |
7 | ;Exp orts the c laim and v endor deta il data fo r EDI/OCR submission s for each | |
8 | ;"ma tching" tr ansaction Cache and the ILOG w eb service . ; | |
9 | ;PAR AMS - run time param eteres ; | |
10 | ;AVS L - export s the subm issions ; | |
11 | ;LOG - called by the ASV (CHMXV012 ) processi ng to put entries in the log ; | |
12 | ; | |
13 | PARAMS S U="^",TA B="^" D NO W^%DTC S T ODAY=X ;Delimite rS, curren t date, ti me | |
14 | X ^% ZOSF("UCI" ) S CHUCI= $P(Y,",") | |
15 | S IO FILE="AVSL OG_SYSTEM_ "_TODAY_"_ "_($P($H," ,",2)\60) | |
16 | S:CH UCI'="HAC" IOFILE=IO FILE_"_TST " S IOFILE =IOFILE_". TXT" | |
17 | AVSL ;Put acc umulated d ata to fil e: | |
18 | S XFILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[Fs3big .CPD_VENDO R_REPORTS] " | |
19 | S XF ILE=XFILE_ IOFILE O X FILE:"NWS" | |
20 | D IN IT,HEADER, DETAIL C X FILE | |
21 | Q | |
22 | ; | |
23 | DETAIL ;Export AS V log: | |
24 | S DT S=0 | |
25 | WHIL E $O(^CHMZ HOLD("AVSL ",DTS))>0 { S DTS=$O (^(DTS)),P =0 | |
26 | W HILE $O(^C HMZHOLD("A VSL",DTS,P ))>0 { S P =$O(^(P)), L=0 | |
27 | WHILE $D (^CHMZHOLD ("AVSL",DT S,P,L),X), $I(L) { | |
28 | S $P(X,U ,9)=$E($P( X,U,9),1,5 ) | |
29 | S $P(X,U ,10)=$E($P (X,U,10),1 ,5) | |
30 | S X=$S(L -1=0:P,1:" ")_TAB_$TR (X,U,TAB) | |
31 | S Z=$$FM TE^XLFDT(D TS),Z=$TR( Z,"@",TAB) | |
32 | S X=Z_TA B_X | |
33 | U XFILE W X,! } | |
34 | K ^CHMZHOLD ("AVSL",DT S,P) } } | |
35 | Q | |
36 | ; | |
37 | HEADER ;Export he ader: | |
38 | U XF ILE W "Aut o Selected Vendor Lo g (",$$FMT E^XLFDT(%) ,"): ",!,H DR,! Q | |
39 | INIT ;Set up export hea der: | |
40 | S HD R="" F I=1 :1:15 S HD R=HDR_$P($ P($T(HDR), ";",2),U,I )_$S(I'=15 :TAB,1:"") | |
41 | Q | |
42 | HDR ;DATE^T IME^PDI^VE NDOR^AVS?^ TIN^NAME^A DDRESS1^AD DRESS2^CIT Y^STATE^ZI P^LOC ZIP^ FT!POS^QUA L; | |
43 | ; | |
44 | LOG(P,Z,L, DTS,V) ;(Prov ider,locat ionZip,Lin e,DateTime Stamp,Vend erpointer) ;line #0 ; | |
45 | ;will always be provider d ata for a claim; all other lin e #s will; | |
46 | ;be ve ndor data ; | |
47 | N TNA, FTPOSQ,REC ORD,ASV | |
48 | I DTS' >0 D NOW^% DTC S DTS= % | |
49 | S PDI= $P(P,U),TN A=$P(P,U,2 ,8),FTPOSQ =$P(P,U,10 ,11) | |
50 | S RECO RD=$S(L=0: "Claim",1: V),ASV=$P( P,U,12) | |
51 | S ^CHM ZHOLD("AVS L",DTS,PDI ,L)=RECORD _U_ASV_U_T NA_U_Z_U_F TPOSQ | |
52 | Q DTS | |
53 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.