Produced by Araxis Merge on 11/9/2018 12:34:10 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 | CHMX352P.m | Mon Nov 5 16:45:22 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMX352P.m | Fri Nov 9 03:28:13 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 162 |
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 | CHMX352P ; CVA/DTP;PR INT-SET MO NTHLY COMP LETE CMOP CLAIMS INT O FINANCIA L REPORT;0 1/06/97 2 :16 PM | |
2 | ;;1.0 | |
3 | ; PT #163 34 (Y2K) | |
4 | Q ;NOT USED - SKD , 9-1-05 | |
5 | S X=DT D DTPRT S DA TE=Y,PG=1, X=$P($H,", ",2),H=X\3 600,M=X#36 00\60 ; SE T D/T | |
6 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M D HEAD,HEAD2 | |
7 | S (CNT,J) =0 | |
8 | LOOP S J=$ O(^CHMZHOL D("CMOP_RE CON",J)) I 'J G TOTA L | |
9 | I $Y>56 W @IOF D HE AD,HEAD2 | |
10 | ;W ^CHMZH OLD("CMOP_ RECON",J), ! | |
11 | S X=^CHMZ HOLD("CMOP _RECON",J) D M1BLD | |
12 | S CNT=CNT +1 G LOOP | |
13 | TOTAL ;W ? 61,"------ -",?83,"-- -----",?92 ,"-------" ,! | |
14 | S CHBTOT= $FN(CHBTOT ,"-",2),CH PTOT=$FN(C HPTOT,"-", 2),CHRTOT= $FN(CHRTOT ,"-",2) | |
15 | ;W "TOTAL S:",?61,CH BTOT,?83,C HPTOT,?92, CHRTOT | |
16 | S BLNK1=" ",BLNK2="" ,BLNK3="", UNLN="---- ---" | |
17 | F II=1:1: 61 S BLNK1 =BLNK1_" " | |
18 | F II=1:1: 15 S BLNK2 =BLNK2_" " | |
19 | F II=1:1: 2 S BLNK3= BLNK3_" " | |
20 | S X=BLNK1 _UNLN_BLNK 2_UNLN_BLN K3_UNLN D M1BLD | |
21 | S BLNK1=" ",BLNK2="" ,BLNK3="" | |
22 | F II=1:1: 55 S BLNK1 =BLNK1_" " | |
23 | F II=1:1: 15 S BLNK2 =BLNK2_" " | |
24 | F II=1:1: 2 S BLNK3= BLNK3_" " | |
25 | S CHBTOTP =$FN(CHBTO T,"-",2),C HPTOTP=$FN (CHPTOT,"- ",2) | |
26 | S LN1=7-( $L(CHBTOTP )),LN2=7-( $L(CHPTOTP )) | |
27 | S X="TOTA LS"_BLNK1_ CHBTOTP_LN 1_BLNK2_CH PTOTP_LN2_ BLNK3_CHRT OT D M1BLD | |
28 | S X="" D M1BLD | |
29 | S X="TOTA L NUMBER C LAIMS: "_ CNT D M1BL D | |
30 | M1SND D MO NTH1 S XMS UB="HAC CM OP REPORT FOR MONTH OF: "_MONT H,XMDUZ=.5 | |
31 | ;S XMTEXT ="^UTILITY ($J,""M3"" ,1,",XMY(9 79)="",XMY (83)="" ; TRN-DTP,MJ D | |
32 | ;S XMTEXT ="^UTILITY ($J,""M3"" ,1,",XMY(8 4)="",XMY( 98)="",XMY (1948)="" ; DEV-DTP, AEB,JLR | |
33 | S CHEDII= 0,CHEDII=$ O(^CHMDIC( 741002.17, 1,801,"B", "LEAVENWOR TH VA CMOP ",0)) I 'C HEDII S NA ME="CMOP-N AT" G SNDN XT | |
34 | S NAME=$P (^CHMDIC(7 41002.17,1 ,801,CHEDI I,0),"^",1 1) S:NAME= "" NAME="C MOP-NAT" | |
35 | SNDNXT S D OMN="
|
|
36 | S XMTEXT= "^UTILITY( $J,""M3"", 1,",XMY(75 59)="",XMY (9900)="", XMY(1260)= "",XMY(995 8)="",XMY( DOMN)="" ; LIVE-LM,D TP,CB,BB | |
37 | S XMY(777 2)="",XMY( 7558)="",X MY(1914)=" ",XMY(9981 )="",XMY(7 6984)="" ; LIVE--MBS ,CR,TB,SP, MH | |
38 | ;S U="^" D ^XMD ; skd-turned off per M bM meeting on 6-29-0 4 | |
39 | K ^UTILIT Y($J,"M3") | |
40 | END Q | |
41 | ; | |
42 | HEAD S TIT LE="Monthl y CMOP Fin ancial Rep ort" | |
43 | D:PG=1 | |
44 | .S LN1=65 -($L(TITLE )/2),BLNK= "" | |
45 | .F II=1:1 :LN1 S BLN K=BLNK_" " | |
46 | .S X=BLNK _TITLE D M 1BLD | |
47 | .D MONTH1 S CHMMDT= MONTH_", " _YEAR,BLNK ="" | |
48 | .S LN2=65 -($L(CHMMD T)/2) | |
49 | .F II=1:1 :LN2 S BLN K=BLNK_" " | |
50 | .S X=BLNK _CHMMDT D M1BLD | |
51 | .S X="" D M1BLD S X ="" D M1BL D | |
52 | ;W @IOF W :$D(DUZ) ! ,DUZ W ?76 ,"HEALTH A DM CENTER" ,?159,"Pag e: ",PG S PG=PG+1 | |
53 | ;W !,TIME ,?70,TITLE ,!,$E(DT,4 ,7),?168-$ L(DATE)/2, DATE | |
54 | S PG=PG+1 | |
55 | Q | |
56 | ; | |
57 | HEAD2 D:PG =2 | |
58 | .S X="Bat ch #"_UU_" Beneficiar y Name "_ UU_"Bene S SN "_UU_"R X # "_UU_"DOS "_UU_"BL AMT "_UU_ "Claim #"_ UU_"St"_UU _"PD AMT " _UU_"REJ A MT"_UU_"RE J RSN"_UU_ "Reopen"_U U_"Ropn Cl m #" D M1B LD | |
59 | .S X="--- ----"_UU_" ---------- --------"_ UU_"------ ---"_UU_"- ---------- "_UU_"---- --"_UU_"-- -----"_UU_ "-------"_ UU_"--"_UU _"-------" _UU_"----- --"_UU_"-- -----"_UU_ "------"_U U_"------- ---" D M1B LD | |
60 | ;W !!!,"B atch #",?9 ,"Benefici ary Name", ?29,"Bene SSN",?40," RX #",?53, "DOS" | |
61 | ;W ?61,"B L AMT",?70 ,"Claim #" ,?79,"St", ?83,"PD AM T",?92,"RE J AMT" | |
62 | ;W ?101," REJ RSN",? 110,"Reope n",?118,"R opn Clm #" | |
63 | ;W !,"--- ----",?9," ---------- --------", ?29,"----- ----",?40, "--------- --" | |
64 | ;W ?53,"- -----",?61 ,"-------" ,?70,"---- ---",?79," --",?83,"- ------" | |
65 | ;W ?92,"- ------",?1 01,"------ -",?110,"- -----",?11 8,"------- ---",! | |
66 | Q | |
67 | ; | |
68 | M1BLD D SP ACE I '$D( ^UTILITY($ J,"M3",1)) S HOLDJ=0 | |
69 | S JJ=HOLD J+1 S ^UTI LITY($J,"M 3",1,JJ,0) =X,HOLDJ=J J Q | |
70 | ; | |
71 | SPACE S LE N=$L(X) S TIMES=132- LEN,SPACE= "" F KK=1: 1:TIMES S SPACE=SPAC E_" " | |
72 | S X=X_SPA CE Q | |
73 | MONTH1 S M N=+$E(BDAT E,4,5) | |
74 | S MONTH=$ S(MN=1:"Ja nuary",MN= 2:"Februar y",MN=3:"M arch",MN=4 :"April",M N=5:"May", MN=6:"June ",MN=7:"Ju ly",MN=8:" August",MN =9:"Septem ber",MN=10 :"October" ,MN=11:"No vember",MN =12:"Decem ber",1:"") | |
75 | ; Y2K S Y R=$E(BDATE ,2,3),YEAR ="19"_YR Q | |
76 | S YEAR=$$ FMYR^CHTFL IB($E(BDAT E,1,3)) Q | |
77 | ; | |
78 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
79 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
80 | Q | |
81 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
82 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.