14. EPMO Open Source Coordination Office Redaction File Detail Report

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

14.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPORP2.m Mon Nov 5 16:44:38 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPORP2.m Tue Nov 6 21:52:21 2018 UTC

14.2 Comparison summary

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

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

14.4 Active regular expressions

No regular expressions were active.

14.5 Comparison detail

  1   CHBPORP2 ; CVA/SKD:LI ST ALL COM PLETED CHA MPVA CLAIM S WITH OHI  PAYMENT F OR A DATE  RANGE ;10/ 8/08  8:04  AM
  2    ;;1.0
  3    ;;CR#: DE V004866-02 : Claims w ith OHI
  4    ;;SBB-DEF 016554-12/ 24/13 - Up dating wit h PST API  function c alls
  5    ;;SBB-DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET
  6    ;;New rou tine 
  7    ;******** ********** ********** ********** ********** ********** ********** ********** *****
  8    ;This rou tine gener ates a rep ort of all  completed  CHAMPVA c laims with  an OHI pa yment, 
  9    ;to inclu de zero pa yments, th at process ed/complet ed during  the period  selected.   
  10    ;The repo rt is call ed the "CH AMPVA Clai ms with OH I" report.   
  11    ;The repo rt lists b eneficiary  name, DOS , amount p aid, OHI p ayment, TO S, and dat e complete d.
  12    ;
  13    ;CHBGDT -  CLAIM COM PLETION PE RIOD BEG D ATE, defau lt is toda y
  14    ;CHENDT -  CLAIM COM PLETION PE RIOD END D ATE, defau lt is toda y
  15    ;CHMINPD  - Min Clai m paid Amo unt, defau lt is 1
  16    ;CHMAXPD  - Max Clai m paid Amo unt, defai lt is 1
  17    ;CHCI - P OINTER INT O ^CHMPAY
  18    ;******** ********** ********** ********** ********** ********** ********** ********** *******
  19   ST1 ;
  20    W #
  21    I '$D(DUZ ) S DUZ=1
  22    I $D(^CHM ZHOLD("ENC 004866"))  D  I (Y="N ")!(Y="n")  G QEND
  23    .S CHRDUZ ="",CHRDUZ =$O(^CHMZH OLD("ENC00 4866",CHRD UZ))
  24    .W !!,"** ********** ********** ********** ********** ********** ********** ********** ***"
  25    .W !,"The  OHI repor t is curre ntly being  generated  by "_$P($ G(^VA(200, CHRDUZ,0)) ,"^",1)_". "
  26    .W !,"*** ********** ********** ********** ********** ********** ********** ********** **"
  27    .W !!,"Do  you want  to termina te the cur rent job a nd generat e a new re port (Y/N) ?  " D CSB RS^CHSC2 
  28    .W !
  29    .G:$D(DFO UT)!($D(DT OUT)) QEND
  30           .G :$D(DUOUT)  QEND
  31           .I  $D(DQOUT)  W !!,"Ans wer with < Y>es or <N >o." R X:3  G ST1
  32           .I  Y="" S Y= "N" S Y=$E (Y)
  33           .I  "YyNn"'[Y  W *7,"  ? ?" R X:3 G  ST1
  34           .I  (Y="N")!( Y="n") G Q END
  35    S (CHBGDT ,CHENDT,CH MINPD,CHMA XPD)=""
  36    S DIR(0)= "D" S DIR( "A")="Star t Date Cla im Complet ed Date (m m/dd/yy)"  D ^DIR
  37    S CHBGDT= Y
  38    I CHBGDT< 3000000 D   G ST1
  39    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  40    G:CHBGDT= "^" QEND
  41    G:$D(DFOU T) QEND G: $D(DUOUT)  QEND
  42    S CHBGDT= Y
  43   ST2 S DIR( 0)="D" S D IR("A")="E nd Date Cl aim Comple ted Date ( mm/dd/yy)"  D ^DIR
  44    S CHENDT= Y
  45    I CHENDT< 3000000 D   G ST2
  46    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  47    I CHENDT< CHBGDT D   G ST2
  48    .W !,"End  date must  be after   "_$$FMTE^ XLFDT(CHBG DT,"5D")_" .  Please  try again. "
  49    G:CHENDT= "^" QEND
  50    G:$D(DFOU T) QEND G: $D(DUOUT)  ST1
  51   ST3 ;S DIR (0)="N" S  DIR("A")=" Minimum Cl aim Paid A mount " D  ^DIR
  52           R  !,"Minimum  Claim Pai d Amount :   ",Y   ;/ //
  53    S CHMINPD =Y
  54    I CHMINPD ="" S CHMI NPD=0  ;// /
  55    ;I CHMINP D<0 D  G S T3
  56    ;.W !,"Th e paid amo unt cannot  be less t han 0.  Pl ease try a gain.",!
  57    G:CHMINPD ="^" QEND
  58    G:$D(DFOU T) QEND G: $D(DUOUT)  ST2
  59   ST4 S DIR( 0)="N" S D IR("A")="M aximum Cla im Paid Am ount " D ^ DIR
  60    S CHMAXPD =Y
  61    ;I CHMAXP D<1 D  G S T4
  62    ;.W !,"Th e paid amo unt cannot  be less t han 1.  Pl ease try a gain.",!
  63    I CHMAXPD <CHMINPD D   G ST4
  64    .W !,"Max imum Claim  Paid Amou nt cannot  be less th an Minimum  Claim Pai d Amount.  ",!
  65    G:CHMAXPD ="^" QEND
  66    G:$D(DFOU T) QEND G: $D(DUOUT)  ST3                
  67    D NOW^%DT C S CHDT=X  
  68    I CHBGDT= "" S CHBGD T=X
  69    I CHENDT= "" S CHEND T=X
  70    ;I CHMINP D="" S CHM INPD=1
  71    I CHMAXPD ="" S CHMA XPD=1
  72    S CHFIO=" "
  73    S ZTSAVE( "CHFIO")=" "
  74    S ZTSAVE( "CHBGDT")= "",ZTSAVE( "CHENDT")= ""
  75    S ZTSAVE( "CHMINPD") ="",ZTSAVE ("CHMAXPD" )="",ZTSAV E("DUZ")=" "
  76    S ZTRTN=" CALC^CHBPO RP2",ZTDES C="ALL CHA MPVA CLAIM S WITH OHI /PR",ZTIO= ""
  77    D ^%ZTLOA D
  78    ;D CALC^C HBPORP2
  79    W !!,"The  task numb er for the  OHI repor t is: ",$G (ZTSK) H 3
  80   QEND K ION
  81    Q
  82   CALC ;
  83    D INDEX2
  84    D START
  85    D PRNT
  86    D KILLVAR
  87    Q
  88   START K ^C HMZHOLD("E NC004866", DUZ) S U=" ^"
  89   A S CHDT1= CHBGDT
  90    F  S CHDT 1=$O(^CHMP AY("E",CHD T1)) Q:CHD T1=""  Q:C HDT1>CHEND T  D
  91    .S CHCI=0
  92    .F  S CHC I=$O(^CHMP AY("E",CHD T1,CHCI))  Q:'CHCI  D   
  93    ..Q:'$D(^ CHMPAY(CHC I,0))
  94    ..Q:($P($ G(^CHMPAY( CHCI,0))," ^",2)'=0)& ($P($G(^CH MPAY(CHCI, 0)),"^",2) '=4)
  95    ..S X1=CH CI D PROGT YP^CHFCD00 1
  96    ..S CHPAI D="",CHPAI D=$P($G(^C HMPAY(CHCI ,1)),"^",1 )
  97    ..I CHPAI D'="" Q:CH PAID<CHMIN PD   ;///
  98    ..I CHPAI D="" S CHP AID=-1   ; ///
  99    ..Q:CHPAI D>CHMAXPD
  100    ..S CHPRA MT="",CHPR AMT=$P($G( ^CHMPAY(CH CI,1)),"^" ,29)
  101    ..I CHPRA MT="" D  
  102    ...Q:$P($ G(^CHMPAY( CHCI,1))," ^",7)=""
  103    ...Q:$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1)=""
  104    ...S CHPR AMT=$P(^CH MPAY(CHCI, "COMMON"), "^",1)-$P( ^CHMPAY(CH CI,1),"^", 7)
  105    ..Q:CHPRA MT=""
  106    ..S DFN=$ P(^CHMPAY( CHCI,0),"^ ",21) Q:DF N=""   ;NO  SPONSOR D EFINED
  107    ..S BFN=$ P(^CHMPAY( CHCI,0),"^ ",22) Q:BF N=""   ;NO  BENE DEFI NED
  108    ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) 
  109    ..S BNAME =$P(^AHCHV A(DFN,100, BFN,0),"^" ,1)
  110    ..S CHCLM NM=$P(^CHM PAY(CHCI,0 ),"^",1)
  111    ..S CHTOS ="",CHTOS= $P($G(^CHM PAY(CHCI,0 )),"^",7)
  112    ..S CHDOS ="",CHDOS= $P($G(^CHM PAY(CHCI,0 )),"^",8)
  113    ..D GETSN BN
  114    ..S CHOHI CD="",CHOH ICD=$$GETO HICD(CHDOS )
  115    ..I CHOHI CD S CHOHI COV=$P($G( ^CHMDIC(74 1002.76,CH OHICD,0)), "^",1)
  116    ..S CHBIL LED="",CHB ILLED=$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1)
  117    ..S CHOHI AMT="",CHO HIAMT=$P($ G(^CHMPAY( CHCI,1))," ^",7)
  118    ..I CHOHI AMT="" D  
  119    ...Q:$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1)=""
  120    ...Q:$P($ G(^CHMPAY( CHCI,1))," ^",29)=""
  121    ...S CHOH IAMT=$P(^C HMPAY(CHCI ,"COMMON") ,"^",1)-$P (^CHMPAY(C HCI,1),"^" ,29)
  122    ..S ^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI)= CHCLMNM_"^ "_CHTOS_"^ "_CHDOS_"^ "_CHOHICD_ "^"_CHOHIC OV_"^"_CHB ILLED_"^"_ CHOHIAMT_" ^"_CHPRAMT _"^"_$S(CH PAID=-1:"" ,1:CHPAID)
  123    Q
  124    ;
  125   GETSNBN ;g et SN,BN o f CHMDFN
  126           S  CHSNBN=0
  127           I  $G(DFN),$G (BFN) D  ; SKD 8-7-07  DEV002172
  128           .S  SN=0,SN=$ O(^CHMDFN( "B",DFN,SN )) I 'SN Q
  129           .S  BN=0,BN=$ O(^CHMDFN( SN,100,"B" ,BFN,BN))  I 'BN Q
  130           S  CHSNBN=1
  131           Q
  132           ;
  133   GETOHICD(C HDOS) ;get  the bene' s OHI type  at the ti me of DOS
  134    S CHOCD=" ",QFG=0
  135    S DS=CHDO S
  136    I CHSNBN  D  
  137    .S OHK="A
  138    .F  S OHK =$O(^CHMDF N(SN,100,B N,2,OHK),- 1) Q:'OHK   Q:QFG  D
  139    ..S (CHOH BDT,CHOHIE DT)=""
  140    ..S CHOHB DT=$P($G(^ CHMDFN(SN, 100,BN,2,O HK,0)),"^" ,1) Q:CHOH BDT=""
  141    ..S CHOHE DT=$P($G(^ CHMDFN(SN, 100,BN,2,O HK,0)),"^" ,2) I CHOH EDT="" S C HOHEDT=999 9999
  142    ..I DS'<C HOHBDT&(DS '>CHOHEDT)  S CHOCD=$ P($G(^CHMD FN(SN,100, BN,2,OHK,0 )),"^",3)  S QFG=1
  143    K QFG,DS, OHK,CHOHBD T,CHOHIEDT
  144    Q CHOCD
  145    ;
  146   PRNT ;
  147    ;S T=$C(9 )   ;UNCOM MENT TO WR ITE TO FIL E
  148    ;S T="    "  ;UNCOMM ENT TO WRI TE TO SCRE EN
  149           N  POP
  150           S  POP=0
  151           D  OPENFILE
  152           I  'POP Q
  153           D  HEAD
  154           I  '$D(^CHMZH OLD("ENC00 4866")) U  IOFILE W ! ,"NO CLAIM S SELECTED " G CLOSE
  155           D  DETAIL
  156           D  TAIL
  157   CLOSE   ;
  158    ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH  to close  file
  159    ;C IOFILE
  160    D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE")
  161    ;SBB 07/3 0/15 DEF01 6554
  162       X "D $ SYSTEM.Pro cess.SetZE OF(0)"
  163    D FTPFILE ^CHTFLIB9( IOFILE," DNS     . DNS             ","/FS3BIG /OHI_AUDIT S","PUT")
  164    Q
  165   DETAIL ;
  166           S  CHCT=0
  167           S  (CHCLTOT,C HBILTOT,CH OHITOT,CHP RTOT,CHPDT OT)=0
  168           S  BNAME="ZZZ ZZZ"
  169    F  S BNAM E=$O(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME),-1 ) Q:BNAME= ""  D
  170    .S CHPAID ="A"
  171    .F  S CHP AID=$O(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID),-1)  Q:'$L(CHP AID)  D  
  172    ..S CHCI= 0
  173    ..F  S CH CI=$O(^CHM ZHOLD("ENC 004866",DU Z,BNAME,CH PAID,CHCI) ) Q:'CHCI   D
  174    ...S CHCT =CHCT+1 
  175    ...;I $Y> 56 W !!,#  D HEAD
  176    ...S (CHT OS,CHTOSP, CHDOS,CHOH ICD,CHOHIC OV,CHCLMNM )=""
  177    ...S (CHB ILLED,CHOH IAMT,CHPRA MT,CHPDAMT )=0
  178    ...S CHCL MNM=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",1)
  179    ...S CHTO S=$P(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI), "^",2)
  180    ...I CHTO S S CHTOSP =$P($G(^CH MDIC(74100 2.05,CHTOS ,0)),"^",2 )
  181    ...S CHDO S=$P(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI), "^",3)
  182    ...S CHOH ICD=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",4)
  183    ...S CHOH ICOV=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",5)
  184    ...S CHBI LLED=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",6)
  185    ...S CHOH IAMT=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",7)
  186    ...S CHPR AMT=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",8)
  187    ...S CHPD AMT=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",9)
  188    ...U IOFI LE W !,$E( BNAME,1,20 ),?23,CHCL MNM,?32,CH TOSP,?37,$ $GETDT1(CH DOS),?47,$ J(CHOHICD, 2)
  189    ...W ?51, $E(CHOHICO V,1,14),?6 7,$J($FN(C HBILLED,", ",2),11),? 83,$J($FN( CHOHIAMT," ,",2),11), ?101,$J($F N(CHPRAMT, ",",2),11) ,?115,$S(C HPDAMT="": "",1:$J($F N(CHPDAMT, ",",2),11) )
  190    ...S CHCL TOT=CHCLTO T+1
  191    ...S CHBI LTOT=CHBIL TOT+CHBILL ED
  192    ...S CHOH ITOT=CHOHI TOT+CHOHIA MT
  193    ...S CHPR TOT=CHPRTO T+CHPRAMT
  194    ...S CHPD TOT=CHPDTO T+CHPDAMT
  195    Q
  196    ;
  197   HEAD ;
  198    U IOFILE
  199           S  CHTITLE1=" HEALTH ADM INSTRATION  CENTER"
  200           S  CHTITLE2=" CHAMPVA Al l Claims w ith OHI Re port"
  201           W  #,!,DUZ,?5 5,CHTITLE1 ,?123,"pag e: ",CHPG
  202           W  !,$$GETDT2 (CHDT),?52 ,CHTITLE2
  203           W  !,CHTIME
  204           W  !!,"Date C ompleted:   "_$$GETDT 2(CHBGDT)_ " - "_$$GE TDT2(CHEND T)
  205    W !,"HAC  Paid Amoun t: $"_$FN( CHMINPD,", ",0)_"-"_$ FN(CHMAXPD ,",",0)
  206    W !!
  207    W !,"Bene ficiary Na me",?23,"C laim #",?3 2,"TOS",?3 7,"DOS",?4 7,"Type of  OHI",?67, "Billed Am t($)",?83, "OHI Paid  Amt($)",?1 04,"P/R($) ",?115,"HA C Paid Amt ($)"
  208    W !
  209    F I=1:1:1 32 W "-"
  210    S CHPG=CH PG+1
  211    Q
  212           ;
  213   TAIL ;
  214    U IOFILE  W !
  215    U IOFILE  F I=1:1:13 2 W "-"
  216    U IOFILE  W !,?20,$J ($FN(CHCLT OT,",",0), 10)_" Clai m(s)",?66, $FN(CHBILT OT,",",2), ?82,$FN(CH OHITOT,"," ,2),?102,$ FN(CHPRTOT ,",",2),?1 17,$FN(CHP DTOT,",",2 )
  217    Q
  218    ;
  219   OPENFILE ;
  220    S CHPG=1
  221    S FILENM= "CHAMPVA_C LAIMS_WITH _OHI_REPOR T_"_CHBGDT _"_"_CHEND T
  222           D  UCI^%ZOSV 
  223           I  $P(Y,",",1 )="HAC" S  FILENM=FIL ENM_".TXT"
  224           E   S FILENM= FILENM_"_" _$P(Y,",", 1)_".TXT"
  225    ;DEF01655 4 SBB 12/2 4/13  - Co nverting f rom DECNET  to FTP. A nd using O PEN^%ZISH  call
  226    ;S IOFILE ="HACFS3""
D NS       Welcome1!" "::D:[FS3B IG.OHI_AUD ITS]"_FILE NM O IOFIL E C IOFILE :"D"
  227    ;O IOFILE :"NWS"
  228    N FOLDER
  229    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]"
  230    I $P(Y,", ",1)'="HAC " S FOLDER ="HAC_HFS$ :[DSMMANAG .CHAMPVA]"
  231    S IOFILE= FOLDER_FIL ENM
  232    ;SBB 07/3 0/15 DEF01 6554
  233       X "D $ SYSTEM.Pro cess.SetZE OF(1)"
  234    S POP=$$O PENFIWR^CH TFLIB9(.IO FILE,"IOFI LE") I 'PO P X "D $SY STEM.Proce ss.SetZEOF (0)" Q
  235           D  NOW^%DTC S  CHDT=X
  236           S  H=$P($H,", ",2)\3600, M=$P($H,", ",2)#3600\ 60 S:H<10  H=0_H S:M< 10 M=0_M
  237           S  CHTIME=H_" :"_M
  238    Q
  239           ;
  240   GETDT1(D1)  ;CONVERTS  FILEMAN D ATE TO MM/ DD/YY
  241    Q:D1=""
  242    S X=D1
  243    S (YY,MM, DD)=""
  244    S YY=$E(X ,2,3),MM=$ E(X,4,5),D D=$E(X,6,7 )
  245    Q MM_"/"_ DD_"/"_YY
  246    ;
  247   GETDT2(D1)  ;CONVERTS  FILEMAN D ATE TO MM/ DD/YYYY
  248    Q:D1=""
  249    S X=D1
  250    S (YY,MM, DD)=""
  251    S YY=$E(X ,1,3)+1700 ,MM=$E(X,4 ,5),DD=$E( X,6,7)
  252    Q MM_"/"_ DD_"/"_YY
  253    ;
  254   KILLVAR ;
  255    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_IO FILE_")") 
  256    K %DT,CHC LNUM,Y,DFN ,BFN,DFOUT ,DTOUT,DUO UT,DQOUT
  257    K ^CHMZHO LD("ENC004 866",DUZ), T,CHPDICL, PDI,CHCI,C HDOCDT,CHP RAMT
  258    K BNAME,C HCLMNM,CHT X1,CHTX2,P DI2,CHBGDT ,CHENDT
  259    K CHMAXPD ,CHMINPD,S N,BN,OHK,C HSNBN
  260    K CHTOS,C HTOSP,CHDO S,CHOHICD, CHOHICOV,C HCLM,CHBIL LED,CHOHIA MT,CHPRAMT ,CHPAID,CH PDAMT
  261    K CHCLTOT ,CHBILTOT, CHOHITOT,C HPRTOT,CHP DTOT
  262    Q 
  263    ;
  264   INDEX1 ; I NDEX ON CL AIM DATE D ETERMINED  COMPLETE W HERE THE D ATE IS AFT ER 2000
  265    ;This is  for one ti me use onl y.  Do not  use INDEX 1 again af ter the in itial inde xing.  Use  INDEX2.
  266    S CHFIO=" "
  267    S ZTSAVE( "DUZ")=""
  268    S ZTRTN=" STARTNDX^C HBPORP2",Z TDESC="IND EXING PAY  GLOBAL BY  COMPLETION  DATE",ZTI O=""
  269    D ^%ZTLOA D
  270    Q
  271   STARTNDX S  I=8000000
  272    F  S I=$O (^CHMPAY(I )) Q:'I  D
  273    .S CHDTCO MP="",CHDT COMP=$P($G (^CHMPAY(I ,0)),"^",1 0)
  274    .Q:CHDTCO MP=""
  275    .I '$D(^C HMPAY("E", CHDTCOMP,I )) S ^CHMP AY("E",CHD TCOMP,I)=" "
  276    .S ^CHMZH OLD("LAST_ CLAIM_SET_ FOR_ZCOMPD T_INDEX")= I
  277    Q
  278    ;
  279   INDEX2 ;
  280    S I=^CHMZ HOLD("LAST _CLAIM_SET _FOR_ZCOMP DT_INDEX")
  281    F  S I=$O (^CHMPAY(I )) Q:'I  D
  282    .S CHDTCO MP="",CHDT COMP=$P($G (^CHMPAY(I ,0)),"^",1 0)
  283    .Q:CHDTCO MP=""
  284    .I '$D(^C HMPAY("E", CHDTCOMP,I )) S ^CHMP AY("E",CHD TCOMP,I)=" "
  285    .S ^CHMZH OLD("LAST_ CLAIM_SET_ FOR_ZCOMPD T_INDEX")= I
  286    Q
  287    ; 
  288