124. EPMO Open Source Coordination Office Redaction File Detail Report

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

124.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCQAR.m Mon Nov 5 16:41:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCQAR.m Mon Nov 5 17:48:47 2018 UTC

124.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 396
Changed 2 6
Inserted 0 0
Removed 0 0

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

124.4 Active regular expressions

No regular expressions were active.

124.5 Comparison detail

  1   CHMKCQAR ; HAC/JEH; C HAMPVA QUA RTERLY CLA IMS AUDIT  REPORT ;01 /22/12
  2    ;;V1.0
  3    ;
  4    I $$INIT( )=1 D
  5    .D QUEA^C HMKCQAR        ;QUE T O RUN IN B ACKGROUND
  6    .W !
  7    .I QFLG=1  D INOTE
  8    .E  W !!, "REPORT HA S BEEN CAN CELLED!" H  1
  9    Q
  10   START ;
  11           D  GTCLMS   ; CREATING L IST IF CLA IMS
  12           I  $$OFILES() =1 D   ;CR EATE LISTI NG ON FS3B IG
  13           .D  CRFILES
  14           E   D MMSG2   ;MESSAGE L ETTING USE R KNOW THE RE WAS AN  ISSUE WITH  THE REPOR T
  15           D  END
  16           Q
  17   GTCLMS ;GE TTING LIST  OF CLAIMS
  18    N CTR,CLM CDT
  19    S CLMCDT= 0
  20    I $D(^CHM ZHOLD($J," CHMKCQAR") ) K ^CHMZH OLD($J,"CH MKCQAR")
  21    S CTR=0
  22    S CLMCDT= STRDT-1 F   S CLMCDT= $O(^CHMPAY ("E",CLMCD T)) Q:'$D( CLMCDT)!(C LMCDT>ENDD T)!(CLMCDT ="")  D
  23    .S CLMPTR =0,CLMPTR= $O(^CHMPAY ("E",CLMCD T,CLMPTR))  Q:'$D(CLM PTR)
  24    .Q:$P(^CH MPAY(CLMPT R,0),"^",2 )'=4       ;COMPLETED  CLAIMS ON LY
  25    .Q:$$GTLT C()=1                                             ;GET  LABEL TYP E CODE
  26    .Q:$$GTAM T()=1                                             ;GET  PAID AMOU NT
  27    .Q:$$BENE LG()'="EA"
  28    .S ^CHMZH OLD($J,"CH MKCQAR",CL MPTR)=""
  29    Q
  30   INIT() ;IN ITIALIZATI ON
  31    N IFLG
  32    S IFLG=0   ;0=QUIT/1 =CONTINUE
  33    W @IOF
  34    S TITLE=" CHAMPVA Qu arterly Cl aims Audit  Report"
  35    W ?(80-$L (TITLE)/2) ,TITLE,!
  36   INIT1 ;SET  FILE NAME
  37    S DIR(0)= "FO^3:50"
  38    S DIR("A" )="Enter r eport file  name (i.e . RPTNAME) " D ^DIR K  DIR
  39    I Y="^^"! (Y="")!($D (DUOUT)) D   Q IFLG
  40    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  41    S FNAME=Y
  42    W !
  43   SDATE ;STA RT DATE
  44    S DIR(0)= "D" S DIR( "A")="Plea se enter s tart date  (MM/DD/YY) " D ^DIR S  STRDT=Y K  DIR
  45    I Y="^^"! (Y="") D   Q IFLG
  46    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  47    G:STRDT=" "!(STRDT=" ^")!(STRDT =-1) INIT1
  48    I STRDT>D T  W !!,"P lease do n ot enter a  future da te!",! G S DATE
  49    W !
  50   EDATE ;END  DATGE
  51    
  52    S DIR(0)= "D" S DIR( "B")=$$FMT E^XLFDT(DT ,"2DZ") S  DIR("A")=" Please ent er end dat e (MM/DD/Y Y)"  D ^DI R S ENDDT= Y K DIR
  53    I Y="^^"  D  Q IFLG
  54    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  55    G:ENDDT=" "!(ENDDT=" ^")!(ENDDT =-1) SDATE
  56    I STRDT>E NDDT D SDA TE
  57    I ENDDT>D T  W !!,"P lease do n ot enter a  future da te!",! G E DATE
  58    S ENDDT=Y +.999999
  59    W !
  60   PDAMIN ;PA ID DOLLAR  AMOUNT MIN IMUM
  61    S DIR(0)= "N"
  62    S DIR("B" )=1.00
  63    S DIR("A" )="Enter m inimum pai d dollar a mount" D ^ DIR K DIR
  64    I Y="^^"  D  Q IFLG
  65    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  66    G:Y="^"!( Y="")!(Y=0 ) EDATE
  67    S MINPDA= Y
  68    W !
  69   PDAMAX ;PA ID DOLLAR  AMOUNT MAX IMUM
  70    S DIR(0)= "N"
  71    S DIR("B" )=MINPDA
  72    S DIR("A" )="Enter m aximum pai d dollar a mount" D ^ DIR K DIR
  73    I Y="^^"  D  Q IFLG
  74    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  75    G:Y="^"!( Y="")!(Y=0 ) PDAMIN
  76    I MINPDA> Y W !!,"Ma ximum amou nt must be  greater t han minimu m amount."  G PDAMAX
  77    S MAXPDA= Y
  78    W !
  79   INT2 ;SET  OUTLOOK EM AIL ADDRES S
  80    S DIR(0)= "FO^3:50"
  81    S DIR("?" ,1)="A not ification  will be se nt when do ne process ing report ."
  82    S DIR("?" )="Email a ddress exa mple:    PII               "
  83    S DIR("A" )="Enter E mail Addre ss  PII                )" D ^DIR  K DIR
  84    I Y="^^"  D  Q IFLG
  85    .W !!,"RE PORT HAS B EEN CANCEL LED!" H 1
  86    I Y="^"!( Y=0) W !!  G PDAMAX
  87    S EMAILNM =Y
  88    S IFLG=1
  89    Q IFLG
  90   INOTE ;NOT IFICATION
  91    W !,?5,"T his will t ake some t ime to gat her and pr ocess the  data."
  92    W !,?5,"A  message w ill be sen t when the  CHAMPVA Q uarterly"
  93    W !,?5,"C laims Audi t Report i s ready.", !!
  94    K:$D(^CHM ZHOLD("CQA R",FNAME))  ^CHMZHOLD ("CQAR",FN AME)
  95    H 2
  96    Q
  97   MMMSG ;GEN ERATE MM M ESSAGE
  98    S CNT=1,^ TMP($J,"CQ AR",CNT)=" ",CNT=CNT+ 1
  99    S ^TMP($J ,"CQAR",CN T)="YOUR R EPORT CAN  BE FOUND H ERE:",CNT= CNT+1
  100    S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1
  101    S ^TMP($J ,"CQAR",CN T)="  DIRE CTORY: FS3 BIG\BPO",C NT=CNT+1
  102    S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1
  103    S ^TMP($J ,"CQAR",CN T)="  REPO RT NAME:", CNT=CNT+1
  104    S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1
  105    S ^TMP($J ,"CQAR",CN T)="    "_ FNAME_".TX T",CNT=CNT +1
  106    S ^TMP($J ,"CQAR",CN T)=""
  107    S XMTEXT= "^TMP($J," "CQAR"","
  108    S XMDUZ=. 5
  109    S:EMAILNM '="" XMY(E MAILNM)=""
  110    S XMY(DUZ )=""
  111    S XMSUB=" CHAMPVA QT RLY AUDIT  REPORT HAS  COMPLETED " D ^XMD
  112    Q
  113   MMSG2 ;MES SAGE LETTI NG USER KN OW THERE W AS AN ISSU E WITH THE  REPORT
  114    S CNT=1,^ TMP($J,"CQ AR",CNT)=" ",CNT=CNT+ 1
  115    S ^TMP($J ,"CQAR",CN T)="ERROR  CREATING R EPORT.",CN T=CNT+1
  116    S ^TMP($J ,"CQAR",CN T)="",CNT= CNT+1
  117    S ^TMP($J ,"CQAR",CN T)="CONTAC T OCIO HEL PDESK, 777 7",CNT=CNT +1
  118    S ^TMP($J ,"CQAR",CN T)=""
  119    S XMTEXT= "^TMP($J," "CQAR"","
  120    S XMDUZ=. 5
  121    S:EMAILNM '="" XMY(E MAILNM)=""
  122    S XMY(DUZ )=""
  123    S XMSUB=" ***ERROR** * CHAMPVA  QTRLY AUDI T REPORT"  D ^XMD
  124    Q
  125   BENELG() ; CHECK FOR  BENE BEING  ELIGIBLE  ON DOS FUN CTION
  126    S STDAT=0 ,STAT="I"
  127    S DFN=$P( ^CHMPAY(CL MPTR,0),"^ ",21) Q:DF N=""
  128    S BFN=$P( ^CHMPAY(CL MPTR,0),"^ ",22) Q:BF N=""
  129    I '$D(^AH CHVA(DFN,1 00,BFN,109 )) Q STAT
  130    S STDAT=0  F  S STDA T=$O(^AHCH VA(DFN,100 ,BFN,109,S TDAT)) Q:' STDAT  D
  131    .S ENDAT= 0 F  S END AT=$O(^AHC HVA(DFN,10 0,BFN,109, STDAT,ENDA T)) Q:'END AT  D
  132    ..Q:(STDA T>ENDDT)
  133    ..Q:(ENDA T<STRDT)
  134    ..S STAT= "EA"
  135    Q STAT
  136   GTLTC() ;G ET LABEL T YPE CODE 
  137    N TYPFLG
  138    S TYPFLG= 0
  139    S CLMPDI= $P($P(^CHM PAY(CLMPTR ,0),"^",4) ,"*",1)
  140    S CLMTYP= $$TYPE^CHM FPDI2(CLMP DI)   ;PDI  TYPE
  141    I CLMTYP= 98 S TYPFL G=1          ;CMOP
  142    I CLMTYP= "04" S TYP FLG=1        ;CITI
  143    I CLMTYP= 60 S TYPFL G=1          ;SB
  144    I CLMTYP= 95 S TYPFL G=1          ;SB OCR
  145    Q TYPFLG
  146   GTAMT()
  147    N TYPFLG, PDAMT
  148    S TYPFLG= 0
  149    Q:'$D(^CH MPAY(CLMPT R,1)) 1
  150    S PDAMT=$ P(^CHMPAY( CLMPTR,1), "^",1)   ; AMOUNT TO  BE PAID ON  CLAIM
  151    I PDAMT<1  S TYPFLG= 1
  152    I PDAMT>M AXPDA S TY PFLG=1
  153    I PDAMT<M INPDA S TY PFLG=1
  154    Q TYPFLG
  155   OFILES() ; OUTPUT IS  GENERATED  HERE
  156    N OFLG
  157    S $ZE="", $ZT="OFEND ^CHMKCQAR"
  158    S OFLG=0    ;0=FILE  CLOSED/1=F ILE OPENED
  159    S CHFIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .BPO]"_FNA ME_".TXT"
  160    O CHFIO:" WRNS":5 Q: $T=0 OFLG
  161    S OFLG=1
  162    Q OFLG
  163   OFEND ;
  164    Q
  165   CRFILES ;P OPULATING  FILE WITH  DATA
  166    N REC,CLM PTR,CLMNM, DFN,BENNM, DOS,TOS,BL DAMT,ALLAM T,OHPAMT,P YDAMT
  167    S (CLMPTR ,CLMNM,DFN ,BENNM,DOS ,TOS,BLDAM T,ALLAMT,O HPAMT,PYDA MT)=""
  168    U CHFIO W  "Claim #" _"^"_"Bene  Name"_"^" _"Date of  Service (D OS)"_"^"_" Type of Se rvice (TOS )"_"^"_"Bi lled Amoun t"_"^"_"Al lowed Amou nt"_"^"_"O HI Paid Am ount"_"^"_ "Amount Pa id",!
  169    S CLMPTR= 0 F  S CLM PTR=$O(^CH MZHOLD($J, "CHMKCQAR" ,CLMPTR))  Q:'CLMPTR   D
  170    .S CLMNM= $P(^CHMPAY (CLMPTR,0) ,"^",1)                     ;CLM  NAME
  171    .S DFN=$P (^CHMPAY(C LMPTR,0)," ^",21),BFN =$P(^CHMPA Y(CLMPTR,0 ),"^",22)
  172    .S BENNM= $P(^AHCHVA (DFN,100,B FN,0),"^", 1)               ;BEN E NAME
  173    .S DOS=$$ FMTE^XLFDT ($P(^CHMPA Y(CLMPTR,0 ),"^",8)," 5D")  ;DAT E OF SERVI CE
  174    .S TOS=$P (^CHMDIC(7 41002.05,$ P(^CHMPAY( CLMPTR,0), "^",7),0), "^",1)       ;TYPE OF  SERVICE
  175    .S BLDAMT =$FN($P(^C HMPAY(CLMP TR,"COMMON "),"^",1), "")   ;BIL LED AMOUNT
  176    .S ALLAMT =$FN($P(^C HMPAY(CLMP TR,"COMMON "),"^",7), "")   ;CAL C ALLOWED  AMOUNT
  177    .S OHPAMT =$FN($P(^C HMPAY(CLMP TR,1),"^", 7),"")                    ;OHI P AID AMOUNT
  178    .S PYDAMT =$FN($P(^C HMPAY(CLMP TR,1),"^", 1),"")                    ;PAID  AMOUNT
  179    .U CHFIO  W CLMNM_"^ "_BENNM_"^ "_DOS_"^"_ TOS_"^"_BL DAMT_"^"_A LLAMT_"^"_ OHPAMT_"^" _PYDAMT,!
  180    Q
  181   QUEA ;QUE  THIS ROUTI NE MANUALL Y.
  182    S QFLG=1
  183    W !
  184    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  185    S CHFIO=" ",ZTIO=""
  186    S ZTRTN=" START^CHMK CQAR",ZTDE SC="PROCES S CHV QRTL Y AUDIT RE PORT"
  187    S ZTSAVE( "FNAME")=" ",ZTSAVE(" STRDT")="" ,ZTSAVE("E NDDT")="", ZTSAVE("MI NPDA")=""
  188    S ZTSAVE( "MAXPDA")= "",ZTSAVE( "EMAILNM") ="",ZTSAVE ("QFLG")=" "
  189    D ^%ZTLOA D
  190    S:$D(%ZTL OAD("ERROR ")) QFLG=0
  191    Q
  192   END ;END O F ROUTINE
  193    C CHFIO
  194           D: QFLG=1 MMM SG    ;SEN DING MM ME SSAGE THAT  REPORT IS  READY
  195    K ^CHMZHO LD("CQAR", FNAME),^CH MZHOLD($J, "CHMKCQAR" )
  196    K CHFIO,D TIME,FNAME ,OFLG,MAXP DA,MINPDA, TYPFLG,CLM TYP
  197    K STAT,EN DAT,IFLG,T ITLE,Y,CLM CDT,CNT,ST DAT,DFN,BF N,QFLG
  198    K CLMPTR, CLMNM,DFN, BENNM,DOS, TOS,BLDAMT ,ALLAMT,OH PAMT,PYDAM T
  199    Q 
  200    
  201