50. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:47 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.

50.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHGVQ600.m Mon Nov 5 16:39:31 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHGVQ600.m Mon Nov 5 17:40:46 2018 UTC

50.2 Comparison summary

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

50.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

50.4 Active regular expressions

No regular expressions were active.

50.5 Comparison detail

  1   CHGVQ600 ; CVA/BDB/NC D; INACTIV ATE DUPLIC ATE VENDOR  RECORDS ; 01/19/18   2:49 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JANUARY  24, 2018;
  3    ;CPE001-0 10,011,012 ,013 - BDB ,NCD,OW 01 /19/18
  4    ;
  5    Q
  6    ;
  7   START ;
  8    U 0 W !!, "Duplicate  Vendor Cl eanup - Pr ocessing D ata...",!
  9    S DIR(0)= "S^P:132 C OLUMN PRIN TER;F:FS3B IG FILE"
  10    S DIR("A" )="QUEUE D UPLICATE V ENDOR CLEA N UP REPOR T TO (P/F) " D ^DIR
  11    I (X'="F" )&(X'="P")  Q
  12    S CHRPT=X
  13    I CHRPT=" F" D  Q
  14    .W !!,"A  DELIMITED  EXCEL TEXT  FILE WILL  NOW BE CR EATED."
  15    .W !,"THE  FILE NAME  IS :  DUP VENCU_"_$E (DT,4,5)_$ E(DT,6,7)_ $E(DT,2,3) _".TXT"
  16    .W !,"THI S FILE SHO ULD BE IMP ORTED TO T HE GFE FOR  EXCEL PRO CESSING."
  17    .S ZTRTN= "RUN^CHGVQ 600",ZTDES C="INACTIV ATE DUPLIC ATE VENDOR  RECORDS"
  18    .S ZTIO=" ",ZTSAVE(" CHRPT")=""  D ^%ZTLOA D
  19    I CHRPT=" P" D  Q
  20     .S %ZIS= "PQM",IOP= "Q"
  21     .D ^%ZIS
  22     .I POP Q
  23     .I IOST' ["P-" Q
  24     .I $G(IO ("Q")) D
  25     .S ZTRTN ="RUN^CHGV Q600",ZTDE SC="INACTI VATE DUPLI CATE VENDO R RECORDS"
  26     .S ZTSAV E("*")=""
  27     .D ^%ZTL OAD
  28     .D HOME^ %ZIS K IO( "Q")
  29     .W !,"IN ACTIVATE D UPLICATE V ENDOR RECO RDS REPORT  HAS BEEN  QUEUED."
  30    Q
  31    ;
  32   RUN ;
  33    N CHXTID
  34    K ^UTILIT Y($J,"REPO RT")
  35    S U="^"
  36    S CHXTID= (100000000 -1) F  S C HXTID=$O(^ CHMVEN("D" ,CHXTID))  Q:CHXTID=" "  D
  37    .N CHXZIP ,CHSTATE,C HXRZIP,CHI NIT,CHNXT, VCOMINIT,V COMNXT,IEN INIT,IENNX T
  38    .D LU2^CH GVQ529
  39    .K ^UTILI TY($J,"VLU LIST")
  40    .S CHXZIP =""
  41    .S CHSTAT E=""
  42    .S CHXRZI P=""
  43    .D ADDLIS T^CHGVQ529
  44    .S CHINIT =0 F  S CH INIT=$O(^U TILITY($J, "VLULIST", CHINIT)) Q :CHINIT=""   D
  45    ..S CHINI TD=^UTILIT Y($J,"VLUL IST",CHINI T)
  46    ..S IENIN IT=+CHINIT D Q:(($P(^ CHMVEN(IEN INIT,0),U, 8)'=0)&($P (^CHMVEN(I ENINIT,0), U,8)'=""))
  47    ..I $P(CH INITD,U,22 )="CG" Q
  48    ..N CHLVP TR,VCOM S  CHLVPTR=+$ G(^UTILITY ($J,"VLULI ST",CHINIT )) D
  49    ...S VCOM ="" S:$D(^ CHMVCOMM(C HLVPTR,101 )) VCOM="Y " D EFTCHE CK^CHGVQ37 0 S VCOMIN IT=VCOM
  50    ..S CHNXT =CHINIT F   S CHNXT=$ O(^UTILITY ($J,"VLULI ST",CHNXT) ) Q:CHNXT= ""  D
  51    ...S CHNX TD=^UTILIT Y($J,"VLUL IST",CHNXT )
  52    ...S IENN XT=+CHNXTD   Q:(($P(^ CHMVEN(IEN NXT,0),U,8 )'=0)&($P( ^CHMVEN(IE NNXT,0),U, 8)'=""))
  53    ...N CHLV PTR,VCOM S  CHLVPTR=+ $G(^UTILIT Y($J,"VLUL IST",CHNXT )) D
  54    ....S VCO M="" S:$D( ^CHMVCOMM( CHLVPTR,10 1)) VCOM=" Y" D EFTCH ECK^CHGVQ3 70 S VCOMN XT=VCOM
  55    ...I $P(C HINITD,U,2 )'=$P(CHNX TD,U,2) Q   ;Remit to  Name
  56    ...I $P(C HINITD,U,3 ,4)'=$P(CH NXTD,U,3,4 ) Q
  57    ...I $P(C HINITD,U,5 )'=$P(CHNX TD,U,5) Q   ;Remit to  Address 1
  58    ...I $P(C HINITD,U,6 )'=$P(CHNX TD,U,6) Q   ;Remit to  Address 2
  59    ...I $P(C HINITD,U,7 )'=$P(CHNX TD,U,7) Q   ;Remit to  Address C ity
  60    ...I $P(C HINITD,U,8 )'=$P(CHNX TD,U,8) Q   ;Remit to  Address S tate
  61    ...I $P(C HINITD,U,9 )'=$P(CHNX TD,U,9) Q   ;Remit to  Address Z IP
  62    ...I $P(C HINITD,U,2 1)'=$P(CHN XTD,U,21)  Q  ;FAC Ty pe (Facili ty Type) 
  63    ...I $P(C HINITD,U,2 0)'=$P(CHN XTD,U,20)  Q  ;DRG (D iagnostic  Related Gr oup) 
  64    ...I $P(C HINITD,U,1 9)'=$P(CHN XTD,U,19)  Q  ;CMAC ( CHAMPVA Ma ximum Allo wable Calc ulation)
  65    ...I VCOM INIT'=VCOM NXT Q  ;VC OM (Vendor  Comments)
  66    ...I $P(C HNXTD,U,22 )="CG" Q   ;CG in the  modifier
  67    ...D
  68    ....S CHM VNIEN=+^UT ILITY($J," VLULIST",C HNXT)
  69    ....Q:'$D (^CHMVEN(C HMVNIEN,0) )
  70    ....S $P( ^CHMVEN(CH MVNIEN,0), U,8)=1
  71    ....S ^CH MVEN(CHMVN IEN,8)=DT
  72    ....I $G( DUZ)>1,$D( ^VA(200,DU Z)) S $P(^ CHMVEN(CHM VNIEN,8),U ,2)=DUZ
  73    ....S ^UT ILITY($J," REPORT",CH MVNIEN)=CH NXTD_"^"_$ G(VCOMNXT) _"^"_DT I  $G(DUZ)>1, $D(^VA(200 ,DUZ)) D
  74    .....S ^U TILITY($J, "REPORT",C HMVNIEN)=^ UTILITY($J ,"REPORT", CHMVNIEN)_ "^"_$G(DUZ )
  75    I CHRPT=" F" D REPOR TF
  76    I CHRPT=" P" D REPOR TP
  77    D MSG
  78    Q
  79    ;
  80   REPORTF ;  create del imited tex t file for  excel imp ort
  81    N FILENM, FIO,UCI,LA BEL,CHDUP, CHDUPDT,CH STRN
  82    S T=$C(9)
  83    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  84    S FILENM= "DUPVENCU_ "_$E(DT,4, 5)_$E(DT,6 ,7)_$E(DT, 2,3)_".TXT "
  85    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M
  86    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM
  87    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  88    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q
  89    U FIO W " DUPLICATE  VENDOR CLE ANUP REPOR T",!
  90    U FIO W $ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_" 20"_$E(DT, 2,3),!
  91    U FIO W "  "_T_"INAC TIVATED VE NDOR INFOR MATION"_T_ " PHYSICAL  LOCATION" ,!
  92    S LABEL=" ACTIVE VEN DOR TIN"_T _"INACTIVA TED VENDOR  NAME"_T
  93    S LABEL=L ABEL_"DATE  INACTIVE" _T_"DUZ"_T _"ADDR LIN E 1"_T
  94    S LABEL=L ABEL_"ADDR  LINE 2"_T _"CITY"_T_ "ST"_T_"ZI P"_T
  95    S LABEL=L ABEL_"FACT YPE"_T_"DR G"_T_"CMAC "_T_"VCOM"
  96    U FIO W L ABEL,!
  97    S CHDUP=0  F  S CHDU P=$O(^UTIL ITY($J,"RE PORT",CHDU P)) Q:CHDU P=""  D
  98    .S CHDUPD T=^UTILITY ($J,"REPOR T",CHDUP)
  99    .S CHSTRN =$E($P(CHD UPDT,U,3)_ $S($P(CHDU PDT,U,4)?1 N.N:"-"_$P (CHDUPDT,U ,4),1:""), 1,17)_T_$E ($P(CHDUPD T,U,11),1, 23)_T
  100    .S CHSTRN =CHSTRN_$E ($E($P(CHD UPDT,U,24) ,4,5)_"/"_ $E($P(CHDU PDT,U,24), 6,7)_"/"_$ E($P(CHDUP DT,U,24),2 ,3),1,13)_ T
  101    .S CHSTRN =CHSTRN_$P (CHDUPDT,U ,25)_T_$E( $P(CHDUPDT ,U,12),1,1 1)_T_" "_T _$E($P(CHD UPDT,U,14) ,1,6)_T_$E ($S($P(CHD UPDT,U,15) :$P(^DIC(5 ,$P(CHDUPD T,U,15),0) ,"^",2),1: ""),1,2)_T
  102    .S CHSTRN =CHSTRN_$E ($P(CHDUPD T,U,16),1, 5)_$S($L($ P(CHDUPDT, U,16))>5:" -"_$E($P(C HDUPDT,U,1 6),6,9),1: "")
  103    .S CHSTRN =CHSTRN_T_ $E($P(CHDU PDT,U,21), 1,7)_T_$E( $P(CHDUPDT ,U,20),1,5 )_T_$E($P( CHDUPDT,U, 19),1,4)_T _$E($P(CHD UPDT,U,23) ,1,3)
  104    .W CHSTRN ,!
  105    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  106    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  107    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  108    Q
  109    ;
  110   REPORTP ;s end report  to printe r
  111    S T=" "
  112    S FIO=IO
  113    O FIO
  114    U FIO W " DUPLICATE  VENDOR CLE ANUP REPOR T",!
  115    U FIO W $ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_" 20"_$E(DT, 2,3),!
  116    U FIO W "  "_T_"INAC TIVATED VE NDOR INFOR MATION"_T_ " PHYSICAL  LOCATION" ,!
  117    S LABEL=" ACTIVE VEN DOR TIN"_T _"INACTIVA TED VENDOR  NAME"_T
  118    S LABEL=L ABEL_"DATE  INACTIVE" _T_"DUZ    "_T_"ADDR  LINE 1"_T
  119    S LABEL=L ABEL_"ADDR  LINE 2"_T _"CITY  "_ T_"ST"_T_" ZIP        "_T
  120    S LABEL=L ABEL_"FACT YPE"_T_"DR G  "_T_"CM AC"_T_"VCO M"
  121    U FIO W L ABEL,!
  122    S CHDUP=0  F  S CHDU P=$O(^UTIL ITY($J,"RE PORT",CHDU P)) Q:CHDU P=""  D
  123    .S CHDUPD T=^UTILITY ($J,"REPOR T",CHDUP)
  124    .S CHSTRN =$E($P(CHD UPDT,U,3)_ $S($P(CHDU PDT,U,4)?1 N.N:"-"_$P (CHDUPDT,U ,4),1:"")_ "           ",1,17)_T _$E($P(CHD UPDT,U,11) _"                ",1 ,23)_T
  125    .S CHSTRN =CHSTRN_$E ($E($P(CHD UPDT,U,24) ,4,5)_"/"_ $E($P(CHDU PDT,U,24), 6,7)_"/"_$ E($P(CHDUP DT,U,24),2 ,3)_"       ",1,13)_T
  126    .S CHSTRN =CHSTRN_$P (CHDUPDT,U ,25)_T_$E( $P(CHDUPDT ,U,12)_"            " ,1,11)_T_"             "_T_$E($P (CHDUPDT,U ,14)_"       ",1,6)_T _$E($S($P( CHDUPDT,U, 15):$P(^DI C(5,$P(CHD UPDT,U,15) ,0),"^",2) ,1:"")_"      ",1,2)_ T
  127    .S CHSTRN =CHSTRN_$E ($P(CHDUPD T,U,16),1, 5)_$S($L($ P(CHDUPDT, U,16))>5:" -"_$E($P(C HDUPDT,U,1 6),6,9),1: "     ")
  128    .S CHSTRN =CHSTRN_T_ $E($P(CHDU PDT,U,21), 1,7)_T_$E( $P(CHDUPDT ,U,20)_"      ",1,5)_ T_$E($P(CH DUPDT,U,19 )_"    ",1 ,4)_T_$E($ P(CHDUPDT, U,23),1,3)
  129    .W CHSTRN ,!
  130    C FIO
  131    Q
  132    ;
  133   BACKOUT ;b ackout the  duplicate  vendor in activation s
  134    N CHMVN
  135    U 0 W !!, "Backout o f Duplicat e Vendors  - Processi ng Data... ",!
  136    S U="^"
  137    S CHMVN=8  F  S CHMV N=$O(^CHMV EN(CHMVN))  Q:'CHMVN   D
  138    .I $D(^CH MVEN(CHMVN ,8)),(+^CH MVEN(CHMVN ,8)) S $P( ^CHMVEN(CH MVN,0),U,8 )=0 K ^CHM VEN(CHMVN, 8)
  139    Q
  140    ;
  141   MSG ;MESSA GE THAT IN ACTIVATE D UPLICATE V ENDOR RECO RDS IS COM PLETE
  142    S CNT=1,^ TMP($J,"IN ACTIVATE_D UPS",CNT)= "",CNT=CNT +1
  143    S ^TMP($J ,"INACTIVA TE_DUPS",C NT)="Inact ivation of  duplicate  vendor re cord compl ete."
  144    S XMTEXT= "^TMP($J," "INACTIVAT E_DUPS"","
  145    S XMDUZ=. 5 I $D(DUZ ),$D(^VA(2 00,DUZ)) S  XMDUZ=DUZ
  146    I $D(DUZ) ,$D(^VA(20 0,DUZ)) S  XMY(DUZ)=" "
  147    S XMSUB=" INACTIVATE  DUPLICATE  VENDOR RE CORDS COMP LETED" D ^ XMD
  148    Q
  149    ;