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

24.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMS1009.m Mon Nov 5 16:39:11 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMS1009.m Tue Nov 6 22:06:45 2018 UTC

24.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 374
Changed 2 4
Inserted 0 0
Removed 0 0

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

24.4 Active regular expressions

No regular expressions were active.

24.5 Comparison detail

  1   CHCMS1009  ;DP;read t he new for mat of cms  file;5/19 /2010
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;TST00583 2:  Auto p opulate da tes of dea th in APP  from the C MS reply f ile
  4    ;DEF01655 4 SBB 10/2 4/13  - Mo dified EOF  handling  as per VHA  standard.
  5    ;DEF01655 4 SBB 11/1 9/13  - ad ded POP an d IO as pe r OPEN^%ZI SH API.
  6    ;DEF01655 4 SBB 07/3 0/15  - Ad ding chang es for DEC NET
  7    ;
  8    K ^CHMZHO LD("ZSKD_C MSREPLY"), ^TMP(54120 9831)
  9    S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_54 1209831
  10    N POP
  11    S POP=0
  12    ;D RFILE1 ,PRINT
  13    D RFILE1
  14    I POP D P RINT
  15    Q
  16   RFILE1 ;re adin ssn f ile
  17    ;DEF01655 4 SBB 11/2 0/13  - Co nverting f rom DECNET  to FTP.
  18    ;S FILE=" HACFS3""
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]SSN.TX T"
  19    N FOLDER, CNTR
  20    S FILE="S SN.TXT",FO LDER=""
  21    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  22    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  23    I UCI="HA C" S FOLDE R="HAC_HFS $:[SCR.TEM P_FILES]"
  24    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"
  25    S FILE=FO LDER_FILE
  26    D FTPFILE ^CHTFLIB9( FILE," DNS     . DNS             ","/CMS/CM SREPLYFILE S","GET")
  27    S UP="^"  S NTPN=1,$ ZE="",$ZT= "RFILE2^CH CMS1009"
  28    ;DEF01655 4-10/24/13 -SBB call  OPEN^%ZISH  to open t he file
  29    ;O FILE:" R":5 G:$ZE ["ENDOFFIL E" RFILE2  U FILE
  30    S POP=0,C NTR=0
  31    ;SBB 07/3 0/15 DEF01 6554
  32    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  33    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D  
  34    . S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ")
  35    . Q
  36    I 'POP G  RFILE2
  37    S RNDOM=$ R(15),NRND OM=0
  38    ;;DEF0165 54-10/24/1 3-SBB use  STATUS^%ZI SH to chec k for EOF
  39    ;F  Q:NTP N=0  U FIL E R TMPX:5  G:$ZE["EN DOFFILE" R FILE2 D  ; Q  ;U FILE  G:NTPN=0  RFILE2  D
  40    F  Q:NTPN =0  U FILE  R TMPX G: $$STATUS^% ZISH RFILE 2 D  
  41    .I ANS=3  I NTP1>NTP  S NTPN=0  Q
  42    .;I NRNDO M<RNDOM S  NRNDOM=NRN DOM+1 Q  ; AEB 5/6/20 11 COMMENT ED OFF TO  ALLOW ALL  RECORDS TO  BE PROESS ED
  43    .S CHBID= $E(TMPX,1, 15)
  44    .S CHHICN =$E(TMPX,1 6,27) Q:CH BID=""  S  CHHICN=$$S TRIP^XLFST R(CHHICN,"  ")  ;AEB  8/24/2011 
  45    .S CHSSN= $E(TMPX,85 ,93) Q:CHS SN=""  Q:C HSSN'?9N
  46    .S CHSEX= $E(TMPX,84 )
  47    .S LNAME= $E(TMPX,28 ,51)
  48    .S FNAME= $E(TMPX,52 ,66)
  49    .S MNAME= $E(TMPX,67 )
  50    .S DOB=$E (TMPX,68,7 5),DOB=$$G ETDT(DOB) 
  51    .S DOD=$E (TMPX,76,8 3),DOD=$$G ETDT(DOD)
  52    .S CHSSN= $E(TMPX,85 ,93)
  53    .S CHMASD T=$E(TMPX, 94,101),CH MASDT=$$GE TDT(CHMASD T)
  54    .S CHMAED T=$E(TMPX, 102,109),C HMAEDT=$$G ETDT(CHMAE DT)
  55    .S CHMBSD T=$E(TMPX, 112,119),C HMBSDT=$$G ETDT(CHMBS DT)
  56    .S CHMBED T=$E(TMPX, 120,127),C HMBEDT=$$G ETDT(CHMBE DT) 
  57    .D STT I  ANS'=1 Q:' $D(^CHMPAY ("D",DFN))
  58    .D PAY I  ANS'=1 Q:N CF=1
  59    .I ANS'=1  Q:DOB'=CH HDOB
  60    .I ANS'=1  Q:DOD=CHH DOD
  61    .I CHHDOD  I ANS'=1  I ANS'=3 Q :DOD'=CHHD OD
  62    .I ANS>2  Q:DOD'?.9N   D  I CHH DOD Q:DOD' =CHHDOD  D   ;Q:$E(DO D,3,9)=$E( CHHDOD,2,7 )
  63    ..S ^CHMZ HOLD("CMS_ RESET",DFN ,100,BFN,0 )=^AHCHVA( DFN,100,BF N,0)
  64    ..S ^CHMZ HOLD("CMS_ RESET",DFN ,100,BFN,3 )=$G(^AHCH VA(DFN,100 ,BFN,3))
  65    .S ^CHMZH OLD("ZSKD_ CMSREPLY", CHBID)=CHS SN_UP_CHSE X_UP_DOB_U P_DOD_UP_$ TR(FNAME,"  ","")_UP_ MNAME_UP_$ TR(LNAME,"  ","")_UP_ CHMASDT_UP _CHMAEDT_U P_CHMBSDT_ UP_CHMBEDT _UP_CHHICN
  66    .S:'$D(NT P1) NTP1=0  S NTP1=NT P1+1,NRNDO M=0
  67    Q
  68   PAY
  69    S CN=0,NC F=0 I '$D( ^CHMPAY("D ",DFN)) S  NCF=1 Q                           ;No Claim s Found;
  70    F  S CN=$ O(^CHMPAY( "D",DFN,CN ),-1) Q:CN =""  Q:NCF =1  D
  71    .S X=$G(^ CHMPAY(CN, 0))
  72    .I $P(X,U ,22)=BFN,D OD?.7N D
  73    ..S:$P(X, U,8)'<DOD  NCF=1                      ;Clai m date mus t be prior  to DOD ** ********** ***
  74    Q
  75   RFILE2
  76    ;DEF01655 4-10/24/13 -SBB use C LOSE^%ZISH  to close  file
  77    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  78    ;SBB 07/3 0/15 DEF01 6554
  79    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  80    S X=$ZF(- 1,"DELETE  "_FILE_";* ")
  81    ;C FILE 
  82    Q
  83   STT
  84    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  85    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  86    S (DFN,BF N)=""
  87    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  88    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  89    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  90    S:'$D(^CH MZHOLD("CM S_RESET"))  ^("CMS_RE SET")=$H
  91    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  92    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  93    Q
  94   RESET
  95    I '$D(^CH MZHOLD("CM S_RESET"))  U 0 W !," Nothing to  reset" r  xx:2 q
  96    U 0 W !!! ,"This pro cess will  reset ALL  CMS relate d changes  made since  ",$ZD(^CH MZHOLD("CM S_RESET")) ,!,"Contin ue ? (Y/N) " R CO Q:C O'="Y" 
  97    S DFN=""  F  S DFN=$ O(^CHMZHOL D("CMS_RES ET",DFN))  Q:DFN=""   S BFN="" D
  98    .F  S BFN =$O(^CHMZH OLD("CMS_R ESET",DFN, 100,BFN))  Q:BFN=""   D
  99    ..S CHPD= $G(^AHCHVA (DFN,100,B FN,0)),CHC D=^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,0)
  100    ..W !,DFN  L ^AHCHVA (DFN)
  101    ..S ^AHCH VA(DFN,100 ,BFN,0)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,0),$P(^A HCHVA(DFN, 100,BFN,0) ,"^",6)=""
  102    ..S ^AHCH VA(DFN,100 ,BFN,2)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,2)
  103    ..S ^AHCH VA(DFN,100 ,BFN,3)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,3)
  104    ..S %=$O( ^AHCHVA(DF N,101,""), -1)
  105    ..S %1=$O (^AHCHVA(D FN,101,%), -1)
  106    ..I $P(%, ".")=$P(%1 ,".") S %= %1
  107    ..K ^AHCH VA(DFN,101 ,%,100,BFN )
  108    ..;Get re maining va riables fo r Auto Cal c:
  109    ..S (CHCD 1,CHPD1)=$ G(^AHCHVA( DFN,100,BF N,1))
  110    ..S CHCD5 =$G(^AHCHV A(DFN,100, BFN,5))
  111    ..S (CHCD 9,CHPD9)=$ G(^AHCHVA( DFN,100,BF N,9)),DT=$ P(CHCD,U,6 ) S:'$D(DU Z) DUZ=1
  112    ..K ^CHMZ HOLD("CMS_ RESET",DFN )
  113    ..;Auto C alc:
  114    ..D ^CHME AE9 D:CHCD '=CHPD ^CH MEAE8 S CH PD=CHCD D  ^CHMEAE81, ^CHMEAE9 D :CHCD'=CHP D ^CHMEAE8     
  115    ..L
  116     Q
  117   RESET1
  118    ;U 0 W !! !,"This pr ocess will  reset ALL  CMS relat ed changes  made sinc e ",$ZD(^C HMZHOLD("C MS_RESET") ),!,"Conti nue ? (Y/N )" R CO Q: CO'="Y" 
  119    S DFN=""  F  S DFN=$ O(^CHMZHOL D("CMS_RES ET",DFN))  Q:DFN=""   S BFN="" D
  120    .F  S BFN =$O(^CHMZH OLD("CMS_R ESET",DFN, 100,BFN))  Q:BFN=""   D
  121    ..S CHPD= $G(^AHCHVA (DFN,100,B FN,0)),CHC D=^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,0)
  122    ..W !,DFN  L ^AHCHVA (DFN)
  123    ..S ^AHCH VA(DFN,100 ,BFN,0)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,0),$P(^A HCHVA(DFN, 100,BFN,0) ,"^",6)=""
  124    ..S ^AHCH VA(DFN,100 ,BFN,2)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,2)
  125    ..S ^AHCH VA(DFN,100 ,BFN,3)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,3)
  126    ..S %=$O( ^AHCHVA(DF N,101,""), -1)
  127    ..S %1=$O (^AHCHVA(D FN,101,%), -1)
  128    ..I $P(%, ".")=$P(%1 ,".") S %= %1
  129    ..K ^AHCH VA(DFN,101 ,%,100,BFN )
  130    ..;Get re maining va riables fo r Auto Cal c:
  131    ..S (CHCD 1,CHPD1)=$ G(^AHCHVA( DFN,100,BF N,1))
  132    ..S CHCD5 =$G(^AHCHV A(DFN,100, BFN,5))
  133    ..S (CHCD 9,CHPD9)=$ G(^AHCHVA( DFN,100,BF N,9)),DT=$ P(CHCD,U,6 ) S:'$D(DU Z) DUZ=1
  134    ..K ^CHMZ HOLD("CMS_ RESET",DFN )
  135    ..;Auto C alc:
  136    ..D ^CHME AE9 D:CHCD '=CHPD ^CH MEAE8 S CH PD=CHCD D  ^CHMEAE81, ^CHMEAE9 D :CHCD'=CHP D ^CHMEAE8     
  137    ..L
  138    Q
  139   GETDT(D1)  ;;Convert  CMS STRING
  140    S D1=$TR( D1," ","")
  141    I $L(D1)> 3 S Z1=3 S :$E(D1,1)= 1 Z1=2 S D 1=Z1_$E(D1 ,3,99)
  142    Q D1
  143   PRINT
  144    ;Q:yn'="Y "  O 0
  145    ;D TEST^C HCMSAP2
  146    Q:ANS'=6
  147    S C=0,JJ= $P(^CHMZHO LD("ZSKD_C MSREPLY"), "^",2)
  148    K ^TMP("D P")
  149    S A="" F   S A=$O(^T MP(JJ,"CMS  REPLY","D OD DISCREP ANCY",A))  Q:A=""  D
  150    .S B=$O(^ TMP(JJ,"CM S REPLY"," DOD DISCRE PANCY",A,- 1))
  151    .S C=$O(^ TMP(JJ,"CM S REPLY"," DOD DISCRE PANCY",A,B ,-1))
  152    .S X=^(C) ,X1=^AHCHV A(B,100,C, 0)
  153    .S ^TMP(" DP",A,B,"C MS")=X,^TM P("DP",A,B ,"HAC")=X1  ; W !,X,! ,X1 R XXX
  154    S A="",C= 0 F  S A=$ O(^TMP("DP ",A)) Q:A= ""  D
  155    .S B="" F   S B=$O(^ TMP("DP",A ,B)) Q:B=" "  D
  156    ..I C=7 S  C=0 w !!, "Continue. .. Enter ^  to quit"  R XXX I XX X="^" S C= -1 Q
  157    ..S C=C+1 ,X=^TMP("D P",A,B,"CM S"),X1=^(" HAC")
  158    ..U 0 W ! !,C,?3,"CM S: ",B,"   " F I=6,3, 2 W $TR($P (X,"^",I), " ",""),",  " 
  159    ..;Q 
  160    ..;S C=0, JJ=$P(^CHM ZHOLD("ZSK D_CMSREPLY "),"^",2)
  161    ..;S A=""  F  S A=$O (^CHMZHOLD ("ZSKD_CMS REPLY",A))  Q:A=""  D   Q:C=-1
  162    ...;Q:A=" NAME"  S X =^(A) 
  163    ..;S N=$O (^TMP(JJ," CMS REPLY" ,"DOD DISC REPANCY",N )) Q:N=""
  164    ...S NN=" " F  S NN= $O(^TMP(JJ ,"CMS REPL Y","DOD DI SCREPANCY" ,A,NN)) Q: NN=""  D   Q:C=-1
  165    ..;S X=$G (^(NN,1)) 
  166    ..W !,?3, "HAC:",B,"   " F I=1, 3,6 W $TR( $P(X1,"^", I)," ","") ,"  "  
  167    Q 
  168   PRINT1
  169    ;Q:yn'="Y "  O 0
  170    ;D TEST^C HCMSAP2
  171    S CC=1,JJ =$P(^CHMZH OLD("ZSKD_ CMSREPLY") ,"^",2)
  172    S A="" F   S A=$O(^T MP(JJ,"CMS  REPLY","D OD AUTOPOP ",A)) Q:A= ""  Q:A="N EXT"  S B= "" D
  173    .S B="" F   S B=$O(^ TMP(JJ,"CM S REPLY"," DOD AUTOPO P",A,B)) Q :B=""  D
  174    ..S X=^TM P(JJ,"CMS  REPLY","DO D AUTOPOP" ,A,B)
  175    ..S ^TMP( JJ,"CMS RE PLY","DOD  AUTOPOP"," NEXT",A,B, $P(X,"^",6 ))=X
  176    S A="" F   S A=$O(^C HMZHOLD("C MS_RESET", A)) Q:A=""   Q:A="NEX T"  Q:CC=0   D
  177    .S B="" F   S B=$O(^ CHMZHOLD(" CMS_RESET" ,A,B)) Q:B =""  Q:CC= 0  D
  178    ..S C=""  F  S C=$O( ^CHMZHOLD( "CMS_RESET ",A,B,C))  Q:C=""  Q: CC=0  D
  179    ...S X=^C HMZHOLD("C MS_RESET", A,B,C,0)
  180    ...U 0 W  !!,CC,?3," CMS: " F I =1:1:12 W  $TR($P(X," ^",I)," ", ""),","  
  181    ...S N=$P (X,"^",7)_ ","_$P(X," ^",5)
  182    ...;S N=$ O(^TMP(JJ, "CMS REPLY ","DOD DIS CREPANCY", N)) Q:N=""
  183    ...S NN=" " F  S NN= $O(^TMP(JJ ,"CMS REPL Y","DOD AU TOPOP","NE XT",N,NN))  Q:NN=""   Q:CC=0  D
  184    ....S X=$ G(^(N,NN))  W !,?3,"H AC:" F I=1 :1:13 W $T R($P(X,"^" ,I)," ","" )," "  
  185    ...I CC>6  W !,"Cont inue... En ter ^ to q uite" R XX X S CC=0 Q :XXX["^" 
  186    ...S CC=C C+1
  187    Q 
  188    
  189