17. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:27:32 PM Eastern 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.

17.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937664-CPE005-066 Verify Associated Claims Complete for EDI CPE Teams 1-3 Developer Form - CPE005-066.docx Thu Dec 7 15:13:26 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937664-CPE005-066 Verify Associated Claims Complete for EDI CPE Teams 1-3 Developer Form - CPE005-066.docx Thu Dec 7 22:02:58 2017 UTC

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

  1   Developer  Name(s):   Dennis Bri cker
  2   Associated  User Stor y/Stories:   CPE005-0 66
  3  
  4   ORIGINAL C HMFADR2
  5   CHMFADR2 ; JLR/DEN;UT ILITY PROG RAM FOR DO C ID SCREE N;08/20/98  8:16 AM ; ;1.0;CHAMP VA SYSTEM; ;JULY 4, 1 990;Build  3 ;V2.0;CA LLED FROM  CHMF101A;;  ;;MODIFIE D BY RLC O N 4/13/95  - ADDED OP TION 11) P PR ;;MODIF IED BY RLC  ON 4/28/9 5 - ADDED  OPTION 12)  PPRs-PDI  ;PT 15932  (Y2K) ;JEH  1/8/10 TT  8813 vist a applicat ion disapp eared when  inputting  data ;JEH  1/8/10 PC DUO 52308  FIX LOGIC  ERROR ;KEL  05/04/17  CPE005-007  Add Type  of Bill to  the EDI R e-open Doc ument ID S creen.  ;C FS 08/16/2 017 CPE005 -004 Add v alidations  and scree n changes  for CHAMPV A and SB E DI Reopen  process.   ;HM 09/15/ 2017 CPE00 5-034 TOB  FC 8 Origi nal PDI Co mplete ini tiate reve rsal ;CFS  10/01/2017  CPD005-06 9 Add Orig inal and C urrent PDI  Numbers t o EDI Manu al Re-open  Doc ID Sc reen. ;CFS  10/01/201 7 CPE005-0 73, 074, 0 75, 076, 0 77, 079, 0 80 - Added  validatio ns for ; C urrent and  Origanal  PDI Number  prompts.C HKPAG K NP  S CHPDIPR L=$$PDITYP ^CHMFAUT1( CHMFPDI) Q :CHPDIPRL  Q:'$D(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG)) D  CLEARB S D X=1,DY=15  X XY S NP= 1PAG1 X XY  W *7,"Pag e # ",CHMF PGNM," has  already b een proces sed. Do yo u want to  kill the d ata for th is" W !,"p age and re -enter it?  NO// ",@C HEOL S DY= 16,DX=29 X  XY D CSBR S^CHSC2 S  DX=1,DY=15  X XY G:$D (DQOUT) PA G1 I $D(DU OUT) D CLE ARB Q I $D (DFOUT) D  CLEARB Q S  Y=$E(Y,1)  S:Y="" Y= "N" G:"NY" '[Y PAG1 I  Y="Y" D O HI K NP,^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG) D  OHI QOHI  ; ;I $G(CH MFPDI)'=""  K ^CHMIMA GE(CHMFPDI ,"ZOHI") ; SKD MC284  1-3-07, SK D 2-9-07 R EM OUT K O HI,OHIAMT   ;SKD 2-9- 07 S:$G(DF N)="" DFN= $P($G(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,1,0) ),U,1) Q:$ G(DFN)=""   ;SKD MC28 4 2-9-07 S :$G(BFN)=" " BFN=$P($ G(^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G,1,0)),U, 2) Q:$G(BF N)=""  ;SK D MC284 2- 9-07 Q:'$G (OHITOS)!( '$G(OHIDOS )) ;SKD MC 284 2-9-07  I $G(CHMF PDI)'="" K  ^CHMIMAGE (CHMFPDI," ZOHI",DFN, BFN,OHITOS ,OHIDOS) ; SKD MC284  2-9-07 QRE DRAW S DY= 3,DX=1 X X Y W @CHEOL  D CLEAR S  CHTITLE=" DOCUMENT I DENTIFICAT ION SCREEN ",CHSCREEN ="" S CHSC REEN=$O(^C HMSCRN("B" ,CHTITLE,C HSCREEN))  D TITLE^CH MFA100,CHO ICE^CHMFA1 00,ERRORS^ CHMFA100 Q NEWPG D CL EAR,SCREEN  QNOPAUS S  DX=20,DY= 15 X XY W  *7,@CHBON, ?20,"CAN'T  PAUSE WIT HOUT A PDI  ASSIGNED  !!" QNOCOM M S DX=20, DY=15 X XY  W *7,@CHB ON,?13,"Yo u must hav e a PDI be fore comme nts can be  entered."  QNOSCR S  DX=19,DY=1 5 X XY W * 7,@CHBON," No Screen  for this p aticular d ata entry. " QNODATA  S DX=18,DY =15 X XY W  *7,@CHBON ,"All data  must be e ntered bef ore contin uing." QNO SORT S DX= 23,DY=15 X  XY W *7,@ CHBON,"Dat a must be  entered be fore sorti ng." QNOBT CH S DX=10 ,DY=15 X X Y W *7,@CH BON,"If do ing Manual  process,  a batch nu mber must  be entered  before",! ," using t his option . If doing  Image pro cessing th is option  is not all owed." QCL EAR F DY=4 :1:20 S DX =1 X XY W  @CHEOL QCL EARB F DY= 13:1:20 S  DX=1 X XY  W @CHEOL Q FIN S F2=1  QWTOPDI ; CPE005-004  and CPE00 5-069 Writ e Original  PDI Numbe r for EDI  Re-open sc reens.  S  DY=5,DX=41  X XY W:$D (CHMOPDI)  CHMOPDI W  @CHEOL QWT PDI S DY=6 ,DX=41 X X Y W:$D(CHM FPDI) CHMF PDI W @CHE OL I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 I $D(CH MFPDI) I C HMFPDI'=""  D .;I $D( ^CHMIMG(CH MFPDI,"DOC ")) D ..S  CHMNNUM=$P (^CHMIMG(C HMFPDI,"DO C"),"^",10 ) S DX=55  X XY ..W:C HMNNUM'=""  @CHBON,"( Manual Num ber: ",CHM NNUM,")",@ CHBOFF QWT NP S DY=7, DX=41 X XY  W:$D(CHMF NMPG) CHMF NMPG W @CH EOL QWTPG  S:'$D(CHMF PGNM) CHMF PGNM=1 S:C HMFPGNM=""  CHMFPGNM= 1 S DY=8,D X=41 X XY  W:$D(CHMFP GNM) CHMFP GNM W:$D(C HMFNMPG) "  of ",CHMF NMPG W @CH EOL QWTIM  Q S:'$D(CH MFIMAG) CH MFIMAG=1 S :CHMFIMAG= "" CHMFIMA G=1 S DY=9 ,DX=41 X X Y W:$D(CHM FIMAG) CHM FIMAG W @C HEOL QWTTY PE S DY=9, DX=41 X XY  I $D(CHMF TYPE),CHMF TYPE'="" S  II=0,II=$ O(^CHMDIC( 741002.08, "B",CHMFTY PE,II)) W  $E($P(^CHM DIC(741002 .08,II,0), "^",1),1,2 5) W @CHEO L QQUES S  HY=DY,HX=D X G @QU1 S  DY=14,DX= 1 X XY I C HBTCHNO'=0  S X=$$INB TCH^CHMFAB U3(CHBTCHN O,CHMFPDI, XY,CHEOL)  I 'X S F1= 0 Q W !?4, "PDI must  be 15 char acters lon g and matc h the PDI  in IMAGE w indow. The " W !?4,"f irst 4 dig its are Fi scal Year,  next 3 ar e Julian D ays, 01-36 5. The" W  !?4,"next  2 digits s how the sc anner numb er ('01' o r '02'). T he rest of  the" W !? 4,"PDI is  a sequenti al number.  An exampl e of a val id PDI is  '910650213 1313'." G  EXIT2 S DY =15,DX=22  X XY W "En ter the Nu mber of Pa ges for th is PDI." G  EXIT3 S D Y=15,DX=20  X XY W "E nter the p age that i s currentl y displaye d." G EXIT 4 S DY=15, DX=13 X XY  W "Enter  the image  number tha t is curre ntly displ ayed" G EX IT6 S DY=1 5,DX=20 X  XY W "Ente r Type of  document o r '?' to s ee a list"  G EXIT7 D  CLEARB S  DY=15,DX=8  X XY W "E nter the ' Original P DI Number'  based on  the busine ss rules."  G EXIT  ; CPE005-004 8 D CLEARB  S DY=15,D X=8 X XY W  "Enter th e 'Origina l PDI Numb er' based  on the bus iness rule s." G EXIT   ;CPE005- 0699 D CLE ARB S DY=1 5,DX=8 X X Y W "Enter  the 'Curr ent PDI Nu mber' base d on the b usiness ru les." G EX IT  ;CPE00 5-069EXIT  S DY=HY,DX =HX QCHECK  K F1 D CL EARB S LIN E="CHK"_QU  G @LINECH K1 D MANUA L I '$D(CH MFPDI) S F 1=1 Q  ;JE H 1/8/10 T T 8813 I $ G(CHMFPDI) ="" S F1=1  Q  ;JEH 1 /8/10 PCDU O 52308 I  '$D(CHHAND ) S $P(^CH MIMG(CHMFP DI,0),"^", 17)=2 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",8)=2  S X=$$INB TCH^CHMFAB U3(CHBTCHN O,CHMFPDI, XY,CHEOL)  S:'X F1=0, CHMFPDI="" ,CHMNNUM=" ",$P(^CHMD IC(741002. 21,DUZ,0), "^",5)="", $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",2)="" Q   ; Null su bscript on  8/1/05 K  CHMNNUM S  CHMFNMPG=" " I PDI I  $D(^CHMIMG (PDI,0)) I  $P(^(0)," ^",6)>2 D  ERR1 S F1= 1 Q I (Y'? 13N)&(Y'?9 N)&(Y'?15N ) D QUES S  F1=1 Q I  $D(^CHMIMP B("C",Y))  I $D(CHBTC HNO) I CHB TCHNO=0 D  INBAT S F1 =1 Q I $D( ^CHMIMG("R EADY",Y))  I $D(CHBTC HNO) I CHB TCHNO=0 D  READY S F1 =1 Q ; Y2K  changes -  Commented  out per J im Richard son ;D NOW ^%DTC S YR 1=$E(%,2,3 ),YR2=$E(Y ,1,2) I YR 2>YR1 D QU ES S F1=1  Q ;I YR1-1 >YR2 D QUE S S F1=1 Q  ;I +$E(Y, 3,5)'<366  D QUES S F 1=1 Q ;I + $E(Y,3,5)' >0 D QUES  S F1=1 Q I  CHBTCHNO' =0 S X=$$I NBTCH^CHMF ABU3(CHBTC HNO,CHMFPD I,XY,CHEOL ) I 'X I C HBTCHNO'=0  S F1=0 Q  S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=3 ;SET S OME PIECE  TO MANUAL  MANUAL S $ P(^CHMIMAG E(CHMFPDI, 0),"^",8)= 3 S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI QCH K2 Q:Y=""& (CHMFNMPG' ="") I (Y' ?1N.N) D Q UES S F1=1  Q S CHMFN MPG=Y QCHK 3 S:'$D(CH MFPGNM) CH MFPGNM=""  Q:Y="" I C HMFNMPG'=" UNK" I (Y< 1)!(Y'?.N)  D QUES S  F1=1 Q S:' $D(CHMFPGC T) CHMFPGC T=0 S CHMF PGNM=Y,CHM FPGCT=CHMF PGCT+1 QCH K4 S:'$D(C HMFIMAG) C HMFIMAG=""  Q:Y="" I  (Y<1)!(Y>7 )!(Y'?.N)  D QUES S F 1=1 Q S CH MFIMAG=Y Q CHK6 S:'$D (CHMFTYPE)  CHMFTYPE= "" Q:Y=""  K CHOUT,CH ERR S:$D(D QOUT) Y=""  S CHPRT=Y  D LIST^DI C(741002.0 8,,".01",, ,,CHPRT,," I $P(^(0), U,3)'=0",, "CHOUT","C HERR") I ' $D(CHOUT(" DILIST",0) ) S DY=10, DX=41 X XY  W @CHEOL  S F1=1 Q I  $P(CHOUT( "DILIST",0 ),"^",1)'> 0 S DY=10, DX=41 X XY  W @CHEOL  S F1=1 Q S  DTM=13,DB M=20 X CHM AR S DY=13 ,DX=1 X XY  D DISP QC HK7  ;CPE0 05-004 ;Va ldation fo r "Origina l" PDI Num ber for CH AMPVA and  SB Re-open . I Y="" S  Y="XXXX"  S VALOPDI= $$CHKOPDI( $G(CHMFPDI ),Y,CHOSEN ,1) I VALO PDI S F1=1  I Y="XXXX " S Y="" Q :$G(F1)=1  S CHMOPDI= Y S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",2)=C HMOPDI Q ; CHK8  ;CPE 005-069 ;V aldation f or "Origin al" PDI Nu mber for M anual EDI  Re-open. S  VALOPDI=$ $CHKOPDI($ G(CHMFPDI) ,Y,CHOSEN, 1) I VALOP DI S F1=1  Q S CHMOPD I=Y S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) =CHMOPDI Q  ;CHK9  ;C PE005-069  ;Valadatio n for "Cur rent" PDI  Number for  Manual ED I Re-open.  I Y="" S  Y="XXXX" S  VALOPDI=$ $CHKOPDI(Y ,$G(CHMOPD I),CHOSEN, 1) I VALOP DI S F1=1  I Y="XXXX"  S Y="" Q: $G(F1)=1 S  CHMFPDI=Y  I CHMFPDI '="" D .S  $P(^CHMIMG (CHMFPDI,0 ),"^",17)= 4 S $P(^CH MIMAGE(CHM FPDI,0),"^ ",8)=4 .S  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",5)=CHMFP DI .S CHMF PP="SIP" D  ^CHMFWK01  Q ;DISP I  $P(CHOUT( "DILIST",0 ),"^",1)=1  D  Q .S C HMFIMTY=CH OUT("DILIS T",2,1),CH MFTYPE=CHO UT("DILIST ",1,1) S L 1=0,CT=0DI 1 S L1=$O( CHOUT("DIL IST",1,L1) ) I 'L1 D  SELE1 Q S  CT=CT+1 W  !,L1," ",C HOUT("DILI ST",1,L1)  S X="" I ' (CT#5) I $ O(CHOUT("D ILIST",1,L 1)) D SELE  G:X="" DI 1 S CHMFIM TY=CHOUT(" DILIST",2, X) S CHMFT YPE=CHOUT( "DILIST",1 ,X) QSELE  S X="" W ! !,"Select  a number o r <RETURN>  for more:  " R X Q:X =""  G:'$D (CHOUT("DI LIST",1,X) ) SELE QSE LE1 S X=""  W !!,"Sel ect a numb er: " R X  Q:X=""  G: '$D(CHOUT( "DILIST",1 ,X)) SELE1  S CHMFIMT Y=CHOUT("D ILIST",2,X ) S CHMFTY PE=CHOUT(" DILIST",1, X) QMANUAL  I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 0 Q K CHHA ND I $D(CH MFPDI) I C HMFPDI'=""  K ^CHMIMA GE("LOCK", CHMFPDI) D  .I $D(CHM NNUM) S ^C HMIMG("MAN UAL",CHMFP DI)="" Q S  CHMFPDI=Y  S PDI=0,P DI=$O(^CHM IMG("E",Y, PDI)) I 'P DI S CHHAN D=1 Q I '$ D(^CHMIMG( "MANUAL",P DI)) S CHH AND=1 Q S  CHMNNUM=Y, Y=PDI,CHMF PDI=PDI,$P (^CHMDIC(7 41002.21,D UZ,0),"^", 5)=CHMFPDI  S CHMFNMP G=$P(^CHMI MG(PDI,0), "^",2) K ^ CHMIMG("MA NUAL",PDI)  Q:$ZF(-1, "DISPLAY_D EVICE")'[" LAT"  ;D A 1^CHMFPDI  Q:$D(CHQUI T) S ZZPDI =CHMFPDI,C HMFPP="SIP " D ^CHMFW K01 QSCREE N I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 S DY=5,D X=27 X XY  W "Batch N umber: " W :$D(CHBTCH NO) CHBTCH NO ;BEGIN  CPE005-004  N CHOSEN, PDIFNL,NPD I,REVRESP, OPDI S CHO SEN=$P($G( ^CHMDIC(74 1002.21,DU Z,0)),"^", 10) I CHOS EN=6!(CHOS EN=7)!(CHO SEN=8) D   ;CPE005-06 9 add CHOS EN=8 check . .I $G(CH MOPDI)="", CHOSEN'=8  S QU=7 N Y  S Y="" D  CHECK .S D Y=5,DX=20  X XY W "Or iginal PDI  Number: "  W:$D(CHMO PDI) CHMOP DI .S DY=6 ,DX=21 X X Y W "Curre nt PDI Num ber: " W:$ D(CHMFPDI)  CHMFPDI I  CHOSEN'=6 ,CHOSEN'=7 ,CHOSEN'=8  S DY=6,DX =29 X XY W  "PDI Numb er: " W:$D (CHMFPDI)  CHMFPDI  ; CPE005-069  add CHOSE N'=8. ;END  CPE005-00 4 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 I $D(CHD OCID) W:CH DOCID'=""  "-",CHDOCI D ;S CHPDI PRL=$$PDIT YP^CHMFAUT 1(CHMFPDI)  ;D:CHPDIP RL TLPGCNT  S DY=7,DX =28 X XY W  "Total Pa ges: " W:$ D(CHMFNMPG ) CHMFNMPG  S DY=8,DX =28 X XY W  "Page Num ber: " W:$ D(CHMFPGNM ) CHMFPGNM  ;S DY=9,D X=27 X XY  W "Image N umber: " W :$D(CHMFIM AG) CHMFIM AG S DY=9, DX=26 X XY  W "Type o f Image: "  W:$D(CHMF TYPE) $E(C HMFTYPE,1, 21) S DY=1 0,DX=24 X  XY W "Imag e Availabl e: " D IMA GE S DY=11 ,DX=1 X XY  S LN="" S  $P(LN,"_" ,80)="" W  LN I CHOSE N=6!(CHOSE N=7) D  ;C PE005-007  . S DY=12, DX=21 X XY  W "Type o f Bill (TO B): " W $$ TOB(CHMFPD I,CHMFPGNM ,CHMFIMAG)  ; KML - 5 /4/17REV ;  I $G(CHMF PCNM)&($G( CHMFIMAG))  D .I $E(+ $$TOB(CHMF PDI,CHMFPG NM,CHMFIMA G),3)=8 D   ;HM 09/15 /2017 CPE0 05-034 ..  S DY=14,DX =21 X XY W  "Do you w ant to ini tiate a Re versal? Y/ N " ;HM 09 /15/2017 C PE005-034  .. R REVRE SP:$S($D(D TIME):DTIM E,1:60) ;H M 09/15/20 17 CPE005- 034 .. S:' $T DTOUT=" " S:REVRES P="^^" (DF OUT)="" S: REVRESP="^ " (DUOUT)= "" ;HM 09/ 15/2017 CP E005-034 . . I REVRES P="Y"!(REV RESP="N")  D  ;HM 09/ 15/2017 CP E005-034 . .. S NPDI= CHMFPDI .. . S OPDI=C HMOPDI ...  I REVRESP ="Y" D ... . S DIE=74 1000.2,DA= CHMOPDI,DR =".06///11 ;.22///"_D T D ^DIE K  DIE ;BDB  09/19/2017  .... S DI E=741000.2 ,DA=CHMFPD I,DR=".05/ //"_DT_";. 06///4" D  ^DIE K DIE  ;BDB 09/1 9/2017 ... . NEW CHMF PDI,ADDQ . ... S CHMF PDI=CHMOPD I .... D S ORT^CHFCDU TL .... D  QUE1^CHFCD UTL ;queue  the bene  check and  bene calc  .... S ADD Q=$$ADD2QU E^CH835TRG (OPDI) ;HM  09/20/201 7 CPE005-0 41 ... I R EVRESP="N"  S PDIFNL= $$PDIFINAL ^CHCSTAT(N PDI,"F0:35 "),DIE=741 000.2,DA=N PDI,DR=".0 6///4" D ^ DIE K DIE  ;HM 09/20/ 2017 CPE00 5-041 .. E   G REV Q  ; NOOHI S  DY=18,DX=1 0 X XY W " No Bill In voice has  been enter d to allow  entry of  OHI Paymen ts." Q ;ER R1 S DY=15 ,DX=5 X XY  W *7,*7,@ CHBON,"Thi s PDI has  already be en process ed!" W " C annot be m odified at  this poin t!",@CHBOF F Q ;ERR3  D CLEARB S  DY=15,DX= 8 X XY W " PDI: ",Y,"  - has not  been Scan ned or Man ually ente red!" W !, ?28,"Pleas e verify t his PDI nu mber and r e-enter."  Q INBAT D  CLEARB S D Y=15,DX=13  X XY W "T his PDI is  not a Man ual PDI. P lease Re-e nter." Q ; READY D CL EARB S DY= 15,DX=14 X  XY W "Thi s PDI is I mage proce ssing only . Please R e-enter."  Q ;PDI15 D  CLEARB S  DY=15,DX=2 0 X XY W * 7,@CHBON W  "PDI Numb er must be  15 digits .",@CHBOFF  Q ;JUL200 0 D CLEARB  S DY=15,D X=14 X XY  W *7,@CHBO N  ;Valida tion messa ge for Jul ian Year l ess than 2 000. W "Ju lian Year  must be ye ar 2000 or  later.",@ CHBOFF Q ; JULFUTR D  CLEARB S D Y=15,DX=14  X XY W *7 ,@CHBON  ; Validation  message f or Julian  Year great er than Cu rrent Year . W "Julia n Year can not be in  the future .",@CHBOFF  QJULDAY D  CLEARB S  DY=15,DX=1 4 X XY W * 7,@CHBON   ;Validatio n message  for Julian  Day. W "J ulian Day  must be 00 1 through  366.",@CHB OFF Q ;CHP IMSG D CLE ARB S DY=1 5,DX=14 X  XY W *7,@C HBON  ;Val idation me ssage for  CHAMPVA Pr ogram Indi cator. W " PDI Progra m Indicato r must be  91, 97(CHA MPVA EDI). ",@CHBOFF  QSBPIMSG D  CLEARB S  DY=15,DX=1 4 X XY W * 7,@CHBON   ;Validatio n message  for Spina  Bifida Pro gram Indic ator. W "P DI Program  Indicator  must be 9 2, 90(SB E DI).",@CHB OFF Q ;CHK OPDI(CHMFP DI,CHMOPDI ,CHOSEN,WR TMSG) ;CPE 005-004  ; Validation s for Orig inal and C urrent EDI  Re-open P DI Numbers . ;User St ories CPE0 05-073, 07 4, 075, 07 6, 077 and  080 added  to valida tions. ;CH MFPDI = Cu rrent PDI  Number ;CH MOPDI = Or iginal PDI  Number ;C HOSEN = Th e menu opt ion the us er chose f rom routin e driver C HMFADRV. ; WRTMSG = 0  or 1 - 0  does not d isplay mes sage to th e screen;  1 does. I  $G(CHOSEN) '=6,$G(CHO SEN)'=7,$G (CHOSEN)'= 8 Q 0 ;Val idations f or EDI Re- open only;  Menu opti ons "RC",  "RS" and " ER". N ALL COMP,BENE, CURDT,CURY R,DY,DX,ER R,IEN,JDAY ,STATUS S  CHMFPDI=$G (CHMFPDI), CHMOPDI=$G (CHMOPDI), CHOSEN=$G( CHOSEN),WR TMSG=$G(WR TMSG) S (B ENE,ERR)=0  I CHOSEN= 8,CHMOPDI= "" Q 0 ;Al low user t o advance  to bottom  menu at th e Original  PDI numbe r prompt.  I CHOSEN'= 8,CHMOPDI' ?15N D  Q  ERR ;CPE00 5-004 and  080 .I WRT MSG D PDI1 5 .S ERR=1  I CHOSEN= 8,CHMOPDI' ="",CHMOPD I'?15N D   Q ERR  ;CP E005-080 . I WRTMSG D  PDI15 .S  ERR=1 I CH OSEN=8,CHM FPDI'="",C HMFPDI'?15 N D  Q ERR   ;CPE005- 080 .I WRT MSG D PDI1 5 .S ERR=1  I $E(CHMO PDI,1,4)<2 000 D  Q E RR  ;CPE00 5-004 and  078 .I WRT MSG D JUL2 000 .S ERR =1 I CHOSE N=8,CHMFPD I'="",$E(C HMFPDI,1,4 )<2000 D   Q ERR  ;CP E005-080 . I WRTMSG D  JUL2000 . S ERR=1 S  CURDT=$$HT E^XLFDT($H ,7),CURYR= $E(CURDT,1 ,4) I $E(C HMOPDI,1,4 )>CURYR D   Q ERR  ;C PE005-004  and 073 .I  WRTMSG D  JULFUTR .S  ERR=1 I C HOSEN=8,CH MFPDI'="", $E(CHMFPDI ,1,4)>CURY R D  Q ERR   ;CPE005- 073 .I WRT MSG D JULF UTR .S ERR =1 N X,CHJ UL D NOW^% DTC S:'$D( X) X=DT S  X=$E(DT,1, 3)_"0000"  D H^%DTC S  CHJUL=($P ($H,",",1) -%H)+1 ;S  JDAY=$E(CH MOPDI,5,7)  I $E(CHMO PDI,5,7)<" 001"!($E(C HMOPDI,5,7 )>"366") D   Q ERR  ; CPE005-004  and 074 . I WRTMSG D  JULDAY .S  ERR=1 I C HOSEN=8,CH MFPDI'=""  D  I ERR Q  1 ;CPE005 -074 .I $E (CHMFPDI,5 ,7)<"001"! ($E(CHMFPD I,5,7)>"36 6") D  ..I  WRTMSG D  JULDAY ..S  ERR=1 I C HOSEN=8,CH MOPDI'="", CHMFPDI'=" ",$E(CHMOP DI,8,9)=91 ,$E(CHMFPD I,8,9)'=97  D  Q ERR   ;CPE005-0 75 .I WRTM SG D CHPIM SG .S ERR= 1 I CHOSEN =8,CHMOPDI '="",CHMFP DI'="",$E( CHMOPDI,8, 9)=92,$E(C HMFPDI,8,9 )'=90 D  Q  ERR  ;CPE 005-075 .I  WRTMSG D  SBPIMSG .S  ERR=1 I C HOSEN=6,CH MOPDI'="", $E(CHMOPDI ,8,9)'=91  D  Q ERR   ;CPE005-00 4 .I WRTMS G D CHPIMS G .S ERR=1  I CHOSEN= 7,CHMOPDI' ="",$E(CHM OPDI,8,9)' =92 D  Q E RR  ;CPE00 5-004 .I W RTMSG D SB PIMSG .S E RR=1 I CHO SEN=8,CHMO PDI'="",$E (CHMOPDI,8 ,9)'=91,$E (CHMOPDI,8 ,9)'=92 D   Q ERR .I  WRTMSG D . .D CLEARB  ..S DY=15, DX=1 X XY  W *7,@CHBO N,"Origina l PDI Prog ram Indica tor must b e a 91 for  CHAMPVA o r 92 for S pina Bifid a.",@CHBOF F .S ERR=1  I CHMOPDI '="",$P($G (^CHMIMG(C HMOPDI,"E- REOPEN")), "^",3)=1 D   Q ERR  ; CPE005-004  and 077 . I WRTMSG D   ..D CLEA RB ..S DY= 15,DX=14 X  XY W *7,@ CHBON,"PDI  Number ha s already  been reope ned.",@CHB OFF .S ERR =1 I CHMOP DI'="" D   I ERR Q 1  ;CPE005-07 9 .S ALLCO MP=$$CMPCL AIM(CHMOPD I) .I 'ALL COMP D  ;A ll claims  have been  completed.  Do not al low furthu r processi ng on Orig inal PDI.  ..I WRTMSG  D  ...D C LEARB ...S  DY=15,DX= 30 X XY W  *7,@CHBON, "Cannot Re Open PDI." ,@CHBOFF . .S ERR=1 I  CHOSEN=8  Q 0 S BENE =$$CHKBENE (CHMOPDI,C HMFPDI) I  'BENE D  Q  ERR . I W RTMSG D ..  D CLEARB  .. S DY=15 ,DX=14 X X Y W *7,@CH BON,"Benef iciary doe s not matc h - enter  the Origin al PDI Num ber.",@CHB OFF . S ER R=1 Q ERR  ;CMPCLAIM( PDI) ;Chec k to see i f all asso ciated cla ims for PD I have bee n complete d.               ;If  any of the  claims ha ve not bee n complete d, then a  false valu e is retur ned. ;PDI  = PDI Numb er S PDI=$ G(PDI) S C OMPLETE=1  ; I '$D(^C HMPAY("C", PDI)) Q 0  ;No claims  to check  so nothing  has been  completed.  S IEN=0 F   S IEN=$O (^CHMPAY(" C",PDI,IEN )) Q:'IEN! ('COMPLETE ) D .S STA TUS=$P(^CH MPAY(IEN,0 ),"^",2) . I STATUS=1 !(STATUS=3 )!(STATUS= 6)!(STATUS =7)!(STATU S=8)!(STAT US=9) S CO MPLETE=0 Q  COMPLETE  ;CHKBENE(C HMOPDI,CHM FPDI) ;Che ck benefic iary for v alidation  purposes ; CHMOPDI =  Original P DI Number  ;CHMFPDI =  Current P DI Number  N BFN,CURR BEN,D1,D2, DATA0,DATA 10,IEN,ORI GBEN,SPONN UM S CHMOP DI=$G(CHMO PDI),CHMFP DI=$G(CHMF PDI) S (OR IGBEN,CURR BEN,IEN)=" " I $D(^CH MPAY("C",C HMOPDI)) D  .S IEN=$O (^CHMPAY(" C",CHMOPDI ,"")) .S D ATA0=^CHMP AY(IEN,0)  .S SPONNUM =$P(DATA0, "^",21) .S  BFN=$P(DA TA0,"^",22 ) .S ORIGB EN=SPONNUM _"/"_BFN I  ORIGBEN=" " D .S D1= "" F  S D1 =$O(^CHMIM AGE(CHMOPD I,1,D1)) Q :D1=""  D  ..S D2=""  F  S D2=$O (^CHMIMAGE (CHMOPDI,1 ,D1,2,D2))  Q:D2=""   D ...I $D( ^CHMIMAGE( CHMOPDI,1, D1,2,D2,10 )) D ....S  DATA10=^C HMIMAGE(CH MOPDI,1,D1 ,2,D2,10)  ....S SPON NUM=$P(DAT A10,"^"),B FN=$P(DATA 10,"^",2)  ....S ORIG BEN=SPONNU M_"/"_BFN  S D1="" F   S D1=$O(^ CHMIMAGE(C HMFPDI,1,D 1)) Q:D1=" "  D .S D2 ="" F  S D 2=$O(^CHMI MAGE(CHMFP DI,1,D1,2, D2)) Q:D2= ""  D ..I  $D(^CHMIMA GE(CHMFPDI ,1,D1,2,D2 ,10)) D .. .S DATA10= ^CHMIMAGE( CHMFPDI,1, D1,2,D2,10 ) ...S SPO NNUM=$P(DA TA10,"^"), BFN=$P(DAT A10,"^",2)  ...S CURR BEN=SPONNU M_"/"_BFN  I ORIGBEN= CURRBEN Q  1 Q 0LOCK  S DY=15,DX =1 X XY W  !," PDI: " ,CHMFPDI,"  is Curren tly Being  Processed"  W !," By  Another Us er, Please  Enter a D ifferent P DI." S CHM FPDI="",CH MFNMPG=""  QIMAGE S V AL="No" S: '$D(CHMFPD I) CHMFPDI ="" I CHMF PDI I $D(^ CHMIMG(CHM FPDI,"DOC" )) D .S:$P (^CHMIMG(C HMFPDI,"DO C"),"^",3) '="" VAL=" Yes" S DY= 10,DX=41 X  XY W VAL  Q ;TOB(CHM FPDI,CHMFP GNM,CHMFIM AG) ;CPE00 5-004 ; re trieve Typ e of Bill  and Freque ncy Code ;  input -   ; CHMFPDI  - PDI ien  ; CHMFPGNM  - page nu mber ien ;  CHMFIMAG  - IMAGE ie n ; output  - ; retur ns the Typ e of Bill  and Freque ncy code   N CHMFTOB  I '$D(CHMF PDI)!('$D( CHMFPGNM)) !('$D(CHMF IMAG)) Q " Frequency  Code not d efined" I  '$D(^CHMIM AGE(+CHMFP DI,1,+CHMF PGNM,2,+CH MFIMAG,"VE N")) Q "Fr equency Co de not def ined" S CH MFTOB=$P($ G(^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G,"VEN")), "^",7) I $ E(CHMFTOB, 3)=5 Q CHM FTOB_" Lat e Charge O nly" I $E( CHMFTOB,3) =6 Q CHMFT OB_" Adjus tment of P rior Claim " I $E(CHM FTOB,3)=7  Q CHMFTOB_ " Replacem ent of Pri or Claim"  I $E(CHMFT OB,3)=8 Q  CHMFTOB_"  Void / Can cel of Pri or Claim"  Q $S(CHMFT OB="":"Fre quency Cod e not defi ned",1:CHM FTOB_" Fre quency Cod e not defi ned") ; PG CNT Q:'$D( ^CHMIMAGE( CHMFPDI,0) ) S CHMFNM PG=$P(^CHM IMAGE(CHMF PDI,0),"^" ,2) Q ; TL PGCNT Q:'$ D(^CHMIMAG E(CHMFPDI, 1)) S TLPG CT=9999999 ,TLPGCT=$O (^CHMIMAGE (CHMFPDI,1 ,TLPGCT),- 1) S:TLPGC T="" TLPGC T=1 S CHMF NMPG=TLPGC T K TLPGCT  Q ;
  6  
  7  
  8  
  9   Passed XIN DEX?  (Y /  N):  N/A