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

7.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHARZPRT.m Mon Nov 5 16:43:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHARZPRT.m Tue Nov 6 21:29:10 2018 UTC

7.2 Comparison summary

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

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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1   CHARZPRT ; CVA/TLH RE PORT FOR A CCOUNTS RE CEIVABLE F OR FISCAL  TO 
  2    ;PROVIDE  HURRICANE  KATRINA BE NES WITH O UTSTANDING  DEBTS BY  ZIP CODE
  3    ;V 1.0 1/ 11/07 10:4 5AM
  4    ;DEF01655 4 SBB 10/3 0/13 - Mod ified EOF  handling a s per VHA  standard.
  5    ;DEF01655 4 SBB 11/1 8/13 - add ed POP and  IO as per  OPEN^%ZIS H API.
  6    ;DEF01655 4 SBB 11/2 2/13 - Mod ified Writ ing to a f ile as per  VHA stand ard.
  7    ;DEF01655 4 SBB 07/3 0/15 - Add ing change s for DECN ET
  8    ;VARIBLES  
  9    ;IVAL = I  VALUE WIT HIN THE AR  PACKAGE 
  10    ;CHARDT =  DATE BILL  PREPARED  IN AR PACK AGE
  11    ;STDATE =  START DAT E TO CHECK  FOR BILL  PREPARED D ATE 
  12    ;ENDATE =  END DATE  TO CHECK F OR BILL PR EPARED DAT
  13    ;CHBLNM =  BILL NUMB ER IN AR P ACKAGE 
  14    ;CHDEBT =  DEBTOR PO INTER (^RC D(340,0)
  15    ;CHVNPT =  VENDOR PO INTER OF D EBTOR
  16    ;CHVFL =  REFERENECE  TO VENDOR  FILE (^PR C(440,0)
  17    ;TMPVEN =  REFERENCE  TO VENDOR  GLOBAL
  18    ;CHDNAM =  DEBTOR NA ME
  19    ;CHZIP =  DEBTOR ZIP  CODE 
  20    ;CHORAMT  = ORIGINAL  AMOUNT OW ED
  21    ;CHCRAMT  = CURRENT  AMOUNT OWE D   
  22   START W !, "KATRINA V ICTIMS BY  ZIP CODE R EPORT"
  23   S1 W !!,"E NTER THE B EGIN DATE  FOR SEARCH  IN BILL P REPARED DA TE: " D CS BRS^CHSC2
  24     Q:Y=""   I $D(DQOUT ) W !,"Ent er first d ate to che ck for Bil l Prepared  Date: " G  S1
  25     Q:$D(DUO UT)  Q:$D( DFOUT)
  26     S X=Y,%D T="EPX" D  ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S1
  27     S STDATE =Y
  28   S2  W !!," ENTER THE  END DATE F OR SEARCH  IN BILL PR EPARED DAT E: " D CSB RS^CHSC2
  29     Q:Y=""   I $D(DQOUT ) W !,"Ent er last da te to chec k for Bill  Prepared  Date: " G  S2
  30     G:$D(DUO UT) S1 Q:$ D(DFOUT) 
  31     S X=Y,%D T="EPX" D  ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S2
  32     S ENDATE =Y
  33     S FIO=""
  34     S ZTRTN= "CALC^CHAR ZPRT",ZTDE SC="KATRIN A VICTIMS  BY ZIP COD E REPORT", ZTIO="",ZT DTH=""
  35     S ZTIO=" ",ZTSAVE(" FIO")="",Z TSAVE("STD ATE")="",Z TSAVE("END ATE")=""
  36     D ^%ZTLO AD
  37     W !!,"Yo ur task nu mber is ", ZTSK
  38     ;D CALC^ CHARZPRT
  39     R XTEMP: 5
  40     Q
  41   CALC ; 
  42     S IVAL=0
  43     S CHARDT =""
  44     S CHBLNM =""
  45     S CHSTAT =""
  46     S CHORAM T=0
  47     S CHCRAM T=0
  48     D ZIPLOA D
  49     S PG=1
  50     D PRINT
  51   S3  S IVAL =$O(^PRCA( 430,IVAL))  G END:'IV AL
  52     G:'$D(^P RCA(430,IV AL,0)) S3   
  53     S CHARDT =$P(^PRCA( 430,IVAL,0 ),"^",10)  G:'CHARDT  S3
  54     I CHARDT <STDATE G  S3
  55     I CHARDT >ENDATE G  S3
  56   S4  S CHBL NM=$P(^PRC A(430,IVAL ,0),"^",1)  G:'CHBLNM  S3
  57   S5  S CHDE BT=$P(^PRC A(430,IVAL ,0),"^",9)  G:'CHDEBT  S3
  58     G:'$D(^R CD(340,CHD EBT,0)) S3
  59     S CHVNPT =$P(^RCD(3 40,CHDEBT, 0),"^",1)
  60     S CHVFL= $P(CHVNPT, ";",2) G:C HVFL="" S3
  61     S CHVFL= "^"_CHVFL
  62     S CHVPT= $P(CHVNPT, ";",1)
  63     S TMPVEN =CHVFL_CHV PT_",0)"
  64     S CHDNAM =$P(@TMPVE N,"^",1)
  65     S CHDZIP =$P(@TMPVE N,"^",8) G :'CHDZIP S 3
  66     I '$D(CH ZIP(CHDZIP )) G S3
  67     S CHORAM T=$P(^PRCA (430,IVAL, 0),"^",3)  G:'CHORAMT  S3
  68   S6 S JVAL= 99999
  69     S JVAL=$ O(^PRCA(43 0,IVAL,2,J VAL),-1) G :'JVAL S3
  70     G:'$D(^P RCA(430,IV AL,2,JVAL, 0)) S6
  71     S CHCRAM T=$P(^PRCA (430,IVAL, 2,JVAL,0), "^",2) G:' CHCRAMT S3
  72     U FIO W  !,$$FMTE^X LFDT(CHARD T,"5D")_$C (9)_CHBLNM _$C(9)_CHD NAM_$C(9)_ CHDZIP_$C( 9)_CHORAMT _$C(9)_CHC RAMT
  73     G S3
  74     Q
  75   PRINT 
  76     ;DEF0165 54, SBB, 1 1/22/13 -  Get UCI so  this can  be tested  in all are as.
  77     N IOF,UC I
  78     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  79     X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1)
  80     ;SBB 07/ 30/15 DEF0 16554
  81     X "D $SY STEM.Proce ss.SetZEOF (1)"
  82     S FIO="H AC_HFS$:[S CR.TEMP_FI LES]KATRIN A_DEBT_BY_ ZIP.DAT" S  T=$C(9)   ; FOR LIVE  ONLY
  83     ;S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]TES T_KATRINA_ DEBT_BY_ZI P.DAT" S T =$C(9)  ;F OR DEV ONL Y
  84     I UCI'=" HAC" S FIO ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_KATRIN A_DEBT_BY_ ZIP_"_UCI_ ".DAT" S T =$C(9)  ;F OR ALL ARE AS
  85     ;SBB; DE F016554-11 /22/13 - M odified Wr iting to a  file as p er VHA sta ndard.
  86     ;O FIO:" NWS"
  87     I '$$OPE NFIWR^CHTF LIB9(.FIO, "FIO") X " D $SYSTEM. Process.Se tZEOF(0)"  Q
  88   HEAD 
  89     S TITLE= "HEALTH AD MINISTRATI ON CENTER"  
  90     S TAB=(1 32-$L(TITL E))/2
  91     U FIO W  DUZ_$C(9)_ TITLE_$C(9 )_"Page: " _PG SET PG =PG+1
  92   HEAD1
  93     S TITLE= "KATRINA V ICTIMS BY  ZIP CODE R EPORT"
  94     S TAB=(1 32-$L(TITL E))/2
  95     U FIO W  !, TITLE
  96   HDRS
  97     U FIO W  !,"DATE BI LL PREPARE D"_$C(9)_" BILL NUMBE R"_$C(9)_" DEBTOR"_$C (9)_"ZIP C ODE"_$C(9) _"ORIGINAL  AMT"_$C(9 )_"CURRENT  AMT"
  98     Q
  99   END 
  100     ;DEF0165 54-11/22/1 3-SBB use  CLOSE^%ZIS H to close  file
  101     ;C FIO
  102     D CLOSEF ^CHTFLIB9( FIO,"FIO")
  103     ;SBB 07/ 30/15 DEF0 16554
  104     X "D $SY STEM.Proce ss.SetZEOF (0)"
  105     K IVAL,C HARDT,STDA TE,ENDATE, CHBLNM,CHD EBT,CHVNPT ,CHVFL,TMP VEN
  106     K CHDNAM ,CHZIP,CHD ST,CHORAMT ,CHCRAMT,J VAL 
  107     ;SBB; DE F016554-11 /22/13 - U sing Stand ard functi on for FTP
  108     ;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]DEM O_COPY.COM /PARAM=("_ FIO_")")   ;USED FOR  LIVE TRANS MISSION
  109       D FTPFILE^ CHTFLIB9(F IO," DNS     . DNS             ","/FS3BIG ","PUT")
  110     Q
  111   ZIPLOAD ;T HIS SUBROU TINE READS  A FILE ON  FS3BIG OF  ZIP CODES  FOR THIS  REQUEST
  112     N FOLDER ,DEVICE
  113     S INNAME ="TEST_ZIP _CODE.TXT" ,DEVICE=""
  114       ;S DEVICE= "HACFS3"" DNS      HACdec741! ""::D:[FS3 BIG]"_INNA ME
  115     ;SBB 07/ 30/15 DEF0 16554
  116     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  117     X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1)
  118     X "D $SY STEM.Proce ss.SetZEOF (1)"
  119     I UCI="H AC" S FOLD ER="HAC_HF S$:[SCR.TE MP_FILES]"
  120     I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]"
  121     S DEVICE =FOLDER_IN NAME
  122       D FTPFILE^ CHTFLIB9(D EVICE," DNS     . DNS             ","/FS3BIG ","GET")
  123     X "D $SY STEM.Proce ss.SetZEOF (1)"
  124     ;S DEVIC E="HAC_HFS $:[DSMMANA G.CHAMPVA] TEST_ZIP_C ODE.TXT"
  125     ;DEF0165 54-10/30/1 3-SBB call  OPEN^%ZIS H to open  the file
  126     ;O DEVIC E:"R":5
  127     I '$$OPE NFIRD^CHTF LIB9(.DEVI CE,"DEVICE ") Q
  128   Z1 ;
  129     ;DEF0165 54-10/30/1 3-SBB use  STATUS^%ZI SH to chec k for EOF
  130     ;U DEVIC E R RCD#5  I $E(RCD,1 ,3)="END"  G ZEND
  131     U DEVICE  R RCD#5 I  ($E(RCD,1 ,3)="END") !($$STATUS ^%ZISH) G  ZEND
  132     S CHFZIP =$E(RCD,1, 5)
  133     S CHZIP( CHFZIP)=""
  134     G Z1
  135   ZEND
  136     ;DEF0165 54-10/30/1 3-SBB use  CLOSE^%ZIS H to close  file
  137     ;C DEVIC E
  138     D CLOSEF ^CHTFLIB9( DEVICE,"DE VICE")
  139     ;SBB 07/ 30/15 DEF0 16554
  140     X "D $SY STEM.Proce ss.SetZEOF (0)"
  141     ;SBB 07/ 30/15 DEF0 16554
  142     X "D $SY STEM.Proce ss.SetZEOF (1)"
  143     Q