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.
# | 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 |
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: 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.