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 | CHDRGFLG.m | Mon Nov 5 16:44:01 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHDRGFLG.m | Thu Nov 8 21:42:20 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 222 |
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 | CHDRGFLG ; CVA/TLH;DR G REPOR T FOR MEDI CARE FLAGS ;11/29/04 12:01 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 is to provide C PD with a report tha t lists DR G Flags th at are not set for t he Vendor type of Ho siptals an d the Spec iality set to Hospit al Service s. | |
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 | ;DRGFLG.. .DRG flag | |
14 | ;DRGMN... .DRG Medic are Number | |
15 | ;DPULVN.. ..DUP-LV M edicare Nu mber | |
16 | ;RHBNUM.. ..RHB Medi care Numbe r | |
17 | ;RTCNUM.. ..RTC Medi care Numbe r | |
18 | ;VENTYP.. ..Vendor T ype | |
19 | ;VENNAM.. ..Vendor N ame | |
20 | ;PLSTATE. ..Physical location State | |
21 | ;RTSTATE. ..Remit to State | |
22 | ;TAXID... Vendor tax ID | |
23 | ;VENADR.. .Vendor Ad dress Code | |
24 | ; | |
25 | START ; | |
26 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
27 | ;S FIO="H ACFS3"" DNS Welcome1!" "::D:[FS3B IG]DRGF.DA T" | |
28 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
29 | S FILENM= "DRGF.DAT" | |
30 | I UCI'="H AC" S FILE NM=UCI_FIL ENM | |
31 | S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]" | |
32 | I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]" | |
33 | S FIO=FIL ELOC_FILEN M | |
34 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
35 | ;O FIO:"N WS" S T=$C (9) | |
36 | ;SBB 07/3 0/15 DEF01 6554 | |
37 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
38 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q | |
39 | S T=$C(9) | |
40 | DO HEAD | |
41 | SET IVAL= 0,VENST="" ,CT=0 | |
42 | A1 SET IVA L=$O(^CHMV EN(IVAL)) G:'IVAL EX IT | |
43 | I '$D(^CH MVEN(IVAL, 0)) G A1 | |
44 | SET VENST =$P(^CHMVE N(IVAL,0), "^",8) | |
45 | I '$D(^CH MVEN(IVAL, 1)) G A1 | |
46 | I VENST'= 0 G A1 | |
47 | SET VENTY P=$P(^CHMV EN(IVAL,1) ,"^",7) | |
48 | I (VENTYP '=24) I (V ENTYP'=21) G A1 | |
49 | D CHK | |
50 | I DRGFLG= 1 D FRITE G A1 | |
51 | ;This wil l write th e Yes or Y set for t he Medicar e number. | |
52 | I DPULVN= "" D FRITE G A1 | |
53 | ;This wil l allow th e display of the Yes or No tha t may be o n the scre en that CP D has acce ss to. | |
54 | I RHBNUM= "" D FRITE G A1 | |
55 | ;This wil l allow th e display of the Yes or No tha t may be o n the scre en that CP D has acce ss to. | |
56 | I RTCNUM= "" D FRITE G A1 | |
57 | ;This wil l allow th e display of the Yes or No tha t may be o n the scre en that CP D has acce ss to. | |
58 | G A1 | |
59 | CHK ;This is to chec k for a DR G Medicare Number fo r the vend or. If th ere is not one there the displ ay will be blank. I f what is in the fie ld is not numeric th en seting the flag w ill allow for a Yes to be seen by CPD. | |
60 | SET JVAL= 999999999, DRGMN="",D RGFLG=1 | |
61 | SET JVAL= $O(^CHMVEN (IVAL,80,J VAL),-1) G :'JVAL F1 | |
62 | I '$D(^CH MVEN(IVAL, 80,JVAL,0) ) G F1 | |
63 | SET DRGMN =$P(^CHMVE N(IVAL,80, JVAL,0),"^ ",2) | |
64 | S:+DRGMN> 0 DRGFLG=0 | |
65 | F1 ;Check to see if there is a nything in the field for the D PULVN numb er. If th ere is no reference in the Glo bal the fi eld will d ispay a bl ank. If t here is a reference and the 2n d piece is null then the displ ay will be NO. | |
66 | SET JVAL= 999999999, DPULVN="" | |
67 | S JVAL=$O (^CHMVEN(I VAL,81,JVA L),-1) G:' JVAL F2 | |
68 | I '$D(^CH MVEN(IVAL, 81,JVAL,0) ) G F2 | |
69 | S DPULVN= $P(^CHMVEN (IVAL,81,J VAL,0),"^" ,2) | |
70 | I DPULVN= "" S DPULV N="NO" | |
71 | F2 ;Same a s above no reference in the gl obal will be blank, reference in the Glo bal but nu ll the dis play will be NO. | |
72 | S JVAL=99 9999999,RH BNUM="" | |
73 | S JVAL=$O (^CHMVEN(I VAL,82,JVA L),-1) G:' JVAL F3 | |
74 | I '$D(^CH MVEN(IVAL, 82,JVAL,0) ) G F3 | |
75 | S RHBNUM= $P(^CHMVEN (IVAL,82,J VAL,0),"^" ,2) | |
76 | I RHBNUM= "" S RHBNU M="NO" | |
77 | F3 ;Same a s above no reference in the gl obal will be blank, reference in the Glo bal but nu ll the dis play will be NO. | |
78 | S JVAL=99 9999999,RT CNUM="" | |
79 | S JVAL=$O (^CHMVEN(I VAL,83,JVA L),-1) Q:' JVAL | |
80 | I '$D(^CH MVEN(IVAL, 83,JVAL,0) ) Q | |
81 | S RTCNUM= $P(^CHMVEN (IVAL,83,J VAL,0),"^" ,2) | |
82 | I RTCNUM= "" S RTCNU M="NO" | |
83 | Q | |
84 | FRITE ; | |
85 | S PLSTATE =$P(^CHMVE N(IVAL,1), "^",4) | |
86 | S:PLSTATE '="" PLSTA TE=$P(^DIC (5,PLSTATE ,0),"^",2) | |
87 | S RTSTATE =$P(^CHMVE N(IVAL,2), "^",4) | |
88 | S:RTSTATE '="" RTSTA TE=$P(^DIC (5,RTSTATE ,0),"^",2) | |
89 | S VENNAM= $P(^CHMVEN (IVAL,0)," ^",1) | |
90 | S TAXID=$ P(^CHMVEN( IVAL,0),"^ ",3) | |
91 | S VENADR= $P(^CHMVEN (IVAL,0)," ^",23) | |
92 | U FIO W ! ,PLSTATE_T _RTSTATE_T _TAXID_T_V ENADR_T_VE NNAM_T_DRG MN_T_DPULV N_T_RHBNUM _T_RTCNUM | |
93 | S CT=CT+1 | |
94 | Q | |
95 | EXIT ; | |
96 | U FIO W ! ,"TOTAL RE CORDS FOUN D ",CT | |
97 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
98 | ;C FIO | |
99 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
100 | ;SBB 07/3 0/15 DEF01 6554 | |
101 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
102 | D FTPFILE ^CHTFLIB9( FIO," DNS . DNS ","/FS3BIG ","PUT") | |
103 | K IVAL,VE NST,JVAL,D RGMN,DPULV N,RHBNUM,R TCNUM,VENT YP | |
104 | K VENNAME ,VENADR,CT ,DRGFLG | |
105 | K ^CHMZHO LD($J,"DRG _DATA") | |
106 | Q | |
107 | HEAD S TIT LE="HEALTH ADMINISTR ATION CENT ER" | |
108 | U FIO W D UZ_T_TITLE | |
109 | S TITLE=" HOSPITAL M EDICARE FL AGS" | |
110 | U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,! | |
111 | 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 #" | |
112 | Q | |
113 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.