Produced by Araxis Merge on 11/9/2018 12:34:17 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 | CHTEROHI.m | Mon Nov 5 16:41:43 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHTEROHI.m | Mon Nov 5 17:55:35 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 184 |
Changed | 2 | 8 |
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 | CHTEROHI ;Report Te rtiary OHI Claims | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;YJK;02/1 0/11;MTN01 1238-02 | |
4 | ;DEV01289 3 1/14/201 4 DGC - MO D DECNET | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | ;S ZTRTN= "START^CHT EROHI",ZTD ESC="TERTI ARY-OHI-CL AIMS-RPT" | |
8 | ;S ZTIO=" " | |
9 | ;D ^%ZTLO AD | |
10 | ;W !!,"Ta sk Number = ",ZTSK | |
11 | ;Q | |
12 | START; | |
13 | K ^CHMZHO LD($J,"TER TIARY OHI" ) | |
14 | S WPDI=0 | |
15 | S T=$C(9) | |
16 | GETPDI ; | |
17 | S FOUND=0 | |
18 | S WPDI=$O (^CHMIMG(" OCR-READY" ,WPDI)) G: 'WPDI!(WPD I="")!('$D (WPDI)) EN D | |
19 | ;G:'($G(W PDI)) END | |
20 | I $E(WPDI ,8,9)'="91 " G GETPDI | |
21 | I $P($G(^ CHMIMAGE(W PDI,"BUFF" )),"^",1)' ="MEDCOB" G GETPDI ; MedicareC rossover P DI | |
22 | S J=0 | |
23 | GETDFN ;CH MIMAGE(I,1 ,J,2,K,10) | |
24 | S J=$O(^C HMIMAGE(WP DI,1,J)) G :'J GETPDI | |
25 | I '$D(^CH MIMAGE(WPD I,1,J)) G GETPDI | |
26 | S K=0 | |
27 | GETBFN ; | |
28 | S K=$O(^C HMIMAGE(WP DI,1,J,2,K )) G:'K GE TDFN | |
29 | I '$D(^CH MIMAGE(WPD I,1,J,2,K) ) G GETBFN | |
30 | I '$D(^CH MIMAGE(WPD I,1,J,2,K, 10)) G GET BFN | |
31 | ; | |
32 | S WDFN=$P (^CHMIMAGE (WPDI,1,1, 2,1,10),"^ ",1) | |
33 | S WBFN=$P (^CHMIMAGE (WPDI,1,1, 2,1,10),"^ ",2) | |
34 | I '$D(WDF N)!('$D(WB FN)) G GET BFN | |
35 | I '$D(^AH CHVA(WDFN, 100,WBFN,0 )) G GETBF N | |
36 | S BNAME=$ P(^AHCHVA( WDFN,100,W BFN,0),"^" ,1) | |
37 | D OHITOC | |
38 | G GETPDI | |
39 | END | |
40 | D PRINT | |
41 | K ^CHMZHO LD($J,"TER TIARY OHI" ) | |
42 | K WPDI,FO UND,WDFN,W BFN,SN,BN, K1,PFILE | |
43 | Q | |
44 | ; | |
45 | OHITOC ;CH MDFN(I,100 ,J,2,K,0) | |
46 | S SN=0 | |
47 | O1 S SN=$O (^CHMDFN(" B",WDFN,SN )) Q:'SN | |
48 | S BN=0,BN =$O(^CHMDF N(SN,100," B",WBFN,BN )) G:'BN O 1 | |
49 | S K1=9999 9 ; Get t he latest only | |
50 | O2 S K1=$O (^CHMDFN(S N,100,BN,2 ,K1),-1) G :'K1 O1 | |
51 | I '$D(^CH MDFN(SN,10 0,BN,2,K1, 0)) G O1 | |
52 | S OHITOC= $P(^CHMDFN (SN,100,BN ,2,K1,0)," ^",3) | |
53 | I OHITOC= 10!(OHITOC =12)!(OHIT OC=23)!(OH ITOC=24) S FOUND=1 | |
54 | I 'FOUND G O1 | |
55 | S ^CHMZHO LD($J,"TER TIARY OHI" ,WPDI)=WPD I_"^"_BNAM E_"^"_OHIT OC | |
56 | Q | |
57 | PRINT ; | |
58 | I '$D(DUZ ) S DUZ=1 | |
59 | D NOW^%DT C | |
60 | S Y=% D D D^%DT S DT IME=Y | |
61 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
62 | ; | |
63 | ;DGC 1/14 /2014 DEV0 12893 - BE GIN | |
64 | ;I CHUCI= "HAC" S PF ILE="HACFS 3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.TERTIARY _OHI_CLAIM S]"_"DUZ"_ DUZ_".txt" | |
65 | ;I CHUCI' ="HAC" S P FILE="HACF S3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.TERTIARY _OHI_CLAIM S_TEST]"_" DUZ"_DUZ_" .txt" | |
66 | ;O PFILE: "NWS":5 | |
67 | ;I '$T U 0 W !,"Err or Opeing Output fil e!!!" Q | |
68 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
69 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
70 | S FILENM2 =""_"DUZ"_ DUZ_".txt" | |
71 | S PFILE=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM2 | |
72 | I CHUCI'= "HAC" S PF ILE="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
73 | I '$$OPEN FIWR^CHTFL IB9(.PFILE ,"PFILE") X "D $SYST EM.Process .SetZEOF(0 )" Q ;DGC 7/30/2015 DEV012893 | |
74 | ;DGC 1/14 /2014 DEV0 12893 - EN D | |
75 | ; | |
76 | S REC="" | |
77 | U PFILE W "PDI"_T_" BENEFICIAR Y_NAME"_T_ "OHI_TOC"_ T_"RUN DAT E/TIME: "_ DTIME | |
78 | S CNT=0 | |
79 | S REC=$O( ^CHMZHOLD( $J,"TERTIA RY OHI",RE C)) | |
80 | F Q:('$D (REC))!(RE C="")!('RE C) D | |
81 | .S XPDI=$ P(^CHMZHOL D($J,"TERT IARY OHI", REC),"^",1 ) | |
82 | .S XNAME= $P(^CHMZHO LD($J,"TER TIARY OHI" ,REC),"^", 2) | |
83 | .S XTOC=$ P(^CHMZHOL D($J,"TERT IARY OHI", REC),"^",3 ) | |
84 | .U PFILE W !,XPDI_T _XNAME_T_X TOC | |
85 | .S CNT=CN T+1 | |
86 | .S REC=$O (^CHMZHOLD ($J,"TERTI ARY OHI",R EC)) | |
87 | .Q | |
88 | U PFILE W !," TOTAL = "_CNT | |
89 | ;C PFILE DGC 1/14/ 2014 DEV01 2893 - BEG IN | |
90 | D CLOSEF^ CHTFLIB9(P FILE,"PFIL E") | |
91 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
92 | I CHUCI=" HAC" D FTP FILE^CHTFL IB9(PFILE, " DNS fs3. DNS ","/FS3BIG /COMMO_RPT S/TERTIARY _OHI_CLAIM S","PUT") | |
93 | I CHUCI'= "HAC" D FT PFILE^CHTF LIB9(PFILE ," DNS fs3. DNS ","/FS3BIG /COMMO_RPT S/TERTIARY _OHI_CLAIM S_TEST","P UT") | |
94 | ;DGC 1/14 /2014 DEV0 12893 - EN D | |
95 | U 0 W !!, "The repor t is compl ete. The file is in FS3BIG\CO MMO_RPTS\T ERTIARY_OH I_CLAIMS", !! | |
96 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.