Produced by Araxis Merge on 12/7/2017 6:27:44 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\937671-CPE005-069 Manual EDI User Entry of PDI Numbers | CHMFA008 Developer Form.docx | Thu Dec 7 15:13:28 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937671-CPE005-069 Manual EDI User Entry of PDI Numbers | CHMFA008 Developer Form.docx | Thu Dec 7 22:46:37 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 38 |
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: _____ __CHMFA008 ___ | |
2 | Developer Name(s): _________C indy Stile s_____ | |
3 | Associated User Stor y/Stories: _____C PE005-069_ __ | |
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 | CHMFA008 ; JLR/DEN;DO CUMENT IDE NTIFICATIO N SCREEN;0 8/20/98 8: 16 AM ;;1. 0;CHAMPVA SYSTEM;;JU LY 4, 1990 ;Build 2 ; ;CPTS #149 89 (RLC) ; ;MODIFIED BY RLC ON 4/13/95 - ADDED OPTI ON 11) PPR ;;MODIFIE D BY RLC O N 4/28/95 - ADDED OP TION 12) P PRs-PDI ;; ;JEH 12/16 /09 MTN008 252 - OCR claim mult iplication by VE ;; DHS 12/17/ 09 DEV0053 56 unblock ed the pro gram type 9 check ;; DEV005356 11/29/2011 DGC ;; ch anges made to commen t out DEV5 356 change s to go li ve - RVS 1 /11/2010 D CLEAR^CHM FADR2 S CH TITLE="DOC UMENT IDEN TIFICATION SCREEN",C HSCREEN="" S CHSCREE N=$O(^CHMS CRN("B",CH TITLE,CHSC REEN)) I ' CHSCREEN D NOSCR^CHM FADR2 G EN D D TITLE^ CHMFA100,L INE^CHMFA1 00,CHOICE^ CHMFA100 D SCREEN^CH MFADR2,ERR ORS^CHMFA1 00 D NOW^% DTC S CHMF TMBG=%A0 K CHMFC,CHM FBAD,CHNOF LAG,CHYESF LG,CHMNNUM ,CHMFQUITA 1 K F0,F1 D WTPDI^CH MFADR2A2 S :'$D(CHMFN MPG) CHMFN MPG="" I $ D(^CHMIMG( CHMFPDI,0) ) S:CHMFNM PG="" CHMF NMPG=$P(^( 0),"^",2) ; Subscrip t error 9/ 7/5 mlr I $D(CHMFNMP G) I CHMFN MPG'="" D WTNP^CHMFA DR2 G A3 S:'$D(CHMF NMPG) CHMF NMPG="" S: CHMFNMPG=" " CHMFNMPG ="UNK" S Q U=2 D WTNP ^CHMFADR2 S DX=41,$X =DX X XY D CSBRS^CHS C2 W:Y'="" @CHEOL G: $D(DFOUT) END I $D(D QOUT) D QU ES^CHMFADR 2,WTNP^CHM FADR2 G A1 I $D(DUOU T) D WTNP^ CHMFADR2 G END I $D( D1OUT) D C HECK^CHMFA DR2,WTNP^C HMFADR2 G A1 I $D(DD OUT) D WTN P^CHMFADR2 G END I Y ="" D CLEA RB^CHMFADR 2 G A3 D C HECK^CHMFA DR2 G:$D(F 1) A2 D WT NP^CHMFADR 2,CLEARB^C HMFADR2A3 S QU=3 D W TPG^CHMFAD R2 S DX=41 ,$X=DX X X Y S TMPPGN M=CHMFPGNM ,TMPNMPG=C HMFNMPG ;JEH 12/16 /09 MTN008 252 - ADDE D LINE D C SBRS^CHSC2 W:Y'="" @ CHEOL I Y> 199 S CHMF PGNM=TMPPG NM,CHMFNMP G=TMPNMPG G A3 ;JE H 12/16/09 MTN008252 - ADDED L INE G:$D(D FOUT) END I $D(DQOUT ) D QUES^C HMFADR2,WT PG^CHMFADR 2 G A1 I $ D(DUOUT) D WTPG^CHMF ADR2 G A3 I $D(D1OUT ) D CHECK^ CHMFADR2,W TPG^CHMFAD R2 G A3 I $D(DDOUT) D CHECK^CH MFADR2 G:$ D(F1) A3 D WTPG^CHMF ADR2 G END D CHECK^C HMFADR2 G: $D(F1) A3 I $D(CHMFP GNM) I CHM FPGNM'="" I CHMFPGNM >CHMFNMPG D .S CHMFN MPG=CHMFPG NM,$P(^CHM IMG(CHMFPD I,0),"^",2 )=CHMFPGNM .D WTNP^C HMFADR2 D WTPG^CHMFA DR2,CLEARB ^CHMFADR2A 4 S CHMFIM AG=1 ;S QU =4 ;D WTIM ^CHMFADR2 ;S DX=41 X XY ;D CSB RS^CHSC2 ; G:$D(DFOUT ) END ;I $ D(DQOUT) D QUES^CHMF ADR2,WTIM^ CHMFADR2 G A4 ;I $D( DUOUT) D W TIM^CHMFAD R2 G A3 ;I $D(D1OUT) D CHECK^C HMFADR2 G: $D(F1) A4 D WTIM^CHM FADR2 G A3 ;I $D(DDO UT) D CHEC K^CHMFADR2 G:$D(F1) A4 D WTIM^ CHMFADR2 G END ;D CH ECK^CHMFAD R2 ;G:$D(F 1) A4 ;D W TIM^CHMFAD R2,CLEARB^ CHMFADR2A6 S QU=6 D WTTYPE^CHM FADR2 S DX =41,$X=DX X XY D CSB RS^CHSC2 G :$D(DFOUT) END I $D( DQOUT) S Y ="?" D CHE CK^CHMFADR 2 G A6 I $ D(DUOUT) D WTTYPE^CH MFADR2 G A 4 I $D(D1O UT) D CHEC K^CHMFADR2 G:$D(F1) A6 D WTTYP E^CHMFADR2 G A4 I $D (DDOUT) D CHECK^CHMF ADR2 G:$D( F1) A6 D W TTYPE^CHMF ADR2 G END D CHECK^C HMFADR2 G: $D(F1) A6 D WTTYPE^C HMFADR2,CL EARB^CHMFA DR2 G A1EN D D CLEARB ^CHMFADR2E 1 K NP,CHM FBAD,CHYES FLG,CHMFKI L,CHMFSORT ,CHMFPRV,C HMFPS,CHMF PAUS,CHMFE XIT,CHMFBD BK,CHMFPDR V D PRMPT^ CHMFA100,A SK^CHMFA10 0 D CLEARB ^CHMFADR2 S CHOICE=Y G:CHOICE= 1 A0 I CHO ICE=5 K FL AG1 D G:$ D(FLAG1) A 0 .D RNGEC LR^CHSC1(1 3,18,XY,CH EOL) S DX= 1,DY=14,$Y =DY,$X=DX X XY .W "O ption #5 i s NOT AVAI LABLE." R X:15 .D CL EAR^CHMFAD R2,SCREEN^ CHMFADR2 S FLAG1=1 . Q ;S:CHOIC E=4 CHMFEX IT=1 S:CHO ICE=4 CHMF KIL=1 I CH OICE=8 I C HMFPDI="" D NOPAUS^C HMFADR2 G E1 I CHOIC E=8 I CHMF PDI'="" S CHMFPAUS= 1 I CHOICE =9 D ^CHMF A005 G END I (CHOICE =6)&(IPSUB ="OCR2^CHM FADR4") D Q ;DGC 11 /30/11 DEV 005356 BEG IN .D ^CHM FABUNR .I CHMFBAD=" " D G E1 ..S DX=1 F DY=12:1:2 0 X XY W @ CHEOL ;DGC 11/ 30/11 DEV0 05356 END I CHOICE=6 D BDIMCK G:$D(CHMFB DBK) E1 S CHMFBAD=1 D ^CHMFABI M ;dhs 12/ 17/09 orig inal line prg type=9 ;I CHOICE =6 S CHMFB AD=1 D ^CH MFABIM ;dh s 12/17/09 remove ch eck for pr ogram prg type=9 I C HOICE=10 I '$D(CHBTC HNO) D NOB TCH^CHMFAD R2 G E1 I CHOICE=10 I CHBTCHNO ="" D NOBT CH^CHMFADR 2 G E1 I C HOICE=10 D ^CHMFAB2 D G E1 .I $D(CHBTCH NO) I CHBT CHNO'="" I $$BTCHST^ CHMFABU3(C HBTCHNO)=1 D ..S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",6 )="" ..S $ P(^CHMIMPB (CHBTCHNO, 0),"^",6)= "" ..S CHM FPP="BATCL SD",CHMFI= CHBTCHNO D ^CHMFWK03 ..S J=0 F S J=$O(^ CHMIMPB(CH BTCHNO,100 ,J)) Q:'J I $D(^CHM IMPB(CHBTC HNO,100,J, 0)) I ($P( ^(0),"^",3 )=2)!($P(^ (0),"^",3) =3) S CHMF PDI=$P(^(0 ),"^",1) D SETPROD^C HMFIMG ..S CHBTCHNO= "",CHMFPDI ="" .S CHM FPDI="",CH MFNMPG="" D LINE^CHM FA100,SCRE EN^CHMFADR 2 I CHOICE =3 I CHMFP DI'="" D S CHMFSORT =1 .S X="" S:$D(^CHM IMAGE(CHMF PDI,0)) X= ^(0) .S $P (X,"^",1)= CHMFPDI,$P (X,"^",2)= CHMFNMPG,$ P(X,"^",3) =DUZ .S $P (X,"^",4)= CHMFTMBG,P DIFL=1 .S ^CHMIMAGE( CHMFPDI,0) =X,^CHMIMA GE("B",CHM FPDI,CHMFP DI)="" .I $P(^CHMIMG (CHMFPDI,0 ),"^",4)=" " S $P(^CH MIMG(CHMFP DI,0),"^", 3)=DUZ,$P( ^CHMIMG(CH MFPDI,0)," ^",4)=CHMF TMBG .S $P (^CHMIMG(C HMFPDI,0), "^",3)=DUZ .I '$D(^C HMIMG(CHMF PDI,"PAUSE ")) S $P(^ CHMIMG(CHM FPDI,0),"^ ",4)=CHMFT MBG I CHOI CE=2 D G: $D(NP) E1 D CHKPAG^C HMFADR2 G: $D(NP) E1 D ^CHMFA00 2,REDRAW^C HMFADR2 G: $D(CHMFPRE V) CHMFA00 8 D GETDAT A,NEWPG^CH MFADR2 G A 0 .K NP I '$D(CHMFPD I)!'$D(CHM FIMAG)!'$D (CHMFIMTY) !'$D(CHMFP GNM) S NP= "" D NODAT A^CHMFADR2 Q .K NP I (CHMFPDI= "")!(CHMFI MAG="")!(C HMFIMTY="" )!(CHMFPGN M="") S NP ="" D NODA TA^CHMFADR 2 Q I CHOI CE=11 D G E1 .S HCH MFPDI=CHMF PDI .D ^CH MKPPR1 .S CHMFPDI=HC HMFPDI .D RNGECLR^CH SC1(1,18,X Y,CHEOL) . D SETUP^CH MFADR1 .S CHTITLE="D OCUMENT ID ENTIFICATI ON SCREEN" ,CHSCREEN= "" .S CHSC REEN=$O(^C HMSCRN("B" ,CHTITLE,C HSCREEN)) .D TITLE^C HMFA100,LI NE^CHMFA10 0,CHOICE^C HMFA100 .D SCREEN^CH MFADR2,ERR ORS^CHMFA1 00 I CHOIC E=12 D G E1 .S HCHM FPDI=CHMFP DI .D ^CHM KPDI1 .S C HMFPDI=HCH MFPDI .D R NGECLR^CHS C1(1,18,XY ,CHEOL) .D SETUP^CHM FADR1 .S C HTITLE="DO CUMENT IDE NTIFICATIO N SCREEN", CHSCREEN=" " .S CHSCR EEN=$O(^CH MSCRN("B", CHTITLE,CH SCREEN)) . D TITLE^CH MFA100,LIN E^CHMFA100 ,CHOICE^CH MFA100 .D SCREEN^CHM FADR2,ERRO RS^CHMFA10 0TEST I CH OICE=7 D .S CHPDIPR L=$$PDITYP ^CHMFAUT1( CHMFPDI) . Q:'CHPDIPR L .S $P(^C HMIMG(CHMF PDI,0),"^" ,6)=4 .;S ^CHMIMG("E DI/OCR-HOL D",CHMFPDI )="" .S CH MFPDRV="" QGETDATA S :'$D(CHMFP GNM) CHMFP GNM=0 S:CH MFPGNM="" CHMFPGNM=0 S CHMFPGN M=$O(^CHMI MAGE(CHMFP DI,1,CHMFP GNM)) I 'C HMFPGNM S CHMFPGNM=$ O(^CHMIMAG E(CHMFPDI, 1,99999),- 1) Q S CHM FIMAG=0 S CHMFIMAG=$ O(^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G)) I CHMF IMAG I $D( ^CHMIMAGE( CHMFPDI,1, CHMFPGNM,2 ,CHMFIMAG, 0)) D .S I I=$P(^(0), "^",4) .I II I $D(^C HMDIC(7410 02.08,II,0 )) S CHMFT YPE=$P(^(0 ),"^",1) . S CHMFIMTY =II Q ; BD IMCK S CHP DITY=$$TYP E^CHMFPDI2 (CHMFPDI) Q:CHPDITY= "" I $E(CH PDITY,1,1) '=9 Q S DY =22,DX=10, $Y=DY,$X=D X X XY W @ CHEOL S DY =22,DX=22, $Y=DY,$X=D X X XY W " *****This option is not availa ble.*****" R X:5 S D Y=22,DX=10 ,$Y=DY,$X= DX X XY W @CHEOL S C HMFBDBK="" 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 | CHMFA008 ; JLR/DEN;DO CUMENT IDE NTIFICATIO N SCREEN;0 8/20/98 8: 16 AM ;;1. 0;CHAMPVA SYSTEM;;JU LY 4, 1990 ;Build 2 ; ;CPTS #149 89 (RLC) ; ;MODIFIED BY RLC ON 4/13/95 - ADDED OPTI ON 11) PPR ;;MODIFIE D BY RLC O N 4/28/95 - ADDED OP TION 12) P PRs-PDI ;; ;JEH 12/16 /09 MTN008 252 - OCR claim mult iplication by VE ;; DHS 12/17/ 09 DEV0053 56 unblock ed the pro gram type 9 check ;; DEV005356 11/29/2011 DGC ;; ch anges made to commen t out DEV5 356 change s to go li ve - RVS 1 /11/2010 ; ;CFS 08/01 /2017 CPE0 05-004 Add the Origi nal PDI Nu mber promp t. ;;CFS 1 0/01/2017 CPE005-069 Removed s et up of C HOSEN vari able in li ne tag A1+ 1. ;; It is now New ed and Set in routin e CHMFADR4 . D CLEAR^ CHMFADR2 S CHTITLE=" DOCUMENT I DENTIFICAT ION SCREEN ",CHSCREEN ="" S CHSC REEN=$O(^C HMSCRN("B" ,CHTITLE,C HSCREEN)) I 'CHSCREE N D NOSCR^ CHMFADR2 G END D TIT LE^CHMFA10 0,LINE^CHM FA100,CHOI CE^CHMFA10 0 D SCREEN ^CHMFADR2, ERRORS^CHM FA100 D NO W^%DTC S C HMFTMBG=%A 0 K CHMFC, CHMFBAD,CH NOFLAG,CHY ESFLG,CHMN NUM,CHMFQU ITA1 I $G( CHOSEN)'=6 ,$G(CHOSEN )'=7 K F0, F1 D WTPDI ^CHMFADR2 G A2ORIGPD I;CPE005-0 04 Origina l PDI prom pt. K F0,F 1 S QU=7 I $G(CHMOPD I)="" S CH MOPDI=$P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) I $G(CHMO PDI)'="" D I '$G(VA LOPDI) S C HMFIMAG=1 G A2 .S VA LOPDI=$$CH KOPDI^CHMF ADR2($G(CH MFPDI),CHM OPDI,CHOSE N,1) D WTO PDI^CHMFAD R2 S DX=41 ,$X=DX X X Y D CSBRS^ CHSC2 W:Y' ="" @CHEOL G:$D(DFOU T) END I $ D(DQOUT) S Y="?" D Q UES^CHMFAD R2,WTOPDI^ CHMFADR2 G ORIGPDI I $D(DUOUT) D WTOPDI^ CHMFADR2 G END I $D( D1OUT) G O RIGPDI I $ D(DDOUT),$ D(CHMOPDI) D WTOPDI^ CHMFADR2 G END I $D( DDOUT) G E ND D CHECK ^CHMFADR2 I $G(F1)=1 S CHMOPDI ="" G ORIG PDI I Y="" ,$G(CHMOPD I)'="",'$G (VALOPDI) G A1 I CHM OPDI="",'$ G(VALOPDI) D CLEARB^ CHMFADR2 G ORIGPDI S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",2)=$G(C HMOPDI)A2 S:'$D(CHMF NMPG) CHMF NMPG="" I $D(^CHMIMG (CHMFPDI,0 )) S:CHMFN MPG="" CHM FNMPG=$P(^ (0),"^",2) ; Subscri pt error 9 /7/5 mlr I $D(CHMFNM PG) I CHMF NMPG'="" D WTNP^CHMF ADR2 G A3 S:'$D(CHMF NMPG) CHMF NMPG="" S: CHMFNMPG=" " CHMFNMPG ="UNK" S Q U=2 D WTNP ^CHMFADR2 S DX=41,$X =DX X XY D CSBRS^CHS C2 W:Y'="" @CHEOL G: $D(DFOUT) END I $D(D QOUT) D QU ES^CHMFADR 2,WTNP^CHM FADR2 G A1 I $D(DUOU T) D WTNP^ CHMFADR2 G END I $D( D1OUT) D C HECK^CHMFA DR2,WTNP^C HMFADR2 G A1 I $D(DD OUT) D WTN P^CHMFADR2 G END I Y ="" D CLEA RB^CHMFADR 2 G A3 D C HECK^CHMFA DR2 G:$D(F 1) A2 D WT NP^CHMFADR 2,CLEARB^C HMFADR2A3 S QU=3 D W TPG^CHMFAD R2 S DX=41 ,$X=DX X X Y S TMPPGN M=CHMFPGNM ,TMPNMPG=C HMFNMPG ;JEH 12/16 /09 MTN008 252 - ADDE D LINE D C SBRS^CHSC2 W:Y'="" @ CHEOL I Y> 199 S CHMF PGNM=TMPPG NM,CHMFNMP G=TMPNMPG G A3 ;JE H 12/16/09 MTN008252 - ADDED L INE G:$D(D FOUT) END I $D(DQOUT ) D QUES^C HMFADR2,WT PG^CHMFADR 2 G A1 I $ D(DUOUT) D WTPG^CHMF ADR2 G A3 I $D(D1OUT ) D CHECK^ CHMFADR2,W TPG^CHMFAD R2 G A3 I $D(DDOUT) D CHECK^CH MFADR2 G:$ D(F1) A3 D WTPG^CHMF ADR2 G END D CHECK^C HMFADR2 G: $D(F1) A3 I $D(CHMFP GNM) I CHM FPGNM'="" I CHMFPGNM >CHMFNMPG D .S CHMFN MPG=CHMFPG NM,$P(^CHM IMG(CHMFPD I,0),"^",2 )=CHMFPGNM .D WTNP^C HMFADR2 D WTPG^CHMFA DR2,CLEARB ^CHMFADR2A 4 S CHMFIM AG=1 ;S QU =4 ;D WTIM ^CHMFADR2 ;S DX=41 X XY ;D CSB RS^CHSC2 ; G:$D(DFOUT ) END ;I $ D(DQOUT) D QUES^CHMF ADR2,WTIM^ CHMFADR2 G A4 ;I $D( DUOUT) D W TIM^CHMFAD R2 G A3 ;I $D(D1OUT) D CHECK^C HMFADR2 G: $D(F1) A4 D WTIM^CHM FADR2 G A3 ;I $D(DDO UT) D CHEC K^CHMFADR2 G:$D(F1) A4 D WTIM^ CHMFADR2 G END ;D CH ECK^CHMFAD R2 ;G:$D(F 1) A4 ;D W TIM^CHMFAD R2,CLEARB^ CHMFADR2A6 S QU=6 D WTTYPE^CHM FADR2 S DX =41,$X=DX X XY D CSB RS^CHSC2 G :$D(DFOUT) END I $D( DQOUT) S Y ="?" D CHE CK^CHMFADR 2 G A6 I $ D(DUOUT) D WTTYPE^CH MFADR2 G A 4 I $D(D1O UT) D CHEC K^CHMFADR2 G:$D(F1) A6 D WTTYP E^CHMFADR2 G A4 I $D (DDOUT) D CHECK^CHMF ADR2 G:$D( F1) A6 D W TTYPE^CHMF ADR2 G END D CHECK^C HMFADR2 G: $D(F1) A6 D WTTYPE^C HMFADR2,CL EARB^CHMFA DR2 G A1EN D D CLEARB ^CHMFADR2E 1 K NP,CHM FBAD,CHYES FLG,CHMFKI L,CHMFSORT ,CHMFPRV,C HMFPS,CHMF PAUS,CHMFE XIT,CHMFBD BK,CHMFPDR V D PRMPT^ CHMFA100,A SK^CHMFA10 0 D CLEARB ^CHMFADR2 S CHOICE=Y G:CHOICE= 1 A0 I CHO ICE=5 K FL AG1 D G:$ D(FLAG1) A 0 .D RNGEC LR^CHSC1(1 3,18,XY,CH EOL) S DX= 1,DY=14,$Y =DY,$X=DX X XY .W "O ption #5 i s NOT AVAI LABLE." R X:15 .D CL EAR^CHMFAD R2,SCREEN^ CHMFADR2 S FLAG1=1 . Q ;S:CHOIC E=4 CHMFEX IT=1 S:CHO ICE=4 CHMF KIL=1 I CH OICE=8 I C HMFPDI="" D NOPAUS^C HMFADR2 G E1 I CHOIC E=8 I CHMF PDI'="" S CHMFPAUS= 1 I CHOICE =9 D G:$G (VALOPDI) E1 D ^CHMF A005 G END .S VALOPD I=$$CHKOPD I^CHMFADR2 (CHMFPDI,C HMOPDI,CHO SEN,1) I ( CHOICE=6)& (IPSUB="OC R2^CHMFADR 4") D Q ;DGC 11/30 /11 DEV005 356 BEGIN .D ^CHMFAB UNR .I CHM FBAD="" D G E1 ..S DX=1 F DY= 12:1:20 X XY W @CHEO L ;D GC 11/30/1 1 DEV00535 6 END I CH OICE=6 D B DIMCK G:$D (CHMFBDBK) E1 S CHMF BAD=1 D ^C HMFABIM ;d hs 12/17/0 9 original line prg type=9 ;I CHOICE=6 S CHMFBAD=1 D ^CHMFAB IM ;dhs 12 /17/09 rem ove check for progra m prg type =9 I CHOIC E=10 D G: $G(VALOPDI ) E1 ;CPE0 05-004 .S VALOPDI=$ $CHKOPDI^C HMFADR2(CH MFPDI,CHMO PDI,CHOSEN ,1) I CHOI CE=10 I '$ D(CHBTCHNO ) D NOBTCH ^CHMFADR2 G E1 I CHO ICE=10 I C HBTCHNO="" D NOBTCH^ CHMFADR2 G E1 I CHOI CE=10 D ^C HMFAB2 D G E1 .I $D (CHBTCHNO) I CHBTCHN O'="" I $$ BTCHST^CHM FABU3(CHBT CHNO)=1 D ..S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",6)=" " ..S $P(^ CHMIMPB(CH BTCHNO,0), "^",6)="" ..S CHMFPP ="BATCLSD" ,CHMFI=CHB TCHNO D ^C HMFWK03 .. S J=0 F S J=$O(^CHM IMPB(CHBTC HNO,100,J) ) Q:'J I $D(^CHMIMP B(CHBTCHNO ,100,J,0)) I ($P(^(0 ),"^",3)=2 )!($P(^(0) ,"^",3)=3) S CHMFPDI =$P(^(0)," ^",1) D SE TPROD^CHMF IMG ..S CH BTCHNO="", CHMFPDI="" .S CHMFPD I="",CHMFN MPG="" D L INE^CHMFA1 00,SCREEN^ CHMFADR2 I CHOICE=3 I CHMFPDI' ="" D G:$ G(VALOPDI) E1 S CHM FSORT=1 .S VALOPDI=$ $CHKOPDI^C HMFADR2(CH MFPDI,CHMO PDI,CHOSEN ,1) I VALO PDI=1 Q .S X="" S:$D (^CHMIMAGE (CHMFPDI,0 )) X=^(0) .S $P(X,"^ ",1)=CHMFP DI,$P(X,"^ ",2)=CHMFN MPG,$P(X," ^",3)=DUZ .S $P(X,"^ ",4)=CHMFT MBG,PDIFL= 1 .S ^CHMI MAGE(CHMFP DI,0)=X,^C HMIMAGE("B ",CHMFPDI, CHMFPDI)=" " .I $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)=DU Z,$P(^CHMI MG(CHMFPDI ,0),"^",4) =CHMFTMBG .S $P(^CHM IMG(CHMFPD I,0),"^",3 )=DUZ .I ' $D(^CHMIMG (CHMFPDI," PAUSE")) S $P(^CHMIM G(CHMFPDI, 0),"^",4)= CHMFTMBG I CHOICE=2 D G:$D(NP )!($G(VALO PDI)) E1 D CHKPAG^CH MFADR2 G:$ D(NP) E1 D ^CHMFA002 ,REDRAW^CH MFADR2 G:$ D(CHMFPREV ) CHMFA008 D GETDATA ,NEWPG^CHM FADR2 G A0 .I CHOSEN '=6,CHOSEN '=7,CHOSEN '=8 S CHMO PDI="XXXX" .K NP I ' $D(CHMFPDI )!'$D(CHMO PDI)!'$D(C HMFIMAG)!' $D(CHMFIMT Y)!'$D(CHM FPGNM) S N P="" D NOD ATA^CHMFAD R2 Q .K NP I (CHMFPD I="")!(CHM OPDI="")!( CHMFIMAG=" ")!(CHMFIM TY="")!(CH MFPGNM="") S NP="" D NODATA^CH MFADR2 Q . I CHOSEN'= 6,CHOSEN'= 7,CHOSEN'= 8,CHMOPDI= "XXXX" S C HMOPDI="" .S VALOPDI =$$CHKOPDI ^CHMFADR2( CHMFPDI,CH MOPDI,CHOS EN,1) I $G (VALOPDI) Q I CHOICE =11 D G E 1 .S VALOP DI=$$CHKOP DI^CHMFADR 2(CHMFPDI, CHMOPDI,CH OSEN,1) I $G(VALOPDI ) Q .S HCH MFPDI=CHMF PDI .D ^CH MKPPR1 .S CHMFPDI=HC HMFPDI .D RNGECLR^CH SC1(1,18,X Y,CHEOL) . D SETUP^CH MFADR1 .S CHTITLE="D OCUMENT ID ENTIFICATI ON SCREEN" ,CHSCREEN= "" .S CHSC REEN=$O(^C HMSCRN("B" ,CHTITLE,C HSCREEN)) .D TITLE^C HMFA100,LI NE^CHMFA10 0,CHOICE^C HMFA100 .D SCREEN^CH MFADR2,ERR ORS^CHMFA1 00 I CHOIC E=12 D G E1 .S VALO PDI=$$CHKO PDI^CHMFAD R2(CHMFPDI ,CHMOPDI,C HOSEN,1) I $G(VALOPD I) Q .S HC HMFPDI=CHM FPDI .D ^C HMKPDI1 .S CHMFPDI=H CHMFPDI .D RNGECLR^C HSC1(1,18, XY,CHEOL) .D SETUP^C HMFADR1 .S CHTITLE=" DOCUMENT I DENTIFICAT ION SCREEN ",CHSCREEN ="" .S CHS CREEN=$O(^ CHMSCRN("B ",CHTITLE, CHSCREEN)) .D TITLE^ CHMFA100,L INE^CHMFA1 00,CHOICE^ CHMFA100 . D SCREEN^C HMFADR2,ER RORS^CHMFA 100TEST I CHOICE=7 D G:$G(VAL OPDI) E1 . S VALOPDI= $$CHKOPDI^ CHMFADR2(C HMFPDI,CHM OPDI,CHOSE N,1) I $G( VALOPDI) Q .S CHPDIP RL=$$PDITY P^CHMFAUT1 (CHMFPDI) .Q:'CHPDIP RL .S $P(^ CHMIMG(CHM FPDI,0),"^ ",6)=4 .;S ^CHMIMG(" EDI/OCR-HO LD",CHMFPD I)="" .S C HMFPDRV="" QGETDATA S:'$D(CHMF PGNM) CHMF PGNM=0 S:C HMFPGNM="" CHMFPGNM= 0 S CHMFPG NM=$O(^CHM IMAGE(CHMF PDI,1,CHMF PGNM)) I ' CHMFPGNM S CHMFPGNM= $O(^CHMIMA GE(CHMFPDI ,1,99999), -1) Q S CH MFIMAG=0 S CHMFIMAG= $O(^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG)) I CHM FIMAG I $D (^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,0)) D .S II=$P(^(0) ,"^",4) .I II I $D(^ CHMDIC(741 002.08,II, 0)) S CHMF TYPE=$P(^( 0),"^",1) .S CHMFIMT Y=II Q ; B DIMCK S CH PDITY=$$TY PE^CHMFPDI 2(CHMFPDI) Q:CHPDITY ="" I $E(C HPDITY,1,1 )'=9 Q S D Y=22,DX=10 ,$Y=DY,$X= DX X XY W @CHEOL S D Y=22,DX=22 ,$Y=DY,$X= DX X XY W "*****This option is not avail able.***** " R X:5 S DY=22,DX=1 0,$Y=DY,$X =DX X XY W @CHEOL S CHMFBDBK=" " Q ; | |
11 | ||
12 | ||
13 | ||
14 | Difference s | |
15 | ||
16 | See highli ghted info above. | |
17 | ||
18 | ||
19 | Passed XIN DEX? (Y / N): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.