Produced by Araxis Merge on 11/9/2018 12:33:48 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 | CHIGA3.m | Mon Nov 5 16:44:11 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIGA3.m | Fri Nov 9 01:24:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 210 |
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 | CHIGA3 ;CV A/AEB;FIND S claims w ith omre t hen 1 unit ;01/26/99 5:04 PM | |
2 | ;;1.0 | |
3 | QUE ; | |
4 | W #,"GENERA TE REPORT FOR IG REQ UEST ON 2/ 24/2006" | |
5 | W !,"PLEASE SELECT A PRINTER",! ! S IOP="Q " D ^%ZIS G:POP QEND | |
6 | S CHFIO=ION | |
7 | S ZTSAVE("C HFIO")="" | |
8 | S ZTRTN="ST ART^CHIGA3 ",ZTDESC=" CHAMPVA DU P PAYMENTS FOR A FY" ,ZTIO="" | |
9 | ; D ^%ZTLOAD | |
10 | ; W !!,"YOUR TASK NUMB ER IS : ", ZTSK | |
11 | D START^CHI GA3 | |
12 | QEND K CHF Y,ION | |
13 | Q | |
14 | START ; | |
15 | S CHFBDT=30 50801 ;FI LEMAN BEG DATE | |
16 | S CHFEDT=30 50831 ;FI LEMAN END DATE | |
17 | S U="^" K ^ CHMZHOLD(" IG_DECMIAL _7/2005"), ARAY | |
18 | ; S CHBDT=20 0518200000 000,CHEDT= 2005212999 99999 | |
19 | S CHBJDT=$E ($$FMJUL^C HTFLIB(CHF BDT),3,5) ;BEGIN JU LIAN DATE | |
20 | S CHEJDT=$E ($$FMJUL^C HTFLIB(CHF EDT),3,5) ;END JULI AN DATE | |
21 | S CHBPYR=$P ($$FMTE^XL FDT(CHFBDT ,"5D"),"/" ,3) ;BEGI N PDI YEAR | |
22 | S CHEPYR=$P ($$FMTE^XL FDT(CHFBDT ,"5D"),"/" ,3) ;END PDI YEAR | |
23 | S CHBDT=CHB PYR_CHBJDT _"00000000 " ;BEGIN PDI NUMBER | |
24 | S CHEDT=CHE PYR_CHEJDT _"99999999 " ;END PD I NUMBER | |
25 | S CHPDIDT=C HBDT,CNT=0 ,CT1=0,CT2 =0,CT3=0 | |
26 | A S CHPDID T=$O(^CHMI MG(CHPDIDT )) G:CHPDI DT="" ST1 G:CHPDIDT> CHEDT ST1 | |
27 | G :'$D(^CHMI MG(CHPDIDT ,0)) A | |
28 | ; CNT - TOTA L NUMBER O F OCR CLAI MS | |
29 | ; CT1 - TOTA L NUMBER O F OCR CLAI MS OVER 1 UNIT | |
30 | ; | |
31 | ; 94 CVA OCR | |
32 | ; 95 SB OCR | |
33 | ; 96 CWVV OC R | |
34 | I $E(CHPDID T,8,9)'=94 I $E(CHPD IDT,8,9)'= 95 I $E(CH PDIDT,8,9) '=96 G A ;MUST BE O CR SUBMISS ION | |
35 | G :$P(^CHMIM G(CHPDIDT, 0),"^",6)' =4 A ;SUB MISSION MU ST BE COMP LETE | |
36 | G :'$D(^CHMI MG(CHPDIDT ,1,0)) A ;MUST HAVE CLAIMS | |
37 | S CHIMGCL=0 ,CNT=CNT+1 | |
38 | A2 S CHIMG CL=$O(^CHM IMG(CHPDID T,1,CHIMGC L)) G:'CHI MGCL A | |
39 | G :'$D(^CHMI MG(CHPDIDT ,1,CHIMGCL ,0)) A2 | |
40 | S CI=$P(^CH MIMG(CHPDI DT,1,CHIMG CL,0),"^", 1) G:'CI A 2 | |
41 | G :'$D(^CHMP AY(CI,0)) A2 ;SKIP IF NO CLAI M | |
42 | S REC=^CHMP AY(CI,0) I $P(REC,"^ ",2)=10 G A2 | |
43 | F CHS="OPT- PROC","PHA RM" D CHK | |
44 | G A2 | |
45 | ST1 S %ZIS ="Q",IOP=" Q;"_CHFIO D ^%ZIS G: POP END | |
46 | S ZTRTN=" PRT^CHIGA3 ",ZTDTH=$H | |
47 | K ZTIO S ZTSAVE("CH FY")="" | |
48 | S ZTSAVE( "CHBDT")=" ",ZTSAVE(" CHEDT")="" | |
49 | ;D ^%ZTLO AD | |
50 | D PRT^CHI GA3 | |
51 | Q | |
52 | END K CHPT ,CHDUZ,CHP TDT,CHSTDT ,CHEDDT,%D T,CHCLNUM, Y,DFN,BFN, PRGPT | |
53 | Q | |
54 | PRT ;REMOV E ENTRIES WITHOUT DU PLICATES | |
55 | S T=$C(9) ;USE TO SET DELIMI TER TO TAB | |
56 | ;FTP IP /USER=
|
|
57 | S CHPRTMM =$P($$FMTE ^XLFDT(CHF BDT,"1D"), " ",1) | |
58 | S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]IG_DE CMIAL_"_CH PRTMM_".DA T" | |
59 | O FIO | |
60 | S PG=0 D HEAD | |
61 | I '$D(^CH MZHOLD("IG _DECMIAL_7 /2005")) D Q | |
62 | .U FIO W !!!,"NO DU PLICATES F OUND" | |
63 | .;W !!!," NO DUPLICA TES FOUND" | |
64 | .Q | |
65 | S CHUTS=0 ,CHUCT=0 | |
66 | P1 S CHUTS =$O(^CHMZH OLD("IG_DE CMIAL_7/20 05",CHUTS) ) G:CHUTS= "" PEND | |
67 | U FIO W ! ,"TOTAL NU MBER OF CL AIMS WITH "_CHUTS_" UNITS "_^C HMZHOLD("I G_DECMIAL_ 7/2005",CH UTS,0) | |
68 | S CHCI=0 | |
69 | P2 S CHCI= $O(^CHMZHO LD("IG_DEC MIAL_7/200 5",CHUTS,C HCI)) G:'C HCI P1 | |
70 | U FIO W ! ,T_$P(^CHM ZHOLD("IG_ DECMIAL_7/ 2005",CHUT S,CHCI),"^ ",1)_T_$P( ^CHMZHOLD( "IG_DECMIA L_7/2005", CHUTS,CHCI ),"^",2) | |
71 | S CHUCT=C HUCT+1 | |
72 | G P2 | |
73 | HEAD ;WRIT E HEADER O UT | |
74 | S PG=PG+1 ,TITLE="HE ALTH ADMIN ISTRATION CENTER" | |
75 | ;S TAB=(8 0-$L(TITLE ))/2,CHBDT P=$$FMTE^X LFDT(CHBDT ,"5D"),CHE DTP=$$FMTE ^XLFDT(CHE DT,"5D") | |
76 | U FIO W ! ,TITLE | |
77 | S TITLE=" CLAIMS WIT H MORE THA N ONE (1) UNIT FROM July 1, 20 05 THRU Ju ly 31, 200 5" | |
78 | S TAB=(80 -$L(TITLE) )/2 | |
79 | U FIO W ! !,T_TITLE, !!! | |
80 | Q | |
81 | PEND ; | |
82 | U FIO W ! !,"TOTAL N UMBER OF O CR CLAIMS "_CNT | |
83 | U FIO W ! ,"TOTAL NU MBER OF OC R CLAIMS W ITH MORE T HAN 10 UNI TS "_CHUCT | |
84 | C FIO | |
85 | Q | |
86 | CHK ; | |
87 | S CHPROCI=0 ,CHUNITS=0 K ARAY | |
88 | A3 S CHPRO CI=$O(^CHM PAY(CI,CHS ,CHPROCI)) G:'CHPROC I A3E | |
89 | Q:'$D(^CH MPAY(CI,CH S,CHPROCI, 0)) | |
90 | S CHSERV= $P(^CHMPAY (CI,CHS,CH PROCI,0)," ^",1) | |
91 | G:CHSERV= "" A3 | |
92 | I '$D(ARA Y(CHSERV)) D | |
93 | .S ARAY(C HSERV)=0 | |
94 | .Q | |
95 | S ARAY(CH SERV)=ARAY (CHSERV)+1 | |
96 | G A3 | |
97 | A3E S CHSE RVI=0 | |
98 | A3E1 S CHS ERVI=$O(AR AY(CHSERVI )) I 'CHSE RVI K ARAY Q | |
99 | S CHUNITS =ARAY(CHSE RVI) | |
100 | I CHUNITS <10 G A3E1 | |
101 | S CT1=CT1 +1 | |
102 | I '$D(^CHMZ HOLD("IG_D ECMIAL_7/2 005",CHUNI TS,0)) D | |
103 | . S ^CHMZHOL D("IG_DECM IAL_7/2005 ",CHUNITS, 0)=0 | |
104 | I '$D(^CHMZ HOLD("IG_D ECMIAL_7/2 005",CHUNI TS,CI)) S ^CHMZHOLD( "IG_DECMIA L_7/2005", CHUNITS,0) =^CHMZHOLD ("IG_DECMI AL_7/2005" ,CHUNITS,0 )+1 | |
105 | S ^CHMZHOLD ("IG_DECMI AL_7/2005" ,CHUNITS,C I)=$P(REC, "^",1)_"^" _$P(($P(^C HMPAY(CI,0 ),"^",4)), "*",1) | |
106 | G A3E1 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.