27. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:43 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.

27.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSAP2.m Mon Nov 5 16:39:17 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSAP2.m Tue Nov 6 22:08:08 2018 UTC

27.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 8 468
Changed 7 14
Inserted 0 0
Removed 0 0

27.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

27.4 Active regular expressions

No regular expressions were active.

27.5 Comparison detail

  1   CHCMSAP2 ; HAC/JSG;CO PY OF CMS  REPLY FILE  READIN FO R TESTING  DEV005832; 02/23/09;1 0:10 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;Reads CM S Reply Fi les and cr eates ^CHM ZHOLD for  testing CH CMSAP1; do es NOT gen erate ;
  4    ;the HAC  CMS CROSS- MATCH DISC REPANCIES  REPORT; do es NOT upd ate HICNs                   ;
  5    ;JSG;DEV0 05832-02;0 2/10/09;Au to populat e DODs fro m the CMS  Reply File                  ;
  6    ;;
  7    Q
  8   TEST ;Read  files and  create CH MZHOLD and  TMP(,"CMS  REPLY") f or auto po pulating D ODs   ;
  9    ;D ^CHMFS ET X CHRES ET
  10    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"
  11    ;U 0 W !, "For the s ystem to g enerate th e CMS disc repancy re port, five  files lis ted below 
  12    ;U 0 W !, "must exis t in the  DNS     \cms\CMSRe plyFiles d irectory:  "
  13    ;U 0 W !! ,"            BENENAM E.TXT, HIC N.TXT, MED A.TXT, MED B.TXT, SSN .TXT." 
  14    ;U 0 W !! ,"The disc repancy re port name  is CMS_DIS CREPANCY_R EPORT_MMYY .TXT and w ill be "
  15    ;U 0 W !, "output to  the  DNS     \CMS direc tory."
  16    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"  
  17    ;U 0 R !! ,"Are you  sure you w ant to con tinue (Y/N ))  ",Y  Q :$$UP^XLFS TR(Y)'="Y"   D CSBRS^ CHSC2
  18    ;U 0 R !! ,"Is that  a test run  (Y/N) ? " ,yn#2 D:$$ UP^XLFSTR( yn)="Y"
  19    ;.U 0 R ! ,"Number o f test pat ients: ",N TP#3 S NTP 1=1
  20    ;Q:$D(DFO UT)  Q:$D( DUOUT)
  21    ;S CHRPTN M=""
  22    ;I $P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY")),"^ ",1)'="" D  
  23    .S CHRPTN M=$P($G(^V A(200,$P(^ CHMZHOLD(" ZSKD_CMSRE PLY"),"^", 1),0)),U,1 )
  24    ;I CHRPTN M'="" D
  25    ;.W !!,"* "_$E(CHRPT NM,1,12)_"  is runnin g the repo rt. Contin ue and ove rwrite the  report (Y /N)? "
  26    ;.D CSBRS ^CHSC2 Q:$ D(DFOUT)   Q:$D(DUOUT )  Q:$$UP^ XLFSTR(Y)' ="Y"
  27    K ^CHMZHO LD("ZSKD_C MSREPLY")
  28    ;
  29    S ZTSK=$J
  30   START ;
  31    S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_ZT SK
  32    S $ZE="", $ZT="" G P ROCESS
  33    Q
  34   RFILE1 ;re adin ssn f ile
  35    S $ZE="", $ZT="RFILE 2^CHCMSAP2 "
  36    S READFIL 1="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]SSN.TX T"
  37    O READFIL 1:"R":5 G: $ZE["ENDOF FILE" RFIL E2
  38    F  U READ FIL1 R TMP X G:$ZE["E NDOFFILE"  RFILE2 D
  39    .S (CHBID ,CHSSN,CHS EX)=""
  40    .Q:$E(TMP X,1)="B"
  41    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  42    .S CHSSN= $P(TMPX,", ",2) Q:CHS SN=""  Q:C HSSN'?9N
  43    .S CHSEX= $P(TMPX,", ",3),CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "")
  44    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",1)=CHS SN
  45    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",2)=CHS EX
  46   RFILE2 ;re adin benen ame file
  47    S $ZE="", $ZT="RFILE 3^CHCMSAP2 "
  48    S READFIL 2="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]BENENA ME.TXT"
  49    O READFIL 2:"R":5 G: $ZE["ENDOF FILE" RFIL E3
  50    F  U READ FIL2 R TMP X G:$ZE["E NDOFFILE"  RFILE3 D
  51    .S (CHBID ,CHDOB,CHD OD,CHFNAME ,CHMI,CHLN AME,CHHICN )=""
  52    .Q:$E(TMP X,1)="B"
  53    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  54    .S CHDOB= $P(TMPX,", ",2) I CHD OB'="" S C HDOB=$$CON VDT(CHDOB)
  55    .S CHDOD= $P(TMPX,", ",3) I CHD OD'="" S C HDOD=$$CON VDT(CHDOD)
  56    .S CHFNAM E=$P(TMPX, ",",4),CHF NAME=$$TRI M^CHTFLIB( CHFNAME),C HFNAME=$$L TRIM^CHTFL IB(CHFNAME )
  57    .S CHMI=$ P(TMPX,"," ,5),CHMI=$ $TRIM^CHTF LIB(CHMI), CHMI=$$LTR IM^CHTFLIB (CHMI)
  58    .S CHLNAM E=$P(TMPX, ",",6),CHL NAME=$$TRI M^CHTFLIB( CHLNAME),C HLNAME=$$L TRIM^CHTFL IB(CHLNAME )
  59    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",3)=CHD OB
  60    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",4)=CHD OD
  61    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",5)=CHF NAME
  62    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",6)=CHM I
  63    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",7)=CHL NAME
  64   RFILE3 ;re adin MEDA  file
  65    S $ZE="", $ZT="RFILE 4^CHCMSAP2 "
  66    S READFIL 3="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDA.T XT"
  67    O READFIL 3:"R":5 G: $ZE["ENDOF FILE" RFIL E4
  68    F  U READ FIL3 R TMP X G:$ZE["E NDOFFILE"  RFILE4 D
  69    .S (CHBID ,CHMASDT,C HMAEDT,CHM ARNCD,CHMA STCD)=""
  70    .Q:$E(TMP X,1)="B"
  71    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  72    .S CHMASD T=$P(TMPX, ",",2) I C HMASDT'=""  S CHMASDT =$$CONVDT( CHMASDT)
  73    .S CHMAED T=$P(TMPX, ",",3) I C HMAEDT'=""  S CHMAEDT =$$CONVDT( CHMAEDT)
  74    .S CHMARN CD=$P(TMPX ,",",4)
  75    .S CHMAST CD=$P(TMPX ,",",5)
  76    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",8)=CHM ASDT
  77    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",9)=CHM AEDT
  78   RFILE4 ;re adin MEDB  file
  79    S $ZE="", $ZT="RFILE 5^CHCMSAP2 "
  80    S READFIL 4="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDB.T XT"
  81    O READFIL 4:"R":5 G: $ZE["ENDOF FILE" RFIL E5
  82    F  U READ FIL4 R TMP X G:$ZE["E NDOFFILE"  RFILE5 D
  83    .S (CHBID ,CHMBSDT,C HMBEDT,CHM BRNCD,CHMB STCD)=""
  84    .Q:$E(TMP X,1)="B"
  85    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  86    .S CHMBSD T=$P(TMPX, ",",2) I C HMBSDT'=""  S CHMBSDT =$$CONVDT( CHMBSDT)
  87    .S CHMBED T=$P(TMPX, ",",3) I C HMBEDT'=""  S CHMBEDT =$$CONVDT( CHMBEDT)
  88    .S CHMBRN CD=$P(TMPX ,",",4)
  89    .S CHMBST CD=$P(TMPX ,",",5)
  90    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",10)=CH MBSDT
  91    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",11)=CH MBEDT
  92   RFILE5 ;re adin HICN  file
  93    S $ZE="", $ZT="PROCE SS^CHCMSAP 2"
  94    S READFIL 5="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]HICN.T XT"
  95    O READFIL 5:"R":5 G: $ZE["ENDOF FILE" PROC ESS
  96    F  U READ FIL5 R TMP X G:$ZE["E NDOFFILE"  PROCESS D
  97    .S (CHBID ,CHHICN)=" "
  98    .Q:$E(TMP X,1)="B"
  99    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  100    .S CHHICN =$P(TMPX," ,",2)
  101    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",12)=CH HICN
  102   PROCESS ;
  103    ;D ^CHCMS 1009  ;DP; CREATE THE  CMS FILE;
  104    S $ZE="", $ZT="",$EC ODE=$ZE
  105    ;I $D(REA DFIL1) C R EADFIL1
  106    ;I $D(REA DFIL2) C R EADFIL2
  107    ;I $D(REA DFIL3) C R EADFIL3
  108    ;I $D(REA DFIL4) C R EADFIL4
  109    ;compare  CMS data a gainst the  HAC's
  110    D NOW^%DT C S CHDTTM =%
  111    S (CHTDSC RE,CHTSSN, CHTNAME,CH TDOB,CHTDO D,CHTHICN, CHTMABD,CH TMAED,CHTM BBD,CHTMBE D)=0
  112    S CHBID=0
  113    F  S CHBI D=$O(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID)) G :'CHBID PR INT D
  114    .S (CHSSN ,CHSEX,CHD OB,CHDOD,C HFNAME,CHM I,CHLNAME, CHMASDT,CH MAEDT,CHMB SDT,CHMBED T,CHHICN)= ""
  115    .S CHSSN= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 1)
  116    .I CHSSN' ="" S CHTS SN=CHTSSN+ 1
  117    .S CHSEX= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 2),CHSEX=$ S(CHSEX=1: "M",CHSEX= 2:"F",1:"" )
  118    .S CHDOB= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 3)
  119    .S CHDOD= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 4)
  120    .S CHFNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",5)
  121    .S CHMI=$ P(^CHMZHOL D("ZSKD_CM SREPLY",CH BID),"^",6 )
  122    .S CHLNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",7)
  123    .S CHMASD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",8)
  124    .S CHMAED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",9)
  125    .S CHMBSD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",10)
  126    .S CHMBED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",11)
  127    .S CHHICN =$P(^CHMZH OLD("ZSKD_ CMSREPLY", CHBID),"^" ,12)
  128    .S CHNOSS N=0,CHERR= ""
  129    .D GHACDA TA
  130    .I CHNOSS N S CHERR= "NO HAC SS N MATCH" D  SETERR Q
  131    .I CHLNAM E'=CHHLNAM E S CHERR= "A,",CHTNA ME=CHTNAME +1,CHTDSCR E=CHTDSCRE +1
  132    .I CHDOB' =CHHDOB S  CHERR=CHER R_"B,",CHT DOB=CHTDOB +1,CHTDSCR E=CHTDSCRE +1
  133    .I CHDOD' =CHHDOD S  CHERR=CHER R_"C,",CHT DOD=CHTDOD +1,CHTDSCR E=CHTDSCRE +1
  134    .I CHHHIC N'="" D
  135    ..I CHHIC N'=CHHHICN  S CHERR=C HERR_"D,", CHTHICN=CH THICN+1,CH TDSCRE=CHT DSCRE+1
  136    .I CHMASD T'=CHHMASD T S CHERR= CHERR_"E," ,CHTMABD=C HTMABD+1,C HTDSCRE=CH TDSCRE+1
  137    .I CHMAED T'=CHHMAED T S CHERR= CHERR_"F," ,CHTMAED=C HTMAED+1,C HTDSCRE=CH TDSCRE+1
  138    .I CHMBSD T'=CHHMBSD T S CHERR= CHERR_"G," ,CHTMBBD=C HTMBBD+1,C HTDSCRE=CH TDSCRE+1
  139    .I CHMBED T'=CHHMBED T S CHERR= CHERR_"H", CHTMBED=CH TMBED+1,CH TDSCRE=CHT DSCRE+1
  140    .D SETERR
  141    .D DODCHK ^CHCMSAP1( CHDOD,CHHD OD,CHDOB,C HHDOB,DFN, BFN,CHSSN, CHBNAME)   ;JSG;DEV00 5832;2/20/ 09
  142   PRINT ;
  143    Q
  144   SETERR ;
  145    S $P(^CHM ZHOLD("ZSK D_CMSREPLY ",CHBID)," ^",13)=$S( $E(CHERR,$ L(CHERR))= ",":$E(CHE RR,1,$L(CH ERR)-1),1: CHERR)
  146    I CHFNAME ="" S CHFN AME="XXX"
  147    I CHMI=""  S CHMI="X XX"
  148    I CHLNAME ="" S CHLN AME="XXX"
  149    S ^CHMZHO LD("ZSKD_C MSREPLY"," NAME",CHLN AME,CHFNAM E,CHMI,CHS SN)=^CHMZH OLD("ZSKD_ CMSREPLY", CHBID)
  150    Q
  151    ;
  152   GHACDATA ; get data f rom the HA C Bene fil e
  153    S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)=""
  154    S CHNOSSN =0
  155    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  156    S (DFN,BF N)=""
  157    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  158    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  159    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  160    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  161    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  162    S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1)
  163    S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME)
  164    S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI)
  165    S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME)
  166    D HACMEDA ,HACMEDB
  167    S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39)
  168    S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN)
  169    Q
  170    ;
  171   HACMEDA ;
  172    Q:'$D(^AH CHVA(DFN,1 00,BFN,111 ))
  173    S CHHMADT P=99999999 99
  174    S CHHMADT P=$O(^AHCH VA(DFN,100 ,BFN,111,C HHMADTP),- 1)
  175    I CHHMADT P D
  176    .S CHHMAS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 1)
  177    .S CHHMAE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 4)
  178    Q
  179    ;
  180   HACMEDB ;
  181    Q:'$D(^AH CHVA(DFN,1 00,BFN,112 ))
  182    S CHHMBDT P=99999999 99
  183    S CHHMBDT P=$O(^AHCH VA(DFN,100 ,BFN,112,C HHMBDTP),- 1)
  184    I CHHMBDT P D
  185    .S CHHMBS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 1)
  186    .S CHHMBE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 4)
  187    Q 
  188    ;
  189   CONVDT(D)   ;Converts  external  date (01SE P2007) to  FileMan da te (307090 1)
  190    S X=D D ^ %DT K X,%D T
  191    Q Y
  192    ;
  193   COUNT(N) ; Print repo rt to file :
  194            S  J=5412098 31
  195            W HILE $O(^T MP(J,"CMS  REPLY","DO D DISCREPA NCY",N))'= "" { S N=$ O(^(N)),D= 0
  196                WHILE $O (^TMP(J,"C MS REPLY", "DOD DISCR EPANCY",N, D))>0 { S  D=$O(^(D)) ,B=0
  197                   WHILE  $O(^TMP(J ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B))>0  { S B=$O( ^(B))
  198                      S  X=^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B)
  199                      ;W  !,$I(CLAI MCNT)
  200                      IF  $P(X,"^", 7) { W !,$ I(CLAIMCNT ) }
  201                                         ;K ^T MP(J,"CMS  REPLY","DO D DISCREPA NCY",N,D,B )
  202                      }  } }
  203            Q
  204   COUNTAP(D)  ;Print re port to fi le:
  205            S  J=5412098 31
  206            W HILE $O(^T MP(J,"CMS  REPLY","DO D AUTOPOP" ,D))>0 { S  D=$O(^(D) ),B=0
  207                WHILE $O (^TMP(J,"C MS REPLY", "DOD AUTOP OP",D,B))> 0 { S B=$O (^(B))
  208                   S X=^ TMP(J,"CMS  REPLY","D OD AUTOPOP ",D,B)
  209                   S N=$ P(X,"^",6)
  210                   IF '$ D(^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B)) { W  !,$I(POPC NT) }
  211                   } }
  212            Q
  213   COUNTDOB(N ) ;Print r eport to f ile:
  214            S  J=5412098 31
  215            W HILE $O(^T MP(J,"CMS  REPLY","DO D DISCREPA NCY",N))'= "" { S N=$ O(^(N)),D= 0
  216                WHILE $O (^TMP(J,"C MS REPLY", "DOD DISCR EPANCY",N, D))>0 { S  D=$O(^(D)) ,B=0
  217                   WHILE  $O(^TMP(J ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B))>0  { S B=$O( ^(B))
  218                      S  X=^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B)
  219                      ;W  !,$I(CLAI MCNT)
  220                      IF  $P(X,"^", 3)'=$P(X," ^",4) { W  !,$I(CLAIM CNT) }
  221                                         ;K ^T MP(J,"CMS  REPLY","DO D DISCREPA NCY",N,D,B )
  222                      }  } }
  223            Q
  224   TESTAP ;En ter a DFN,  BFN; chec k claims;  auto popul ate:
  225        S CMS D=0,U="^"
  226        S J=5 41190802
  227        S CMS DOC=$O(^AH ADIC(74100 3.01,"B"," CMS REPLY  FILE",0))      ;Get C MS documen t source n umber;
  228        S CMS DUZ=$O(^VA (200,"B"," CMS,REPLY  FILE",0))                                ;G et CMS use r DUZ;
  229        D NOW ^%DTC S (C MSDAT,TODA Y)=X                                               ;Se t document  date;
  230   DF   R !," DFN> ",CMS D I '$D(^T MP(J,"CMS  REPLY","DO D AUTOPOP" ,CMSD)) W  "  ??" G D F
  231   BF   R !," BFN> ",CMS B I '$D(^T MP(J,"CMS  REPLY","DO D AUTOPOP" ,CMSD,CMSB ),CMSREC)  W "  ??" G  BF
  232        S CDO D=$P(CMSRE C,U),CMSN= $P(CMSREC, U,6)
  233     IF '$$CL AIMS^CHCMS AP1(CMSD,C MSB,CDOD,0 ) { W !!," No recent  claims fou nd."
  234         R !, "Auto Popu late?> ",A P
  235         IF $ E(AP)="Y" 
  236            D  POPULATE^ CHCMSAP1(C MSD,CMSB,C DOD,CMSN,C MSREC,CMSD UZ,CMSDOC, CMSDAT) }  }
  237     ELSE { W  !!,"Recen t claims f ound."
  238            R  !,"Add to  the discr epancy lis t?> ",AD
  239            I F $E(AD)=" Y" { 
  240                 S ^TMP( J,"CMS REP LY","DOD D ISCREPANCY ",CMSN,CMS D,CMSB)=RE C_"^1" } }
  241     Q