46. EPMO Open Source Coordination Office Redaction File Detail Report

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

46.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHFMPEXT.m Mon Nov 5 16:44:57 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHFMPEXT.m Mon Nov 5 17:38:52 2018 UTC

46.2 Comparison summary

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

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

46.4 Active regular expressions

No regular expressions were active.

46.5 Comparison detail

  1   CHFMPEXT ; ;DP;FMP Pa id claim e xtract for  one year  IG; ; 01 D ec 2009  3 :30 PM
  2            ; ;1.0;CHAMP VA SYSTEM; ;1 Dec 200 9;
  3            ; ;JAK;12/02 /10;DEV009 227-01;ADD ITIONAL IG  PROVIDER/ VENDOR REP ORT REQUES T TO CR743 2
  4            ; ;JAK;01/01 /11;BUG009 227-03;EXI T FUNCTION ALITY ADDE D;CONVERT  FILEMAN DA TE TO EXTE RNAL
  5            ; ;DEF016554  YJK 10/6/ 15 - Conve rt DECNET  to FTP.  
  6   START    ; ;     
  7            K  ^TMP($J)  N STDT,EDT ,DFN D ^CH MFSET    ; ^CHMFSET s ets the wi nsow'S att ributes DX ,DY
  8            W  #,!! S X= "FMP Paid  claim extr act for on e year IG"  W ?$L(X)/ 2,X,!!
  9            S  DIR(0)="D ^::EX",DIR ("A")="Fro m Date" D  ^DIR
  10            Q :Y="^"!(Y= "^^")                              ;JAK;01/ 01/11;BUG0 09227-03
  11            S  STDT=Y
  12   END      ; ;                                             
  13            S  DIR(0)="D ^::EX",DIR ("A")="  T o Date" D  ^DIR
  14            ; S EDT=Y I  EDT="^" K  STDT,EDT Q
  15            S  EDT=Y 
  16            I  EDT="^" D  START                             ;JAK;01/ 01/11;BUG0 09227-03
  17            I  EDT="^^"  G QUIT                             ;JAK;01/ 01/11;BUG0 09227-03
  18            I  EDT<STDT  W !,"End D ate must b e greater  then Start  Date!!" R  X:20 G ST ART
  19            W  !!,"Proce ssing... P lease wait "
  20   FILEA    ; ;Build tab le A Veter an status
  21            ; S DFN=0,CN N1=0 F  S  DFN=$O(^AH CHVA("FMP" ,DFN)) Q:D FN=""  D
  22            S  DFN=0 F   S DFN=$O(^ AHCHVA(DFN )) Q:DFN=" "  D
  23            . N SET,NSET ,FADD,VFN, CT,ST,CHK, CLMN,DD,DI R,I,LN,MM, PADT,PRC,X ,Y,YY,RHB, FLG,ITM,IT MM
  24            . ;;Get the  eligibilit y status ' E' is the  only selec tion statu s we are a fter
  25            . S SET=$G(^ AHCHVA(DFN ,0)) ;Q:$P (SET,U,5)' ="E" 
  26            . S VFN=$P(S ET,U,7) S: $L(VFN<8)  VFN=$E(00, (8-$L(VFN) ))_VFN
  27            . S FLG=0 D  FILEB Q:'F LG 
  28            . S FADD=$G( ^AHCHVA(DF N,11)) S:F ADD="" FAD D=$G(^AHCH VA(DFN,1))
  29            . S ST=$P(FA DD,U,4) I  ST'="" S S T=$E($P($G (^DIC(5,ST ,0)),U,1), 1,24)
  30            . S CT=$P(FA DD,U,7) S: CT="" CT=$ P(FADD,U,6 )
  31            . I CT'="" S  CT=$E($P( $G(^DIC(5, CT,0)),U,1 ),1,30)
  32            . ;;Get the  voc rehab  autorizati on
  33            . ;;Autoriza tion=1!""  - yes and  should be  accompanie d by start  and end d ates that
  34            . ;;this sta tus applie s
  35            . S RHB="" I  $P($G(^AH CHVA(DFN,6 )),U,18)=1  D
  36            . .S RHB=1_U _$P(^AHCHV A(DFN,6),U ,16)_U_$P( ^AHCHVA(DF N,6),U,17)
  37            . ;;Table A  Veteran in fo.
  38            . ;;FILE_SSN _GENDER_NA ME_ADD1_AD D2_CITY_ST _COUNTRY_V OC-REHAB_R EHAB-START -DATE
  39            . S NSET=VFN _U_$P(SET, U,9)_U_$P( SET,U,2)_U _$P(SET,U, 1)
  40            . S NSET=NSE T_U_$E($P( FADD,U,1), 1,50)_U_$E ($P(FADD,U ,2),1,50)
  41            . S NSET=NSE T_U_$E($P( FADD,U,3), 1,50)_U_ST _U_$P(FADD ,U,5)_U_CT _U_RHB
  42            . S ^TMP($J, "A",NSET)= ""
  43            D  PRINT
  44            Q
  45   FILEB    ; ;Get the c laim info  (741301)
  46            ; ;CLAIM NUM _VET FILE  NUM_CREATE D DATE_COM PLETE DATE _PAYMENT D ATE_CHECK  NUM_CLAIM  TYPE
  47            N  CLM,CLD
  48            Q :'$D(^CHFM PCL("D",DF N))  S CLM =""
  49            F   S CLM=$O (^CHFMPCL( "D",DFN,CL M)) Q:CLM= ""  D
  50            . S ITM=0 F   S ITM=$O( ^CHFMPCL(C LM,100,ITM )) Q:ITM=" "  D
  51            . .;;get the  claim num ber
  52            . .N A,AM S  CLD=$G(^CH FMPCL(CLM, 100,ITM,0) )
  53            . .F I=1:1:1 2 S A(I)=$ P(CLD,U,I)
  54            . .;;date cr eated
  55            . .S D1=$P(A (7),".",1)  Q:D1=""
  56            . .S A(7)=$$ FMTE^XLFDT (D1,"5D")
  57            . .;;date co mpleted
  58            . .Q:A(9)>ED T  Q:A(9)< STDT  S:A( 9)'="" A(9 )=$$FMTE^X LFDT(A(9), "5D")
  59            . .S FLG=1
  60            . .;;Payment  date & Ch eck 
  61            . .S CHK=$G( ^CHFMPCL(C LM,100,ITM ,1))
  62            . .F I=1:1:1 0 S AM(I)= $P(CHK,U,I )
  63            . .S (D1,PAD T)=$P(AM(1 0),".",1), CHK=AM(8)  ;DP; 1/13/ 10;Send on ly the fir st piece t o GETDT
  64            . .I D1'=""  S YY=20 S: $E(D1,1,2) >50 YY=19  D
  65            . ..S PADT=$ E(D1,3,4)_ "/"_$E(D1, 5,6)_"/"_Y Y_$E(D1,1, 2) ;S:D1?6 N PADT=$$G ETDT(D1)
  66            . .;;Date of  service
  67            . .S:A(6)'=" " A(6)=$$F MTE^XLFDT( A(6),"5D")
  68            . .;;Date of  discharge  - for inp atient onl y
  69            . .I A(5)=1  S A(11)=$$ FMTE^XLFDT (A(11),"5D ")
  70            . .;;Type of  claim
  71            . .S:A(5)'=" " A(5)=$P( ^CHMDIC(74 1002.05,A( 5),0),U)
  72            . .;;Claim s tatus
  73            . .;;status  2-payment  request &  3-verifica tion are r olled into  1-inprogr ess
  74            . .S A(2)=$S (A(2)=0:"R ejected",A (2)=4:"Com plete",1:" In Process ")
  75            . .;;Vendor
  76            . .I A(3)'=" " D 
  77            . ..D FILEE                                          ;JA K;12/02/10 ;DEV009227 -01
  78            . ..S A(3)=$ E($P($G(^C HFMPVEN(A( 3),0)),U), 1,32) 
  79            . .;;POS
  80            . .S:A(12)'= "" A(12)=$ E($P($G(^C HMDIC(7410 02.11,A(12 ),0)),U,2) ,1,50)
  81            . .;;Amounts
  82            . .;;AMONT B ILLED,PAID  BY VET,TO T AMT PAID ,PAID TO V ENDOR,PAID  TO VET
  83            . .F I=1:1:7  S:AM(I)'? .N1".".2N  AM(I)=AM(I )_".00"
  84            . .S X=A(1)_ U_VFN_U_A( 7)_U_A(9)_ U_PADT_U_A M(8)_U_A(5 )_U_A(6)_U _A(11)_U_A (2)_U_A(3) _U_A(12)_U _AM(2)_U_A M(7)_U_AM( 1)_U_AM(5) _U_AM(4)
  85            . .S CLMN=A( 1)
  86            . .;;Table B  claim inf o.
  87            . .S ^TMP($J ,"B",X)=""
  88            . .N IC9,PRC  D FILEC,F ILED
  89            Q
  90   FILEC   ;; DX Info
  91           ;; CLAIM NUM_ ICD9 CODE_ ITEM NUMBE R
  92           S  ITMM=0 F   S ITMM=$O( ^CHFMPCL(C LM,100,ITM ,100,ITMM) ) Q:ITMM=" "  D
  93           .Q :ITMM'?1.2 N
  94           .S  IC9=$P(^C HFMPCL(CLM ,100,ITM,1 00,ITMM,0) ,U,5)
  95           .S :IC9'="" I C9=$P(^CHM ICDX(IC9,0 ),U,2)
  96           .I  IC9'="" S  ^TMP($J," C",CLMN_U_ IC9_U_ITMM )=""
  97           Q
  98   FILED   ;; Process fi le
  99           ;; claim num_ process co de_bill am ount_allow ed amount
  100           S  ITMM=0 F   S ITMM=$O( ^CHFMPCL(C LM,100,ITM ,100,ITMM) ) Q:ITMM=" "  D
  101           .Q :ITMM'?1.2 N
  102           .S  LN=^CHFMP CL(CLM,100 ,ITM,100,I TMM,0)
  103           .S  PRC=$P(LN ,U,2)
  104           .I  A(5)["PHA " S PRC=$P (LN,U,6) S :PRC'="" P RC=$P($G(^ CHMPDX(PRC ,1)),U,1)
  105           .E   S:PRC'=" " PRC=$P($ G(^CHMSERV (PRC,0)),U ,1)
  106           .Q :PRC=""  ; do not inc lude items  without a  code ;1/1 3/10 ;dp
  107           .S  ^TMP($J," D",CLMN_U_ PRC_U_$P(L N,U,3)_U_$ P(LN,U,4)) =""
  108           Q
  109           ;; JAK;12/02/ 10;DEV0092 27-01;ADDI TIONAL IG  PROVIDER/V ENDOR REPO RT REQUEST  TO CR7432        
  110   FILEE   ;; Process fi le
  111           ;; VendorName [1]_RTAddr 1[2]_RTAdd r2[3]_RTAd dr3[4]_RTC try[5]_RTS tate[6]_RT zip[7]_RTC ity[8]
  112           I  $D(^CHFMPV EN(A(3),0) ) D
  113           .S  VNAME=$P( ^CHFMPVEN( A(3),0),U, 1)
  114           E   S VNAME=" "
  115           I  $D(^CHFMPV EN(A(3),1) ) D
  116           .S  RTA1=$P(^ CHFMPVEN(A (3),1),U,1 ),RTA2=$P( ^CHFMPVEN( A(3),1),U, 2),RTA3=$P (^CHFMPVEN (A(3),1),U ,3)
  117           .S  RTCITY=$P (^CHFMPVEN (A(3),1),U ,11),RTZIP =$P(^CHFMP VEN(A(3),1 ),U,10)
  118           .S  RTST=$P(^ CHFMPVEN(A (3),1),U,9 )
  119           .S :$D(RTST)& &(RTST'="" ) RTST=$P( ^DIC(5,RTS T,0),U,1)
  120           .S  RTCTRY=$P (^CHFMPVEN (A(3),1),U ,5)
  121           .I  $D(RTCTRY )&&(RTCTRY '="") D
  122           .. S RTCTRY=+ RTCTRY  ;m ake sure c ontents ar e numeric  pointer                    
  123           .. I RTCTRY'= 0 S RTCTRY =$P(^DIC(5 ,RTCTRY,0) ,U,1)
  124           .S  X=VNAME_U _RTA1_U_RT A2_U_RTA3_ U_RTCTRY_U _RTST_U_RT ZIP_U_RTCI TY
  125           E   S X=VNAME _U_"VENDOR  INFORMATI ON NOT AVA ILABLE"
  126           I  '$D(^TMP($ J,"E",X))  D
  127           .S  ^TMP($J," E",X)=""
  128           Q
  129   PRINT   ;; Print to f ile
  130           ;; This proce ss creates  4 differe nt file. % zis can no t support  multiple d evice (fil es)
  131           ;;  simultane ously ther efore I ha d to use t he direct  OPEN and C LOSE comme nds
  132           S  STDT=$TR($ $FMTE^XLFD T(STDT,"5D "),"/","") ,EDT=$TR($ $FMTE^XLFD T(EDT,"5D" ),"/","")
  133           N  I,REC,HDR, FILE1 F I= "A","B","C ","D","E"  D                                                        ;JAK;12/ 02/10;DEV0 09227-01
  134           .S  HDR=$S(I= "A":"VETER AN_",I="B" :"FMP_CLAI M_",I="C": "FMP_DX_", I="D":"FMP _PROC_",1: "VENDOR_")   ;JAK;12/ 02/10;DEV0 09227-01
  135           .S  HDR=HDR_S TDT_"_to_" _EDT_".TXT "
  136           .X  "D $SYSTE M.Process. SetZEOF(1) "
  137                    .N P OP
  138                    .S P OP=0
  139                    .S F OLDER="HAC _HFS$:[SCR .TEMP_FILE S]",TDIR=" /FS3BIG/"        
  140                    .S F ILE1=FOLDE R_HDR    
  141                    .S P OP=$$OPENF IWR^CHTFLI B9(.FILE1, "FSIO") Q: 'POP
  142                    .S R EC="" F  S  REC=$O(^T MP($J,I,RE C)) Q:REC= ""  U FILE 1 W REC,!
  143                    .D C LOSEF^CHTF LIB9(FILE1 ,"FSIO")
  144                    .X " D $SYSTEM. Process.Se tZEOF(0)"
  145                      .D FTPFILE ^CHTFLIB9( FILE1," DNS     fs3. DNS             ",TDIR,"PU T") 
  146                    .; * * DEF01655 4 YJK 10/6 /15  DECNE T codes be low were r eplaced by  the ones  above **
  147             .;S FILE1= "HACFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]"_HDR
  148           .; O FILE1:"N WS"
  149           .; S REC="" F   S REC=$O (^TMP($J,I ,REC)) Q:R EC=""  U F ILE1 W REC ,!
  150           .; C FILE1
  151           K  ^TMP($J)
  152           W  !!,"Proces s complete d... The n ew files a re in FS3B IG",!!
  153           Q
  154   QUIT    Q
  155