258. EPMO Open Source Coordination Office Redaction File Detail Report

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.

258.1 Files compared

# 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

258.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 104
Changed 1 2
Inserted 0 0
Removed 0 0

258.3 Comparison options

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

258.4 Active regular expressions

No regular expressions were active.

258.5 Comparison detail

  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