Produced by Araxis Merge on 12/7/2017 6:28:21 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\CPE005-072 Manual EDI PDI Business Rule 15 Digits | CHMFADR2 Developer Form.docx | Thu Dec 7 15:13:26 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\CPE005-072 Manual EDI PDI Business Rule 15 Digits | CHMFADR2 Developer Form.docx | Thu Dec 7 23:00:01 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 34 |
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 | Routine Na me: _____ ___CHMFADR 2__ | |
2 | Developer Name(s): _________C indy Stile s_ | |
3 | Associated User Stor y/Stories: _____C PE005-072_ __ | |
4 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
5 | ||
6 | 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." QCHKOPDI(C HMFPDI,CHM OPDI,CHOSE N,WRTMSG) ;CPE005-00 4 validati ons for Or iginal PDI Number. ; CHMFPDI = Current PD I Number ; CHMOPDI = Original P DI Number (Required) ;CHOSEN = The menu option the user chos e from rou tine drive r CHMFADRV . ;WRTMSG = 0 or 1 - 0 does no t display message, 1 does. N B ENE,CURDT, CURYR,DY,D X,ERR,JDAY ,OPDIYR,PD IPI,REOP S CHMFPDI=$ G(CHMFPDI) ,CHMOPDI=$ G(CHMOPDI) ,CHOSEN=$G (CHOSEN),W RTMSG=$G(W RTMSG) S ( BENE,ERR)= 0 I CHMOPD I'?15N D Q ERR . I WRTMSG D . . D CLEARB .. S DY=1 5,DX=14 X XY W "PDI Number mus t be 15 di gits." . S ERR=1 I $ E(CHMOPDI, 1,4)<2000 D Q ERR . I WRTMSG D .. D CLE ARB .. S D Y=15,DX=14 X XY W "J ulian Year must be y ear 2000 o r later." . S ERR=1 | |
7 | ||
8 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted - Striket hru, Chang ed - Itali cs) | |
9 | ||
10 | 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 $E (CHMOPDI,1 ,4)<2000 D Q ERR ; CPE005-004 and 078 . I WRTMSG D JUL2000 . S ERR=1 | |
11 | ||
12 | Difference s | |
13 | ||
14 | See highli ghted info above. | |
15 | ||
16 | ||
17 | Passed XIN DEX? (Y / N): Y |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.