20. EPMO Open Source Coordination Office Redaction File Detail Report

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.

20.1 Files compared

# 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

20.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 38
Changed 0 0
Inserted 0 0
Removed 0 0

20.3 Comparison options

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

20.4 Active regular expressions

No regular expressions were active.

20.5 Comparison detail

  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):