Produced by Araxis Merge on 11/9/2018 12:34:15 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 | CHOIGPRT.m | Mon Nov 5 16:43:26 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHOIGPRT.m | Mon Nov 5 17:54:39 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 228 |
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 | CHOIGPRT ; CVA/TLH;PR INTING OF OIG REPORT ; 09/28/04 4:55 PM | |
2 | ;;V1.0 | |
3 | START ; | |
4 | ;VARIBLE LIST | |
5 | ;TCHBAMT. ...Total b illed amou nt | |
6 | ;TCHAAMT. ...Total a llowed amo unt | |
7 | ;TCHPDAMT ...Total p aid amount | |
8 | ;CT....Co unt | |
9 | ;PG....Pa ge | |
10 | ;DT...Dat e | |
11 | ;CHPGM... Program Na me | |
12 | ;CLNUM... Claim Numb er | |
13 | ;CHCPT... info from CHMZHOLD f iles | |
14 | ;CLMPT... Claim info from CHMZ HOLD files | |
15 | ;CHVNAME. ..Vendor N ame | |
16 | ;PNAME... .Veteran N ame | |
17 | ;PSSN...V eteran SSN | |
18 | ;CHDOS... Date of Se rvice | |
19 | ;CHBAMT.. .Billed Am ount | |
20 | ;CHAAMT.. .Allowed A mount | |
21 | ;CHPDAMT. ..Paid Amo unt | |
22 | ;CHSTAT.. .Claim Sta tus | |
23 | ;TMPK.... Temporary K value | |
24 | ;CHCNAME. ...Vendor Location | |
25 | ;CCHBAMT. ...Country Total Bil led Amount | |
26 | ;CCHAAMT. ...County Total Allo wed Amount | |
27 | ;CCHPDAMT ...County Total Paid Amount | |
28 | ;TMPL.... Temporary value for procedure/ descriptio n | |
29 | ;LREC.... Line Recor d for proc edure info | |
30 | ;CHPCODE. ..Procedur e Code Num ber | |
31 | ;CHDESC.. .Procedure code desc ription | |
32 | ; | |
33 | PRT ; | |
34 | S FIO="HA CFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]"_CHVNAME _" OIG.DAT " | |
35 | ;S FIO="H AC_HFS$:[D SMMANAG]OI G.DAT" | |
36 | O FIO:"NW S" | |
37 | ; | |
38 | SET TCHBA MT=0,TCHAA MT=0,TCHPD AMT=0,CT=0 ,PG=1 D NO W^%DTC S D T=X | |
39 | S CHPGM=" ",CHCNAME= "" | |
40 | I '$D(^CH MZHOLD(TMP J,"1095_OI G")) D HEA D G ENDP | |
41 | D HEAD | |
42 | ;S CHVNAM E=^CHMZHOL D(TMPJ,"10 95_OIG","V ENDOR") | |
43 | A1 SET CHP GM=$ORDER( ^CHMZHOLD( TMPJ,"1095 _OIG",CHPG M)) G:CHPG M="" ENDP | |
44 | S CHCPT=" ",(CCHBAMT ,CCHAAMT,C CHPDAMT)=0 | |
45 | A2 S CHCPT =$O(^CHMZH OLD(TMPJ," 1095_OIG", CHPGM,CHCP T)) G:CHCP T="" A1 | |
46 | S CHCNAME ="" | |
47 | S:CHCPT=0 CHCNAME=" UNKNOWN" | |
48 | S:$D(^DIC (5,CHCPT,0 )) CHCNAME =$P(^DIC(5 ,CHCPT,0), "^",1) | |
49 | D HEAD1 | |
50 | S CLMPT=" " | |
51 | A3 S CLMPT =$ORDER(^C HMZHOLD(TM PJ,"1095_O IG",CHPGM, CHCPT,CLMP T)) I CLMP T="" D G A2 | |
52 | .U FIO W !!,"TOTAL BILLED "_C HCNAME_$C( 9)_"$"_$J( $FN(CCHBAM T,",",2),1 0) | |
53 | .U FIO W !,"TOTAL A LLOWED "_C HCNAME_$C( 9)_"$"_$J( $FN(CCHAAM T,",",2),1 0) | |
54 | .U FIO W !,"TOTAL P AID "_CHCN AME_$C(9)_ "$"_$J($FN (CCHPDAMT, ",",2),10) | |
55 | .S (CCHBA MT,CCHAAMT ,CCHPDAMT) =0 | |
56 | .Q | |
57 | IF '$DATA (^CHMZHOLD (TMPJ,"109 5_OIG",CHP GM,CHCPT,C LMPT,0)) G OTO A3 | |
58 | S REC=^CH MZHOLD(TMP J,"1095_OI G",CHPGM,C HCPT,CLMPT ,0) | |
59 | I CLMPT'[ "FMP" D | |
60 | .S X1=CLM PT D PROGT YP^CHFCD00 1 | |
61 | .SET CLNU M=$PIECE(@ (GLPAY_"CL MPT,0)")," ^",1) | |
62 | I CLMPT[" FMP" S CLN UM=CLMPT | |
63 | SET PNAME =$PIECE(RE C,"^",1) | |
64 | SET PSSN= $PIECE(REC ,"^",2) | |
65 | SET CHDOS =$PIECE(RE C,"^",3) | |
66 | SET CHBAM T=$PIECE(R EC,"^",4) | |
67 | SET CHAAM T=$PIECE(R EC,"^",5) | |
68 | SET CHPDA MT=$PIECE( REC,"^",6) | |
69 | SET CHSTA T=$PIECE(R EC,"^",7) | |
70 | U FIO W ! ,$E(PNAME, 1,14)_$C(9 )_PSSN_$C( 9)_$$FMTE^ XLFDT(CHDO S,"5D")_$C (9)_CLNUM_ $C(9)_$J($ FN(CHBAMT, ",",2),8)_ $C(9)_$J($ FN(CHAAMT, ",",2),8)_ $C(9)_$J($ FN(CHPDAMT ,",",2),8) _$C(9)_CHS TAT | |
71 | SET CT=CT +1 | |
72 | SET TCHBA MT=TCHBAMT +CHBAMT | |
73 | SET TCHAA MT=TCHAAMT +CHAAMT | |
74 | SET TCHPD AMT=TCHPDA MT+CHPDAMT | |
75 | SET CCHBA MT=CCHBAMT +CHBAMT | |
76 | SET CCHAA MT=CCHAAMT +CHAAMT | |
77 | SET CCHPD AMT=CCHPDA MT+CHPDAMT | |
78 | S TMPK=0 | |
79 | A4 S TMPK= $O(^CHMZHO LD(TMPJ,"1 095_OIG",C HPGM,CHCPT ,CLMPT,TMP K)) G:'TMP K A3 | |
80 | IF '$DATA (^CHMZHOLD (TMPJ,"109 5_OIG",CHP GM,CHCPT,C LMPT,TMPK) ) GOTO A3 | |
81 | S TMPL="" | |
82 | A5 S TMPL= $O(^CHMZHO LD(TMPJ,"1 095_OIG",C HPGM,CHCPT ,CLMPT,TMP K,TMPL)) G :TMPL="" A 4 | |
83 | S LREC=^C HMZHOLD(TM PJ,"1095_O IG",CHPGM, CHCPT,CLMP T,TMPK,TMP L) | |
84 | S CHPCODE =$P(LREC," ^",1) | |
85 | S CHDESC= $P(LREC,"^ ",2) | |
86 | U FIO W ! ,$C(9)_$C( 9)_$C(9)_$ C(9)_$C(9) _$C(9)_$C( 9)_$C(9)_C HPCODE_$C( 9)_$E(CHDE SC,1,30) | |
87 | ;W !,?89, CHPCODE,?9 9,$E(CHDES C,1,30) | |
88 | GOTO A5 | |
89 | ENDP I '$D (^CHMZHOLD (TMPJ,"109 5_OIG")) D | |
90 | .U FIO W !!!,"NO DA TA FOUND F OR SELECTE D VENDOR"_ $C(9) | |
91 | .Q | |
92 | U FIO W ! !,"TOTAL B ILLED "_$C (9)_"$"_$J ($FN(TCHBA MT,",",2), 10) | |
93 | U FIO W ! ,"TOTAL AL LOWED "_$C (9)_"$"_$J ($FN(TCHAA MT,",",2), 10) | |
94 | U FIO W ! ,"TOTAL PA ID "_$C(9) _"$"_$J($F N(TCHPDAMT ,",",2),10 ) | |
95 | C FIO | |
96 | K TCHBAMT ,TCHAAMT,T CHPDAMT,CT ,PG,DT,CHP GM,CHCPT,C LMPT,CHVNA ME,PNAME | |
97 | K PSSN,CH DOS,CHBAMT ,CHAAMT,CH PDAMT,CHST AT,TMPK,LR EC,CHPCODE ,CHDESC | |
98 | K CCHBAMT ,CCHAAMT,C CHPDAMT,TM PL | |
99 | K ^CHMZHO LD(TMPJ,"1 095_OIG") | |
100 | QUIT | |
101 | HEAD ;W @I OF | |
102 | SET TITLE ="HEALTH A DMINISTRAT ION CENTER " | |
103 | SET TAB=( 132-$L(TIT LE))/2 | |
104 | S BFLAG=" ALL BENES" I '$D(^CH MZHOLD(TMP J,"1095_OI G","NAME", "ALL")) S BFLAG="USE R DEFINED BENES" ;T LH 11/24/0 6 FOR DEV0 00234 | |
105 | S CFLAG=" ALL CODES" I '$D(^CH MZHOLD(TMP J,"1095_OI G","CODE", "ALL")) S CFLAG="USE R DEFINED CODES" ;T LH 11/24/0 6 FOR DEV0 00234 | |
106 | U FIO W D UZ_$C(9)_T ITLE_$C(9) _"Page: "_ PG SET PG= PG+1 | |
107 | SET TITLE ="OIG REPO RT FOR "_C HVNAME_" F OR "_BFLAG _" WITH "_ CFLAG ;TL H 11/24/06 FOR DEV00 0234 | |
108 | SET TAB=( 132-$L(TIT LE))/2 | |
109 | U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_$C(9)_T ITLE,! | |
110 | Q | |
111 | HEAD1 S TI TLE=CHPGM_ " -- "_CHC NAME | |
112 | SET TAB=( 132-$L(TIT LE))/2 | |
113 | U FIO W ! ,TITLE_$C( 9) | |
114 | HDRS U FIO W !,"NAME "_$C(9)_"S SN"_$C(9)_ "DOS"_$C(9 )_"CLAIM # "_$C(9)_"B ILLED"_$C( 9)_"ALLOWE D"_$C(9)_" PAID"_$C(9 )_"STATUS" _$C(9)_"CO DE"_$C(9)_ "DESCRIPTI ON" | |
115 | QUIT |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.