28. EPMO Open Source Coordination Office Redaction File Detail Report

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.

28.1 Files compared

# 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

28.2 Comparison summary

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

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

28.4 Active regular expressions

No regular expressions were active.

28.5 Comparison detail

  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