238. EPMO Open Source Coordination Office Redaction File Detail Report

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

238.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMX352P.m Mon Nov 5 16:45:22 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMX352P.m Fri Nov 9 03:28:13 2018 UTC

238.2 Comparison summary

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

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

238.4 Active regular expressions

No regular expressions were active.

238.5 Comparison detail

  1   CHMX352P ; CVA/DTP;PR INT-SET MO NTHLY COMP LETE CMOP  CLAIMS INT O FINANCIA L REPORT;0 1/06/97  2 :16 PM
  2    ;;1.0
  3    ; PT #163 34 (Y2K)
  4    Q   ;NOT  USED - SKD , 9-1-05  
  5    S X=DT D  DTPRT S DA TE=Y,PG=1, X=$P($H,", ",2),H=X\3 600,M=X#36 00\60 ; SE T D/T
  6    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M D  HEAD,HEAD2
  7    S (CNT,J) =0
  8   LOOP S J=$ O(^CHMZHOL D("CMOP_RE CON",J)) I  'J G TOTA L
  9    I $Y>56 W  @IOF D HE AD,HEAD2
  10    ;W ^CHMZH OLD("CMOP_ RECON",J), !
  11    S X=^CHMZ HOLD("CMOP _RECON",J)  D M1BLD
  12    S CNT=CNT +1 G LOOP
  13   TOTAL ;W ? 61,"------ -",?83,"-- -----",?92 ,"-------" ,!
  14    S CHBTOT= $FN(CHBTOT ,"-",2),CH PTOT=$FN(C HPTOT,"-", 2),CHRTOT= $FN(CHRTOT ,"-",2)
  15    ;W "TOTAL S:",?61,CH BTOT,?83,C HPTOT,?92, CHRTOT
  16    S BLNK1=" ",BLNK2="" ,BLNK3="", UNLN="---- ---"
  17    F II=1:1: 61 S BLNK1 =BLNK1_" "
  18    F II=1:1: 15 S BLNK2 =BLNK2_" "
  19    F II=1:1: 2 S BLNK3= BLNK3_" "
  20    S X=BLNK1 _UNLN_BLNK 2_UNLN_BLN K3_UNLN D  M1BLD
  21    S BLNK1=" ",BLNK2="" ,BLNK3=""
  22    F II=1:1: 55 S BLNK1 =BLNK1_" "
  23    F II=1:1: 15 S BLNK2 =BLNK2_" "
  24    F II=1:1: 2 S BLNK3= BLNK3_" "
  25    S CHBTOTP =$FN(CHBTO T,"-",2),C HPTOTP=$FN (CHPTOT,"- ",2)
  26    S LN1=7-( $L(CHBTOTP )),LN2=7-( $L(CHPTOTP ))
  27    S X="TOTA LS"_BLNK1_ CHBTOTP_LN 1_BLNK2_CH PTOTP_LN2_ BLNK3_CHRT OT D M1BLD
  28    S X="" D  M1BLD
  29    S X="TOTA L NUMBER C LAIMS:  "_ CNT D M1BL D
  30   M1SND D MO NTH1 S XMS UB="HAC CM OP REPORT  FOR MONTH  OF: "_MONT H,XMDUZ=.5
  31    ;S XMTEXT ="^UTILITY ($J,""M3"" ,1,",XMY(9 79)="",XMY (83)="" ;  TRN-DTP,MJ D
  32    ;S XMTEXT ="^UTILITY ($J,""M3"" ,1,",XMY(8 4)="",XMY( 98)="",XMY (1948)=""  ; DEV-DTP, AEB,JLR
  33    S CHEDII= 0,CHEDII=$ O(^CHMDIC( 741002.17, 1,801,"B", "LEAVENWOR TH VA CMOP ",0)) I 'C HEDII S NA ME="CMOP-N AT" G SNDN XT
  34    S NAME=$P (^CHMDIC(7 41002.17,1 ,801,CHEDI I,0),"^",1 1) S:NAME= "" NAME="C MOP-NAT"
  35   SNDNXT S D OMN="
P II "_NAME_".M ED.VA.GOV"
  36    S XMTEXT= "^UTILITY( $J,""M3"", 1,",XMY(75 59)="",XMY (9900)="", XMY(1260)= "",XMY(995 8)="",XMY( DOMN)="" ;  LIVE-LM,D TP,CB,BB
  37    S XMY(777 2)="",XMY( 7558)="",X MY(1914)=" ",XMY(9981 )="",XMY(7 6984)="" ;  LIVE--MBS ,CR,TB,SP, MH
  38    ;S U="^"  D ^XMD   ; skd-turned  off per M bM meeting  on 6-29-0
  39    K ^UTILIT Y($J,"M3")
  40   END Q
  41    ;
  42   HEAD S TIT LE="Monthl y CMOP Fin ancial Rep ort"
  43    D:PG=1
  44    .S LN1=65 -($L(TITLE )/2),BLNK= ""
  45    .F II=1:1 :LN1 S BLN K=BLNK_" "
  46    .S X=BLNK _TITLE D M 1BLD
  47    .D MONTH1  S CHMMDT= MONTH_", " _YEAR,BLNK =""
  48    .S LN2=65 -($L(CHMMD T)/2)
  49    .F II=1:1 :LN2 S BLN K=BLNK_" "
  50    .S X=BLNK _CHMMDT D  M1BLD
  51    .S X="" D  M1BLD S X ="" D M1BL D
  52    ;W @IOF W :$D(DUZ) ! ,DUZ W ?76 ,"HEALTH A DM CENTER" ,?159,"Pag e: ",PG S  PG=PG+1
  53    ;W !,TIME ,?70,TITLE ,!,$E(DT,4 ,7),?168-$ L(DATE)/2, DATE
  54    S PG=PG+1
  55    Q
  56    ;
  57   HEAD2 D:PG =2
  58    .S X="Bat ch #"_UU_" Beneficiar y Name  "_ UU_"Bene S SN "_UU_"R X #        "_UU_"DOS    "_UU_"BL  AMT "_UU_ "Claim #"_ UU_"St"_UU _"PD AMT " _UU_"REJ A MT"_UU_"RE J RSN"_UU_ "Reopen"_U U_"Ropn Cl m #" D M1B LD
  59    .S X="--- ----"_UU_" ---------- --------"_ UU_"------ ---"_UU_"- ---------- "_UU_"---- --"_UU_"-- -----"_UU_ "-------"_ UU_"--"_UU _"-------" _UU_"----- --"_UU_"-- -----"_UU_ "------"_U U_"------- ---" D M1B LD
  60    ;W !!!,"B atch #",?9 ,"Benefici ary Name", ?29,"Bene  SSN",?40," RX #",?53, "DOS"
  61    ;W ?61,"B L AMT",?70 ,"Claim #" ,?79,"St", ?83,"PD AM T",?92,"RE J AMT"
  62    ;W ?101," REJ RSN",? 110,"Reope n",?118,"R opn Clm #"
  63    ;W !,"--- ----",?9," ---------- --------", ?29,"----- ----",?40, "--------- --"
  64    ;W ?53,"- -----",?61 ,"-------" ,?70,"---- ---",?79," --",?83,"- ------"
  65    ;W ?92,"- ------",?1 01,"------ -",?110,"- -----",?11 8,"------- ---",!
  66    Q
  67    ;
  68   M1BLD D SP ACE I '$D( ^UTILITY($ J,"M3",1))  S HOLDJ=0
  69    S JJ=HOLD J+1 S ^UTI LITY($J,"M 3",1,JJ,0) =X,HOLDJ=J J Q
  70    ; 
  71   SPACE S LE N=$L(X) S  TIMES=132- LEN,SPACE= "" F KK=1: 1:TIMES S  SPACE=SPAC E_" "
  72    S X=X_SPA CE Q
  73   MONTH1 S M N=+$E(BDAT E,4,5)
  74    S MONTH=$ S(MN=1:"Ja nuary",MN= 2:"Februar y",MN=3:"M arch",MN=4 :"April",M N=5:"May", MN=6:"June ",MN=7:"Ju ly",MN=8:" August",MN =9:"Septem ber",MN=10 :"October" ,MN=11:"No vember",MN =12:"Decem ber",1:"")
  75    ; Y2K S Y R=$E(BDATE ,2,3),YEAR ="19"_YR Q
  76    S YEAR=$$ FMYR^CHTFL IB($E(BDAT E,1,3)) Q
  77    ; 
  78   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  79    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  80    Q
  81   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC    
  82    ;