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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 96 |
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 | 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""
|
|
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.