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 | CHCR9892.m | Mon Nov 5 16:45:16 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCR9892.m | Wed Nov 7 14:05:39 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 172 |
Changed | 2 | 6 |
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 | CHCR9892 ; HAC/SKD;DE V009892: A report of the compl eted claim s with OHI amt but n o PR amt a nd $0 paid . 7-28-10 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
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 | START ; | |
8 | K ^CHMZHO LD("ZSKD", "DEV009892 ") | |
9 | S I="A" | |
10 | F S I=$O (^CHMPAY(I ),-1) Q:I< 40000000 D | |
11 | .Q:$P($G( ^CHMPAY(I, 0)),U,2)'= 4 | |
12 | .Q:$P($G( ^CHMPAY(I, 1)),U,7)=" " | |
13 | .Q:$P($G( ^CHMPAY(I, 1)),U,29)' ="" | |
14 | .Q:+$P($G (^CHMPAY(I ,"COMMON") ),U,7)=0 ;ALLOWED= 0 | |
15 | .Q:$P($G( ^CHMPAY(I, "COMMON")) ,U,7)=$P($ G(^CHMPAY( I,1)),U,5) ;ALLOWE D=DED | |
16 | .Q:$P($G( ^CHMPAY(I, 1)),U,1)'= 0 | |
17 | .Q:$P($G( ^CHMPAY(I, "COMMON")) ,U,1)="" | |
18 | .S (BILLE D,ALLOWED, CS,DED,CAL PR,PAID)=" " | |
19 | .S BILLED =$P($G(^CH MPAY(I,"CO MMON")),U, 1) | |
20 | .S ALLOWE D=$P($G(^C HMPAY(I,1) ),U,7) | |
21 | .Q:BILLED '>ALLOWED | |
22 | .S CS=$P( $G(^CHMPAY (I,1)),U,6 ) | |
23 | .S DED=$P ($G(^CHMPA Y(I,1)),U, 5) | |
24 | .S PAID=$ P($G(^CHMP AY(I,1)),U ,1) | |
25 | .S CALPR= $P($G(^CHM PAY(I,"COM MON")),U,1 )-$P($G(^C HMPAY(I,1) ),U,7) | |
26 | .Q:$G(DED )'<$G(CALP R) ;DED NL PR | |
27 | .Q:$G(CS) '<$G(CALPR ) ;CS N L PR | |
28 | .Q:$D(^CH MPAY(I,4," B",162)) | |
29 | .Q:'$D(^C HMLIMBO("D ",I)) | |
30 | .Q:$P($G( ^CHMPAY(I, 6)),U,2)'= "" ;REOP EN | |
31 | .S PR="", J=0 | |
32 | .F S J=$ O(^CHMPAYH (I,101,J)) Q:'J Q:$ G(PR) D | |
33 | ..I $D(^C HMPAYH(I,1 01,J,1)) S PR=$P($G( ^CHMPAYH(I ,101,J,1)) ,U,29) Q | |
34 | .S ^CHMZH OLD("ZSKD" ,"DEV00989 2",I)=$P($ G(^CHMPAY( I,0)),U,1) _U_$G(BILL ED)_U_$G(A LLOWED)_U_ $G(PR)_U_$ G(DED)_U_$ G(CS)_U_$G (PAID) | |
35 | D PRINT | |
36 | Q | |
37 | PRINT ; | |
38 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
39 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
40 | ;S FILELO C="HACFS3" "
|
|
41 | ;I UCI'=" HAC" S FIL ELOC="HACF S3""
|
|
42 | S FILENM= "CR9892.TX T" | |
43 | I UCI'="H AC" S FILE NM="TEST_" _FILENM | |
44 | S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]" | |
45 | I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]" | |
46 | S FILE=FI LELOC_FILE NM | |
47 | ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH to open fi le | |
48 | ;O FILE:" NWS":5 Q:' $T | |
49 | ;SBB 07/3 0/15 DEF01 6554 | |
50 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
51 | I '$$OPEN FIWR^CHTFL IB9(.CHINF ILE,"CHINF ILE") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q | |
52 | ; | |
53 | D HEAD | |
54 | I '$D(^CH MZHOLD("ZS KD","DEV00 9892")) W !,"There i s no claim found mat ching the criteria" Q | |
55 | S I=0 | |
56 | F S I=$O (^CHMZHOLD ("ZSKD","D EV009892", I)) Q:'I D | |
57 | .S (CL,BI LLED,ALLOW ED,PR,DED, CS,PAID)=" " | |
58 | .S CL=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 1) | |
59 | .S BILLED =$P($G(^CH MZHOLD("ZS KD","DEV00 9892",I)), "^",2) | |
60 | .S ALLOWE D=$P($G(^C HMZHOLD("Z SKD","DEV0 09892",I)) ,"^",3) | |
61 | .S PR=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 4) | |
62 | .S DED=$P ($G(^CHMZH OLD("ZSKD" ,"DEV00989 2",I)),"^" ,5) | |
63 | .S CS=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 6) | |
64 | .S PAID=$ P($G(^CHMZ HOLD("ZSKD ","DEV0098 92",I)),"^ ",7) | |
65 | .U FILE W !,CL,?11, $J($FN(BIL LED,"",2), 13,2),?28, $J($FN(ALL OWED,"",2) ,14,2),?45 ,$J($FN(PR ,"",2),9,2 ),?60,$J($ FN(DED,"", 2),10,2),? 72,$J($FN( CS,"",2),1 0,2),?85,$ J($FN(PAID ,"",2),11, 2) | |
66 | ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH to close file | |
67 | ;C FILE | |
68 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
69 | ;SBB 07/3 0/15 DEF01 6554 | |
70 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
71 | D FTPFILE ^CHTFLIB9( FILE," DNS . DNS ","/FS3BIG ","PUT") | |
72 | D KILLVAR | |
73 | Q | |
74 | HEAD ; | |
75 | I '$G(DUZ ) S DUZ=1 | |
76 | U FILE W #,! | |
77 | S TITLE1= "Health Ad ministrati on Center" S TAB=((8 0-$L(TITLE 1))/2) | |
78 | D NOW^%DT C S CHDATE =$$FMTE^XL FDT(X,"5D" ) | |
79 | U FILE W "DUZ: ",DU Z,?TAB,TIT LE1,?68,CH DATE,! | |
80 | S TITLE2= "Report of the compl eted OHI c laims with the syste m deleted PR amount and $0 pai d" | |
81 | U FILE W !,TITLE2 | |
82 | U FILE W !! | |
83 | U FILE W !,"CLAIM # ",?11,"BI LLED AMOUN T",?28,"AL LOWED AMOU NT",?45,"P R AMOUNT", ?60,"DEDUC TIBLE",?72 ,"COST SHA RE",?85,"A MOUNT PAID " | |
84 | U FILE W !,"------- -",?11,"-- ---------- -",?28,"-- ---------- --",?45,"- --------", ?60,"----- -----",?72 ,"-------- --",?85,"- ---------- " | |
85 | U FILE W ! | |
86 | Q | |
87 | KILLVAR | |
88 | K I,CL,OR ,BILLED,AL LOWED,CS,D ED,CALPR,P AID,FILE,T ITLE1,TITL E2,CHDATE, TAB | |
89 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.