189. EPMO Open Source Coordination Office Redaction File Detail Report

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

189.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLFEE1.m Mon Nov 5 16:45:27 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLFEE1.m Fri Nov 9 03:14:15 2018 UTC

189.2 Comparison summary

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

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

189.4 Active regular expressions

No regular expressions were active.

189.5 Comparison detail

  1   CHMLFEE1 ; CVA/HBG;FE E PAYMENT  EXTRACT FO R CLAIM CH ECK;06/30/ 96  10:51  PM
  2    ;V1.0
  3   MENU W @IO F
  4    W !! S X= "HAC/FEE B asis Data  Extract"
  5    W ?(40-($ L(X)\2)),X
  6    W !!
  7    S DIR(0)= "S^1:Infor mation;2:R un the ON- LINE Pre-C ount;3:QUE UE the Dat a Extract  Mail Messa ge;4:Quit"
  8    D ^DIR
  9    Q:'X  Q:Y =4
  10    I Y=1 D I NFO R X G  MENU
  11    G:Y=2 PRE CNT G:Y=3  QUE
  12    Q
  13   PRECNT ;Th is section  will loop  through a ll FEE bas is payment s by patie nt
  14    ;and coun t the numb er of serv ices that  fall after  1/1/95 an d will
  15    ;precount  the numbe r of messa ges that w ill be gen erated to  the users
  16    ;mail acc ount and w ill give a  rough siz e estimate  for each  mail messa ge
  17    W !!,"THI S OPTION M AY TAKE SE VERAL MINU TES TO COM PLETE - PL EASE BE PA TIENT",!
  18    S CCT=0,M MCT=0,MM=1  K ^TMP($J ),HAC
  19    S DPT=0 F   S DPT=$O (^FBAAC(DP T)) Q:'DPT   D  W "."
  20    .Q:'$D(^D PT(DPT,0))   S SEX=$P (^(0),"^", 2),DOB=$P( ^(0),"^",3 )
  21    .S VEN=0  F  S VEN=$ O(^FBAAC(D PT,1,VEN))  Q:'VEN  D
  22    ..Q:'$D(^ FBAAC(DPT, 1,VEN,0))
  23    ..S K=0 F   S K=$O(^ FBAAC(DPT, 1,VEN,1,K) ) Q:'K  D   I MMCT>14 000 S MM=M M+1,MMCT=1
  24    ...Q:'$D( ^FBAAC(DPT ,1,VEN,1,K ,0))  S TD T=$P(^(0), "^",1)
  25    ...Q:TDT< 2950000
  26    ...S CCT= CCT+1
  27    ...S PTRE C=DPT_"^"_ SEX_"^"_DO B_"^"_VEN_ "^"_TDT
  28    ...S L=0, LCT=0 F  S  L=$O(^FBA AC(DPT,1,V EN,1,K,1,L )) Q:'L  D   Q:LCT>39
  29    ....Q:'$D (^FBAAC(DP T,1,VEN,1, K,1,L,0))   S REC=^(0 )
  30    ....S MMC T=MMCT+1
  31    ....S PX= "",X=$P(RE C,"^",1) I  X'="" Q:' $D(^ICPT(X ,0))  S PX =$P(^(0)," ^",1)
  32    ....S $P( REC,"^",1) =PX
  33    ....S LCT =LCT+1,DX= ""
  34    ....S X=$ P(REC,"^", 23) I X'=" " S:$D(^IC D9(X,0)) D X=$P(^(0), "^",1)
  35    ....S $P( REC,"^",23 )=DX
  36    ....S ^TM P($J,"FEE" ,MM,MMCT,0 )=CCT_"^"_ LCT_"^"_PT REC_"^"_RE C
  37    ....S:'$D (HAC(MM))  HAC(MM)=0
  38    ....S HAC (MM)=HAC(M M)+$L(^TMP ($J,"FEE", MM,MMCT,0) )
  39    W !!
  40    I '$D(HAC ) D  G END
  41    .W !,"Thi s process  will not g enerate an y data - p lease call "
  42    .W !,"How ard Green  at 303.331 .7533"
  43    W !,"This  process w ill genera te ",MM,"  DHCP mail  messages t o your mai l account"
  44    S MM=0 F   S MM=$O(H AC(MM)) Q: 'MM  D
  45    .W !,"Mes sage ",MM, " will con tain:  ",H AC(MM)," B ytes"  
  46    G END
  47   INFO W !!
  48    W !,"This  process w ill extrac t and stor e data con tained in  the FEE"
  49    W !,"PAYM ENTS File  (^FBAAC).   The data  will be te mporarily  stored"
  50    W !,"in t he ^tmp gl obal.  Whe n complete , a series  of mail m essages"
  51    W !,"will  be genera ted to the  initiatin g users ma il account .  Please"
  52    W !,"forw ard all of  these mes sages to:"
  53    W !!,"
P II  or  PII  if the do main"
  54    W !,"is n ot known.   Thank you  for your  assistance ."
  55    W !!,"PRE SS <RETURN > TO CONTI NUE "
  56    Q
  57   QUE S IOP= "Q" S ZTIO =""
  58    S ZTRTN=" MAIN^CHMLF EE1",ZTDES C="HAC/FEE  PAYMENT D ATA EXTRAC T"
  59    D ^%ZTLOA D S IOP="H OME" D HOM E^%ZIS
  60   END Q
  61   MAIN ;This  section w ill run in  backgroun d and will  follow th e same log ic
  62    ;as the p recnt sect ion.  The  data will  temporaril y be store d in
  63    ;^tmp and  will be u sed as the  basis of  the mail m essages th at should  be 
  64    ; forward ed to the  HAC.
  65    S CCT=0,M MCT=0,MM=1  K ^TMP($J )
  66    S DPT=0 F   S DPT=$O (^FBAAC(DP T)) Q:'DPT   D
  67    .Q:'$D(^D PT(DPT,0))   S SEX=$P (^(0),"^", 2),DOB=$P( ^(0),"^",3 )
  68    ..Q:'$D(^ FBAAC(DPT, 1,VEN,0))
  69    .S VEN=0  F  S VEN=$ O(^FBAAC(D PT,1,VEN))  Q:'VEN  D
  70    ..Q:'$D(^ FBAAC(DPT, 1,VEN,0))
  71    ..S K=0 F   S K=$O(^ FBAAC(DPT, 1,VEN,1,K) ) Q:'K  D   I MMCT>14 000 S MM=M M+1,MMCT=1
  72    ...Q:'$D( ^FBAAC(DPT ,1,VEN,1,K ,0))  S TD T=$P(^(0), "^",1)
  73    ...Q:TDT< 2950000
  74    ...S CCT= CCT+1
  75    ...S PTRE C=DPT_"^"_ SEX_"^"_DO B_"^"_VEN_ "^"_TDT
  76    ...S L=0, LCT=0 F  S  L=$O(^FBA AC(DPT,1,V EN,1,K,1,L )) Q:'L  D   Q:LCT>39
  77    ....Q:'$D (^FBAAC(DP T,1,VEN,1, K,1,L,0))   S REC=^(0 )
  78    ....S MMC T=MMCT+1
  79    ....S PX= "",X=$P(RE C,"^",1) I  X'="" Q:' $D(^ICPT(X ,0))  S PX =$P(^(0)," ^",1)
  80    ....S $P( REC,"^",1) =PX
  81    ....S LCT =LCT+1,DX= ""
  82    ....S X=$ P(REC,"^", 23) I X'=" " S:$D(^IC D9(X,0)) D X=$P(^(0), "^",1)
  83    ....S $P( REC,"^",23 )=DX
  84    ....S ^TM P($J,"FEE" ,MM,MMCT,0 )=CCT_"^"_ LCT_"^"_PT REC_"^"_RE C
  85   MAIL ;This  section w ill create  a mail me ssage for  each of th e sub glob als
  86    ;created  in the ^tm p($j globa l.  The me ssages wil l be maile d to the 
  87    ;user run ning this  routine an d must be  forwarded  to:
  88    ;PII
  89    I '$D(^TM P($J,"FEE" )) D ERRMA IL G END
  90    S MM=0 F   S MM=$O(^ TMP($J,"FE E",MM)) Q: 'MM  D
  91    .S XMTEXT ="^TMP($J, ""FEE"","_ MM_","
  92    .S XMSUB= "FEE BASIS  EXTRACT -  MESSAGE:   "_MM
  93    .S XMDUZ= DUZ,XMY(DU Z)=""
  94    .D ^XMD
  95   END1 K ^TM P($J,"FEE" ),CCT,MMCT ,MM,DPT,VE N,SEX,DOB, TDT,K,PTRE C,L,LCT,RE C  ; scott  doan 03.1 8.05
  96    K X,PX,DX
  97    Q
  98    ;
  99    ;   SUBRO UTINES
  100    ;
  101   ERRMAIL ;T his sectio n will be  called in  the event  that there  is no acc umuilation
  102    ;of data  in the ^tm p($j globa l
  103    D NOW^%DT C
  104    S ^TMP($J ,"FEE",1,1 ,0)="EXTRA CT PROCESS  FAILED ON  "_%
  105    S XMTEXT= "^TMP($J," "FEE"",1,"
  106    S XMSUB=" FEE BASIS  EXTRACT -  ERROR MESS AGE"
  107    S XMDUZ=D UZ,XMY(DUZ )=""
  108    D ^XMD
  109    K ^TMP($J ,"FEE",1)
  110    Q
  111   DATA ;This  section w as created  to genera te a sampl e ^tmp( gl obal for
  112    ;testing  purposes.   It will n ot be call ed by the  receiving  station
  113    K ^TMP($J )
  114    S ^TMP($J ,"FEE",1,1 ,0)="DATA^ DATA"
  115    S ^TMP($J ,"FEE",1,2 ,0)="DATA^ DATA"
  116    S ^TMP($J ,"FEE",1,3 ,0)="DATA^ DATA"
  117    S ^TMP($J ,"FEE",1,4 ,0)="DATA^ DATA"
  118    S ^TMP($J ,"FEE",1,5 ,0)="DATA^ DATA"
  119    S ^TMP($J ,"FEE",1,6 ,0)="DATA^ DATA"
  120    S ^TMP($J ,"FEE",1,7 ,0)="DATA^ DATA"
  121    S ^TMP($J ,"FEE",2,1 ,0)="DATA^ DATA"
  122    S ^TMP($J ,"FEE",2,2 ,0)="DATA^ DATA"
  123    S ^TMP($J ,"FEE",2,3 ,0)="DATA^ DATA"
  124    S ^TMP($J ,"FEE",2,4 ,0)="DATA^ DATA"
  125    Q