19. EPMO Open Source Coordination Office Redaction File Detail Report

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

19.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGUT04.m Mon Nov 5 16:42:50 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGUT04.m Tue Nov 6 22:00:58 2018 UTC

19.2 Comparison summary

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

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

19.4 Active regular expressions

No regular expressions were active.

19.5 Comparison detail

  1   CHCGUT04 ; CVA/JEH;UT ILITY TO R ESTORE CG  VENDORS FR OM VENDOR  CLEAN UP;0 9/12/14  1 1:35 AM
  2    ;;1.0
  3    Q
  4   SETXRF ;SE T/CREATE C ROSS REFER ENCES
  5    ;K ^CHMZH OLD("CG_VN DRS_RESTOR ")
  6    N CTR,NAM E,SSN,VIEN
  7    ;D GTREC
  8    S CTR=0
  9    S I=0 F   S I=$O(^CH MZHOLD("CG _VNDRS_RES TOR",I)) Q :'I  D
  10    .S NAME=$ P(^CHMZHOL D("CG_VNDR S_RESTOR", I),"^",2)                 ;CG NA ME
  11    .S SSN=$P (^CHMZHOLD ("CG_VNDRS _RESTOR",I ),"^",3)                  ;CG SS N
  12    .Q:SSN'["     CG"
  13    .S SSN=$T R(SSN,"     CG")
  14    .S VIEN=$ P(^CHMZHOL D("CG_VNDR S_RESTOR", I),"^",4)                 ;VENDO R IEN
  15    .S CTR=CT R+1
  16    .W !,CTR, ?10,NAME,? 45,SSN,?65 ,VIEN
  17    .;S $P(^C HMVEN(VIEN ,0),"^",8) =0                 ;S TATUS  0:A CTIVE
  18    .;D XREF
  19    Q
  20   XREF ;CREA TE CROSS R EFERENCES
  21    N NM,CVNM ,TXID,VNDZ ,PNM
  22    Q:'$D(^CH MVEN(VIEN) )
  23    S NM=$P(^ CHMVEN(VIE N,0),"^",1 )          ;REMIT-TO- NAME
  24    S CVNM=$P (^CHMVEN(V IEN,0),"^" ,2)        ;CALM VEND OR NAME
  25    S TXID=$P (^CHMVEN(V IEN,0),"^" ,3)        ;TAX ID #
  26    S VNDZ=TX ID_"* "                                           ;VEN DORIZATION
  27    S PNM=$P( ^CHMVEN(VI EN,0),"^", 3)         ;PROVIDER  NAME
  28    S:'$D(^CH MVEN("B",N M,VIEN)) ^ CHMVEN("B" ,NM,VIEN)= ""
  29    I CVNM'=" " S:'$D(^C HMVEN("C", CVNM,VIEN) ) ^CHMVEN( "C",CVNM,V IEN)=""
  30    S:'$D(^CH MVEN("D",T XID,VIEN))  ^CHMVEN(" D",TXID,VI EN)=""
  31    S:'$D(^CH MVEN("DX", $E(TXID,1, 8),VIEN))  ^CHMVEN("D X",$E(TXID ,1,8),VIEN )=""
  32    S:'$D(^CH MVEN("H",V NDZ,VIEN))  ^CHMVEN(" H",VNDZ,VI EN)=""
  33    S:'$D(^CH MVEN("J",P NM,VIEN))  ^CHMVEN("J ",PNM,VIEN )=""
  34    S $P(^CHM VEN(VIEN,0 ),"^",8)=0            ;STATUS  0 :ACTIVE
  35    Q
  36   GTREC ;
  37    N CTR,REC ,IO
  38    S CTR=0
  39    S IO="HAC FS3""
D NS       Welcome1!" "::d:[FS3B IG.Vendor_ Cleanup_Co ntrol]VCC_ Q1_30379_3 140910_910 .TXT"
  40    O IO:"R": 5
  41    F  U IO R  REC D
  42    .;Q:CTR>1 0
  43    .S REC=$T R(REC,$C(9 ),"^")
  44    .S CTR=CT R+1
  45    .S ^CHMZH OLD("CG_VN DRS_RESTOR ",CTR)=REC
  46    .U 0 W !, REC
  47    C IO
  48    Q
  49