Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHBPORP1.m | Mon Nov 5 16:44:05 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPORP1.m | Tue Nov 6 21:46:48 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 238 |
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 | CHBPORP1 ; CVA/AEB:FI NDS INP CL AIMS WIT P R/OHI FOR A DATE RAN GE ;12/27/ 06 8:04 A M | |
2 | ;;1.0 | |
3 | ;;SBB-DEF 016554-12/ 24/13 - Up dating wit h PST API function c alls | |
4 | ;;SBB-DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET | |
5 | ;CHBGDT - DATE TO S TART ON | |
6 | ;CHENDT - DATE TO E ND ON | |
7 | ;CHCI - P OINTER INT O ^CHMPAY | |
8 | ;CHPDIDT - DATE PDI CREATED F ORM ^CHMIM G(PDI,"DOC " | |
9 | ;CHPPDIDT - PRINTAB LE DATE | |
10 | ;CHCLMNM - CLAIM NU MBER FROM ^CHMPAY | |
11 | ;DFN - SP ONSOR POIN TER TO ^AH CHVA | |
12 | ;BFN - BE NE POINTER TO ^AHCHV A | |
13 | ;BNAME - BENE NAME FROM ^AHCH VA | |
14 | ;CHPRAMT - PATIENT RESPONSIBI LITY AMOUN T | |
15 | STDT ; | |
16 | K ^CHMZHO LD($J,"INP T/OHI/PR") | |
17 | ST1 S DIR( 0)="D" S D IR("A")="E nter START date (mm/ dd/yy)" D ^DIR | |
18 | S CHBGDT= Y | |
19 | I CHBGDT< 3000000 D G STDT | |
20 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
21 | .Q | |
22 | G:CHBGDT= "^" QEND | |
23 | G:$D(DFOU T) QEND G: $D(DUOUT) QEND | |
24 | S CHBGDT= Y | |
25 | ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR | |
26 | S CHENDT= Y | |
27 | I CHENDT< 3000000 D G ST2 | |
28 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
29 | .Q | |
30 | I CHENDT< CHBGDT D G ST2 | |
31 | .W !,"End date must be after "_$$FMTE^ XLFDT(CHBG DT,"5D")_" . Please try again. " | |
32 | .Q | |
33 | G:CHENDT= "^" QEND | |
34 | G:$D(DFOU T) QEND G: $D(DUOUT) ST1 | |
35 | W ! | |
36 | S CHFIO=" " | |
37 | S ZTSAVE( "CHFIO")=" " | |
38 | S ZTSAVE( "CHBGDT")= "",ZTSAVE( "CHENDT")= "" | |
39 | S ZTRTN=" CALC^CHBPO RP1",ZTDES C="CHAMPVA INPT CLAI MS WITH OH I/PR",ZTIO ="" | |
40 | D ^%ZTLOA D | |
41 | ;D CALC^C HBPORP1 | |
42 | QEND K CHF Y,ION | |
43 | Q | |
44 | CALC ; | |
45 | S U="^" | |
46 | S CHTX1=$ $FMJUL^CHT FLIB(CHBGD T) | |
47 | S CHTX2=$ $FMJUL^CHT FLIB(CHEND T) | |
48 | ; 15 Digi t PDI | |
49 | S PDI=$$C EN2^CHMFPD I2(CHTX1)_ CHTX1_"000 00000" | |
50 | S PDI2=$$ CEN2^CHMFP DI2(CHTX2) _CHTX2_"99 999999" | |
51 | D START | |
52 | D PRNT | |
53 | Q | |
54 | START ; | |
55 | A S PDI=$O (^CHMIMG(P DI)) Q:PDI ="" Q:PDI >PDI2 | |
56 | G:'$D(^CH MIMG(PDI,0 )) A | |
57 | G:$P(^CHM IMG(PDI,0) ,"^",6)'=4 A ;GET O NLY COMPLE TED SUBMIS SIONS | |
58 | G:'$D(^CH MIMG(PDI,1 )) A ;SKI P IF NO CL AIMS | |
59 | S CHPDICL =0 | |
60 | A2 S CHPDI CL=$O(^CHM IMG(PDI,1, CHPDICL)) G:'CHPDICL A | |
61 | G:'$D(^CH MIMG(PDI,1 ,CHPDICL,0 )) A2 | |
62 | G:'$D(^CH MIMG(PDI," DOC")) A2 | |
63 | S CHDOCDT =$$JULFM^C HTFLIB($E( PDI,3,7)) | |
64 | S CHCI=$P (^CHMIMG(P DI,1,CHPDI CL,0),"^", 1) G:'CHCI A2 | |
65 | G:CHCI="" A2 S X1=C HCI D PROG TYP^CHFCD0 01 | |
66 | G:'$D(@(G LPAY_"CHCI ,0)")) A2 G:'$D(@(GL PAY_"CHCI, 1)")) A2 | |
67 | G:$P(@(GL PAY_"CHCI, 0)"),"^",2 )'=4 A2 ; MUST BE CO MPLETED CL AIMS | |
68 | G:$P(@(GL PAY_"CHCI, 0)"),"^",7 )'=1 A2 ; MUST BE IN PATIENT CL AIMS | |
69 | G:$P(@(GL PAY_"CHCI, 1)"),"^",2 9)="" A2 ;PATIENT R ESPONSIBIL ITY GREATE R THEN 0 | |
70 | S CHPRAMT =$P(@(GLPA Y_"CHCI,1) "),"^",29) | |
71 | S CHCLMNM =$P(@(GLPA Y_"CHCI,0) "),"^",1) | |
72 | S DFN=$P( @(GLPAY_"C HCI,0)")," ^",21) G:D FN="" A2 ;NO SPONSO R DEFINED | |
73 | S BFN=$P( @(GLPAY_"C HCI,0)")," ^",22) G:B FN="" A2 ;NO BENE D EFINED | |
74 | G:'$D(@(G LPAY_"CHCI ,""COMMON" ")")) A2 | |
75 | I ($P(@(G LPAY_"CHCI ,""COMMON" ")"),"^",1 6)'=0) I ( $P(@(GLPAY _"CHCI,""C OMMON"")") ,"^",16)'= 1) G A2 | |
76 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) A2 | |
77 | S BNAME=$ P(^AHCHVA( DFN,100,BF N,0),"^",1 ) | |
78 | S ^CHMZHO LD($J,"INP T/OHI/PR", CHCI)=CHDO CDT_"^"_CH CLMNM_"^"_ BNAME_"^"_ CHPRAMT | |
79 | G A2 | |
80 | PRNT ; | |
81 | S IOFILE= "HAC_HFS$: [SCR.TEMP_ FILES]INPA TIENT_OHI_ CLAIMS_REP ORT.TXT" | |
82 | ;DEF01655 4 SBB 12/2 4/13 - Co nverting f rom DECNET to FTP. | |
83 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
84 | I UCI'="H AC" S IOFI LE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]INPATIENT _OHI_CLAIM S_REPORT_" _UCI_".TXT " | |
85 | ;DEF01655 4-12/24/13 -SBB call OPEN^%ZISH to open t he file | |
86 | ;O IOFILE :"NWS" | |
87 | ;SBB 07/3 0/15 DEF01 6554 | |
88 | X "D $ SYSTEM.Pro cess.SetZE OF(1)" | |
89 | I '$$OPEN FIWR^CHTFL IB9(.IOFIL E,"IOFILE" ) X "D $SY STEM.Proce ss.SetZEOF (0)" Q | |
90 | S T=$C(9) ;UNCOMM ENT TO WRI TE TO FILE | |
91 | ;S T=" " ;UNCOMM ENT TO WRI TE TO SCRE EN | |
92 | D HEAD | |
93 | S CHCLMPT=0 | |
94 | PR1 S CHCL MPT=$O(^CH MZHOLD($J, "INPT/OHI/ PR",CHCLMP T)) G:'CHC LMPT PEND | |
95 | U IOFILE W ! | |
96 | U IOFILE W $$FMTE^X LFDT($P(^C HMZHOLD($J ,"INPT/OHI /PR",CHCLM PT),"^",1) ,"5D")_T ;WIRTE DO C DATE | |
97 | U IOFILE W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",2)_T ;WRITE CL AIM NUMBER | |
98 | U IOFILE W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",3)_T ;WRITE BEN E NAME | |
99 | U IOFILE W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",4) ; WRITE PR A MOUNT | |
100 | G PR1 | |
101 | PEND ; | |
102 | ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH to close file | |
103 | ;C IOFILE | |
104 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_IO FILE_")") | |
105 | D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE") | |
106 | ;SBB 07/3 0/15 DEF01 6554 | |
107 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" | |
108 | D FTPFILE ^CHTFLIB9( IOFILE," DNS . DNS ","/FS3BIG ","PUT") | |
109 | K CHPT,CH DUZ,CHPTDT ,CHSTDT,CH EDDT,%DT,C HCLNUM,Y,D FN,BFN,PRG PT | |
110 | K ^CHMZHO LD($J,"INP T/OHI/PR") ,CHCLMPT,T ,CHPDICL,P DI,CHCI,CH DOCDT,CHPR AMT | |
111 | K BNAME,C HCLMNM,CHT X1,CHTX2,P DI2,CHBGDT ,CHENDT | |
112 | Q | |
113 | HEAD ; | |
114 | U IOFILE | |
115 | W "CHAMPV A INPATIEN T CLAIMS W ITH PR AND OHI",! | |
116 | W "From " _$$FMTE^XL FDT(CHBGDT ,"5D")_" t o "_$$FMTE ^XLFDT(CHE NDT,"5D"), ! | |
117 | W "PDI DA TE"_T_"CLA IM #"_T_"B ENE NAME"_ T_"PATIENT RESPONSIB ILITY" | |
118 | Q | |
119 | ||
120 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.