19. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:27:41 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.

19.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 CHMFA001 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 CHMFA001 Developer Form.docx Thu Dec 7 22:44:37 2017 UTC

19.2 Comparison summary

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

19.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

19.4 Active regular expressions

No regular expressions were active.

19.5 Comparison detail

  1   Routine Na me:  ___CH MFA001____ ___
  2   Developer  Name(s):   _______Cin dy Stiles_ ______
  3   Associated  User Stor y/Stories:     ___CPE 005-069 an d 070__
  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   CHMFA001 ; JLR/DEN;DO CUMENT IDE NTIFICATIO N SCREEN;0 8/20/98 8: 16 AM ;V2. 0;CALLED F ROM CHMF10 1A;; ;;CPT S #14989 ( RLC) ;;MOD IFIED BY R LC ON 4/13 /95 - ADDE D OPTION 1 1) PPR ;;M ODIFIED BY  RLC ON 4/ 28/95 - AD DED OPTION  12) PPRs- PDI ; Clea r Screen a nd establi sh values  for screen  output va riables D  CLEAR^CHMF ADR2 S CHT ITLE="DOCU MENT IDENT IFICATION  SCREEN",CH SCREEN=""  ; Query CH MSCRN to r eturn the  screen num ber based  on the abo ve title S  CHSCREEN= $O(^CHMSCR N("B",CHTI TLE,CHSCRE EN)) ; If  there is n o identifi ed screen  number, ou tput messa ge to user  and quit.  I 'CHSCRE EN D NOSCR ^CHMFADR2  G END D TI TLE^CHMFA1 00,LINE^CH MFA100,CHO ICE^CHMFA1 00 D SCREE N^CHMFADR2 ,ERRORS^CH MFA100 D N OW^%DTC S  CHMFTMBG=% A0 K CHMFC ,CHMFBAD,C HNOFLAG,CH YESFLG,CHM NNUM,CHMFQ UIT A01 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=0 D  ^CHMFABTH  G:$D(DDOUT ) ENDA1 K  F0,F1 G:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 A2 I  $D(CHBTCH NO) I CHBT CHNO I $D( ^CHMIMPB(C HBTCHNO))  D ^CHMFA00 4 I $D(CHM FPDI) I CH MFPDI'=""  D WTPDI^CH MFADR2 G A 2  S QU=1  D WTPDI^CH MFADR2 S D X=41,$X=DX  X XY D CS BRS^CHSC2  W:Y'="" @C HEOL G:$D( DFOUT) END  I $D(DQOU T) D QUES^ CHMFADR2,W TPDI^CHMFA DR2 G A1 I  $D(DUOUT)  D WTPDI^C HMFADR2 G  END I $D(D 1OUT) D WT PDI^CHMFAD R2 S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 G A01 I  $D(DDOUT)  G END I Y ="" D CLEA RB^CHMFADR 2 G A1 D C HECK^CHMFA DR2 I $D(F 1) S CHMFP DI="" G A1  D CLEARB^ CHMFADR2 I  '$D(^CHMI MG(Y)) S C HMFPDI=""  D ERR3^CHM FADR2 G A1  I $D(^CHM PAY("C",Y) ) D ERR1^C HMFADR2 S  CHMFPDI=""  K CHMNNUM  S CHMFNMP G="" G A1  I $D(^CHNV PAY("C",Y) ) D ERR1^C HMFADR2 S  CHMFPDI=""  K CHMNNUM  S CHMFNMP G="" G A1  S ZIMGST=" " S:$D(^CH MIMG(Y,0))  ZIMGST=$P (^(0),"^", 6) I ZIMGS T>2 D ERR1 ^CHMFADR2  S CHMFPDI= "" K CHMNN UM S CHMFN MPG="" G A 1 I CHMFPD I'="" I $D (^CHMIMAGE ("LOCK",CH MFPDI)) D  LOCK^CHMFA DR2 K CHMN NUM S CHMF NMPG="" G  A1 S:CHMFP DI'="" ^CH MIMAGE("LO CK",CHMFPD I)="" D WT PDI^CHMFAD R2,CLEARB^ CHMFADR2 D  INPRC^CHM FIMGA2 D I MAGE^CHMFA DR2 ;I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 S:CHM FNMPG="" C HMFNMPG="U NK" D WTNP ^CHMFADR2  G A3 S:'$D (CHMFNMPG)  CHMFNMPG= "" I $D(^C HMIMG(CHMF PDI,0)) S: CHMFNMPG=" " CHMFNMPG =$P(^(0)," ^",2) I $D (CHMFNMPG)  I CHMFNMP G'="" D WT NP^CHMFADR 2 G A3  S: '$D(CHMFNM PG) CHMFNM PG="" S:CH MFNMPG=""  CHMFNMPG=" UNK" S QU= 2 D WTNP^C HMFADR2 S  DX=41,$X=D X X XY D C SBRS^CHSC2  W:Y'="" @ CHEOL G:$D (DFOUT) EN D I $D(DQO UT) D QUES ^CHMFADR2, WTNP^CHMFA DR2 G A1 I  $D(DUOUT)  D WTNP^CH MFADR2 G E ND I $D(D1 OUT) D CHE CK^CHMFADR 2,WTNP^CHM FADR2 G A1  I $D(DDOU T) D WTNP^ CHMFADR2 G  END I Y=" " D CLEARB ^CHMFADR2  G A3 D CHE CK^CHMFADR 2 G:$D(F1)  A2 D WTNP ^CHMFADR2, CLEARB^CHM FADR2A3 S  QU=3 D WTP G^CHMFADR2  S DX=41,$ X=DX X XY  D CSBRS^CH SC2 W:Y'=" " @CHEOL G :$D(DFOUT)  END I $D( DQOUT) D Q UES^CHMFAD R2,WTPG^CH MFADR2 G A 1 I $D(DUO UT) D WTPG ^CHMFADR2  G A3 I $D( D1OUT) D C HECK^CHMFA DR2,WTPG^C HMFADR2 G  A3 I $D(DD OUT) D CHE CK^CHMFADR 2 G:$D(F1)  A3 D WTPG ^CHMFADR2  G END D CH ECK^CHMFAD R2 G:$D(F1 ) A3 D WTP G^CHMFADR2 ,CLEARB^CH MFADR2A4 S  CHMFIMAG= 1 ;S QU=4  D WTIM^CHM FADR2 S DX =41 X XY D  CSBRS^CHS C2 ;G:$D(D FOUT) END  I $D(DQOUT ) D QUES^C HMFADR2,WT IM^CHMFADR 2 G A4 ;I  $D(DUOUT)  D WTIM^CHM FADR2 G A3  ;I $D(D1O UT) D CHEC K^CHMFADR2  G:$D(F1)  A4 D WTIM^ CHMFADR2 G  A3 ;I $D( DDOUT) D C HECK^CHMFA DR2 G:$D(F 1) A4 D WT IM^CHMFADR 2 G END ;D  CHECK^CHM FADR2 G:$D (F1) A4 D  WTIM^CHMFA DR2,CLEARB ^CHMFADR2A 6 S QU=6 D  WTTYPE^CH MFADR2 S D X=41,$X=DX  X XY D CS BRS^CHSC2  G:$D(DFOUT ) END I $D (DQOUT) S  Y="?" D CH ECK^CHMFAD R2 G A6 I  $D(DUOUT)  D WTTYPE^C HMFADR2 G  A3 I $D(D1 OUT) D CHE CK^CHMFADR 2 G:$D(F1)  A6 D WTTY PE^CHMFADR 2 G A3 I $ D(DDOUT) D  CHECK^CHM FADR2 G:$D (F1) A6 D  WTTYPE^CHM FADR2 G EN D D CHECK^ CHMFADR2 G :$D(F1) A6  D WTTYPE^ CHMFADR2,C LEARB^CHMF ADR2 G A1E ND D CLEAR B^CHMFADR2 E1 K NP,CH MFBAD,CHYE SFLG,CHMFK IL,CHMFSOR T,CHMFPRV, CHMFPS,CHM FPAUS,CHMF EXIT,CHMFB DBK D PRMP T^CHMFA100 ,ASK^CHMFA 100 D CLEA RB^CHMFADR 2 S CHOICE =Y G:CHOIC E=1 A0 G:C HOICE=5 E1  I CHOICE= 7 D  G E1  .S DY=22,D X=10,$Y=DY ,$X=DX X X Y W @CHEOL  .S DY=22, DX=22,$Y=D Y,$X=DX X  XY W "**** * This opt ion is not  available . *****" R  X:5 .S DY =22,DX=10, $Y=DY,$X=D X X XY W @ CHEOL S:CH OICE=4 CHM FKIL=1 I C HOICE=8 I  CHMFPDI=""  D NOPAUS^ CHMFADR2 G  E1 I CHOI CE=8 I CHM FPDI'=""   S CHMFPAUS =1 I CHOIC E=9 D ^CHM FA005 G EN D I CHOICE =6 D BDIMC K G:$D(CHM FBDBK) E1  S CHMFBAD= 1 D ^CHMFA BIM 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  S C HMFSORT=1  .S X="" S: $D(^CHMIMA GE(CHMFPDI ,0)) X=^(0 ) .S $P(X, "^",1)=CHM FPDI,$P(X, "^",2)=CHM FNMPG,$P(X ,"^",3)=DU Z .S $P(X, "^",4)=CHM FTMBG,PDIF L=1 .S ^CH MIMAGE(CHM FPDI,0)=X, ^CHMIMAGE( "B",CHMFPD I,CHMFPDI) ="" .I $P( ^CHMIMG(CH MFPDI,0)," ^",4)="" S  $P(^CHMIM G(CHMFPDI, 0),"^",3)= DUZ,$P(^CH MIMG(CHMFP DI,0),"^", 4)=CHMFTMB G .S $P(^C HMIMG(CHMF PDI,0),"^" ,3)=DUZ .I  '$D(^CHMI MG(CHMFPDI ,"PAUSE"))  S $P(^CHM IMG(CHMFPD I,0),"^",4 )=CHMFTMBG  I CHOICE= 2 D  G:$D( NP) E1 D C HKPAG^CHMF ADR2 G:$D( NP) E1 D ^ CHMFA002,R EDRAW^CHMF ADR2 G:$D( CHMFPREV)  CHMFA001 D  NEWPG^CHM FADR2 G A0  .K NP I ' $D(CHMFPDI )!'$D(CHMF IMAG)!'$D( CHMFIMTY)! '$D(CHMFPG NM) S NP=" " D NODATA ^CHMFADR2  Q .K NP I  (CHMFPDI=" ")!(CHMFIM AG="")!(CH MFIMTY="") !(CHMFPGNM ="") S NP= "" D NODAT A^CHMFADR2  Q I CHOIC E=11 D  G  E1 .S HCHM FPDI=CHMFP DI .D ^CHM KPPR1 .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 0 I CHOICE =12 D  G E 1 .S HCHMF PDI=CHMFPD I .D ^CHMK PDI1 .S CH MFPDI=HCHM FPDI .D RN GECLR^CHSC 1(1,18,XY, CHEOL) .D  SETUP^CHMF ADR1 .S CH TITLE="DOC UMENT IDEN TIFICATION  SCREEN",C HSCREEN=""  .S CHSCRE EN=$O(^CHM SCRN("B",C HTITLE,CHS CREEN)) .D  TITLE^CHM FA100,LINE ^CHMFA100, CHOICE^CHM FA100 .D S CREEN^CHMF ADR2,ERROR S^CHMFA100  Q ; BDIMC K K CHMFBD BK I $D(^C HMDIC(7410 02.21,DUZ, 0)) I $P(^ (0),"^",10 )=1 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 ;  D CS BRS^CHSC2  S Y="" U $ I X ^%ZOSF ("EOFF") K  TL F I=1: 1:31 S:I=3 1 TL=1 R * X:$S($D(DT IME):DTIME ,1:60) Q:( X=13)!(X=9 )!(X=27) S :X'=127 Y= Y_$C(X) D: X=127 S:I= 0 Y="" W:X '=127 $C(X ) .S:I=1 I =0 Q:I=0 S :I'=1 I=I- 2,Y=$E(Y,1 ,I) W *8,* 27," ",*8, *27 Q D CS BRS^CHSC21  K DFOUT,D UOUT,DQOUT ,DDOUT,D1O UT,D2OUT I  X=27 F I= 1:1:2 R *X  D:I=2 .S: X=65 D1OUT ="" S:X=66  D2OUT=""  S:X=9 DDOU T="" S:X=9  DTOUT=""  I Y="^^" S  (DFOUT,Y) ="" S:Y="^ " (DUOUT,Y )="" S:Y?1 "?".E!(Y[" ^") (DQOUT ,Y)="" U $ I X ^%ZOSF ("EON") 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   CHMFA001 ; JLR/DEN;DO CUMENT IDE NTIFICATIO N SCREEN;0 8/20/98 8: 16 AM ;V2. 0;CALLED F ROM CHMF10 1A;; ;;CPT S #14989 ( RLC) ;;MOD IFIED BY R LC ON 4/13 /95 - ADDE D OPTION 1 1) PPR ;;M ODIFIED BY  RLC ON 4/ 28/95 - AD DED OPTION  12) PPRs- PDI ; Clea r Screen a nd establi sh values  for screen  output va riables ;C FS 10/01/2 017 - CPE0 05-069 Add  logic for  Original  and Curren t PDI Numb er prompts . The ; me nu option  "ER" was a dded to al low Manual  EDI Re-op en process ing. ;CFS  10/01/2017  - CPE005- 070 Make O riginal an d Current  PDI Number s prompts  Read Only  ; when nex t screen i s chosen f rom the bo ttom menu  in Doc ID  Screen  D  CLEAR^CHMF ADR2 S CHT ITLE="DOCU MENT IDENT IFICATION  SCREEN",CH SCREEN=""  ; Query CH MSCRN to r eturn the  screen num ber based  on the abo ve title S  CHSCREEN= $O(^CHMSCR N("B",CHTI TLE,CHSCRE EN)) ; If  there is n o identifi ed screen  number, ou tput messa ge to user  and quit.  I 'CHSCRE EN D NOSCR ^CHMFADR2  G END D TI TLE^CHMFA1 00,LINE^CH MFA100,CHO ICE^CHMFA1 00 D SCREE N^CHMFADR2 ,ERRORS^CH MFA100 D N OW^%DTC S  CHMFTMBG=% A0 K CHMFC ,CHMFBAD,C HNOFLAG,CH YESFLG,CHM NNUM,CHMFQ UIT ;---Be gin CPE005 -069 A01 I  $G(CHOSEN )'=8,$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 D ^CHMF ABTH G:$D( DDOUT) END ORIGPDI ;C PE005-069  Original P DI Prompt  K F1 I $G( CHOSEN)'=8  G A1 I $G (CHMOPDI)' ="",'$G(VA LOPDI) S C HMFIMAG=1  G A1  ;CHE 005-070 -  Make a rea d only pro mpt. S QU= 8 D WTOPDI ^CHMFADR2  S DX=41,$X =DX X XY D  CSBRS^CHS C2 W:Y'=""  @CHEOL G: $D(DFOUT)  END I $D(D QOUT) S Y= "?" D QUES ^CHMFADR2, WTOPDI^CHM FADR2 G OR IGPDI I $D (DUOUT) D  WTOPDI^CHM FADR2 G EN D I $D(D1O UT) G ORIG PDI I $D(D DOUT),$D(C HMOPDI) D  WTOPDI^CHM FADR2 G EN D I $D(DDO UT) G END  D CHECK^CH MFADR2 I $ G(F1)=1 S  CHMOPDI=""  G ORIGPDI  I Y="",$G (CHMOPDI)' ="",'$G(VA LOPDI) G A 1 I CHMOPD I="",'$G(V ALOPDI) D  CLEARB^CHM FADR2 G OR IGPDIA1 K  F0,F1 G:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 A2 I  CHOSEN'=8  D  ;Not n eeded for  Manual Re- open. Batc h number n ot used. . I $D(CHBTC HNO) I CHB TCHNO I $D (^CHMIMPB( CHBTCHNO))  D ^CHMFA0 04 I $D(CH MFPDI) I C HMFPDI'=""  D WTPDI^C HMFADR2 G  A2 S QU=$S (CHOSEN=8: 9,1:1) ;-- -End CPE00 5-069 D WT 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) D  QUES^CHMF ADR2,WTPDI ^CHMFADR2  G A1 I $D( DUOUT) D W TPDI^CHMFA DR2 G END  I CHOSEN'= 8,$D(D1OUT ) D WTPDI^ CHMFADR2 S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 G  A01 I $D( DDOUT) G E ND I CHOSE N'=8,Y=""  D CLEARB^C HMFADR2 G  A1 D CHECK ^CHMFADR2  I $D(F1) S  CHMFPDI=" " G A1 I C HOSEN'=8 D  .D CLEARB ^CHMFADR2  I '$D(^CHM IMG(Y)) S  CHMFPDI=""  D ERR3^CH MFADR2 G A 1 .I $D(^C HMPAY("C", Y)) D ERR1 ^CHMFADR2  S CHMFPDI= "" K CHMNN UM S CHMFN MPG="" G A 1 .I $D(^C HNVPAY("C" ,Y)) D ERR 1^CHMFADR2  S CHMFPDI ="" K CHMN NUM S CHMF NMPG="" G  A1 .S ZIMG ST="" S:$D (^CHMIMG(Y ,0)) ZIMGS T=$P(^(0), "^",6) .I  ZIMGST>2 D  ERR1^CHMF ADR2 S CHM FPDI="" K  CHMNNUM S  CHMFNMPG=" " G A1 I C HMFPDI'=""  I $D(^CHM IMAGE("LOC K",CHMFPDI )) D LOCK^ CHMFADR2 K  CHMNNUM S  CHMFNMPG= "" G A1 S: CHMFPDI'=" " ^CHMIMAG E("LOCK",C HMFPDI)=""  D WTPDI^C HMFADR2,CL EARB^CHMFA DR2 D INPR C^CHMFIMGA 2 D IMAGE^ CHMFADR2 ; I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=1  S:CHMFNMPG ="" CHMFNM PG="UNK" D  WTNP^CHMF ADR2 G A3  S:'$D(CHMF NMPG) CHMF NMPG="" I  $D(^CHMIMG (CHMFPDI,0 )) S:CHMFN MPG="" CHM FNMPG=$P(^ (0),"^",2)  I $D(CHMF NMPG) I CH MFNMPG'=""  D WTNP^CH MFADR2 G A 3 S:'$D(CH MFNMPG) CH MFNMPG=""  S:CHMFNMPG ="" CHMFNM PG="UNK" S  QU=2 D WT NP^CHMFADR 2 S DX=41, $X=DX X XY  D CSBRS^C HSC2 W:Y'= "" @CHEOL  G:$D(DFOUT ) END I $D (DQOUT) D  QUES^CHMFA DR2,WTNP^C HMFADR2 G  A1 I $D(DU OUT) D WTN P^CHMFADR2  G END I $ D(D1OUT) D  CHECK^CHM FADR2,WTNP ^CHMFADR2  G A1 I $D( DDOUT) D W TNP^CHMFAD R2 G END I  Y="" D CL EARB^CHMFA DR2 G A3 D  CHECK^CHM FADR2 G:$D (F1) A2 D  WTNP^CHMFA DR2,CLEARB ^CHMFADR2A 3 S QU=3 D  WTPG^CHMF ADR2 S DX= 41,$X=DX X  XY D CSBR S^CHSC2 W: Y'="" @CHE OL G:$D(DF OUT) END I  $D(DQOUT)  D QUES^CH MFADR2,WTP G^CHMFADR2  G A1 I $D (DUOUT) D  WTPG^CHMFA DR2 G A3 I  $D(D1OUT)  D CHECK^C HMFADR2,WT PG^CHMFADR 2 G A3 I $ D(DDOUT) D  CHECK^CHM FADR2 G:$D (F1) A3 D  WTPG^CHMFA DR2 G END  D CHECK^CH MFADR2 G:$ D(F1) A3 D  WTPG^CHMF ADR2,CLEAR B^CHMFADR2 A4 S CHMFI MAG=1 ;S Q U=4 D WTIM ^CHMFADR2  S DX=41 X  XY D CSBRS ^CHSC2 ;G: $D(DFOUT)  END I $D(D QOUT) D QU ES^CHMFADR 2,WTIM^CHM FADR2 G A4  ;I $D(DUO UT) D WTIM ^CHMFADR2  G A3 ;I $D (D1OUT) D  CHECK^CHMF ADR2 G:$D( F1) A4 D W TIM^CHMFAD R2 G A3 ;I  $D(DDOUT)  D CHECK^C HMFADR2 G: $D(F1) A4  D WTIM^CHM FADR2 G EN D ;D CHECK ^CHMFADR2  G:$D(F1) A 4 D WTIM^C HMFADR2,CL EARB^CHMFA DR2A6 S QU =6 D WTTYP E^CHMFADR2  S DX=41,$ X=DX X XY  D CSBRS^CH SC2 I CHOS EN=8 G END   ;CPE005- 069 G:$D(D FOUT) END  I $D(DQOUT ) S Y="?"  D CHECK^CH MFADR2 G A 6 I $D(DUO UT) D WTTY PE^CHMFADR 2 G A3 I $ D(D1OUT) D  CHECK^CHM FADR2 G:$D (F1) A6 D  WTTYPE^CHM FADR2 G A3  I $D(DDOU T) D CHECK ^CHMFADR2  G:$D(F1) A 6 D WTTYPE ^CHMFADR2  G END D CH ECK^CHMFAD R2 G:$D(F1 ) A6 D WTT YPE^CHMFAD R2,CLEARB^ CHMFADR2 G  A1END D C LEARB^CHMF ADR2E1 K N P,CHMFBAD, CHYESFLG,C HMFKIL,CHM FSORT,CHMF PRV,CHMFPS ,CHMFPAUS, CHMFEXIT,C HMFBDBK D  PRMPT^CHMF A100,ASK^C HMFA100 D  CLEARB^CHM FADR2 S CH OICE=Y G:C HOICE=1 A0  G:CHOICE= 5 E1 I CHO ICE=7 D  G  E1 .S DY= 22,DX=10,$ Y=DY,$X=DX  X XY W @C HEOL .S DY =22,DX=22, $Y=DY,$X=D X X XY W " ***** This  option is  not avail able. **** *" R X:5 . S DY=22,DX =10,$Y=DY, $X=DX X XY  W @CHEOL  S:CHOICE=4  CHMFKIL=1  I CHOICE= 8 I CHMFPD I="" D NOP AUS^CHMFAD R2 G E1 I  CHOICE=8 I  CHMFPDI'= ""  S CHMF PAUS=1 I C HOICE=9 D   G:$G(VALO PDI) E1 D  ^CHMFA005  G END .S V ALOPDI=$$C HKOPDI^CHM FADR2(CHMF PDI,CHMOPD I,CHOSEN,1 ) ;CPE005- 069 I CHOI CE=6 D BDI MCK G:$D(C HMFBDBK) E 1 S CHMFBA D=1 D ^CHM FABIM I CH OICE=10 D   G:$G(VALO PDI) E1 .S  VALOPDI=$ $CHKOPDI^C HMFADR2(CH MFPDI,CHMO PDI,CHOSEN ,1) ;CPE00 5-069 I CH OICE=10 I  '$D(CHBTCH NO) D NOBT CH^CHMFADR 2 G E1 I C HOICE=10 I  CHBTCHNO= "" D NOBTC H^CHMFADR2  G E1 I CH OICE=10 D  ^CHMFAB2 D   G E1 .I  $D(CHBTCHN O) I CHBTC HNO'="" I  $$BTCHST^C HMFABU3(CH BTCHNO)=1  D ..S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",6) ="" ..S $P (^CHMIMPB( CHBTCHNO,0 ),"^",6)=" " ..S CHMF PP="BATCLS D",CHMFI=C HBTCHNO D  ^CHMFWK03  ..S J=0 F   S J=$O(^C HMIMPB(CHB TCHNO,100, J)) Q:'J   I $D(^CHMI MPB(CHBTCH NO,100,J,0 )) I ($P(^ (0),"^",3) =2)!($P(^( 0),"^",3)= 3) S CHMFP DI=$P(^(0) ,"^",1) D  SETPROD^CH MFIMG ..S  CHBTCHNO=" ",CHMFPDI= "" .S CHMF PDI="",CHM FNMPG="" D  LINE^CHMF A100,SCREE N^CHMFADR2  I CHOICE= 3 I CHMFPD I'="" D  G :$G(VALOPD I) E1 S CH MFSORT=1 . S VALOPDI= $$CHKOPDI^ CHMFADR2(C HMFPDI,CHM OPDI,CHOSE N,1) I $G( VALOPDI) Q   ;CPE005- 069 .S X=" " S:$D(^CH MIMAGE(CHM FPDI,0)) X =^(0) .S $ P(X,"^",1) =CHMFPDI,$ P(X,"^",2) =CHMFNMPG, $P(X,"^",3 )=DUZ .S $ P(X,"^",4) =CHMFTMBG, PDIFL=1 .S  ^CHMIMAGE (CHMFPDI,0 )=X,^CHMIM AGE("B",CH MFPDI,CHMF PDI)="" .I  $P(^CHMIM G(CHMFPDI, 0),"^",4)= "" S $P(^C HMIMG(CHMF PDI,0),"^" ,3)=DUZ,$P (^CHMIMG(C HMFPDI,0), "^",4)=CHM FTMBG .S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)=DU Z .I '$D(^ CHMIMG(CHM FPDI,"PAUS E")) S $P( ^CHMIMG(CH MFPDI,0)," ^",4)=CHMF TMBG I CHO ICE=2 D  G :$D(NP)!($ G(VALOPDI) ) E1 D CHK PAG^CHMFAD R2 G:$D(NP ) E1 D ^CH MFA002,RED RAW^CHMFAD R2 G:$D(CH MFPREV) CH MFA001 D N EWPG^CHMFA DR2 G A0 . I CHOSEN'= 8 S CHMOPD I="XXXX" . K NP I '$D (CHMFPDI)! '$D(CHMOPD I)!'$D(CHM FIMAG)!'$D (CHMFIMTY) !'$D(CHMFP GNM) S NP= "" D NODAT A^CHMFADR2  Q .K NP I  (CHMFPDI= "")!(CHMOP DI="")!(CH MFIMAG="") !(CHMFIMTY ="")!(CHMF PGNM="") S  NP="" D N ODATA^CHMF ADR2 Q .I  CHOSEN'=8, CHMOPDI="X XXX" S CHM OPDI="" .S  VALOPDI=$ $CHKOPDI^C HMFADR2(CH MFPDI,CHMO PDI,CHOSEN ,1) I $G(V ALOPDI) Q   ;CPE005-0 69 I CHOIC E=11 D  G  E1 .S VALO PDI=$$CHKO PDI^CHMFAD R2(CHMFPDI ,CHMOPDI,C HOSEN,1) I  $G(VALOPD I) Q  ;CPE 005-069 .S  HCHMFPDI= CHMFPDI .D  ^CHMKPPR1  .S CHMFPD I=HCHMFPDI  .D RNGECL R^CHSC1(1, 18,XY,CHEO L) .D SETU P^CHMFADR1  .S CHTITL E="DOCUMEN T IDENTIFI CATION SCR EEN",CHSCR EEN="" .S  CHSCREEN=$ O(^CHMSCRN ("B",CHTIT LE,CHSCREE N)) .D TIT LE^CHMFA10 0,LINE^CHM FA100,CHOI CE^CHMFA10 0 .D SCREE N^CHMFADR2 ,ERRORS^CH MFA100 I C HOICE=12 D   G E1 .S  VALOPDI=$$ CHKOPDI^CH MFADR2(CHM FPDI,CHMOP DI,CHOSEN, 1) I $G(VA LOPDI) Q   ;CPE005-06 9 .S HCHMF PDI=CHMFPD I .D ^CHMK PDI1 .S CH MFPDI=HCHM FPDI .D RN GECLR^CHSC 1(1,18,XY, CHEOL) .D  SETUP^CHMF ADR1 .S CH TITLE="DOC UMENT IDEN TIFICATION  SCREEN",C HSCREEN=""  .S CHSCRE EN=$O(^CHM SCRN("B",C HTITLE,CHS CREEN)) .D  TITLE^CHM FA100,LINE ^CHMFA100, CHOICE^CHM FA100 .D S CREEN^CHMF ADR2,ERROR S^CHMFA100  Q ; BDIMC K K CHMFBD BK I $D(^C HMDIC(7410 02.21,DUZ, 0)) I $P(^ (0),"^",10 )=1 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 ;  D CS BRS^CHSC2  S Y="" U $ I X ^%ZOSF ("EOFF") K  TL F I=1: 1:31 S:I=3 1 TL=1 R * X:$S($D(DT IME):DTIME ,1:60) Q:( X=13)!(X=9 )!(X=27) S :X'=127 Y= Y_$C(X) D: X=127 S:I= 0 Y="" W:X '=127 $C(X ) .S:I=1 I =0 Q:I=0 S :I'=1 I=I- 2,Y=$E(Y,1 ,I) W *8,* 27," ",*8, *27 Q D CS BRS^CHSC21  K DFOUT,D UOUT,DQOUT ,DDOUT,D1O UT,D2OUT I  X=27 F I= 1:1:2 R *X  D:I=2 .S: X=65 D1OUT ="" S:X=66  D2OUT=""  S:X=9 DDOU T="" S:X=9  DTOUT=""  I Y="^^" S  (DFOUT,Y) ="" S:Y="^ " (DUOUT,Y )="" S:Y?1 "?".E!(Y[" ^") (DQOUT ,Y)="" U $ I X ^%ZOSF ("EON") Q
  11  
  12  
  13  
  14   Difference s
  15  
  16   See highli ghted info  above.
  17  
  18  
  19   Passed XIN DEX?  (Y /  N):