6. EPMO Open Source Coordination Office Redaction File Detail Report

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

6.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHARSTRT.m Mon Nov 5 16:40:45 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHARSTRT.m Tue Nov 6 21:28:22 2018 UTC

6.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 232
Changed 1 2
Inserted 0 0
Removed 0 0

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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   CHARSTRT ; CVA/TLH RE PORT FOR A CCOUNTS RE CEIVABLE F OR FISCAL  TO 
  2    ;PROVIDE  HURRICANE  KATRINA BE NES WITH O UTSTANDING  DEBTS BY  STATE
  3    ;V 1.0 1/ 8/07 12:30  PM 
  4    ;DEF01655 4, SBB, 11 /22/13 - M odified Wr iting to a  file as p er VHA sta ndard.
  5    ;DEF01655 4, SBB, 07 /30/15 - A dding chan ges for DE CNET.
  6    ;VARIBLES  
  7    ;IVAL = I  VALUE WIT HIN THE AR  PACKAGE 
  8    ;CHARDT =  DATE BILL  PREPARED  IN AR PACK AGE
  9    ;STDATE =  START DAT E TO CHECK  FOR BILL  PREPARED D ATE 
  10    ;ENDATE =  END DATE  TO CHECK F OR BILL PR EPARED DAT
  11    ;CHBLNM =  BILL NUMB ER IN AR P ACKAGE 
  12    ;CHDEBT =  DEBTOR PO INTER (^RC D(340,0)
  13    ;CHVNPT =  VENDOR PO INTER OF D EBTOR
  14    ;CHVFL =  REFERENECE  TO VENDOR  FILE (^PR C(440,0)
  15    ;TMPVEN =  REFERENCE  TO VENDOR  GLOBAL
  16    ;CHDNAM =  DEBTOR NA ME
  17    ;CHSTAT =  STATE OF  DEBTOR
  18    ;CHORAMT  = ORIGINAL  AMOUNT OW ED
  19    ;CHCRAMT  = CURRENT  AMOUNT OWE
  20    ;STATE(1)  = ALABAMA
  21    ;STATE(22 ) = LOUISI ANA
  22    ;STATE(28 ) = MISSIS SIPPI  
  23   START W !, "KATRINA V ICTIMS BY  STATE REPO RT"
  24   S1 W !!,"E NTER THE B EGIN DATE  FOR SEARCH  IN BILL P REPARED DA TE: " D CS BRS^CHSC2
  25     Q:Y=""   I $D(DQOUT ) W !,"Ent er first d ate to che ck for Bil l Prepared  Date: " G  S1
  26     Q:$D(DUO UT)  Q:$D( DFOUT)
  27     S X=Y,%D T="EPX" D  ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S1
  28     S STDATE =Y
  29   S2  W !!," ENTER THE  END DATE F OR SEARCH  IN BILL PR EPARED DAT E: " D CSB RS^CHSC2
  30     Q:Y=""   I $D(DQOUT ) W !,"Ent er last da te to chec k for Bill  Prepared  Date: " G  S2
  31     G:$D(DUO UT) S1 Q:$ D(DFOUT) 
  32     S X=Y,%D T="EPX" D  ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S2
  33     S ENDATE =Y
  34     S FIO=""
  35     S ZTRTN= "CALC^CHAR STRT",ZTDE SC="KATRIN A VICTIMS  BY STATE R EPORT",ZTI O="",ZTDTH =""
  36     S ZTIO=" ",ZTSAVE(" FIO")="",Z TSAVE("STD ATE")="",Z TSAVE("END ATE")=""
  37     D ^%ZTLO AD
  38     W !!,"Yo ur task nu mber is ", ZTSK
  39     ;D CALC^ CHARSTRT
  40     R XTEMP: 5
  41     Q
  42   CALC ; 
  43     S IVAL=0
  44     S CHARDT =""
  45     S CHBLNM =""
  46     S CHSTAT =""
  47     S CHORAM T=0
  48     S CHCRAM T=0
  49     S CHSTAT (1)=""
  50     S CHSTAT (22)=""
  51     S CHSTAT (28)=""
  52     S PG=1
  53     D PRINT
  54   S3  S IVAL =$O(^PRCA( 430,IVAL))  G END:'IV AL
  55     G:'$D(^P RCA(430,IV AL,0)) S3   
  56     S CHARDT =$P(^PRCA( 430,IVAL,0 ),"^",10)  G:'CHARDT  S3
  57     I CHARDT <STDATE G  S3
  58     I CHARDT >ENDATE G  S3
  59   S4  S CHBL NM=$P(^PRC A(430,IVAL ,0),"^",1)  G:'CHBLNM  S3
  60   S5  S CHDE BT=$P(^PRC A(430,IVAL ,0),"^",9)  G:'CHDEBT  S3
  61     G:'$D(^R CD(340,CHD EBT,0)) S3
  62     S CHVNPT =$P(^RCD(3 40,CHDEBT, 0),"^",1)
  63     S CHVFL= $P(CHVNPT, ";",2) G:C HVFL="" S3
  64     S CHVFL= "^"_CHVFL
  65     S CHVPT= $P(CHVNPT, ";",1)
  66     S TMPVEN =CHVFL_CHV PT_",0)"
  67     S CHDNAM =$P(@TMPVE N,"^",1)
  68     S CHDST= $P(@TMPVEN ,"^",7) G: 'CHDST S3
  69     I '$D(CH STAT(CHDST )) G S3
  70     S CHSTP= $P(^DIC(5, CHDST,0)," ^",2)
  71     S CHORAM T=$P(^PRCA (430,IVAL, 0),"^",3)  G:'CHORAMT  S3
  72   S6 S JVAL= 99999
  73     S JVAL=$ O(^PRCA(43 0,IVAL,2,J VAL),-1) G :'JVAL S3
  74     G:'$D(^P RCA(430,IV AL,2,JVAL) ) S6
  75     S CHCRAM T=$P(^PRCA (430,IVAL, 2,JVAL,0), "^",2) G:' CHCRAMT S3
  76     U FIO W  !,$$FMTE^X LFDT(CHARD T,"5D")_$C (9)_CHBLNM _$C(9)_CHD NAM_$C(9)_ CHSTP_$C(9 )_CHORAMT_ $C(9)_CHCR AMT
  77     G S3
  78     Q
  79   PRINT 
  80     ;DEF0165 54, SBB, 1 1/22/13 -  Get UCI so  this can  be tested  in all are as.
  81     N IOF,UC I
  82     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  83     X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1)
  84     ;SBB 07/ 30/15 DEF0 16554
  85     X "D $SY STEM.Proce ss.SetZEOF (1)"
  86     S FIO="H AC_HFS$:[S CR.TEMP_FI LES]KATRIN A_DEBT_BY_ STATE.DAT"  S T=$C(9)   ; FOR LI VE ONLY
  87     ;S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]TES T_KATRINA_ DEBT_BY_ST ATE.DAT" S  T=$C(9)   ;FOR DEV O NLY
  88     I UCI'=" HAC" S FIO ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_KATRIN A_DEBT_BY_ STATE_"_UC I_".DAT" S  T=$C(9)   ;FOR ALL A REAS
  89     ;SBB; DE F016554-11 /22/13 - M odified Wr iting to a  file as p er VHA sta ndard.
  90     ;O FIO:" NWS"
  91     I '$$OPE NFIWR^CHTF LIB9(.FIO, "FIO") X " D $SYSTEM. Process.Se tZEOF(0)"  Q
  92   HEAD 
  93     S TITLE= "HEALTH AD MINISTRATI ON CENTER"  
  94     S TAB=(1 32-$L(TITL E))/2
  95     U FIO W  DUZ_$C(9)_ TITLE_$C(9 )_"Page: " _PG SET PG =PG+1
  96   HEAD1
  97     S TITLE= "KATRINA V ICTIMS BY  STATE REPO RT"
  98     S TAB=(1 32-$L(TITL E))/2
  99     U FIO W  !,  TITLE
  100   HDRS
  101     U FIO W  !!,"DATE B ILL PREPAR ED"_$C(9)_ "BILL NUMB ER"_$C(9)_ "DEBTOR"_$ C(9)_"STAT E"_$C(9)_" ORIGINAL A MT"_$C(9)_ "CURRENT A MT"
  102     Q
  103   END 
  104     ;DEF0165 54-11/22/1 3-SBB use  CLOSE^%ZIS H to close  file
  105     ;C FIO
  106     D CLOSEF ^CHTFLIB9( FIO,"FIO")
  107     ;SBB 07/ 30/15 DEF0 16554
  108     X "D $SY STEM.Proce ss.SetZEOF (0)"
  109     K IVAL,C HARDT,STDA TE,ENDATE, CHBLNM,CHD EBT,CHVNPT ,CHVFL,TMP VEN
  110     K CHDNAM ,CHSTAT,CH STP,CHDST, CHORAMT,CH CRAMT,JVAL  
  111     ;SBB; DE F016554-11 /22/13 - U sing Stand ard functi on for FTP
  112     ;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]DEM O_COPY.COM /PARAM=("_ FIO_")")   ;USED FOR  LIVE TRANS MISSION
  113       D FTPFILE^ CHTFLIB9(F IO," DNS     . DNS             ","/FS3BIG ","PUT")
  114     Q
  115      
  116    
  117