Produced by Araxis Merge on 12/7/2017 6:27:38 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.
# | 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 | User Story CPE005-066 Unit Test Results.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 | User Story CPE005-066 Unit Test Results.docx | Thu Dec 7 22:04:04 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 132 |
Changed | 0 | 0 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
1 | User Story CPE005-06 6 | |
2 | Verify A ssociated Claims Com plete for EDI | |
3 | Unit Test Results | |
4 | Acceptance Criteria / Complian ce: | |
5 | The system will sear ch for and verify al l associat ed claims are comple te for an Original P DI number entered fo r validati on on the Document I D screen. | |
6 | ||
7 | Check clai m status ‘ in process ’ | |
8 | CHAMPVA CL AIMS List OCT 16, 2017@07:4 2 PAGE 1 | |
9 | CLAIM NUMB ER CLAIM ST ATUS PDI NUMBER | |
10 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
11 | ||
12 | KMU5986 IN PROCE SS 20150309 1039464 | |
13 | ||
14 | ||
15 | ||
16 | ||
17 | Are you en tering <S> canned, <M >anual, CH AMPVA <E>D I, S<B>/CW VV EDI, | |
18 | CHAMPVA < O>CR, SB/C <W>VV OCR, <RC>REOPE N CHAMPVA EDI,<RS>RE OPEN SB ED I, | |
19 | or <ER > REOPEN M anual EDI submission s? RC | |
20 | ||
21 | ||
22 | ||
23 | ||
24 | Document I dentificat ion Screen | |
25 | ||
26 | HAC Payme nt Process ing - Docu ment Ident ification Screen | |
27 | ||
28 | [DOCUME NT IDENTIF ICATION SC REEN] | |
29 | ||
30 | O riginal PD I Number: 2015030910 39464 | |
31 | Current PD I Number: 2017231970 33726 | |
32 | Tot al Pages: UNK | |
33 | Pag e Number: 1 | |
34 | Type of Image: BILL/INVOI CE | |
35 | Image A vailable: No | |
36 | __________ __________ __________ __________ __________ __________ __________ _________ | |
37 | Type of Bi ll (TOB): 137 Replac ement of P rior Claim | |
38 | ||
39 | ||
40 | C annot ReOp en PDI. | |
41 | ||
42 | ||
43 | ||
44 | 1) Cont Ed t 2) Next Scr 3) S ort PDI 4 ) Kill PDI 5) Not A val 6) Un rd Img | |
45 | 7) PDI Rev w 8) Paus e 9) C omments 10 ) Btch Cmp 11) PPR 12) PP Rs-PDI | |
46 | ||
47 | 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 ; | |
48 | ||
49 | ||
50 | ||
51 | ||
52 | ||
53 | ||
54 | ||
55 | ||
56 | ||
57 | ||
58 | ||
59 | ||
60 | ||
61 | ||
62 | ||
63 | ||
64 | ||
65 | ||
66 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.