4. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/15/2018 2:12:08 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.

4.1 Files compared

# Location File Last Modified
1 CPEE_Build_6_Sprint_9 and 11.zip\CPE001-014-015-016 Validate TAX ID against 837 CPE001-0014-015-016 Dev Form.docx Tue Feb 6 17:50:58 2018 UTC
2 CPEE_Build_6_Sprint_9 and 11.zip\CPE001-014-015-016 Validate TAX ID against 837 CPE001-0014-015-016 Dev Form.docx Wed Feb 14 22:04:19 2018 UTC

4.2 Comparison summary

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

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   Routine Na me:  CHMFA 01E_______ __________ ___
  2   Developer  Name(s):   Tom Hatche r, Oliver  Wilms, Yeo u Dong___
  3   Associated  User Stor y/Stories:     CPE001 -014, CPE0 01-015, CP E001-016__ ______
  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   CHMFA01E ; JLR/DEN;VE NDOR PROMP T E/E SCRE EN;08/20/9 8 8:16 AM  ;;1.0;CHAM PAVA SYSTE M;;Decembe r 20, 2010 ; ;;V2.0 ; DEV007991  10/08/2010  JAK -VEND OR LOOKUP  utilizing  NPI ;DEV00 7991 10/08 /2010 JAK  -VENDOR LO OKUP utili zing NPI;  restructur e and rela beled as w ell as log ic changes  ;BUG00799 1-07-03 DR W - K DIC  in NPI lin e tag befo re using N PI search  12/20/10 ; BUG007991- 07-06 DRW  - Cursor p lacement i s shifting  to next f ield at th e end of ; NPI field.  Change FL  for NPI f rom 10 to  11 to stop  cursor at  the end o f NPI 01/0 6/11 ;HM 0 6/30/17 CP E001-001-T 3-522242 M odify code  to use sk ip pzip an d pstate f ields. S B LNK1="" S  $P(BLNK1,"  ",30)=""  K CHXTID,C HTIN,CHXIM ,CHXNPI,CH XPRN,CHSTA TE,CHTMPST ,CHXZIP,CH XRZIP      ;DEV007991  10/08/201 0 JAK - S: '$D(CHXTID ) CHXTID=" " S:'$D(CH XNPI) CHXN PI=""    ; DEV007991  10/08/2010  JAK - S:' $D(CHXPRN)  CHXPRN=""  S:'$D(CHS TATE) CHST ATE="" S:' $D(CHTMPST ) CHTMPST= "" S:'$D(C HXZIP) CHX ZIP="" S:' $D(CHXRZIP ) CHXRZIP= ""  ;DEV00 7991 10/08 /2010 JAK  - S:'$D(CH BDFLG) CHB DFLG=1 ;TL H 7/6/07 D EV00374 ;T LH 9/20/07  BUG000374 TID ;; TID  DATA ENTR Y K F1,DD1 OUT S QU=9 0,DY=5,DX= 10,FL=15,$ Y=DY,$X=DX  X XY W BL NK1 X XY W  CHXTID    ;DEV007991  10/08/201 0 JAK S DX =10,$X=DX  X XY D CSB RS^CHSC2 G :$D(DUOUT)  TID I $D( DQOUT) D Q UES X XY W  BLNK1 W C HXTID G TI D Q:$D(DDO UT)!$D(DFO UT) G:$D(D 1OUT) TID  I Y="" D:$ D(CHCLRFG)  REPNT G N PI ;I Y="  ",$D(^DISV (DUZ,"CHVE N")) S VFN =^("CHVEN" ) D GET S  VFN="" G E ND I Y="@"  S CHXTID= "",VFN=""  K CHMVEN D  CLEAR,DIS P^CHMFA013  G TID I $ L(Y)<3 S D Y=5,DX=15, $Y=DY,$X=D X X XY W B LNK1 X XY  W *7," ??"  R X:2 X X Y W BLNK1  X XY W:CHX TID'="" CH XTID D:$D( CHCLRFG) C LEAR,REPNT  G TID I $ L(Y)<=9 S  CHTIN=Y I  $L(Y)>9 S  CHTIN=$E(Y ,1,9)_"*"_ $E(Y,10,11 ) S CHXIM= $E(Y,12,13 )  K CHFIO UT  D FIND ^DIC(74100 1,,,"M",CH TIN,1,"H", ,,"^TMP($J ,""DILIST" ")") ;HM 0 7/24/2017  modified g lobal to r etrieve ve ndor data  I $P($D(^T MP($J,"DIL IST","DILI ST",0)),U, 1)<1 D  G  TID  ; Und efined err or 08/19 a nd 9/19/05  mlr .D CL EAR S DY=1 4,DX=32,$Y =DY,$X=DX  X XY W *7, " NO VENDO R FOUND" S  CHCLRFG=1  S CHXTID= CHTIN S DX =10,DY=5,$ Y=DY,$X=DX  X XY I $L (Y)<12 W C HXTID E  W  CHXTID_"* "_CHXIM D: $D(CHCLRFG ) REPNTNPI  ;; NPI DA TA ENTRY ; DEV007991  10/08/2010  JAK chang e ^utility  to ^tmp K  F1,DD1OUT  S QU=91,D Y=6,DX=10, FL=11,$Y=D Y,$X=DX X  XY W BLNK1  X XY W CH XNPI          ;;BUG00 7991-07-06  DRW - cha nge FL fro m 10 to 11  01/06/11.  S DX=10,$ X=DX X XY  D CSBRS^CH SC2 I $D(D QOUT) D QU ES X XY W  BLNK1 W CH XNPI G NPI  I $D(DUOU T) S DY=6, DX=10,$Y=D Y,$X=DX X  XY W BLNK1  S DX=10,$ X=DX X XY  W:CHXNPI'= "" CHXNPI  D:$D(CHCLR FG) CLEAR, REPNT G TI D Q:$D(DDO UT)!$D(DFO UT) I $D(D 1OUT) D:$D (CHCLRFG)  REPNT G TI D I Y="" D :$D(CHCLRF G) REPNT G  RTNAME I  Y=" ",$D(^ DISV(DUZ," CHVEN")) S  VFN=^("CH VEN") D GE T S VFN=""  G END I Y ="@" S CHX NPI="" G N PI I $L(Y) <3 S DY=6, DX=15,$Y=D Y,$X=DX X  XY W BLNK1  X XY W *7 ," ??" R X :2 X XY W  BLNK1 X XY  W:CHXNPI' ="" CHXNPI  D:$D(CHCL RFG) CLEAR ,REPNT G N PI K ^TMP( $J,"DILIST "),DIC                                   ;D EV007991 1 0/08/2010  JAK change  ^utility  to ^tmp ;B UG007991-0 7-02 DRW -  changed t he find di c funtion  to use a Q  (quick) l ookup inst ead of M ( multi) - 1 2/16/10. ; D FIND^DIC (741001,"" ,"","Q",Y, 1,"M",""," ","") ;DEV 007991 10/ 08/2010 JA K find at  least one  NPI value  in the M c ross refer ence (NPI)  VALUE IN  M CROSS RE FERENCE ;A JF - story  001-009 D  FIND^DIC( 741001,,," Q",Y,,"M", ,,"^TMP($J ,""DILIST" ")") ;HM 0 7/24/2017  modified g lobal to r etrieve ve ndor data  I $P($D(^T MP($J,"DIL IST","DILI ST",0)),U, 1)<1 D  G  NPI .D CLE AR S DY=13 ,DX=32,$Y= DY,$X=DX X  XY W *7,"  NO VENDOR S FOUND" S  CHCLRFG=1  S CHXNPI= Y S DX=10, DY=6,$Y=DY ,$X=DX X X Y W CHXNPI  D:$D(CHCL RFG) REPNT RTNAME  ;R EMIT-TO NA ME DATA EN TRY ;DEV00 7991 10/08 /2010 JAK  K F1,DD1OU T S QU=92, DY=7,DX=10 ,FL=30,$Y= DY,$X=DX X  XY W BLNK 1 X XY W C HXPRN W CH XPRN S DX= 10,$X=DX X  XY D CSBR S^CHSC2 I  $D(DQOUT)  D QUES X X Y W BLNK1  W CHXPRN G  RTNAME I  $D(DUOUT)  S DY=7,DX= 10,$Y=DY,$ X=DX X XY  W BLNK1 S  DX=10,$X=D X X XY W:C HXPRN'=""  CHXPRN D:$ D(CHCLRFG)  CLEAR,REP NT G NPI Q :$D(DDOUT) !$D(DFOUT)  I $D(D1OU T) D:$D(CH CLRFG) REP NT G NPI I  Y="" D:$D (CHCLRFG)  REPNT G RZ IP I Y=" " ,$D(^DISV( DUZ,"CHVEN ")) S VFN= ^("CHVEN")  D GET S V FN="" G EN D I Y="@"  S CHXPRN=" " G RTNAME  K ^TMP("D ILIST",$J)  ;DEV00799 1 10/08/20 10 JAK cha nge ^utili ty to ^tmp  D FIND^DI C(741001,, ,"M",Y,1," B",,,"^TMP ($J,""DILI ST"")") ;H M 07/24/20 17 modifie d global t o retrieve  vendor da ta I $P($D (^TMP($J," DILIST","D ILIST",0)) ,U,1)<1 D   G RTNAME  .D CLEAR S  DY=13,DX= 32,$Y=DY,$ X=DX X XY  W *7," NO  VENDOR FOU ND" S CHCL RFG=1 S CH XPRN=Y S D X=10,DY=7, $Y=DY,$X=D X X XY W C HXPRN D:$D (CHCLRFG)  REPNTRZIP   ; REMIT-T O ZIP DATA  ENTRY ;DE V007991 10 /08/2010 J AK K F1,DD 1OUT S QU= 93,DY=8,DX =10,FL=9,$ Y=DY,$X=DX  X XY W BL NK1 W CHXR ZIP S DX=1 0,$X=DX X  XY D CSBRS ^CHSC2 I $ D(DQOUT) D  QUES X XY  W BLNK1 X  XY W CHXR ZIP G RZIP  I $D(DUOU T) S DY=8, DX=10,$Y=D Y,$X=DX X  XY W BLNK1  S DX=10,$ X=DX X XY  W CHXRZIP  D:$D(CHCLR FG) CLEAR, REPNT G RT NAME I $D( D1OUT) D:$ D(CHCLRFG)  REPNT G R TNAME Q:$D (DDOUT)!$D (DFOUT) I  Y="@" S CH XRZIP="" G  RZIP S CH XRZIP=Y S  DX=10,DY=8 ,$Y=DY,$X= DX X XY W  CHXRZIP D: $D(CHCLRFG ) REPNT ;H M 7/12/201 7 COMMENTE D OUT CODE  BELOW BEC AUSE SCREE N WAS TABB ING TO PZI P AND PSTA TE FIELDS  WHEN LABEL S WERE REM OVED ;PZIP  ; PHYSICA L LOCATION  ZIP DATA  ENTRY ;DEV 007991 10/ 08/2010 JA K ;S BLNK1 ="" S $P(B LNK1," ",1 0)="" ;K F 1,DD1OUT S  QU=94,DY= 9,DX=10,FL =9,$Y=DY,$ X=DX X XY  W BLNK1 W  CHXZIP ;S  DX=10,$X=D X X XY D C SBRS^CHSC2  ;I $D(DQO UT) D QUES  X XY W BL NK1 X XY W  CHXZIP G  PZIP ;I $D (DUOUT) S  DY=9,DX=10 ,$Y=DY,$X= DX X XY W  BLNK1 S DX =10,$X=DX  X XY W CHX ZIP D:$D(C HCLRFG) CL EAR,REPNT  G RZIP ;I  $D(D1OUT)  D:$D(CHCLR FG) REPNT  G RZIP ;Q: $D(DDOUT)! $D(DFOUT)  ;I Y="@" S  CHXZIP=""  G PZIP ;S  CHXZIP=Y  ;S DX=10,D Y=9,$Y=DY, $X=DX X XY  W CHXZIP  ;D:$D(CHCL RFG) REPNT  ;PSTATE ;  PHYSICAL  LOCATION S TATE DATA  ENTRY (LOC . DY=9 ROL LS, DX=26  COLUMNS).  ;S BLNK1=" " S $P(BLN K1," ",15) ="" ;;DEV  7991a DRW  10/06/10 B LNK1 BLANK S OUT A 15  CHAR. FIE LD  ;K F1, DD1OUT S Q U=95,DY=9, DX=26,FL=2 ,$Y=DY,$X= DX X XY W  BLNK1 X XY  W CHTMPST  ;S DX=26, $X=DX X XY  D CSBRS^C HSC2 ;I $D (DQOUT) D  QUES X XY  W BLNK1 X  XY W CHTMP ST G PSTAT E ;I $D(DU OUT) S DY= 9,DX=26,$Y =DY,$X=DX  X XY W BLN K1 S DX=26 ,$X=DX X X Y W CHTMPS T D:$D(CHC LRFG) CLEA R,REPNT G  PZIP ;I $D (D1OUT) D: $D(CHCLRFG ) REPNT G  PZIP ;Q:$D (DDOUT)!$D (DFOUT) ;I  Y'="" S C HTMPST="", CHSTATE=""  S DY=9,DX =26,$Y=DY, $X=DX X XY  W BLNK1 ; ;DEV 7991a  DRW - FIL LS 15 SPAC ES IN THE  STATE FIEL D ;I Y="@"  S CHTMPST ="",CHSTAT E="" G PST ATE ;;I Y= "" D:$D(CH CLRFG) REP NT G A5 ;D  ^CHGVQ034  D ^CHMFSE T,REPNT ;I  CHBDFLG=0  K CHBDFLG  G PSTATE  ;TLH 7/6/0 7 DEV00037 4  ;S CHTM PST=$P(Y," ^",2) ;DEV  7991a DRW  - CHTMPST  contains  the state  name ;S CH STATE=$P(Y ,"^",1) ;D EV 7991a D RW - CHSTA TE contain s the nume ric countr y code  ;S  DX=26,DY= 9,$Y=DY,$X =DX X XY W  CHTMPST ; D:$D(CHCLR FG) REPNT  G TIDEND ; END QREPNT   ;REPNT D  CLEAR,DIS P^CHMFA013 ,DATA^CHMF A013 K CHC LRFG QGET     ;GET S  ZPSN="" Q: '$D(^CHMVE N(VFN,0))  S X=^CHMVE N(VFN,0) S  X2="" S:$ D(^CHMVEN( VFN,1)) X1 =^(1) S:$D (^CHMVEN(V FN,2)) X2= ^(2) S ZPS N=$P(X2,"^ ",8)_"^"_$ P(X,"^",3) _"^"_$P(X1 ,"^",1)_"^ "_$P(X1,"^ ",2)_"^"_$ P(X1,"^",3 )_"^"_$P(X 1,"^",4)_" ^"_$P(X1," ^",5)_"^"_ VFN_"^"_"B " QQUES    ;DISPLAYED  WHEN ? S  HY=DY,HX=D X D CLEAR  S DY=12,DX =1,$Y=DY,$ X=DX X XY  G @QU90 W  !!,?21," E nter Tax I D and Vend or Address  code. " G  EXIT91 W  !!,?21,"En ter the NP I-National  Provider  Identifier " G EXIT      ;DEV007 991 10/08/ 2010 JAK92  W !!,?21, " Enter pr ovider rem it-to name . " G EXIT 93 W !!,?2 1," Enter  provider r emit-to zi p code. "  G EXIT      ;DEV00799 1 10/08/20 10 JAK94 W  !!,?21,"E nter provi der physic al locatio n zip code ." G EXIT9 5 W !!,?21 ," Enter p rovider ph ysical loc ation stat e. " G EXI T     ;DEV 007991 10/ 08/2010 JA KEXIT   ;E XIT S DY=H Y,DX=HX,$Y =DY,$X=DX  QCLEAR  ;C LEAR S ZY= DY,ZX=DX F  DY=12:1:2 0 S DX=1,$ X=DX X XY  W @CHEOL S  DY=ZY,DX= ZX,$Y=DY,$ X=DX X XY  S CHCLRFG= 1 QCSBRS   ;CSBRS S Y ="" S:'$D( FLD) FLD=3 0 S:FLD=""  FLD=30 U  $I X ^%ZOS F("EOFF")  K TL F I=1 :1:FLD S:I =31 TL=1 R  *X:$S($D( DTIME):DTI ME,1:60) Q :(X=13)!(X =9)!(X=27)  S:X'=127  Y=Y_$C(X)  D:X=127 S: I=0 Y="" W  $C(X) .S: I=1 I=0 Q: I=0 S:I'=1  I=I-2,Y=$ E(Y,1,I) W  *8,*27,"[ 1X" QCSBRS 1 ;CSBRS1  K DFOUT,DU OUT,DQOUT, DDOUT,D1OU T,D2OUT,D3 OUT,D4OUT, DTOUT,DPOU T,DNOUT I  X=27 F I=1 :1:2 R *X  D:I=2 .S:X =65 D1OUT= "" S:X=66  D2OUT="" S :X=67 D3OU T="" S:X=6 8 D4OUT=""  .I (X=54)  R *X S:X= 126 DNOUT= "" .I (X=5 3) R *X S: X=126 DPOU T="" S:X=9  DDOUT=""  S:X=9 DTOU T="" I Y=" ^^" S (DFO UT,Y)="" S :Y="^" (DU OUT,Y)=""  S:Y?1"?".E !(Y["^") ( DQOUT,Y)=" " U $I X ^ %ZOSF("EON ") Q
  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   CHMFA01E ; JLR/DEN;VE NDOR PROMP T E/E SCRE EN;08/20/9 8 8:16 AM  ;;1.0;CHAM PAVA SYSTE M;;Decembe r 20, 2010 ; ;;V2.0 ; DEV007991  10/08/2010  JAK -VEND OR LOOKUP  utilizing  NPI ;DEV00 7991 10/08 /2010 JAK  -VENDOR LO OKUP utili zing NPI;  restructur e and rela beled as w ell as log ic changes  ;BUG00799 1-07-03 DR W - K DIC  in NPI lin e tag befo re using N PI search  12/20/10 ; BUG007991- 07-06 DRW  - Cursor p lacement i s shifting  to next f ield at th e end of ; NPI field.  Change FL  for NPI f rom 10 to  11 to stop  cursor at  the end o f NPI 01/0 6/11 ;HM 0 6/30/17 CP E001-001-T 3-522242 M odify code  to use sk ip pzip an d pstate f ields. ;TG H 01/23/18  CPE001-01 4,CPE001-0 15,CPE001- 016 Create  Popup for  Tax ID an d delete e ntry if No  or Time O ut S BLNK1 ="" S $P(B LNK1," ",3 0)="" K CH XTID,CHTIN ,CHXIM,CHX NPI,CHXPRN ,CHSTATE,C HTMPST,CHX ZIP,CHXRZI P     ;DEV 007991 10/ 08/2010 JA K - S:'$D( CHXTID) CH XTID="" S: '$D(CHXNPI ) CHXNPI=" "    ;DEV0 07991 10/0 8/2010 JAK  - S:'$D(C HXPRN) CHX PRN="" S:' $D(CHSTATE ) CHSTATE= "" S:'$D(C HTMPST) CH TMPST="" S :'$D(CHXZI P) CHXZIP= "" S:'$D(C HXRZIP) CH XRZIP=""   ;DEV007991  10/08/201 0 JAK - S: '$D(CHBDFL G) CHBDFLG =1 ;TLH 7/ 6/07 DEV00 374 ;TLH 9 /20/07 BUG 000374TID  ;; TID DAT A ENTRY K  F1,DD1OUT  S QU=90,DY =5,DX=10,F L=15,$Y=DY ,$X=DX X X Y W BLNK1  X XY W CHX TID   ;DEV 007991 10/ 08/2010 JA K S DX=10, $X=DX X XY  D CSBRS^C HSC2 G:$D( DUOUT) TID  I $D(DQOU T) D QUES  X XY W BLN K1 W CHXTI D G TID Q: $D(DDOUT)! $D(DFOUT)  G:$D(D1OUT ) TID I Y= "" D:$D(CH CLRFG) REP NT G NPI ; I Y=" ",$D (^DISV(DUZ ,"CHVEN"))  S VFN=^(" CHVEN") D  GET S VFN= "" G END I  Y="@" S C HXTID="",V FN="" K CH MVEN D CLE AR,DISP^CH MFA013 G T ID I $L(Y) <3 S DY=5, DX=15,$Y=D Y,$X=DX X  XY W BLNK1  X XY W *7 ," ??" R X :2 X XY W  BLNK1 X XY  W:CHXTID' ="" CHXTID  D:$D(CHCL RFG) CLEAR ,REPNT G T ID I $L(Y) <=9 S CHTI N=Y I $L(Y )>9 S CHTI N=$E(Y,1,9 )_"*"_$E(Y ,10,11) S  CHXIM=$E(Y ,12,13)  K  CHFIOUT   D FIND^DIC (741001,,, "M",CHTIN, 1,"H",,,"^ TMP($J,""D ILIST"")")  ;HM 07/24 /2017 modi fied globa l to retri eve vendor  data I $P ($D(^TMP($ J,"DILIST" ,"DILIST", 0)),U,1)<1  D  G TID   ; Undefin ed error 0 8/19 and 9 /19/05 mlr  .D CLEAR  S DY=14,DX =32,$Y=DY, $X=DX X XY  W *7," NO  VENDOR FO UND" S CHC LRFG=1 S C HXTID=CHTI N ; N TIN8 37  ;CPE00 1-014 1/22 /2018 TGH  - New vari able and G et TIN fro m 837 S TI N837=$P($G (^CHMIMAGE (CHMFPDI," P-VEN",1,0 )),U,5) ;C PE001-014  1/22/2018  TGH - If T ax IDs do  not match,  print Pop out and se t New Vend or ID to N ull if rep ly timed o ut or answ ered No I  $G(TIN837) '="",$E(CH XTID,1,9)' =$E(TIN837 ,1,9),'$$E RR837() S  (CHTIN,CHX TID)="" D  CLEAR,DISP ^CHMFA013  G TID ; S  DX=10,DY=5 ,$Y=DY,$X= DX X XY I  $L(Y)<12 W  CHXTID E   W CHXTID_ "*"_CHXIM  D:$D(CHCLR FG) REPNTN PI ;; NPI  DATA ENTRY  ;DEV00799 1 10/08/20 10 JAK cha nge ^utili ty to ^tmp  K F1,DD1O UT S QU=91 ,DY=6,DX=1 0,FL=11,$Y =DY,$X=DX  X XY W BLN K1 X XY W  CHXNPI          ;;BUG 007991-07- 06 DRW - c hange FL f rom 10 to  11 01/06/1 1. S DX=10 ,$X=DX X X Y D CSBRS^ CHSC2 I $D (DQOUT) D  QUES X XY  W BLNK1 W  CHXNPI G N PI I $D(DU OUT) S DY= 6,DX=10,$Y =DY,$X=DX  X XY W BLN K1 S DX=10 ,$X=DX X X Y W:CHXNPI '="" CHXNP I D:$D(CHC LRFG) CLEA R,REPNT G  TID Q:$D(D DOUT)!$D(D FOUT) I $D (D1OUT) D: $D(CHCLRFG ) REPNT G  TID I Y=""  D:$D(CHCL RFG) REPNT  G RTNAME  I Y=" ",$D (^DISV(DUZ ,"CHVEN"))  S VFN=^(" CHVEN") D  GET S VFN= "" G END I  Y="@" S C HXNPI="" G  NPI I $L( Y)<3 S DY= 6,DX=15,$Y =DY,$X=DX  X XY W BLN K1 X XY W  *7," ??" R  X:2 X XY  W BLNK1 X  XY W:CHXNP I'="" CHXN PI D:$D(CH CLRFG) CLE AR,REPNT G  NPI K ^TM P($J,"DILI ST"),DIC                                    ;DEV007991  10/08/201 0 JAK chan ge ^utilit y to ^tmp  ;BUG007991 -07-02 DRW  - changed  the find  dic funtio n to use a  Q (quick)  lookup in stead of M  (multi) -  12/16/10.  ;D FIND^D IC(741001, "","","Q", Y,1,"M","" ,"","") ;D EV007991 1 0/08/2010  JAK find a t least on e NPI valu e in the M  cross ref erence (NP I) VALUE I N M CROSS  REFERENCE  ;AJF - sto ry 001-009  D FIND^DI C(741001,, ,"Q",Y,,"M ",,,"^TMP( $J,""DILIS T"")") ;HM  07/24/201 7 modified  global to  retrieve  vendor dat a I $P($D( ^TMP($J,"D ILIST","DI LIST",0)), U,1)<1 D   G NPI .D C LEAR S DY= 13,DX=32,$ Y=DY,$X=DX  X XY W *7 ," NO VEND ORS FOUND"  S CHCLRFG =1 S CHXNP I=Y S DX=1 0,DY=6,$Y= DY,$X=DX X  XY W CHXN PI D:$D(CH CLRFG) REP NTRTNAME   ;REMIT-TO  NAME DATA  ENTRY ;DEV 007991 10/ 08/2010 JA K K F1,DD1 OUT S QU=9 2,DY=7,DX= 10,FL=30,$ Y=DY,$X=DX  X XY W BL NK1 X XY W  CHXPRN W  CHXPRN S D X=10,$X=DX  X XY D CS BRS^CHSC2  I $D(DQOUT ) D QUES X  XY W BLNK 1 W CHXPRN  G RTNAME  I $D(DUOUT ) S DY=7,D X=10,$Y=DY ,$X=DX X X Y W BLNK1  S DX=10,$X =DX X XY W :CHXPRN'=" " CHXPRN D :$D(CHCLRF G) CLEAR,R EPNT G NPI  Q:$D(DDOU T)!$D(DFOU T) I $D(D1 OUT) D:$D( CHCLRFG) R EPNT G NPI  I Y="" D: $D(CHCLRFG ) REPNT G  RZIP I Y="  ",$D(^DIS V(DUZ,"CHV EN")) S VF N=^("CHVEN ") D GET S  VFN="" G  END I Y="@ " S CHXPRN ="" G RTNA ME K ^TMP( "DILIST",$ J) ;DEV007 991 10/08/ 2010 JAK c hange ^uti lity to ^t mp D FIND^ DIC(741001 ,,,"M",Y,1 ,"B",,,"^T MP($J,""DI LIST"")")  ;HM 07/24/ 2017 modif ied global  to retrie ve vendor  data I $P( $D(^TMP($J ,"DILIST", "DILIST",0 )),U,1)<1  D  G RTNAM E .D CLEAR  S DY=13,D X=32,$Y=DY ,$X=DX X X Y W *7," N O VENDOR F OUND" S CH CLRFG=1 S  CHXPRN=Y S  DX=10,DY= 7,$Y=DY,$X =DX X XY W  CHXPRN D: $D(CHCLRFG ) REPNTRZI P  ; REMIT -TO ZIP DA TA ENTRY ; DEV007991  10/08/2010  JAK K F1, DD1OUT S Q U=93,DY=8, DX=10,FL=9 ,$Y=DY,$X= DX X XY W  BLNK1 W CH XRZIP S DX =10,$X=DX  X XY D CSB RS^CHSC2 I  $D(DQOUT)  D QUES X  XY W BLNK1  X XY W CH XRZIP G RZ IP I $D(DU OUT) S DY= 8,DX=10,$Y =DY,$X=DX  X XY W BLN K1 S DX=10 ,$X=DX X X Y W CHXRZI P D:$D(CHC LRFG) CLEA R,REPNT G  RTNAME I $ D(D1OUT) D :$D(CHCLRF G) REPNT G  RTNAME Q: $D(DDOUT)! $D(DFOUT)  I Y="@" S  CHXRZIP=""  G RZIP S  CHXRZIP=Y  S DX=10,DY =8,$Y=DY,$ X=DX X XY  W CHXRZIP  D:$D(CHCLR FG) REPNT  ;HM 7/12/2 017 COMMEN TED OUT CO DE BELOW B ECAUSE SCR EEN WAS TA BBING TO P ZIP AND PS TATE FIELD S WHEN LAB ELS WERE R EMOVED ;PZ IP ; PHYSI CAL LOCATI ON ZIP DAT A ENTRY ;D EV007991 1 0/08/2010  JAK ;S BLN K1="" S $P (BLNK1," " ,10)="" ;K  F1,DD1OUT  S QU=94,D Y=9,DX=10, FL=9,$Y=DY ,$X=DX X X Y W BLNK1  W CHXZIP ; S DX=10,$X =DX X XY D  CSBRS^CHS C2 ;I $D(D QOUT) D QU ES X XY W  BLNK1 X XY  W CHXZIP  G PZIP ;I  $D(DUOUT)  S DY=9,DX= 10,$Y=DY,$ X=DX X XY  W BLNK1 S  DX=10,$X=D X X XY W C HXZIP D:$D (CHCLRFG)  CLEAR,REPN T G RZIP ; I $D(D1OUT ) D:$D(CHC LRFG) REPN T G RZIP ; Q:$D(DDOUT )!$D(DFOUT ) ;I Y="@"  S CHXZIP= "" G PZIP  ;S CHXZIP= Y ;S DX=10 ,DY=9,$Y=D Y,$X=DX X  XY W CHXZI P ;D:$D(CH CLRFG) REP NT ;PSTATE  ; PHYSICA L LOCATION  STATE DAT A ENTRY (L OC. DY=9 R OLLS, DX=2 6 COLUMNS) . ;S BLNK1 ="" S $P(B LNK1," ",1 5)="" ;;DE V 7991a DR W 10/06/10  BLNK1 BLA NKS OUT A  15 CHAR. F IELD  ;K F 1,DD1OUT S  QU=95,DY= 9,DX=26,FL =2,$Y=DY,$ X=DX X XY  W BLNK1 X  XY W CHTMP ST ;S DX=2 6,$X=DX X  XY D CSBRS ^CHSC2 ;I  $D(DQOUT)  D QUES X X Y W BLNK1  X XY W CHT MPST G PST ATE ;I $D( DUOUT) S D Y=9,DX=26, $Y=DY,$X=D X X XY W B LNK1 S DX= 26,$X=DX X  XY W CHTM PST D:$D(C HCLRFG) CL EAR,REPNT  G PZIP ;I  $D(D1OUT)  D:$D(CHCLR FG) REPNT  G PZIP ;Q: $D(DDOUT)! $D(DFOUT)  ;I Y'="" S  CHTMPST=" ",CHSTATE= "" S DY=9, DX=26,$Y=D Y,$X=DX X  XY W BLNK1  ;;DEV 799 1a DRW - F ILLS 15 SP ACES IN TH E STATE FI ELD ;I Y=" @" S CHTMP ST="",CHST ATE="" G P STATE ;;I  Y="" D:$D( CHCLRFG) R EPNT G A5  ;D ^CHGVQ0 34 D ^CHMF SET,REPNT  ;I CHBDFLG =0 K CHBDF LG G PSTAT E ;TLH 7/6 /07 DEV000 374  ;S CH TMPST=$P(Y ,"^",2) ;D EV 7991a D RW - CHTMP ST contain s the stat e name ;S  CHSTATE=$P (Y,"^",1)  ;DEV 7991a  DRW - CHS TATE conta ins the nu meric coun try code   ;S DX=26,D Y=9,$Y=DY, $X=DX X XY  W CHTMPST  ;D:$D(CHC LRFG) REPN T G TIDEND  ;END QREP NT  ;REPNT  D CLEAR,D ISP^CHMFA0 13,DATA^CH MFA013 K C HCLRFG QGE T    ;GET  S ZPSN=""  Q:'$D(^CHM VEN(VFN,0) ) S X=^CHM VEN(VFN,0)  S X2="" S :$D(^CHMVE N(VFN,1))  X1=^(1) S: $D(^CHMVEN (VFN,2)) X 2=^(2) S Z PSN=$P(X2, "^",8)_"^" _$P(X,"^", 3)_"^"_$P( X1,"^",1)_ "^"_$P(X1, "^",2)_"^" _$P(X1,"^" ,3)_"^"_$P (X1,"^",4) _"^"_$P(X1 ,"^",5)_"^ "_VFN_"^"_ "B" QQUES    ;DISPLAY ED WHEN ?  S HY=DY,HX =DX D CLEA R S DY=12, DX=1,$Y=DY ,$X=DX X X Y G @QU90  W !!,?21,"  Enter Tax  ID and Ve ndor Addre ss code. "  G EXIT91  W !!,?21," Enter the  NPI-Nation al Provide r Identifi er" G EXIT      ;DEV0 07991 10/0 8/2010 JAK 92 W !!,?2 1," Enter  provider r emit-to na me. " G EX IT93 W !!, ?21," Ente r provider  remit-to  zip code.  " G EXIT      ;DEV007 991 10/08/ 2010 JAK94  W !!,?21, "Enter pro vider phys ical locat ion zip co de." G EXI T95 W !!,? 21," Enter  provider  physical l ocation st ate. " G E XIT     ;D EV007991 1 0/08/2010  JAKEXIT    ;EXIT S DY =HY,DX=HX, $Y=DY,$X=D X QCLEAR   ;CLEAR S Z Y=DY,ZX=DX  F DY=12:1 :20 S DX=1 ,$X=DX X X Y W @CHEOL  S DY=ZY,D X=ZX,$Y=DY ,$X=DX X X Y S CHCLRF G=1 QCSBRS   ;CSBRS S  Y="" S:'$ D(FLD) FLD =30 S:FLD= "" FLD=30  U $I X ^%Z OSF("EOFF" ) K TL F I =1:1:FLD S :I=31 TL=1  R *X:$S($ D(DTIME):D TIME,1:60)  Q:(X=13)! (X=9)!(X=2 7) S:X'=12 7 Y=Y_$C(X ) D:X=127  S:I=0 Y=""  W $C(X) . S:I=1 I=0  Q:I=0 S:I' =1 I=I-2,Y =$E(Y,1,I)  W *8,*27, "[1X" QCSB RS1 ;CSBRS 1 K DFOUT, DUOUT,DQOU T,DDOUT,D1 OUT,D2OUT, D3OUT,D4OU T,DTOUT,DP OUT,DNOUT  I X=27 F I =1:1:2 R * X D:I=2 .S :X=65 D1OU T="" S:X=6 6 D2OUT=""  S:X=67 D3 OUT="" S:X =68 D4OUT= "" .I (X=5 4) R *X S: X=126 DNOU T="" .I (X =53) R *X  S:X=126 DP OUT="" S:X =9 DDOUT=" " S:X=9 DT OUT="" I Y ="^^" S (D FOUT,Y)=""  S:Y="^" ( DUOUT,Y)=" " S:Y?1"?" .E!(Y["^")  (DQOUT,Y) ="" U $I X  ^%ZOSF("E ON") QERR8 37() ;CPE0 01-015,CPE 001-016 1/ 22/2018 TG H - Print  Popout Que stion and  receive re ply for Ta x ID N OK, ANS S OK=0  F  D ERRT XT Q:OK Q  ANSERRTXT    ;CPE001- 015,CPE001 -016 1/22/ 2018 TGH -  Print Pop out Questi on and rec eive reply  for Tax I D D CLEAR  S DY=13,DX =1,$Y=DY,$ X=DX X XY  W "The Tax  ID entere d does not  match the  TIN in th e EDI subm ission. "  W !," Do y ou wish to  continue?  (Y/N) " D  CSBRS^CHS C2 S ANS=Y  S:ANS=""  ANS=" " D  . I $E($TR (ANS,"yes" ,"YES"),1, $L(ANS))=$ E("YES",1, $L(ANS)) S  ANS=1,OK= 1 Q . I $E ($TR(ANS," no","NO"), 1,$L(ANS)) =$E("NO",1 ,$L(ANS))  S ANS=0,OK =1 Q . I $ D(DTOUT) S  ANS="",OK =1 Q . W ! ," Please  enter Y or  N to cont inue. " H  3 Q Q
  10  
  11  
  12   Difference s
  13  
  14   See  highl ighted inf o above.
  15  
  16  
  17   Passed XIN DEX?  (Y /  N):  Y