Produced by Araxis Merge on 12/7/2017 6:28:39 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-095 PPR Report Total Payment Current PDI | CHMKPPR1 Developer Form.docx | Thu Dec 7 15:13:28 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\CPE005-095 PPR Report Total Payment Current PDI | CHMKPPR1 Developer Form.docx | Thu Dec 7 23:09:42 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 36 |
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: _____ __CHMKPPR1 ___ | |
2 | Developer Name(s): _________C indy Stile s_____ | |
3 | Associated User Stor y/Stories: ______ _CPE005-09 5_ | |
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 | CHMKPPR1 ; CVA/PEJ;PP R PRINTOUT LIST;02/1 1/98 11:57 AM ;;1.0; CHAMPVA SY STEM;;JULY 4, 1990;B uild 10 ;; V2.0; ;CPT (S) 11008* JLR, #126 21* (RLC), #13578 (R LC) ;BMJ D EF012830 F ix the <UN DEFINED>ST 3+4^CHMKPP R1 error ;DEV7820 E W 3/18/11S TARTQ S U= "^" D ^CHM GSET X CHR ESET D TIT LEST0 W "< V>IEW OR < P>RINT? " D CSBRS^CH SC2 G END: $D(DFOUT), END:$D(DUO UT) I $D(D QOUT) W !! ,"Please e nter 'V' t o View or 'P' to Pri nt.",!! G ST0 G:Y="" END I "Vv Pp"'[Y W * 7,*7,!!,"P lease ente r 'V' to V iew or 'P' to Print. " R X:4 G STARTQ I " Vv"[Y D ^C HMKPPR2 G STARTQ W ! K ^CHMZHO LD($J) S C CNT=1ST1 W !,"Select CLAIM OR PDI NUMBER : " D CSBR S^CHSC2 S: Y'="" Y=$T R(Y,"abcde fghijklmno pqrstuvwxy z","ABCDEF GHIJKLMNOP QRSTUVWXYZ ") G:($D(D TOUT))!($D (DFOUT))!( $D(DUOUT)) END I $D( DQOUT) W ! !,"Enter a valid cla im or PDI number." R X:3 D TIT LE G ST1IC Q I Y="" I '$D(^CHMZ HOLD($J,1) ) G END I Y="" I $D( ^CHMZHOLD( $J,1)) G S T4 I Y=" " D .Q:'$D( ^DISV("PPR ",DUZ)) .S Y=$P(^DIS V("PPR",DU Z),"^",1) .W Y ;I $D (^CHMPAY(" C",Y)) S D IC="^CHMPA Y(",DIC(0) ="MNQE",X= Y D ^DIC G :Y=-1 ST1 S Y=$P(Y," ^",2) G:$D (DUOUT) EN D ;I $D(^C HNVPAY("C" ,Y)) S DIC ="^CHNVPAY (",DIC(0)= "MNQE",X=Y D ^DIC G: Y=-1 ST1 S Y=$P(Y,"^ ",2) G:$D( DUOUT) END I $L(Y)>1 0 D G:$D( DUOUT) END G:$D(DFOU T) END .K CLMARRY S TMPPDI=Y D CLMARRY^C HFCD001(Y) .Q:'$D(CL MARRY) .W !,"#"," ", " PDI "," ","Claim # " .S PT=0S T2 .S PT=$ O(CLMARRY( PT)) G:'PT ST3 .S TC LMPT=$P(CL MARRY(PT), "^",1) S X 1=TCLMPT D PROGTYP^C HFCD001 .S TCLMNUM=$ P(@(GLPAY_ "TCLMPT,0) "),"^",1) .W !,PT," ",TMPPDI," ",TCLMNUM .S LPT=PT G ST2ST3 .W !,"Ente r the numb er to sele ct: " D CS BRS^CHSC2 .I $D(DQOU T) W !,"En ter the nu mber to se lect." G S T3 .Q:$D(D UOUT) Q:$D (DFOUT) .I (Y<1)!(Y> LPT) W !," Enter a nu mber betwe en 1 and " _LPT G ST3 .I '$D(CL MARRY(Y)) W !,"Enter a number between 1 and "_LPT G ST3 ;BMJ DEF012830 Added thi s line to fix the un defined er ror .S TC LMPT=$P(CL MARRY(Y)," ^",1) S X1 =TCLMPT D PROGTYP^CH FCD001 .S Y=$P(@(GLP AY_"TCLMPT ,0)"),"^", 1) .Q I '$ D(^CHMINDE X("B",Y)) W *7," ??" R X:3 D T ITLE G ST1 S I1=0,I1 =$O(^CHMIN DEX("B",Y, I1)) I 'I1 W *7," ?? " R X:3 D TITLE G ST 1 I '$D(^C HMINDEX(I1 ,0)) W *7, " ??" R X: 3 D TITLE G ST1 ;S C HPGPT=$P(^ CHMINDEX(I 1,0),U,2) S X1=I1 D PROGTYP^CH FCD001 I C HPGPT="" W *7," ??" R X:3 D TI TLE G ST1 S CLNUM=I1 S ^CHMZHO LD($J,CCNT ,CLNUM)="" S CCNT=CC NT+1 S ^DI SV("PPR",D UZ)=Y G ST 1ST4 ; W ! ! S IOP="Q " D ^%ZIS G:POP END I ION'["/W " W !,"THI S REPORT R EQUIRES A WIDE PRINT ER" G ST4 ;DEV7820 E W 3/18/11 S CHFIO=IO N S ZTRTN= "STARTC^CH MKPPR1" S ZTDESC="PP RS FOR CLA IMS IN LIS T" S ZTIO= "" S ZTSAV E("CHFIO") ="" S ZTSA VE("^CHMZH OLD($J,")= "" S ZTSAV E("GLPAY") ="",ZTSAVE ("GLDFN")= "",ZTSAVE( "GLELG")=" " S ZTSAVE ("GLPAYH") ="",ZTSAVE ("GLPAYW") ="" D ^%ZT LOAD ;D HO ME^%ZISEND K IOP,CHM FRS,CHMFPD I,CHMFCLMS ,CHMCL,CHM CCR,CI,CN, CLNUM,CCNT ,CHMFI,CHM FQQ,CHMFPP ;W @IOF Q ; ;STARTC S U="^" S CHPG=0 S CCNT=0SA2 S CCNT=$O( ^CHMZHOLD( $J,CCNT)) G:'CCNT PQ UE S CLPTR =0,CLPTR=$ O(^CHMZHOL D($J,CCNT, CLPTR)) S (CHCCLM,I) =CLPTR D G TPTR D ^CH MF351D G S A2 ;PQUE K BNCLARY,^ CHMZHOLD($ J) S %ZIS= "Q" S IOP= "Q;"_CHFIO D ^%ZIS G :POP CEND K ZTIO S Z TRTN="PRIN T^CHMKPPR1 " S ZTSAVE ("^TMP($J, ")="" S ZT SAVE("GLPA Y")="",ZTS AVE("GLDFN ")="",ZTSA VE("GLELG" )="" S ZTS AVE("GLPAY H")="",ZTS AVE("GLPAY W")="" D ^ %ZTLOADCEN D Q ; ;PRI NT ;D ^CHM KMCR3 S EX FLG=0 K VI EWFL D ^CH MF351P Q ; TITLE W @I OF,!,"PRIN TING OF PP RS",!! Q ; GTPTR Q:'$ D(^CHMINDE X(CHCCLM)) Q:'$D(^CH MINDEX(CHC CLM,0)) S X1=CHCCLM D PROGTYP^ CHFCD001 Q S CHPGPT= $P(^(0),U, 2) Q:CHPGP T="" Q:'$D (^CHMDIC(7 41002.94,C HPGPT,0)) S CHPROG=$ P(^(0),U,2 ) Q:'$D(^C HMDIC(7410 02.94,CHPG PT,1)) S G LREC=^(1) S GLPAY=$P (GLREC,"^" ,1),GLELG= $P(GLREC," ^",2),GLDF N=$P(GLREC ,"^",3) S GLPAYH=$P( GLREC,"^", 4),GLPAYW= $P(GLREC," ^",5) 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 | ||
10 | CHMKPPR1 ; CVA/PEJ;PP R PRINTOUT LIST;02/1 1/98 11:57 AM ;;1.0; CHAMPVA SY STEM;;JULY 4, 1990;B uild 10 ;; V2.0; ;CPT (S) 11008* JLR, #126 21* (RLC), #13578 (R LC) ;BMJ D EF012830 F ix the <UN DEFINED>ST 3+4^CHMKPP R1 error ;DEV7820 E W 3/18/11 ;CFS 10/18 /2017 CPE0 05-095 - K ill PAIDAR Y used to gather tot als of all claims fo r Original and Curre nt PDI's.S TARTQ S U= "^" D ^CHM GSET X CHR ESET D TIT LEST0 W "< V>IEW OR < P>RINT? " D CSBRS^CH SC2 G END: $D(DFOUT), END:$D(DUO UT) I $D(D QOUT) W !! ,"Please e nter 'V' t o View or 'P' to Pri nt.",!! G ST0 G:Y="" END I "Vv Pp"'[Y W * 7,*7,!!,"P lease ente r 'V' to V iew or 'P' to Print. " R X:4 G STARTQ I " Vv"[Y D ^C HMKPPR2 G STARTQ W ! K ^CHMZHO LD($J) S C CNT=1ST1 W !,"Select CLAIM OR PDI NUMBER : " D CSBR S^CHSC2 S: Y'="" Y=$T R(Y,"abcde fghijklmno pqrstuvwxy z","ABCDEF GHIJKLMNOP QRSTUVWXYZ ") G:($D(D TOUT))!($D (DFOUT))!( $D(DUOUT)) END I $D( DQOUT) W ! !,"Enter a valid cla im or PDI number." R X:3 D TIT LE G ST1IC Q I Y="" I '$D(^CHMZ HOLD($J,1) ) G END I Y="" I $D( ^CHMZHOLD( $J,1)) G S T4 I Y=" " D .Q:'$D( ^DISV("PPR ",DUZ)) .S Y=$P(^DIS V("PPR",DU Z),"^",1) .W Y ;I $D (^CHMPAY(" C",Y)) S D IC="^CHMPA Y(",DIC(0) ="MNQE",X= Y D ^DIC G :Y=-1 ST1 S Y=$P(Y," ^",2) G:$D (DUOUT) EN D ;I $D(^C HNVPAY("C" ,Y)) S DIC ="^CHNVPAY (",DIC(0)= "MNQE",X=Y D ^DIC G: Y=-1 ST1 S Y=$P(Y,"^ ",2) G:$D( DUOUT) END I $L(Y)>1 0 D G:$D( DUOUT) END G:$D(DFOU T) END .K CLMARRY S TMPPDI=Y D CLMARRY^C HFCD001(Y) .Q:'$D(CL MARRY) .W !,"#"," ", " PDI "," ","Claim # " .S PT=0S T2 .S PT=$ O(CLMARRY( PT)) G:'PT ST3 .S TC LMPT=$P(CL MARRY(PT), "^",1) S X 1=TCLMPT D PROGTYP^C HFCD001 .S TCLMNUM=$ P(@(GLPAY_ "TCLMPT,0) "),"^",1) .W !,PT," ",TMPPDI," ",TCLMNUM .S LPT=PT G ST2ST3 .W !,"Ente r the numb er to sele ct: " D CS BRS^CHSC2 .I $D(DQOU T) W !,"En ter the nu mber to se lect." G S T3 .Q:$D(D UOUT) Q:$D (DFOUT) .I (Y<1)!(Y> LPT) W !," Enter a nu mber betwe en 1 and " _LPT G ST3 .I '$D(CL MARRY(Y)) W !,"Enter a number between 1 and "_LPT G ST3 ;BMJ DEF012830 Added thi s line to fix the un defined er ror .S TC LMPT=$P(CL MARRY(Y)," ^",1) S X1 =TCLMPT D PROGTYP^CH FCD001 .S Y=$P(@(GLP AY_"TCLMPT ,0)"),"^", 1) .Q I '$ D(^CHMINDE X("B",Y)) W *7," ??" R X:3 D T ITLE G ST1 S I1=0,I1 =$O(^CHMIN DEX("B",Y, I1)) I 'I1 W *7," ?? " R X:3 D TITLE G ST 1 I '$D(^C HMINDEX(I1 ,0)) W *7, " ??" R X: 3 D TITLE G ST1 ;S C HPGPT=$P(^ CHMINDEX(I 1,0),U,2) S X1=I1 D PROGTYP^CH FCD001 I C HPGPT="" W *7," ??" R X:3 D TI TLE G ST1 S CLNUM=I1 S ^CHMZHO LD($J,CCNT ,CLNUM)="" S CCNT=CC NT+1 S ^DI SV("PPR",D UZ)=Y G ST 1ST4 ; W ! ! S IOP="Q " D ^%ZIS G:POP END I ION'["/W " W !,"THI S REPORT R EQUIRES A WIDE PRINT ER" G ST4 ;DEV7820 E W 3/18/11 S CHFIO=IO N S ZTRTN= "STARTC^CH MKPPR1" S ZTDESC="PP RS FOR CLA IMS IN LIS T" S ZTIO= "" S ZTSAV E("CHFIO") ="" S ZTSA VE("^CHMZH OLD($J,")= "" S ZTSAV E("GLPAY") ="",ZTSAVE ("GLDFN")= "",ZTSAVE( "GLELG")=" " S ZTSAVE ("GLPAYH") ="",ZTSAVE ("GLPAYW") ="" D ^%ZT LOAD ;D HO ME^%ZISEND K IOP,CHM FRS,CHMFPD I,CHMFCLMS ,CHMCL,CHM CCR,CI,CN, CLNUM,CCNT ,CHMFI,CHM FQQ,CHMFPP ;W @IOF Q ; ;STARTC S U="^" S CHPG=0 S CCNT=0 K P AIDARYSA2 S CCNT=$O( ^CHMZHOLD( $J,CCNT)) G:'CCNT PQ UE S CLPTR =0,CLPTR=$ O(^CHMZHOL D($J,CCNT, CLPTR)) S (CHCCLM,I) =CLPTR D G TPTR D ^CH MF351D G S A2 ;PQUE K BNCLARY,^ CHMZHOLD($ J) S %ZIS= "Q" S IOP= "Q;"_CHFIO D ^%ZIS G :POP CEND K ZTIO S Z TRTN="PRIN T^CHMKPPR1 " S ZTSAVE ("^TMP($J, ")="" S ZT SAVE("GLPA Y")="",ZTS AVE("GLDFN ")="",ZTSA VE("GLELG" )="" S ZTS AVE("GLPAY H")="",ZTS AVE("GLPAY W")="" D ^ %ZTLOADCEN D Q ; ;PRI NT ;D ^CHM KMCR3 S EX FLG=0 K VI EWFL D ^CH MF351P K P AIDARY Q ; TITLE W @I OF,!,"PRIN TING OF PP RS",!! Q ; GTPTR Q:'$ D(^CHMINDE X(CHCCLM)) Q:'$D(^CH MINDEX(CHC CLM,0)) S X1=CHCCLM D PROGTYP^ CHFCD001 Q S CHPGPT= $P(^(0),U, 2) Q:CHPGP T="" Q:'$D (^CHMDIC(7 41002.94,C HPGPT,0)) S CHPROG=$ P(^(0),U,2 ) Q:'$D(^C HMDIC(7410 02.94,CHPG PT,1)) S G LREC=^(1) S GLPAY=$P (GLREC,"^" ,1),GLELG= $P(GLREC," ^",2),GLDF N=$P(GLREC ,"^",3) S GLPAYH=$P( GLREC,"^", 4),GLPAYW= $P(GLREC," ^",5) Q | |
11 | ||
12 | ||
13 | Difference s | |
14 | ||
15 | See highli ghted info above. | |
16 | ||
17 | ||
18 | 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.