Produced by Araxis Merge on 11/9/2018 12:33:45 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 | CHDRGRPT.m | Mon Nov 5 16:40:56 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHDRGRPT.m | Fri Nov 9 01:05:32 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 156 |
Changed | 2 | 4 |
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 | CHDRGRPT ; CVA/TLH;DR G REPORT F OR MEDICAR E NUMBERS; 11/01/04 1 :44 PM | |
2 | ;:VERSION 1 | |
3 | ;;DEF0165 54, SBB, 1 1/26/13 - Modified W riting to a file as per VHA st andard. | |
4 | ;; Convert ing from D ECNET to F TP. | |
5 | ;;DEF0165 54, SBB, 0 7/30/15 - Adding cha nges for D ECNET | |
6 | ; | |
7 | ;This rou tine was t o provide CPD with a list of v endor type set to ho spitals an d the spec ility set to hospita l services that had Medicare n umbers set to Yes. | |
8 | ;VARIABLE LIST | |
9 | ; | |
10 | ;IVAL.... .Temporary I value o f ^CHMVEN | |
11 | ;VENST... Vendor sta tus | |
12 | ;JVAL.... Temporary J value of ^CHMVEN | |
13 | ;DRGMN... .DRG Medic are Number | |
14 | ;VENTYP.. ..Vendor T ype | |
15 | ;SPECL... .Specialit y for Vend or | |
16 | ;VENNAM.. ..Vendor N ame | |
17 | ;PLSTATE. ..Physical location State | |
18 | ;RTSTATE. ..Remit to State | |
19 | ;TAXID... Vendor tax ID | |
20 | ;VENADR.. .Vendor Ad dress Code | |
21 | K ^CHMZHO LD($J,"DRG _DATA") | |
22 | START ; | |
23 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
24 | ;S FIO="H ACFS3"" DNS Welcome1!" "::D:[FS3B IG]DRG.DAT " | |
25 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
26 | S FILENM= "DRG.DAT" | |
27 | I UCI'="H AC" S FILE NM=UCI_FIL ENM | |
28 | S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]" | |
29 | I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]" | |
30 | S FIO=FIL ELOC_FILEN M | |
31 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
32 | ;O FIO:"N WS" S T=$C (9) | |
33 | ;SBB 07/3 0/15 DEF01 6554 | |
34 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
35 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q | |
36 | S T=$C(9) | |
37 | DO HEAD | |
38 | SET IVAL= 0,VENST="" ,CT=0 | |
39 | A1 SET IVA L=$O(^CHMV EN(IVAL)) G:'IVAL EX IT | |
40 | I '$D(^CH MVEN(IVAL, 0)) G A1 | |
41 | SET VENST =$P(^CHMVE N(IVAL,0), "^",8) | |
42 | I '$D(^CH MVEN(IVAL, 1)) G A1 | |
43 | I VENST'= 0 G A1 | |
44 | SET VENTY P=$P(^CHMV EN(IVAL,1) ,"^",7) | |
45 | I (VENTYP '=24) I (V ENTYP'=21) G A1 | |
46 | SET SPECL =$P(^CHMVE N(IVAL,1), "^",11) | |
47 | I SPECL'= 29 G A1 | |
48 | SET JVAL= 999999999, DRGMN="" | |
49 | SET JVAL= $O(^CHMVEN (IVAL,80,J VAL),-1) G :'JVAL A1 | |
50 | I '$D(^CH MVEN(IVAL, 80,JVAL,0) ) G A1 | |
51 | SET DRGMN =$P(^CHMVE N(IVAL,80, JVAL,0),"^ ",2) | |
52 | I DRGMN'= "YES" G A1 | |
53 | S PLSTATE =$P(^CHMVE N(IVAL,1), "^",4) | |
54 | S:PLSTATE '="" PLSTA TE=$P(^DIC (5,PLSTATE ,0),"^",2) | |
55 | S RTSTATE =$P(^CHMVE N(IVAL,2), "^",4) | |
56 | S:RTSTATE '="" RTSTA TE=$P(^DIC (5,RTSTATE ,0),"^",2) | |
57 | S VENNAM= $P(^CHMVEN (IVAL,0)," ^",1) | |
58 | S TAXID=$ P(^CHMVEN( IVAL,0),"^ ",3) | |
59 | S VENADR= $P(^CHMVEN (IVAL,0)," ^",23) | |
60 | ;O FIO | |
61 | U FIO W P LSTATE_T_R TSTATE_T_T AXID_T_VEN ADR_T_VENN AM_T_DRGMN ,! | |
62 | S CT=CT+1 | |
63 | GOTO A1 | |
64 | HEAD S TIT LE="HEALTH ADMINISTR ATION CENT ER" | |
65 | U FIO W D UZ_T_TITLE | |
66 | S TITLE=" HOSPITAL M EDICARE FL AGS" | |
67 | U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,! | |
68 | HDRS U FIO W !,"PHYS ICAL STATE "_T_"REMIT TO STATE" _T_"TAX ID "_T_"ADDRE SS CODE"_T _"VENDOR N AME"_T_"DR G #"_T_"DP ULV #"_T_" RHB #"_T_" RTC #" | |
69 | Q | |
70 | EXIT ; | |
71 | ;W !,"TOT AL RECORDS FOUND ",C T | |
72 | K IVAL,VE NST,JVAL,D RGMN,VENTY P,SPECL,VE NNAME,VENA DR,CT | |
73 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
74 | ;C FIO | |
75 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
76 | ;SBB 07/3 0/15 DEF01 6554 | |
77 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
78 | D FTPFILE ^CHTFLIB9( FIO," DNS . DNS ","/FS3BIG ","PUT") | |
79 | Q | |
80 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.