Produced by Araxis Merge on 12/7/2017 6:27:14 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\932451-CPE005-033 TOB FC 8 Original PDI Is Not Valid | Developer Form CPE005-033.docx | Thu Dec 7 15:13:26 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\932451-CPE005-033 TOB FC 8 Original PDI Is Not Valid | Developer Form CPE005-033.docx | Thu Dec 7 20:47:14 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 62 |
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 DR4 | |
2 | Developer Name(s): Anthony Fe aster | |
3 | Associated User Stor y/Stories: CPE005-0 33 | |
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 | CH1 D ^CHM FA008 I $D (CHMFBAD) D G CRO0 .D KLOCK^C HMFADR1 .D REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT D ^CHMIS0 41 Q I $D( CHMFPAUS) D SETPD^CH MFADR1 Q I $D(CHMFKI L) D Q | |
7 | .S FKIL=1 .D SETPRO D^CHMFADR1 .D KLOCK^ CHMFADR1 . D DELST1^C HMFADR1 .D SBOCRRDY^ CHMFADR1 . S $P(^CHMI MG(CHMFPDI ,0),"^",3) ="" .S $P( ^CHMIMG(CH MFPDI,0)," ^",4)="" . I $D(^CHMI MG(CHMFPDI ,"PAUSE")) K ^CHMIMG (CHMFPDI," PAUSE") | |
8 | I $D(CHMF KIL) D Q .D SETPROD ^CHMFADR1 .D KLOCK^C HMFADR1 .D DELST1^CH MFADR1 .D OCRRRDY^CH MFADR1 .S $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" .I $D(^CHMIMG (CHMFPDI," PAUSE")) K ^CHMIMG(C HMFPDI,"PA USE") | |
9 | ||
10 | SB1 D ^CHM FA008 I $D (CHMFBAD) D G SB0 . D KLOCK^CH MFADR1 .D REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D KILA LL^CHMFADR 1 .S CHMQN AM="IMAGE( ",CHMOUT=1 K CHMIN D ^CHMIS041 .S CHMQNA M="CHMBADQ (",CHMIN=1 K CHMOUT D ^CHMIS04 1 Q I $D(C HMFPAUS) D SETPD^CHM FADR1 Q I $D(CHMFKIL ) D Q .S FKIL=1 .D SETPROD^C HMFADR1 .D KLOCK^CHM FADR1 .D D ELST1^CHMF ADR1 .D SB OCRRDY^CHM FADR1 .S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)="" .S $P(^CH MIMG(CHMFP DI,0),"^", 4)="" .I $ D(^CHMIMG( CHMFPDI,"P AUSE")) K ^CHMIMG(CH MFPDI,"PAU SE") | |
11 | ||
12 | ||
13 | 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) | |
14 | CH1 D ^CHM FA008 I $D (CHMFBAD) D G CRO0 .D KLOCK^C HMFADR1 .D REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT D ^CHMIS0 41 Q I $D( CHMFPAUS) D SETPD^CH MFADR1 Q I $D(CHMFKI L) D Q | |
15 | .;AJF 10/ 05/2017 CP E005-033 .N CHMFTOB .S CHMFTO B=$$TOB^CH MFADR2(CHM FPDI,CHMFP GNM,CHMFIM AG) .I $E( CHMFTOB,3) =8 D CHRJ Q:$D(CHREJ ) .S FKIL= 1 .D SETPR OD^CHMFADR 1 .D KLOCK ^CHMFADR1 .D DELST1^ CHMFADR1 . D SBOCRRDY ^CHMFADR1 .S $P(^CHM IMG(CHMFPD I,0),"^",3 )="" .S $P (^CHMIMG(C HMFPDI,0), "^",4)="" .I $D(^CHM IMG(CHMFPD I,"PAUSE") ) K ^CHMIM G(CHMFPDI, "PAUSE") | |
16 | ||
17 | ||
18 | SB1 D ^CHM FA008 I $D (CHMFBAD) D G SB0 . D KLOCK^CH MFADR1 .D REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D KILA LL^CHMFADR 1 .S CHMQN AM="IMAGE( ",CHMOUT=1 K CHMIN D ^CHMIS041 .S CHMQNA M="CHMBADQ (",CHMIN=1 K CHMOUT D ^CHMIS04 1 Q I $D(C HMFPAUS) D SETPD^CHM FADR1 Q I $D(CHMFKIL ) D Q .;A JF 10/05/2 017 CPE005 -033 .N C HMFTOB .S CHMFTOB=$$ TOB^CHMFAD R2(CHMFPDI ,CHMFPGNM, CHMFIMAG) .I $E(CHMF TOB,3)=8 D CHRJ Q:$D (CHREJ) .S FKIL=1 .D SETPROD^C HMFADR1 .D KLOCK^CHM FADR1 .D D ELST1^CHMF ADR1 .D SB OCRRDY^CHM FADR1 .S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)="" .S $P(^CH MIMG(CHMFP DI,0),"^", 4)="" .I $ D(^CHMIMG( CHMFPDI,"P AUSE")) K ^CHMIMG(CH MFPDI,"PAU SE") | |
19 | ||
20 | ||
21 | ||
22 | Difference s | |
23 | ||
24 | ||
25 | .;AJF 10/ 05/2017 CP E005-033 .N CHMFTOB .S CHMFTO B=$$TOB^CH MFADR2(CHM FPDI,CHMFP GNM,CHMFIM AG) .I $E( CHMFTOB,3) =8 D CHRJ Q:$D(CHREJ ) | |
26 | ||
27 | ||
28 | CHRJ ;Proc ess for Re jecting in valid PDI ;AJF 10/05 /2017 CPE0 05-033 N CHR,DIC,DA ,X,DA,DLAY GO S DY=15 ,DX=20 X X Y W "Do yo u want to reject thi s PDI? (Y/ N) //No " R CHR:10 Q :$E($$UP^X LFSTR($G(C HR)),1)'=" Y" D CSTAT ^CHMXPUTL( CHMFPDI,"F 2:464:736" ) ;FIND IE N for CHMX CLE Buffer file S J1 =$Q(^CHMXC LE("PDI",C HMFPDI)),J 2=$TR(J1," ""","*"),J 3=$P(J2,"* ",9) ;Add E33a Error code to t his PDI S DIC="^CHMX CLE("_J3_" ,101,",DA( 1)=J3,DIC( 0)="L",DLA YGO=741210 .12,X=106 D FILE^DIC N ;CHRJ2 ; Reject PD I S FKIL=1 ,CHREJ=1 D SETPROD^C HMFADR1 D KLOCK^CHMF ADR1 D DEL ST1^CHMFAD R1 ; Q | |
29 | ||
30 | ||
31 | Passed XIN DEX? (Y / N): Yes |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.