267. EPMO Open Source Coordination Office Redaction File Detail Report

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

267.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMT.m Mon Nov 5 16:43:26 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMT.m Mon Nov 5 17:54:37 2018 UTC

267.2 Comparison summary

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

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

267.4 Active regular expressions

No regular expressions were active.

267.5 Comparison detail

  1   CHOHIMT ;J EH/DEN;MED ICARE FROM  OTHER OHI  REPORT -  GRAND TOTA L;02/2/05   8:40 AM
  2    ;V1.0
  3    ;
  4    ;JEH 9/5/ 08 TT DEV0 05622-01 -  REPLACED  REFERENCE  TO PCPAY T O PMPAY
  5    D INIT
  6    Q                 ;  COMMENT TO  RUN HOT           JE H
  7   START ;I ' $D(STOP) D
  8    D GETDATA
  9    D PRTTOT
  10    G END
  11    ;
  12   GETDATA ;G ATHERING D ATA
  13    F I="INPA TIENT","OU TPATIENT", "DENTAL"," TRAVEL","D URABLE MED ICAL","PHA RMACY" D
  14    .S PRTARR Y(I)=0
  15    S CTR=0
  16    S CTRE=0
  17    S I=99999 999999 F   S I=$O(^CH MINDEX(I), -1) Q:'I   D      ;!( CTR=300)   D   ;<---- ---------- --- REMOVE  CTR=300
  18    .S X1=I D  PROGTYP^C HFCD001
  19    .I $D(@(G LPAY_"I,0) ")) D
  20    ..I $P(@( GLPAY_"I,0 )"),"^",2) '=0 D
  21    ...I $P(@ (GLPAY_"I, 0)"),"^",2 5)>STRTDAT E_".000000 "&($P(@(GL PAY_"I,0)" ),"^",25)< ENDDATE_". 999999") D
  22    ....S TOS =$P(^CHMDI C(741002.0 5,$P(@(GLP AY_"I,0)") ,"^",7),0) ,"^",1)
  23    ....;S PR TARRY(TOS) =PRTARY(TO S)+1
  24    ....S CLM NM=$P(@(GL PAY_"I,0)" ),"^",1)
  25    ....S OHI PYMT=0
  26    ....I $D( @(GLPAY_"I ,1)")) D
  27    .....S OH IPYMT=$P(@ (GLPAY_"I, 1)"),"^",7 )
  28    .....S:OH IPYMT'["." &(OHIPYMT' ="") OHIPY MT=OHIPYMT _".00"
  29    .....S CV APYMT=$P(@ (GLPAY_"I, 1)"),"^",1 )
  30    .....S:CV APYMT'["." &(CVAPYMT' ="") CVAPY MT=CVAPYMT _".00"
  31    ....;I (O HIPYMT'="" )&(CVAPYMT '="") D
  32    ....S GTO T=GTOT+1
  33    ....I (OH IPYMT>0) D
  34    .....S CT R=CTR+1
  35    .....S PR TARRY(TOS) =PRTARRY(T OS)+1
  36    .....;U 0  W:(OHIPYM T>0)&(CVAP YMT>0) !,? 5,CTR,")", ?30,"***** ****** ",C LMNM,"   O  - ",OHIPY MT,"    C  - ",CVAPYM T
  37    ....E  D
  38    .....S CT RE=CTRE+1
  39    .....;U 0  W !,CTRE, ")",?20,CL MNM,"   O  - ",OHIPYM T,"    C -  ",CVAPYMT
  40    ;
  41    Q
  42   END1 ;
  43    Q
  44    ;
  45   INIT ;INIT ILIZING VA RIABLES
  46    S CTRQ=0, ECTR=0,GTO T=0
  47    S TAB=$C( 9)
  48    ;DISPLAY  MENU TITLE
  49    W @IOF,?3 0,"CHAMPVA  OHI Grand  Total Rep ort",!
  50   S1 ;SET ST ART DATE
  51    S STRTDAT E="" K DIR
  52    S DIR(0)= "D" S DIR( "A")="Ente r START da te (mm/dd/ yy)" D ^DI R
  53    S STRTDAT E=Y
  54    S:STRTDAT E="^" STOP ="" Q:$D(S TOP)
  55    G:STRTDAT E="" S1
  56   E1 ;SET EN D DATE
  57    S ENDDATE =""
  58    S DIR(0)= "D" S DIR( "A")="Ente r END date  (mm/dd/yy )" D ^DIR
  59    S ENDDATE =Y K DIR
  60    S:ENDDATE ="^" STOP= "" Q:$D(ST OP)
  61    G:ENDDATE ="" E1
  62    S (HSDT,H EDT)=""
  63    S Y=STRTD ATE D DD^% DT S HSDT= Y
  64    S Y=ENDDA TE D DD^%D T S HEDT=Y
  65    ;SET QUEU E
  66    Q:$D(STOP )
  67    D QUEUE Q
  68    Q
  69   PRTTOT ;PR INTING OUT  GRAND TOT AL
  70    S ENVIR=" "
  71    S AYGSYS= XQVOL   ;  SETTING EN VIRONMENT
  72    S RUNDT=" " S RUNDT= DT
  73    S ENVIR=$ S(AYGSYS=" ROU":"LIVE ",AYGSYS=" XOU":"TRAI N",AYGSYS= "TOU":"TES T",AYGSYS= "DOU":"DEV ")
  74    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]TOT AL_OHI_"_R UNDT_".TXT "
  75    O IO:"NWS "
  76    U IO
  77    W !,"CHAM PVA OHI Re port Total s"
  78    W !,"Run  date: ",RU NDT
  79    W !!,"Fro m: ",STRTD ATE," to " ,ENDDATE
  80    W !!,"OHI  CLAIM PAY MENT TOTAL :",?15,CTR
  81    W !!,?5," INPATIENT  Total:",PR TARRY("INP ATIENT")
  82    W !,?5,"O UTPATIENT  Total:",PR TARRY("OUT PATIENT")
  83    W !,?5,"D ENTAL Tota l:",PRTARR Y("DENTAL" )
  84    W !,?5,"T RAVEL Tota l:",PRTARR Y("TRAVEL" )
  85    W !,?5,"D URABLE MED ICAL Total :",PRTARRY ("DURABLE  MEDICAL")
  86    W !,?5,"P HARMACY To tal:",PRTA RRY("PHARM ACY")
  87    W !!,?5," TOTAL OF C LAIMS WITH OUT OHI: " ,CTRE
  88    W !!,"GRA ND TOTAL O F CLAIMS:  ",GTOT
  89    C IO
  90    Q
  91   QUEUE ;QUE UE THE REP ORT
  92    ;Q   ;<-- ---------- ---------- --REMOVE T O QUEUE JO B
  93    S ZTRTN=" START^CHOH IMT"
  94    S ZTDESC= "OHI REPOR T"
  95    S ZTSAVE( "STRTDATE" )=""
  96    S ZTSAVE( "ENDDATE") =""
  97    S ZTSAVE( "TAB")=""
  98    S ZTSAVE( "PRTARRY") =""
  99    S ZTSAVE( "XQVOL")=" "
  100    S ZTSAVE( "CTRQ")=""
  101    S ZTSAVE( "ECTR")=""
  102    S ZTSAVE( "GTOT")=""
  103    S FIO=""
  104    S ZTIO="" ,ZTSAVE("F IO")=""
  105    D ^%ZTLOA D                 ; C OMMENT TO  RUN HOT           JEH
  106    Q
  107   END ;
  108    U 0 W !," *** End of  OHI Repor t Processi ng Totals* **"
  109    Q
  110   END2 W !!, "*** DATA  FILE ERROR  HAS OCCUR ED ***",!!
  111    G END
  112    Q