Produced by Araxis Merge on 12/7/2017 6:28:07 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\937672-CPE005-070 Manual EDI User Entry of PDI Numbers Revert Read Only | CHMFA001 Developer Form.docx | Thu Dec 7 15:13:24 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937672-CPE005-070 Manual EDI User Entry of PDI Numbers Revert Read Only | CHMFA001 Developer Form.docx | Thu Dec 7 22:55:06 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: ___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): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.