Produced by Araxis Merge on 11/9/2018 12:33:46 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 | CHFMPEXT.m | Mon Nov 5 16:44:57 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHFMPEXT.m | Mon Nov 5 17:38:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 306 |
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 | CHFMPEXT ; ;DP;FMP Pa id claim e xtract for one year IG; ; 01 D ec 2009 3 :30 PM | |
2 | ; ;1.0;CHAMP VA SYSTEM; ;1 Dec 200 9; | |
3 | ; ;JAK;12/02 /10;DEV009 227-01;ADD ITIONAL IG PROVIDER/ VENDOR REP ORT REQUES T TO CR743 2 | |
4 | ; ;JAK;01/01 /11;BUG009 227-03;EXI T FUNCTION ALITY ADDE D;CONVERT FILEMAN DA TE TO EXTE RNAL | |
5 | ; ;DEF016554 YJK 10/6/ 15 - Conve rt DECNET to FTP. | |
6 | START ; ; | |
7 | K ^TMP($J) N STDT,EDT ,DFN D ^CH MFSET ; ^CHMFSET s ets the wi nsow'S att ributes DX ,DY | |
8 | W #,!! S X= "FMP Paid claim extr act for on e year IG" W ?$L(X)/ 2,X,!! | |
9 | S DIR(0)="D ^::EX",DIR ("A")="Fro m Date" D ^DIR | |
10 | Q :Y="^"!(Y= "^^") ;JAK;01/ 01/11;BUG0 09227-03 | |
11 | S STDT=Y | |
12 | END ; ; | |
13 | S DIR(0)="D ^::EX",DIR ("A")=" T o Date" D ^DIR | |
14 | ; S EDT=Y I EDT="^" K STDT,EDT Q | |
15 | S EDT=Y | |
16 | I EDT="^" D START ;JAK;01/ 01/11;BUG0 09227-03 | |
17 | I EDT="^^" G QUIT ;JAK;01/ 01/11;BUG0 09227-03 | |
18 | I EDT<STDT W !,"End D ate must b e greater then Start Date!!" R X:20 G ST ART | |
19 | W !!,"Proce ssing... P lease wait " | |
20 | FILEA ; ;Build tab le A Veter an status | |
21 | ; S DFN=0,CN N1=0 F S DFN=$O(^AH CHVA("FMP" ,DFN)) Q:D FN="" D | |
22 | S DFN=0 F S DFN=$O(^ AHCHVA(DFN )) Q:DFN=" " D | |
23 | . N SET,NSET ,FADD,VFN, CT,ST,CHK, CLMN,DD,DI R,I,LN,MM, PADT,PRC,X ,Y,YY,RHB, FLG,ITM,IT MM | |
24 | . ;;Get the eligibilit y status ' E' is the only selec tion statu s we are a fter | |
25 | . S SET=$G(^ AHCHVA(DFN ,0)) ;Q:$P (SET,U,5)' ="E" | |
26 | . S VFN=$P(S ET,U,7) S: $L(VFN<8) VFN=$E(00, (8-$L(VFN) ))_VFN | |
27 | . S FLG=0 D FILEB Q:'F LG | |
28 | . S FADD=$G( ^AHCHVA(DF N,11)) S:F ADD="" FAD D=$G(^AHCH VA(DFN,1)) | |
29 | . S ST=$P(FA DD,U,4) I ST'="" S S T=$E($P($G (^DIC(5,ST ,0)),U,1), 1,24) | |
30 | . S CT=$P(FA DD,U,7) S: CT="" CT=$ P(FADD,U,6 ) | |
31 | . I CT'="" S CT=$E($P( $G(^DIC(5, CT,0)),U,1 ),1,30) | |
32 | . ;;Get the voc rehab autorizati on | |
33 | . ;;Autoriza tion=1!"" - yes and should be accompanie d by start and end d ates that | |
34 | . ;;this sta tus applie s | |
35 | . S RHB="" I $P($G(^AH CHVA(DFN,6 )),U,18)=1 D | |
36 | . .S RHB=1_U _$P(^AHCHV A(DFN,6),U ,16)_U_$P( ^AHCHVA(DF N,6),U,17) | |
37 | . ;;Table A Veteran in fo. | |
38 | . ;;FILE_SSN _GENDER_NA ME_ADD1_AD D2_CITY_ST _COUNTRY_V OC-REHAB_R EHAB-START -DATE | |
39 | . S NSET=VFN _U_$P(SET, U,9)_U_$P( SET,U,2)_U _$P(SET,U, 1) | |
40 | . S NSET=NSE T_U_$E($P( FADD,U,1), 1,50)_U_$E ($P(FADD,U ,2),1,50) | |
41 | . S NSET=NSE T_U_$E($P( FADD,U,3), 1,50)_U_ST _U_$P(FADD ,U,5)_U_CT _U_RHB | |
42 | . S ^TMP($J, "A",NSET)= "" | |
43 | D PRINT | |
44 | Q | |
45 | FILEB ; ;Get the c laim info (741301) | |
46 | ; ;CLAIM NUM _VET FILE NUM_CREATE D DATE_COM PLETE DATE _PAYMENT D ATE_CHECK NUM_CLAIM TYPE | |
47 | N CLM,CLD | |
48 | Q :'$D(^CHFM PCL("D",DF N)) S CLM ="" | |
49 | F S CLM=$O (^CHFMPCL( "D",DFN,CL M)) Q:CLM= "" D | |
50 | . S ITM=0 F S ITM=$O( ^CHFMPCL(C LM,100,ITM )) Q:ITM=" " D | |
51 | . .;;get the claim num ber | |
52 | . .N A,AM S CLD=$G(^CH FMPCL(CLM, 100,ITM,0) ) | |
53 | . .F I=1:1:1 2 S A(I)=$ P(CLD,U,I) | |
54 | . .;;date cr eated | |
55 | . .S D1=$P(A (7),".",1) Q:D1="" | |
56 | . .S A(7)=$$ FMTE^XLFDT (D1,"5D") | |
57 | . .;;date co mpleted | |
58 | . .Q:A(9)>ED T Q:A(9)< STDT S:A( 9)'="" A(9 )=$$FMTE^X LFDT(A(9), "5D") | |
59 | . .S FLG=1 | |
60 | . .;;Payment date & Ch eck | |
61 | . .S CHK=$G( ^CHFMPCL(C LM,100,ITM ,1)) | |
62 | . .F I=1:1:1 0 S AM(I)= $P(CHK,U,I ) | |
63 | . .S (D1,PAD T)=$P(AM(1 0),".",1), CHK=AM(8) ;DP; 1/13/ 10;Send on ly the fir st piece t o GETDT | |
64 | . .I D1'="" S YY=20 S: $E(D1,1,2) >50 YY=19 D | |
65 | . ..S PADT=$ E(D1,3,4)_ "/"_$E(D1, 5,6)_"/"_Y Y_$E(D1,1, 2) ;S:D1?6 N PADT=$$G ETDT(D1) | |
66 | . .;;Date of service | |
67 | . .S:A(6)'=" " A(6)=$$F MTE^XLFDT( A(6),"5D") | |
68 | . .;;Date of discharge - for inp atient onl y | |
69 | . .I A(5)=1 S A(11)=$$ FMTE^XLFDT (A(11),"5D ") | |
70 | . .;;Type of claim | |
71 | . .S:A(5)'=" " A(5)=$P( ^CHMDIC(74 1002.05,A( 5),0),U) | |
72 | . .;;Claim s tatus | |
73 | . .;;status 2-payment request & 3-verifica tion are r olled into 1-inprogr ess | |
74 | . .S A(2)=$S (A(2)=0:"R ejected",A (2)=4:"Com plete",1:" In Process ") | |
75 | . .;;Vendor | |
76 | . .I A(3)'=" " D | |
77 | . ..D FILEE ;JA K;12/02/10 ;DEV009227 -01 | |
78 | . ..S A(3)=$ E($P($G(^C HFMPVEN(A( 3),0)),U), 1,32) | |
79 | . .;;POS | |
80 | . .S:A(12)'= "" A(12)=$ E($P($G(^C HMDIC(7410 02.11,A(12 ),0)),U,2) ,1,50) | |
81 | . .;;Amounts | |
82 | . .;;AMONT B ILLED,PAID BY VET,TO T AMT PAID ,PAID TO V ENDOR,PAID TO VET | |
83 | . .F I=1:1:7 S:AM(I)'? .N1".".2N AM(I)=AM(I )_".00" | |
84 | . .S X=A(1)_ U_VFN_U_A( 7)_U_A(9)_ U_PADT_U_A M(8)_U_A(5 )_U_A(6)_U _A(11)_U_A (2)_U_A(3) _U_A(12)_U _AM(2)_U_A M(7)_U_AM( 1)_U_AM(5) _U_AM(4) | |
85 | . .S CLMN=A( 1) | |
86 | . .;;Table B claim inf o. | |
87 | . .S ^TMP($J ,"B",X)="" | |
88 | . .N IC9,PRC D FILEC,F ILED | |
89 | Q | |
90 | FILEC ;; DX Info | |
91 | ;; CLAIM NUM_ ICD9 CODE_ ITEM NUMBE R | |
92 | S ITMM=0 F S ITMM=$O( ^CHFMPCL(C LM,100,ITM ,100,ITMM) ) Q:ITMM=" " D | |
93 | .Q :ITMM'?1.2 N | |
94 | .S IC9=$P(^C HFMPCL(CLM ,100,ITM,1 00,ITMM,0) ,U,5) | |
95 | .S :IC9'="" I C9=$P(^CHM ICDX(IC9,0 ),U,2) | |
96 | .I IC9'="" S ^TMP($J," C",CLMN_U_ IC9_U_ITMM )="" | |
97 | Q | |
98 | FILED ;; Process fi le | |
99 | ;; claim num_ process co de_bill am ount_allow ed amount | |
100 | S ITMM=0 F S ITMM=$O( ^CHFMPCL(C LM,100,ITM ,100,ITMM) ) Q:ITMM=" " D | |
101 | .Q :ITMM'?1.2 N | |
102 | .S LN=^CHFMP CL(CLM,100 ,ITM,100,I TMM,0) | |
103 | .S PRC=$P(LN ,U,2) | |
104 | .I A(5)["PHA " S PRC=$P (LN,U,6) S :PRC'="" P RC=$P($G(^ CHMPDX(PRC ,1)),U,1) | |
105 | .E S:PRC'=" " PRC=$P($ G(^CHMSERV (PRC,0)),U ,1) | |
106 | .Q :PRC="" ; do not inc lude items without a code ;1/1 3/10 ;dp | |
107 | .S ^TMP($J," D",CLMN_U_ PRC_U_$P(L N,U,3)_U_$ P(LN,U,4)) ="" | |
108 | Q | |
109 | ;; JAK;12/02/ 10;DEV0092 27-01;ADDI TIONAL IG PROVIDER/V ENDOR REPO RT REQUEST TO CR7432 | |
110 | FILEE ;; Process fi le | |
111 | ;; VendorName [1]_RTAddr 1[2]_RTAdd r2[3]_RTAd dr3[4]_RTC try[5]_RTS tate[6]_RT zip[7]_RTC ity[8] | |
112 | I $D(^CHFMPV EN(A(3),0) ) D | |
113 | .S VNAME=$P( ^CHFMPVEN( A(3),0),U, 1) | |
114 | E S VNAME=" " | |
115 | I $D(^CHFMPV EN(A(3),1) ) D | |
116 | .S RTA1=$P(^ CHFMPVEN(A (3),1),U,1 ),RTA2=$P( ^CHFMPVEN( A(3),1),U, 2),RTA3=$P (^CHFMPVEN (A(3),1),U ,3) | |
117 | .S RTCITY=$P (^CHFMPVEN (A(3),1),U ,11),RTZIP =$P(^CHFMP VEN(A(3),1 ),U,10) | |
118 | .S RTST=$P(^ CHFMPVEN(A (3),1),U,9 ) | |
119 | .S :$D(RTST)& &(RTST'="" ) RTST=$P( ^DIC(5,RTS T,0),U,1) | |
120 | .S RTCTRY=$P (^CHFMPVEN (A(3),1),U ,5) | |
121 | .I $D(RTCTRY )&&(RTCTRY '="") D | |
122 | .. S RTCTRY=+ RTCTRY ;m ake sure c ontents ar e numeric pointer | |
123 | .. I RTCTRY'= 0 S RTCTRY =$P(^DIC(5 ,RTCTRY,0) ,U,1) | |
124 | .S X=VNAME_U _RTA1_U_RT A2_U_RTA3_ U_RTCTRY_U _RTST_U_RT ZIP_U_RTCI TY | |
125 | E S X=VNAME _U_"VENDOR INFORMATI ON NOT AVA ILABLE" | |
126 | I '$D(^TMP($ J,"E",X)) D | |
127 | .S ^TMP($J," E",X)="" | |
128 | Q | |
129 | PRINT ;; Print to f ile | |
130 | ;; This proce ss creates 4 differe nt file. % zis can no t support multiple d evice (fil es) | |
131 | ;; simultane ously ther efore I ha d to use t he direct OPEN and C LOSE comme nds | |
132 | S STDT=$TR($ $FMTE^XLFD T(STDT,"5D "),"/","") ,EDT=$TR($ $FMTE^XLFD T(EDT,"5D" ),"/","") | |
133 | N I,REC,HDR, FILE1 F I= "A","B","C ","D","E" D ;JAK;12/ 02/10;DEV0 09227-01 | |
134 | .S HDR=$S(I= "A":"VETER AN_",I="B" :"FMP_CLAI M_",I="C": "FMP_DX_", I="D":"FMP _PROC_",1: "VENDOR_") ;JAK;12/ 02/10;DEV0 09227-01 | |
135 | .S HDR=HDR_S TDT_"_to_" _EDT_".TXT " | |
136 | .X "D $SYSTE M.Process. SetZEOF(1) " | |
137 | .N P OP | |
138 | .S P OP=0 | |
139 | .S F OLDER="HAC _HFS$:[SCR .TEMP_FILE S]",TDIR=" /FS3BIG/" | |
140 | .S F ILE1=FOLDE R_HDR | |
141 | .S P OP=$$OPENF IWR^CHTFLI B9(.FILE1, "FSIO") Q: 'POP | |
142 | .S R EC="" F S REC=$O(^T MP($J,I,RE C)) Q:REC= "" U FILE 1 W REC,! | |
143 | .D C LOSEF^CHTF LIB9(FILE1 ,"FSIO") | |
144 | .X " D $SYSTEM. Process.Se tZEOF(0)" | |
145 | .D FTPFILE ^CHTFLIB9( FILE1," DNS fs3. DNS ",TDIR,"PU T") | |
146 | .; * * DEF01655 4 YJK 10/6 /15 DECNE T codes be low were r eplaced by the ones above ** | |
147 | .;S FILE1= "HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]"_HDR | |
148 | .; O FILE1:"N WS" | |
149 | .; S REC="" F S REC=$O (^TMP($J,I ,REC)) Q:R EC="" U F ILE1 W REC ,! | |
150 | .; C FILE1 | |
151 | K ^TMP($J) | |
152 | W !!,"Proces s complete d... The n ew files a re in FS3B IG",!! | |
153 | Q | |
154 | QUIT Q | |
155 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.