239. EPMO Open Source Coordination Office Redaction File Detail Report

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.

239.1 Files compared

# 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

239.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 240
Changed 2 10
Inserted 0 0
Removed 0 0

239.3 Comparison options

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

239.4 Active regular expressions

No regular expressions were active.

239.5 Comparison detail

  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 
P II
  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="
P II "_NAME_"
D NS  ",XMY(DOMN )=""      YJK-1/14/1   MTN008826- 01
  94    I NAME'=" CMOP-NAT"  S DOMN="
P II "_NAME_"
D OM A IN . EXT  ",XMY(DOMN )=""    ; ;    YJK-1/14/1   MTN008826- 01
  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    ;