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 | CHMXCCMS.m | Mon Nov 5 16:41:18 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXCCMS.m | Fri Nov 9 03:29:45 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 240 |
Changed | 2 | 10 |
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 | CHMXCCMS ; CVA/DTP;CM OP MISSING CLM DATA MESSAGE;09 /30/96 8: 50 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990 | |
3 | ;YJK-1/14 /10 MTN008826- 01 Stop Se nding mail to
|
|
4 | S (M1TOT, M2TOT)=0,U =" ",DUZH LD=DUZ,DUZ =.5 | |
5 | D MAIL1 | |
6 | D MAIL2 | |
7 | K CHRXI,C HRXJ,REC,C HRXNB,CHBE NM,CHDOS,C HNDC,CHQTY ,CHUNTCT,C HDOB,CHSEX | |
8 | K CHBSSN, M1TOT,M2TO T,LEN,SPAC E,HOLDJ,JJ ,U,CHEDII, NAME,DOMN, CHPSDRI | |
9 | K CHDRNM, CHVACLS,CH NDF,DRGPTR | |
10 | S DUZ=DUZ HLD | |
11 | Q | |
12 | ; | |
13 | MAIL1 Q:'$ D(^CHMZHOL D("CMOP_MI SS_DATA")) | |
14 | F I=1:1 S X=$P($T(M 1TX1+I),"; ",2) Q:X=" END" D MB LD | |
15 | D M1TAB | |
16 | F I=1:1 S X=$P($T(M 1TX2+I),"; ",2) Q:X=" END" D MB LD | |
17 | D M1SND K ^UTILITY( $J,"M1"),^ CHMZHOLD(" CMOP_MISS_ DATA") | |
18 | Q | |
19 | ; | |
20 | MAIL2 Q:'$ D(^CHMZHOL D("CMOP_MI SS_DATA1") ) | |
21 | S U=" " F I=1:1 S X=$P($T( M2TX1+I)," ;",2) Q:X= "END" D M BLD | |
22 | D M2TAB | |
23 | F I=1:1 S X=$P($T(M 2TX2+I),"; ",2) Q:X=" END" D MB LD | |
24 | D M2SND K ^UTILITY( $J,"M1"),^ CHMZHOLD(" CMOP_MISS_ DATA1") | |
25 | Q | |
26 | ; | |
27 | M1TX1 ; | |
28 | ;Reported below are CMOP pres criptions which need to be bil led to | |
29 | ;CHAMPVA Center. T hese presc riptions c annot be b illed beca use | |
30 | ;they are missing v ital claim data as s hown. (If YES or da ta is | |
31 | ;displaye d, data is present. If NO is displayed, data is m issing.) | |
32 | ; | |
33 | ; | |
34 | ;RX # PATIE NT DOS N DC QTY U NT DOB S EX SSN | |
35 | ;-------- --- ----- ---------- -- --- - -- --- - -- --- - -- --- | |
36 | ; | |
37 | ;END | |
38 | M1TX2 ; | |
39 | ;Unitcost (UNT) mus t be suppl ied by CMO P. Other data eleme nts | |
40 | ;are supp lied by th e servicin g VAMC or CHAMPVA Ce nter itsel f. | |
41 | ; | |
42 | ;END | |
43 | M1SND S XM SUB="CMOP MISSING CL AIMS DATA" ,XMDUZ=DUZ | |
44 | S XMTEXT= "^UTILITY( $J,""M1"", 1,",XMY(12 60)="",XMY (7559)="", XMY(9900)= "",XMY(325 2)="",XMY( 10003)="", XMY(10639) ="" ; LIVE --CB,LM,DP ,DS,KC,JM | |
45 | ;S XMTEXT ="^UTILITY ($J,""M1"" ,1,",XMY(8 4)="",XMY( 98)="",XMY (1948)="" ; DEV--DTP ,AEB,JLR | |
46 | ;S XMTEXT ="^UTILITY ($J,""M1"" ,1,",XMY(8 3)="",XMY( 979)="" ; TRN--MJD,D TP | |
47 | S U="^" D ^XMD | |
48 | Q | |
49 | ; | |
50 | M1TAB S CH RXI=0 | |
51 | M1L1 S CHR XI=$O(^CHM ZHOLD("CMO P_MISS_DAT A",CHRXI)) G:'CHRXI M1L3 S CHR XJ="" | |
52 | M1L2 S CHR XJ=$O(^CHM ZHOLD("CMO P_MISS_DAT A",CHRXI,C HRXJ)) G:C HRXJ="" M1 L1 | |
53 | S:$D(^CHM ZHOLD("CMO P_MISS_DAT A",CHRXI,C HRXJ)) REC =^(CHRXJ) | |
54 | S CHRXNB= $P(REC,"^" ),CHBENM=$ E($P(REC," ^",9),1,17 ),CHDOS=$P (REC,"^",2 ),CHNDC=$P (REC,"^",3 ),CHQTY=$P (REC,"^",5 ),CHUNTCT= $P(REC,"^" ,7),CHDOB= $P(REC,"^" ,10),CHSEX =$P(REC,"^ ",11),CHBS SN=$P(REC, "^",12) | |
55 | I CHRXNB' ="" F I=1: 1:(11-$L(C HRXNB)) S CHRXNB=CHR XNB_" " | |
56 | I CHBENM' ="" F I=1: 1:(17-$L(C HBENM)) S CHBENM=CHB ENM_" " | |
57 | S:CHDOS'= "" CHDOS=" YES" S:CHD OS="" CHDO S=" NO" | |
58 | S:CHNDC'= "" CHNDC=" YES" S:CHN DC="" CHND C=" NO" | |
59 | S:CHQTY'= "" CHQTY=" YES" S:CHQ TY="" CHQT Y=" NO" | |
60 | S:CHUNTCT '="" CHUNT CT="YES" S :CHUNTCT=" " CHUNTCT= " NO",M2TO T=M2TOT+1 | |
61 | S:CHDOB'= "" CHDOB=" YES" S:CHD OB="" CHDO B=" NO" | |
62 | S:CHSEX'= "" CHSEX=" YES" S:CHS EX="" CHSE X=" NO" | |
63 | S:CHBSSN' ="" CHBSSN ="YES" S:C HBSSN="" C HBSSN=" NO " | |
64 | S X=CHRXN B_U_CHBENM _U_CHDOS_U _CHNDC_U_C HQTY_U_CHU NTCT_U_CHD OB_U_CHSEX _U_CHBSSN | |
65 | S M1TOT=M 1TOT+1 D M BLD G M1L2 | |
66 | M1L3 S X=" " D MBLD | |
67 | S X="Tota l Claims M issing Dat a: "_M1TO T | |
68 | D MBLD S X="" D MBL D Q | |
69 | ; | |
70 | M2TX1 ; | |
71 | ;Reported below are Drug Entr ies in the Local Dru g File whi ch do NOT | |
72 | ;have Uni t Cost dat a. A numb er of pres criptions (specified below) | |
73 | ;have not been bill ed to CHAM PVA Center because o f this mis sing data. | |
74 | ; | |
75 | ; | |
76 | ;LDF ENTR Y # GEN ERIC DRUG NAME VA C LASS ND F ENTRY # | |
77 | ;-------- --- --- ---------- ---------- -- ---- ---- -- --------- | |
78 | ; | |
79 | ;END | |
80 | ; | |
81 | M2TX2 ; | |
82 | ;Please s upply Unit Cost data on these drugs in a response to this | |
83 | ;message. This dat a will be keyed into the Local Drug File and the | |
84 | ;prescrip tions will be billed immediate ly. | |
85 | ; | |
86 | ;END | |
87 | ; | |
88 | M2SND S XM SUB="CMOP MISSING UN IT COST FO R DRUG",XM DUZ=DUZ | |
89 | S XMTEXT= "^UTILITY( $J,""M1"", 1,",XMY(75 59)="",XMY (9900)="", XMY(10003) ="",XMY(10 639)="" ; LIVE-LM,DT P,KC,JM | |
90 | 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 | |
91 | S NAME=$P (^CHMDIC(7 41002.17,1 ,801,CHEDI I,0),"^",1 1) S:NAME= "" NAME="C MOP-NAT" | |
92 | SNDNXT | |
93 | ;S DOMN="
|
|
94 | I NAME'=" CMOP-NAT" S DOMN="
|
|
95 | S DOMN=" PII ",XMY(DOMN )="" | |
96 | S DOMN=" PII ",XMY(DOMN )="" | |
97 | ;S XMTEXT ="^UTILITY ($J,""M1"" ,1,",XMY(9 79)="",XMY (83)="" ; TRN-DTP,MJ D | |
98 | ;S XMTEXT ="^UTILITY ($J,""M1"" ,1,",XMY(8 4)="",XMY( 98)="",XMY (1948)="" ; DEV-DTP, AEB,JLR | |
99 | S U="^" D ^XMD | |
100 | Q | |
101 | M2TAB S CH PSDRI=0 | |
102 | M2L1 S CHP SDRI=$O(^C HMZHOLD("C MOP_MISS_D ATA1",CHPS DRI)) G:'C HPSDRI M2L 2 | |
103 | S (CHDRNM ,CHVACLS,C HNDF)="" | |
104 | S:$D(^PSD RUG(CHPSDR I,0)) REC= ^(0) | |
105 | S CHDRNM= $E($P(REC, "^"),1,25) ,CHVACLS=$ E($P(REC," ^",2),1,8) | |
106 | S:$D(^PSD RUG(CHPSDR I,"ND")) C HNDF=$E($P (^("ND")," ^"),1,11) | |
107 | S DRGPTR= CHPSDRI | |
108 | F I=1:1:( 11-$L(DRGP TR)) S DRG PTR=DRGPTR _" " | |
109 | F I=1:1:( 25-$L(CHDR NM)) S CHD RNM=CHDRNM _" " | |
110 | F I=1:1:( 8-$L(CHVAC LS)) S CHV ACLS=CHVAC LS_" " | |
111 | F I=1:1:( 11-$L(CHND F)) S CHND F=CHNDF_" " | |
112 | S X=DRGPT R_U_CHDRNM _U_CHVACLS _U_CHNDF | |
113 | D MBLD G M2L1 | |
114 | M2L2 S X=" " D MBLD | |
115 | S X="Tota l Prescrip tions Miss ing Unit C ost: "_M2 TOT | |
116 | D MBLD S X="" D MBL D Q | |
117 | ; | |
118 | MBLD D SPA CE I '$D(^ UTILITY($J ,"M1",1)) S HOLDJ=0 | |
119 | S JJ=HOLD J+1 S ^UTI LITY($J,"M 1",1,JJ,0) =X,HOLDJ=J J | |
120 | Q | |
121 | ; | |
122 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F KK=1:1 :TIMES S S PACE=SPACE _" " | |
123 | S X=X_SPA CE | |
124 | Q | |
125 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.