Produced by Araxis Merge on 12/7/2017 6:28:37 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 | CHMKPDI2 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 | CHMKPDI2 Developer Form.docx | Thu Dec 7 23:08:47 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: _____ __CHMKPDI2 ___ | |
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 | CHMKPDI2 ; DEH/DEN;VI EW PPR FOR PDI;09/24 /97 4:57 P M ;;1.0;CH AMPVA SYST EM;;JULY 4 , 1990;Bui ld 10 ;V1. 0 ;CPTS #1 2621 (RLC) , #15932 ( Y2K) ;GET PDI ;DEV00 7820 EW 3/ 16/12Q1 X CHRESET W "VIEWING O F PPR" S D X=1,DY=5 X XY S DIC= 741000.2,D IC(0)="AQM E" D ^DIC K DIC G EN D:$D(DUOUT ) I Y=-1 I '$D(^UTIL ITY($J,1)) G END I Y =-1 I $D(^ UTILITY($J ,1)) G END ;S CLPDI= $P(Y,U,1), CHPRGPT=$E (CLPDI,6,7 ) D GTPRG^ CHMKPDI1 ; Y2K ;S CLP DI=$P(Y,U, 1),CHPRGPT =$$TYPE^CH MFPDI2(CLP DI) D GTPR G^CHMKPDI1 S CLPDI=$ P(Y,U,1) S CHPRGPT=$ $TYPE^CHMF PDI2(CLPDI ) S:CHPRGP T'="" PRGF LG="" I '$ D(PRGFLG) I '$D(^UTI LITY($J,1) ) D G Q1 .W !!,"INV ALID PDI S ELECTED. P LEASE TRY AGAIN." .R X:3 .X CH RESET W !, "PRINTING OF PPR'S F OR A PDI" .Q K CLMAR RY D CLMAR RY^CHFCD00 1(CLPDI) I '$D(PRGFL G) I $D(^U TILITY($J, 1)) G END ; ;GET CLA IMS K CHUT IL S CHARY PT=0,CCNT= 0PDI1 ; ;K FILE,FILE 0 ;S FILE= "^"_GLPAY_ """C"","_C LPDI_","_C LPDIPTR_") ",CLPDIPTR =$O(@FILE) G:'CLPDIP TR PDI2 ;S CLNUM=CLP DIPTR S CH ARYPT=$O(C LMARRY(CHA RYPT)) G:' CHARYPT PD I2 S CLMPT =CLMARRY(C HARYPT) G: CLMPT="" P DI1 S X1=C LMPT D PRO GTYP^CHFCD 001 I $D(@ (GLPAY_"CL MPT,0)")) I $P(@(GLP AY_"CLMPT, 0)"),U,2)= 10 G PDI1 S CCNT=CCN T+1 S CHUT IL(CLMPT)= CLMPT_"^"_ $P(@(GLPAY _"CLMPT,0) "),U,1) G PDI1PDI2 ; VIEW PPRS W !!,"NUMB ER OF CLAI MS = "_CCN T W !,"PRE SS ANY KEY TO CONTIN UE " R X S CLNUM="", EXFLG=0PDI 3 S CLNUM= $O(CHUTIL( CLNUM)) G END:'CLNUM K CHMFCLM S,CHMCL,CI ,I S CHMFC LMS($P(CHU TIL(CLNUM) ,"^",2))=+ CHUTIL(CLN UM),CHMCL( $P(CHUTIL( CLNUM),"^" ,2))="",CI =+CHUTIL(C LNUM) S CH MFQQ=$P(CH UTIL(CLNUM ),"^",2),I =+CHUTIL(C LNUM) S CH MFQ(CHMFQQ )=CI,CHCCL M=CI S PPR FL=1,VIEWF L=1,CL=0 D VIEW G:EX FLG=1 END G PDI3 Q ; END D DSPL Y80^CHMKPP R2 X CHRES ET K CHMFQ Q,VIEWFL,P PRFL Q;DEV 007820 EW 3/16/12VIE W K ^TMP($ J) D DSPLY ^CHMKPPR2, VIEW^CHMF3 51D,V1^CHM F351P ;DEV 007820 EW 3/16/12 W !!,"Press <RETURN> t o continue , <^> to e xit." R X S:X="^" EX FLG=1 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 | CHMKPDI2 ; DEH/DEN;VI EW PPR FOR PDI;09/24 /97 4:57 P M ;;1.0;CH AMPVA SYST EM;;JULY 4 , 1990;Bui ld 10 ;V1. 0 ;CPTS #1 2621 (RLC) , #15932 ( Y2K) ;GET PDI ;DEV00 7820 EW 3/ 16/12 ;CFS 10/18/201 7 CPE005-0 95 - Kill PAIDARY us ed to gath er totals of all cla ims for Or iginal and Current P DI's.Q1 X CHRESET W "VIEWING O F PPR" S D X=1,DY=5 X XY S DIC= 741000.2,D IC(0)="AQM E" D ^DIC K DIC G EN D:$D(DUOUT ) I Y=-1 I '$D(^UTIL ITY($J,1)) G END I Y =-1 I $D(^ UTILITY($J ,1)) G END ;S CLPDI= $P(Y,U,1), CHPRGPT=$E (CLPDI,6,7 ) D GTPRG^ CHMKPDI1 ; Y2K ;S CLP DI=$P(Y,U, 1),CHPRGPT =$$TYPE^CH MFPDI2(CLP DI) D GTPR G^CHMKPDI1 S CLPDI=$ P(Y,U,1) S CHPRGPT=$ $TYPE^CHMF PDI2(CLPDI ) S:CHPRGP T'="" PRGF LG="" I '$ D(PRGFLG) I '$D(^UTI LITY($J,1) ) D G Q1 .W !!,"INV ALID PDI S ELECTED. P LEASE TRY AGAIN." .R X:3 .X CH RESET W !, "PRINTING OF PPR'S F OR A PDI" .Q K CLMAR RY D CLMAR RY^CHFCD00 1(CLPDI) I '$D(PRGFL G) I $D(^U TILITY($J, 1)) G END ; ;GET CLA IMS K CHUT IL S CHARY PT=0,CCNT= 0PDI1 ; ;K FILE,FILE 0 ;S FILE= "^"_GLPAY_ """C"","_C LPDI_","_C LPDIPTR_") ",CLPDIPTR =$O(@FILE) G:'CLPDIP TR PDI2 ;S CLNUM=CLP DIPTR S CH ARYPT=$O(C LMARRY(CHA RYPT)) G:' CHARYPT PD I2 S CLMPT =CLMARRY(C HARYPT) G: CLMPT="" P DI1 S X1=C LMPT D PRO GTYP^CHFCD 001 I $D(@ (GLPAY_"CL MPT,0)")) I $P(@(GLP AY_"CLMPT, 0)"),U,2)= 10 G PDI1 S CCNT=CCN T+1 S CHUT IL(CLMPT)= CLMPT_"^"_ $P(@(GLPAY _"CLMPT,0) "),U,1) G PDI1PDI2 ; VIEW PPRS W !!,"NUMB ER OF CLAI MS = "_CCN T W !,"PRE SS ANY KEY TO CONTIN UE " R X S CLNUM="", EXFLG=0 K PAIDARY ; CPE005-069 PDI3 S CLN UM=$O(CHUT IL(CLNUM)) G END:'CL NUM K CHMF CLMS,CHMCL ,CI,I S CH MFCLMS($P( CHUTIL(CLN UM),"^",2) )=+CHUTIL( CLNUM),CHM CL($P(CHUT IL(CLNUM), "^",2))="" ,CI=+CHUTI L(CLNUM) S CHMFQQ=$P (CHUTIL(CL NUM),"^",2 ),I=+CHUTI L(CLNUM) S CHMFQ(CHM FQQ)=CI,CH CCLM=CI S PPRFL=1,VI EWFL=1,CL= 0 D VIEW G :EXFLG=1 E ND G PDI3 Q ;END D D SPLY80^CHM KPPR2 X CH RESET K CH MFQQ,VIEWF L,PPRFL,PA IDARY Q ; DEV007820 EW 3/16/12 VIEW K ^TM P($J) D DS PLY^CHMKPP R2,VIEW^CH MF351D,V1^ CHMF351P ; DEV007820 EW 3/16/12 W !!,"Pre ss <RETURN > to conti nue, <^> t o exit." R X S:X="^" EXFLG=1 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.