22. EPMO Open Source Coordination Office Redaction File Detail Report

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

22.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 CHMFADR2 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 CHMFADR2 Developer Form.docx Thu Dec 7 22:48:00 2017 UTC

22.2 Comparison summary

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

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

22.4 Active regular expressions

No regular expressions were active.

22.5 Comparison detail

  1   Routine Na me:  _____ ___CHMFADR 2__
  2   Developer  Name(s):   __________ Cindy Stil es____
  3   Associated  User Stor y/Stories:     ______ _Refresh_
  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   CHMFADR2 ; JLR/DEN;UT ILITY PROG RAM FOR DO C ID SCREE N;08/20/98  8:16 AM ; ;1.0;CHAMP VA SYSTEM; ;JULY 4, 1 990;Build  3 ;V2.0;CA LLED FROM  CHMF101A;;  ;;MODIFIE D BY RLC O N 4/13/95  - ADDED OP TION 11) P PR ;;MODIF IED BY RLC  ON 4/28/9 5 - ADDED  OPTION 12)  PPRs-PDI  ;PT 15932  (Y2K) ;JEH  1/8/10 TT  8813 vist a applicat ion disapp eared when  inputting  data ;JEH  1/8/10 PC DUO 52308  FIX LOGIC  ERROR CHKP AG K NP S  CHPDIPRL=$ $PDITYP^CH MFAUT1(CHM FPDI) Q:CH PDIPRL Q:' $D(^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG)) D CLE ARB S DX=1 ,DY=15 X X Y S NP=1PA G1 X XY W  *7,"Page #  ",CHMFPGN M," has al ready been  processed . Do you w ant to kil l the data  for this"  W !,"page  and re-en ter it? NO // ",@CHEO L S DY=16, DX=29 X XY  D CSBRS^C HSC2 S DX= 1,DY=15 X  XY G:$D(DQ OUT) PAG1  I $D(DUOUT ) D CLEARB  Q I $D(DF OUT) D CLE ARB Q S Y= $E(Y,1) S: Y="" Y="N"  G:"NY"'[Y  PAG1 I Y= "Y" D OHI  K NP,^CHMI MAGE(CHMFP DI,1,CHMFP GNM,2,CHMF IMAG) D OH I QOHI ; ; I $G(CHMFP DI)'="" K  ^CHMIMAGE( CHMFPDI,"Z OHI") ;SKD  MC284 1-3 -07, SKD 2 -9-07 REM  OUT K OHI, OHIAMT  ;S KD 2-9-07  S:$G(DFN)= "" DFN=$P( $G(^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,1,0)),U ,1) Q:$G(D FN)=""  ;S KD MC284 2 -9-07 S:$G (BFN)="" B FN=$P($G(^ CHMIMAGE(C HMFPDI,1,C HMFPGNM,2, CHMFIMAG,1 ,0)),U,2)  Q:$G(BFN)= ""  ;SKD M C284 2-9-0 7 Q:'$G(OH ITOS)!('$G (OHIDOS))  ;SKD MC284  2-9-07 I  $G(CHMFPDI )'="" K ^C HMIMAGE(CH MFPDI,"ZOH I",DFN,BFN ,OHITOS,OH IDOS) ;SKD  MC284 2-9 -07 QREDRA W S DY=3,D X=1 X XY W  @CHEOL D  CLEAR S CH TITLE="DOC UMENT IDEN TIFICATION  SCREEN",C HSCREEN=""  S CHSCREE N=$O(^CHMS CRN("B",CH TITLE,CHSC REEN)) D T ITLE^CHMFA 100,CHOICE ^CHMFA100, ERRORS^CHM FA100 QNEW PG D CLEAR ,SCREEN QN OPAUS S DX =20,DY=15  X XY W *7, @CHBON,?20 ,"CAN'T PA USE WITHOU T A PDI AS SIGNED !!"  QNOCOMM S  DX=20,DY= 15 X XY W  *7,@CHBON, ?13,"You m ust have a  PDI befor e comments  can be en tered." QN OSCR S DX= 19,DY=15 X  XY W *7,@ CHBON,"No  Screen for  this pati cular data  entry." Q NODATA S D X=18,DY=15  X XY W *7 ,@CHBON,"A ll data mu st be ente red before  continuin g." QNOSOR T S DX=23, DY=15 X XY  W *7,@CHB ON,"Data m ust be ent ered befor e sorting. " QNOBTCH  S DX=10,DY =15 X XY W  *7,@CHBON ,"If doing  Manual pr ocess, a b atch numbe r must be  entered be fore",!,"  using this  option. I f doing Im age proces sing this  option is  not allowe d." QCLEAR  F DY=4:1: 20 S DX=1  X XY W @CH EOL QCLEAR B F DY=13: 1:20 S DX= 1 X XY W @ CHEOL QFIN  S F2=1 QW TPDI S DY= 6,DX=41 X  XY W:$D(CH MFPDI) CHM FPDI W @CH EOL I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=0 I $D(C HMFPDI) I  CHMFPDI'=" " D .;I $D (^CHMIMG(C HMFPDI,"DO C")) D ..S  CHMNNUM=$ P(^CHMIMG( CHMFPDI,"D OC"),"^",1 0) S DX=55  X XY ..W: CHMNNUM'=" " @CHBON," (Manual Nu mber: ",CH MNNUM,")", @CHBOFF QW TNP S DY=7 ,DX=41 X X Y W:$D(CHM FNMPG) CHM FNMPG W @C HEOL QWTPG  S:'$D(CHM FPGNM) CHM FPGNM=1 S: CHMFPGNM=" " CHMFPGNM =1 S DY=8, DX=41 X XY  W:$D(CHMF PGNM) CHMF PGNM W:$D( CHMFNMPG)  " of ",CHM FNMPG W @C HEOL QWTIM  Q S:'$D(C HMFIMAG) C HMFIMAG=1  S:CHMFIMAG ="" CHMFIM AG=1 S DY= 9,DX=41 X  XY W:$D(CH MFIMAG) CH MFIMAG W @ CHEOL QWTT YPE S DY=9 ,DX=41 X X Y I $D(CHM FTYPE),CHM FTYPE'=""  S II=0,II= $O(^CHMDIC (741002.08 ,"B",CHMFT YPE,II)) W  $E($P(^CH MDIC(74100 2.08,II,0) ,"^",1),1, 25) W @CHE OL QQUES S  HY=DY,HX= DX G @QU1  S DY=14,DX =1 X XY I  CHBTCHNO'= 0 S X=$$IN BTCH^CHMFA BU3(CHBTCH NO,CHMFPDI ,XY,CHEOL)  I 'X S F1 =0 Q W !?4 ,"PDI must  be 15 cha racters lo ng and mat ch the PDI  in IMAGE  window. Th e" W !?4," first 4 di gits are F iscal Year , next 3 a re Julian  Days, 01-3 65. The" W  !?4,"next  2 digits  show the s canner num ber ('01'  or '02').  The rest o f the" W ! ?4,"PDI is  a sequent ial number . An examp le of a va lid PDI is  '91065021 31313'." G  EXIT2 S D Y=15,DX=22  X XY W "E nter the N umber of P ages for t his PDI."  G EXIT3 S  DY=15,DX=2 0 X XY W " Enter the  page that  is current ly display ed." G EXI T4 S DY=15 ,DX=13 X X Y W "Enter  the image  number th at is curr ently disp layed" G E XIT6 S DY= 15,DX=20 X  XY W "Ent er Type of  document  or '?' to  see a list " G EXITEX IT S DY=HY ,DX=HX QCH ECK K F1 D  CLEARB S  LINE="CHK" _QU G @LIN ECHK1 D MA NUAL  I '$ D(CHMFPDI)  S F1=1 Q    ;JEH 1/8 /10 TT 881 3 I $G(CHM FPDI)="" S  F1=1 Q    ;JEH 1/8/1 0 PCDUO 52 308 I '$D( CHHAND) S  $P(^CHMIMG (CHMFPDI,0 ),"^",17)= 2 S $P(^CH MIMAGE(CHM FPDI,0),"^ ",8)=2 S X =$$INBTCH^ CHMFABU3(C HBTCHNO,CH MFPDI,XY,C HEOL) S:'X  F1=0,CHMF PDI="",CHM NNUM="",$P (^CHMDIC(7 41002.21,D UZ,0),"^", 5)="" Q  ;  Null subs cript on 8 /1/05 K CH MNNUM S CH MFNMPG=""  I PDI I $D (^CHMIMG(P DI,0)) I $ P(^(0),"^" ,6)>2 D ER R1 S F1=1  Q I (Y'?13 N)&(Y'?9N) &(Y'?15N)  D QUES S F 1=1 Q I $D (^CHMIMPB( "C",Y)) I  $D(CHBTCHN O) I CHBTC HNO=0 D IN BAT S F1=1  Q I $D(^C HMIMG("REA DY",Y)) I  $D(CHBTCHN O) I CHBTC HNO=0 D RE ADY S F1=1  Q ; Y2K c hanges - C ommented o ut per Jim  Richardso n ;D NOW^% DTC S YR1= $E(%,2,3), YR2=$E(Y,1 ,2) I YR2> YR1 D QUES  S F1=1 Q  ;I YR1-1>Y R2 D QUES  S F1=1 Q ; I +$E(Y,3, 5)'<366 D  QUES S F1= 1 Q ;I +$E (Y,3,5)'>0  D QUES S  F1=1 Q I C HBTCHNO'=0  S X=$$INB TCH^CHMFAB U3(CHBTCHN O,CHMFPDI, XY,CHEOL)  I 'X I CHB TCHNO'=0 S  F1=0 Q S  $P(^CHMIMG (CHMFPDI,0 ),"^",17)= 3 ;SET SOM E PIECE TO  MANUAL MA NUAL S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",8)=3  S $P(^CHMD IC(741002. 21,DUZ,0), "^",5)=CHM FPDI QCHK2  Q:Y=""&(C HMFNMPG'=" ") I (Y'?1 N.N) D QUE S S F1=1 Q  S CHMFNMP G=Y QCHK3  S:'$D(CHMF PGNM) CHMF PGNM="" Q: Y="" I CHM FNMPG'="UN K" I (Y<1) !(Y'?.N) D  QUES S F1 =1 Q S:'$D (CHMFPGCT)  CHMFPGCT= 0 S CHMFPG NM=Y,CHMFP GCT=CHMFPG CT+1 QCHK4  S:'$D(CHM FIMAG) CHM FIMAG="" Q :Y="" I (Y <1)!(Y>7)! (Y'?.N) D  QUES S F1= 1 Q S CHMF IMAG=Y QCH K6 S:'$D(C HMFTYPE) C HMFTYPE=""  Q:Y="" K  CHOUT,CHER R S:$D(DQO UT) Y="" S  CHPRT=Y D  LIST^DIC( 741002.08, ,".01",,,, CHPRT,,"I  $P(^(0),U, 3)'=0",,"C HOUT","CHE RR") I '$D (CHOUT("DI LIST",0))  S DY=10,DX =41 X XY W  @CHEOL S  F1=1 Q I $ P(CHOUT("D ILIST",0), "^",1)'>0  S DY=10,DX =41 X XY W  @CHEOL S  F1=1 Q S D TM=13,DBM= 20 X CHMAR  S DY=13,D X=1 X XY D  DISP QDIS P I $P(CHO UT("DILIST ",0),"^",1 )=1 D  Q . S CHMFIMTY =CHOUT("DI LIST",2,1) ,CHMFTYPE= CHOUT("DIL IST",1,1)  S L1=0,CT= 0DI1 S L1= $O(CHOUT(" DILIST",1, L1)) I 'L1  D SELE1 Q  S CT=CT+1  W !,L1,"  ",CHOUT("D ILIST",1,L 1) S X=""  I '(CT#5)  I $O(CHOUT ("DILIST", 1,L1)) D S ELE G:X=""  DI1 S CHM FIMTY=CHOU T("DILIST" ,2,X) S CH MFTYPE=CHO UT("DILIST ",1,X) QSE LE S X=""  W !!,"Sele ct a numbe r or <RETU RN> for mo re: " R X  Q:X=""  G: '$D(CHOUT( "DILIST",1 ,X)) SELE  QSELE1 S X ="" W !!," Select a n umber: " R  X Q:X=""   G:'$D(CHO UT("DILIST ",1,X)) SE LE1 S CHMF IMTY=CHOUT ("DILIST", 2,X) S CHM FTYPE=CHOU T("DILIST" ,1,X) QMAN UAL Q:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )'=0 K CHH AND I $D(C HMFPDI) I  CHMFPDI'=" " K ^CHMIM AGE("LOCK" ,CHMFPDI)  D .I $D(CH MNNUM) S ^ CHMIMG("MA NUAL",CHMF PDI)="" Q  S CHMFPDI= Y S PDI=0, PDI=$O(^CH MIMG("E",Y ,PDI)) I ' PDI S CHHA ND=1 Q I ' $D(^CHMIMG ("MANUAL", PDI)) S CH HAND=1 Q S  CHMNNUM=Y ,Y=PDI,CHM FPDI=PDI,$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,5)=CHMFPD I S CHMFNM PG=$P(^CHM IMG(PDI,0) ,"^",2) K  ^CHMIMG("M ANUAL",PDI ) Q:$ZF(-1 ,"DISPLAY_ DEVICE")'[ "LAT"  ;D  A1^CHMFPDI  Q:$D(CHQU IT) S ZZPD I=CHMFPDI, CHMFPP="SI P" D ^CHMF WK01 QSCRE EN I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 S DY=5, DX=27 X XY  W "Batch  Number: "  W:$D(CHBTC HNO) CHBTC HNO S DY=6 ,DX=29 X X Y W "PDI N umber: " W :$D(CHMFPD I) CHMFPDI   I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 I $D(CHD OCID) W:CH DOCID'=""  "-",CHDOCI D ;S CHPDI PRL=$$PDIT YP^CHMFAUT 1(CHMFPDI)  ;D:CHPDIP RL TLPGCNT  S DY=7,DX =28 X XY W  "Total Pa ges: " W:$ D(CHMFNMPG ) CHMFNMPG  S DY=8,DX =28 X XY W  "Page Num ber: " W:$ D(CHMFPGNM ) CHMFPGNM  ;S DY=9,D X=27 X XY  W "Image N umber: " W :$D(CHMFIM AG) CHMFIM AG S DY=9, DX=26 X XY  W "Type o f Image: "  W:$D(CHMF TYPE) $E(C HMFTYPE,1, 21) S DY=1 0,DX=24 X  XY W "Imag e Availabl e: " D IMA GE S DY=11 ,DX=1 X XY  S LN="" S  $P(LN,"_" ,80)="" W  LN Q  NOOH I S DY=18, DX=10 X XY  W "No Bil l Invoice  has been e nterd to a llow entry  of OHI Pa yments." Q ERR1 S DY= 15,DX=5 X  XY W *7,*7 ,@CHBON,"T his PDI ha s already  been proce ssed!" W "  Cannot be  modified  at this po int!",@CHB OFF QERR3  D CLEARB S  DY=15,DX= 8 X XY W " PDI: ",Y,"  - has not  been Scan ned or Man ually ente red!" W !, ?28,"Pleas e verify t his PDI nu mber and r e-enter."  Q INBAT D  CLEARB S D Y=15,DX=13  X XY W "T his PDI is  not a Man ual Manual  PDI. Plea se Re-ente r." QREADY  D CLEARB  S DY=15,DX =14 X XY W  "This PDI  is Image  processing  only. Ple ase Re-ent er." QLOCK  S DY=15,D X=1 X XY W  !," PDI:  ",CHMFPDI, " is Curre ntly Being  Processed " W !," By  Another U ser, Pleas e Enter a  Different  PDI." S CH MFPDI="",C HMFNMPG=""  QIMAGE S  VAL="No" S :'$D(CHMFP DI) CHMFPD I="" I CHM FPDI I $D( ^CHMIMG(CH MFPDI,"DOC ")) D .S:$ P(^CHMIMG( CHMFPDI,"D OC"),"^",3 )'="" VAL= "Yes" S DY =10,DX=41  X XY W VAL  Q ; PGCNT  Q:'$D(^CH MIMAGE(CHM FPDI,0)) S  CHMFNMPG= $P(^CHMIMA GE(CHMFPDI ,0),"^",2)  Q ; TLPGC NT Q:'$D(^ CHMIMAGE(C HMFPDI,1))  S TLPGCT= 9999999,TL PGCT=$O(^C HMIMAGE(CH MFPDI,1,TL PGCT),-1)  S:TLPGCT=" " TLPGCT=1  S CHMFNMP G=TLPGCT K  TLPGCT 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   CHMFADR2 ; JLR/DEN;UT ILITY PROG RAM FOR DO C ID SCREE N;08/20/98  8:16 AM ; ;1.0;CHAMP VA SYSTEM; ;JULY 4, 1 990;Build  3 ;V2.0;CA LLED FROM  CHMF101A;;  ;;MODIFIE D BY RLC O N 4/13/95  - ADDED OP TION 11) P PR ;;MODIF IED BY RLC  ON 4/28/9 5 - ADDED  OPTION 12)  PPRs-PDI  ;PT 15932  (Y2K) ;JEH  1/8/10 TT  8813 vist a applicat ion disapp eared when  inputting  data ;JEH  1/8/10 PC DUO 52308  FIX LOGIC  ERROR ;KEL  05/04/17  CPE005-007  Add Type  of Bill to  the EDI R e-open Doc ument ID S creen.  ;C FS 08/16/2 017 CPE005 -004 Add v alidations  and scree n changes  for CHAMPV A and SB E DI Reopen  process.   ;HM 09/15/ 2017 CPE00 5-034 TOB  FC 8 Origi nal PDI Co mplete ini tiate reve rsal ;CFS  10/01/2017  CPD005-06 9 Add Orig inal and C urrent PDI  Numbers t o EDI Manu al Re-open  Doc ID Sc reen. ;CFS  10/01/201 7 CPE005-0 73, 074, 0 75, 076, 0 77, 079, 0 80 - Added  validatio ns for ; C urrent and  Origanal  PDI Number  prompts.C HKPAG K NP  S CHPDIPR L=$$PDITYP ^CHMFAUT1( CHMFPDI) Q :CHPDIPRL  Q:'$D(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG)) D  CLEARB S D X=1,DY=15  X XY S NP= 1PAG1 X XY  W *7,"Pag e # ",CHMF PGNM," has  already b een proces sed. Do yo u want to  kill the d ata for th is" W !,"p age and re -enter it?  NO// ",@C HEOL S DY= 16,DX=29 X  XY D CSBR S^CHSC2 S  DX=1,DY=15  X XY G:$D (DQOUT) PA G1 I $D(DU OUT) D CLE ARB Q I $D (DFOUT) D  CLEARB Q S  Y=$E(Y,1)  S:Y="" Y= "N" G:"NY" '[Y PAG1 I  Y="Y" D O HI K NP,^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG) D  OHI QOHI  ; ;I $G(CH MFPDI)'=""  K ^CHMIMA GE(CHMFPDI ,"ZOHI") ; SKD MC284  1-3-07, SK D 2-9-07 R EM OUT K O HI,OHIAMT   ;SKD 2-9- 07 S:$G(DF N)="" DFN= $P($G(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,1,0) ),U,1) Q:$ G(DFN)=""   ;SKD MC28 4 2-9-07 S :$G(BFN)=" " BFN=$P($ G(^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G,1,0)),U, 2) Q:$G(BF N)=""  ;SK D MC284 2- 9-07 Q:'$G (OHITOS)!( '$G(OHIDOS )) ;SKD MC 284 2-9-07  I $G(CHMF PDI)'="" K  ^CHMIMAGE (CHMFPDI," ZOHI",DFN, BFN,OHITOS ,OHIDOS) ; SKD MC284  2-9-07 QRE DRAW S DY= 3,DX=1 X X Y W @CHEOL  D CLEAR S  CHTITLE=" DOCUMENT I DENTIFICAT ION SCREEN ",CHSCREEN ="" S CHSC REEN=$O(^C HMSCRN("B" ,CHTITLE,C HSCREEN))  D TITLE^CH MFA100,CHO ICE^CHMFA1 00,ERRORS^ CHMFA100 Q NEWPG D CL EAR,SCREEN  QNOPAUS S  DX=20,DY= 15 X XY W  *7,@CHBON, ?20,"CAN'T  PAUSE WIT HOUT A PDI  ASSIGNED  !!" QNOCOM M S DX=20, DY=15 X XY  W *7,@CHB ON,?13,"Yo u must hav e a PDI be fore comme nts can be  entered."  QNOSCR S  DX=19,DY=1 5 X XY W * 7,@CHBON," No Screen  for this p aticular d ata entry. " QNODATA  S DX=18,DY =15 X XY W  *7,@CHBON ,"All data  must be e ntered bef ore contin uing." QNO SORT S DX= 23,DY=15 X  XY W *7,@ CHBON,"Dat a must be  entered be fore sorti ng." QNOBT CH S DX=10 ,DY=15 X X Y W *7,@CH BON,"If do ing Manual  process,  a batch nu mber must  be entered  before",! ," using t his option . If doing  Image pro cessing th is option  is not all owed." QCL EAR F DY=4 :1:20 S DX =1 X XY W  @CHEOL QCL EARB F DY= 13:1:20 S  DX=1 X XY  W @CHEOL Q FIN S F2=1  QWTOPDI ; CPE005-004  and CPE00 5-069 Writ e Original  PDI Numbe r for EDI  Re-open sc reens.  S  DY=5,DX=41  X XY W:$D (CHMOPDI)  CHMOPDI W  @CHEOL QWT PDI S DY=6 ,DX=41 X X Y W:$D(CHM FPDI) CHMF PDI W @CHE OL I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 I $D(CH MFPDI) I C HMFPDI'=""  D .;I $D( ^CHMIMG(CH MFPDI,"DOC ")) D ..S  CHMNNUM=$P (^CHMIMG(C HMFPDI,"DO C"),"^",10 ) S DX=55  X XY ..W:C HMNNUM'=""  @CHBON,"( Manual Num ber: ",CHM NNUM,")",@ CHBOFF QWT NP S DY=7, DX=41 X XY  W:$D(CHMF NMPG) CHMF NMPG W @CH EOL QWTPG  S:'$D(CHMF PGNM) CHMF PGNM=1 S:C HMFPGNM=""  CHMFPGNM= 1 S DY=8,D X=41 X XY  W:$D(CHMFP GNM) CHMFP GNM W:$D(C HMFNMPG) "  of ",CHMF NMPG W @CH EOL QWTIM  Q S:'$D(CH MFIMAG) CH MFIMAG=1 S :CHMFIMAG= "" CHMFIMA G=1 S DY=9 ,DX=41 X X Y W:$D(CHM FIMAG) CHM FIMAG W @C HEOL QWTTY PE S DY=9, DX=41 X XY  I $D(CHMF TYPE),CHMF TYPE'="" S  II=0,II=$ O(^CHMDIC( 741002.08, "B",CHMFTY PE,II)) W  $E($P(^CHM DIC(741002 .08,II,0), "^",1),1,2 5) W @CHEO L QQUES S  HY=DY,HX=D X G @QU1 S  DY=14,DX= 1 X XY I C HBTCHNO'=0  S X=$$INB TCH^CHMFAB U3(CHBTCHN O,CHMFPDI, XY,CHEOL)  I 'X S F1= 0 Q W !?4, "PDI must  be 15 char acters lon g and matc h the PDI  in IMAGE w indow. The " W !?4,"f irst 4 dig its are Fi scal Year,  next 3 ar e Julian D ays, 01-36 5. The" W  !?4,"next  2 digits s how the sc anner numb er ('01' o r '02'). T he rest of  the" W !? 4,"PDI is  a sequenti al number.  An exampl e of a val id PDI is  '910650213 1313'." G  EXIT2 S DY =15,DX=22  X XY W "En ter the Nu mber of Pa ges for th is PDI." G  EXIT3 S D Y=15,DX=20  X XY W "E nter the p age that i s currentl y displaye d." G EXIT 4 S DY=15, DX=13 X XY  W "Enter  the image  number tha t is curre ntly displ ayed" G EX IT6 S DY=1 5,DX=20 X  XY W "Ente r Type of  document o r '?' to s ee a list"  G EXIT7 D  CLEARB S  DY=15,DX=8  X XY W "E nter the ' Original P DI Number'  based on  the busine ss rules."  G EXIT  ; CPE005-004 8 D CLEARB  S DY=15,D X=8 X XY W  "Enter th e 'Origina l PDI Numb er' based  on the bus iness rule s." G EXIT   ;CPE005- 0699 D CLE ARB S DY=1 5,DX=8 X X Y W "Enter  the 'Curr ent PDI Nu mber' base d on the b usiness ru les." G EX IT  ;CPE00 5-069EXIT  S DY=HY,DX =HX QCHECK  K F1 D CL EARB S LIN E="CHK"_QU  G @LINECH K1 D MANUA L I '$D(CH MFPDI) S F 1=1 Q  ;JE H 1/8/10 T T 8813 I $ G(CHMFPDI) ="" S F1=1  Q  ;JEH 1 /8/10 PCDU O 52308 I  '$D(CHHAND ) S $P(^CH MIMG(CHMFP DI,0),"^", 17)=2 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",8)=2  S X=$$INB TCH^CHMFAB U3(CHBTCHN O,CHMFPDI, XY,CHEOL)  S:'X F1=0, CHMFPDI="" ,CHMNNUM=" ",$P(^CHMD IC(741002. 21,DUZ,0), "^",5)="", $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",2)="" Q   ; Null su bscript on  8/1/05 K  CHMNNUM S  CHMFNMPG=" " I PDI I  $D(^CHMIMG (PDI,0)) I  $P(^(0)," ^",6)>2 D  ERR1 S F1= 1 Q I (Y'? 13N)&(Y'?9 N)&(Y'?15N ) D QUES S  F1=1 Q I  $D(^CHMIMP B("C",Y))  I $D(CHBTC HNO) I CHB TCHNO=0 D  INBAT S F1 =1 Q I $D( ^CHMIMG("R EADY",Y))  I $D(CHBTC HNO) I CHB TCHNO=0 D  READY S F1 =1 Q ; Y2K  changes -  Commented  out per J im Richard son ;D NOW ^%DTC S YR 1=$E(%,2,3 ),YR2=$E(Y ,1,2) I YR 2>YR1 D QU ES S F1=1  Q ;I YR1-1 >YR2 D QUE S S F1=1 Q  ;I +$E(Y, 3,5)'<366  D QUES S F 1=1 Q ;I + $E(Y,3,5)' >0 D QUES  S F1=1 Q I  CHBTCHNO' =0 S X=$$I NBTCH^CHMF ABU3(CHBTC HNO,CHMFPD I,XY,CHEOL ) I 'X I C HBTCHNO'=0  S F1=0 Q  S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=3 ;SET S OME PIECE  TO MANUAL  MANUAL S $ P(^CHMIMAG E(CHMFPDI, 0),"^",8)= 3 S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI QCH K2 Q:Y=""& (CHMFNMPG' ="") I (Y' ?1N.N) D Q UES S F1=1  Q S CHMFN MPG=Y QCHK 3 S:'$D(CH MFPGNM) CH MFPGNM=""  Q:Y="" I C HMFNMPG'=" UNK" I (Y< 1)!(Y'?.N)  D QUES S  F1=1 Q S:' $D(CHMFPGC T) CHMFPGC T=0 S CHMF PGNM=Y,CHM FPGCT=CHMF PGCT+1 QCH K4 S:'$D(C HMFIMAG) C HMFIMAG=""  Q:Y="" I  (Y<1)!(Y>7 )!(Y'?.N)  D QUES S F 1=1 Q S CH MFIMAG=Y Q CHK6 S:'$D (CHMFTYPE)  CHMFTYPE= "" Q:Y=""  K CHOUT,CH ERR S:$D(D QOUT) Y=""  S CHPRT=Y  D LIST^DI C(741002.0 8,,".01",, ,,CHPRT,," I $P(^(0), U,3)'=0",, "CHOUT","C HERR") I ' $D(CHOUT(" DILIST",0) ) S DY=10, DX=41 X XY  W @CHEOL  S F1=1 Q I  $P(CHOUT( "DILIST",0 ),"^",1)'> 0 S DY=10, DX=41 X XY  W @CHEOL  S F1=1 Q S  DTM=13,DB M=20 X CHM AR S DY=13 ,DX=1 X XY  D DISP QC HK7  ;CPE0 05-004 ;Va lidation f or "Origin al" PDI Nu mber for C HAMPVA and  SB Re-ope n. I Y=""  S Y="XXXX"  S VALOPDI =$$CHKOPDI ($G(CHMFPD I),Y,CHOSE N,1) I VAL OPDI S F1= 1 I Y="XXX X" S Y=""  Q:$G(F1)=1  S CHMOPDI =Y S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",2)= CHMOPDI Q  ;CHK8  ;CP E005-069 ; Validation  for "Orig inal" PDI  Number for  Manual ED I Re-open.  S VALOPDI =$$CHKOPDI ($G(CHMFPD I),Y,CHOSE N,1) I VAL OPDI S F1= 1 Q S CHMO PDI=Y S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 2)=CHMOPDI  Q ;CHK9   ;CPE005-06 9 ;Validat ion for "C urrent" PD I Number f or Manual  EDI Re-ope n. I Y=""  S Y="XXXX"  S VALOPDI =$$CHKOPDI (Y,$G(CHMO PDI),CHOSE N,1) I VAL OPDI S F1= 1 I Y="XXX X" S Y=""  Q:$G(F1)=1  S CHMFPDI =Y I CHMFP DI'="" D . S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=4 S $P(^ CHMIMAGE(C HMFPDI,0), "^",8)=4 . S $P(^CHMD IC(741002. 21,DUZ,0), "^",5)=CHM FPDI .S CH MFPP="SIP"  D ^CHMFWK 01 Q ;DISP  I $P(CHOU T("DILIST" ,0),"^",1) =1 D  Q .S  CHMFIMTY= CHOUT("DIL IST",2,1), CHMFTYPE=C HOUT("DILI ST",1,1) S  L1=0,CT=0 DI1 S L1=$ O(CHOUT("D ILIST",1,L 1)) I 'L1  D SELE1 Q  S CT=CT+1  W !,L1," " ,CHOUT("DI LIST",1,L1 ) S X="" I  '(CT#5) I  $O(CHOUT( "DILIST",1 ,L1)) D SE LE G:X=""  DI1 S CHMF IMTY=CHOUT ("DILIST", 2,X) S CHM FTYPE=CHOU T("DILIST" ,1,X) QSEL E S X="" W  !!,"Selec t a number  or <RETUR N> for mor e: " R X Q :X=""  G:' $D(CHOUT(" DILIST",1, X)) SELE Q SELE1 S X= "" W !!,"S elect a nu mber: " R  X Q:X=""   G:'$D(CHOU T("DILIST" ,1,X)) SEL E1 S CHMFI MTY=CHOUT( "DILIST",2 ,X) S CHMF TYPE=CHOUT ("DILIST", 1,X) QMANU AL I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '=0 Q K CH HAND I $D( CHMFPDI) I  CHMFPDI'= "" K ^CHMI MAGE("LOCK ",CHMFPDI)  D .I $D(C HMNNUM) S  ^CHMIMG("M ANUAL",CHM FPDI)="" Q  S CHMFPDI =Y S PDI=0 ,PDI=$O(^C HMIMG("E", Y,PDI)) I  'PDI S CHH AND=1 Q I  '$D(^CHMIM G("MANUAL" ,PDI)) S C HHAND=1 Q  S CHMNNUM= Y,Y=PDI,CH MFPDI=PDI, $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",5)=CHMFP DI S CHMFN MPG=$P(^CH MIMG(PDI,0 ),"^",2) K  ^CHMIMG(" MANUAL",PD I) Q:$ZF(- 1,"DISPLAY _DEVICE")' ["LAT"  ;D  A1^CHMFPD I Q:$D(CHQ UIT) S ZZP DI=CHMFPDI ,CHMFPP="S IP" D ^CHM FWK01 QSCR EEN I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=0 S DY=5 ,DX=27 X X Y W "Batch  Number: "  W:$D(CHBT CHNO) CHBT CHNO ;BEGI N CPE005-0 04 N PDIFN L,NPDI,REV RESP,OPDI  I CHOSEN=6 !(CHOSEN=7 )!(CHOSEN= 8) D  ;CPE 005-069 ad d CHOSEN=8  check. .I  $G(CHMOPD I)="",CHOS EN'=8 S QU =7 N Y S Y ="" D CHEC K  ;Allow  validation  message t o display  for invali d PDI's. . S DY=5,DX= 20 X XY W  "Original  PDI Number : " W:$D(C HMOPDI) CH MOPDI .S D Y=6,DX=21  X XY W "Cu rrent PDI  Number: "  W:$D(CHMFP DI) CHMFPD I I CHOSEN '=6,CHOSEN '=7,CHOSEN '=8 S DY=6 ,DX=29 X X Y W "PDI N umber: " W :$D(CHMFPD I) CHMFPDI   ;CPE005- 069 add CH OSEN'=8. ; END CPE005 -004 I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 I $D( CHDOCID) W :CHDOCID'= "" "-",CHD OCID ;S CH PDIPRL=$$P DITYP^CHMF AUT1(CHMFP DI) ;D:CHP DIPRL TLPG CNT S DY=7 ,DX=28 X X Y W "Total  Pages: "  W:$D(CHMFN MPG) CHMFN MPG S DY=8 ,DX=28 X X Y W "Page  Number: "  W:$D(CHMFP GNM) CHMFP GNM ;S DY= 9,DX=27 X  XY W "Imag e Number:  " W:$D(CHM FIMAG) CHM FIMAG S DY =9,DX=26 X  XY W "Typ e of Image : " W:$D(C HMFTYPE) $ E(CHMFTYPE ,1,21) S D Y=10,DX=24  X XY W "I mage Avail able: " D  IMAGE S DY =11,DX=1 X  XY S LN=" " S $P(LN, "_",80)=""  W LN I CH OSEN=6!(CH OSEN=7) D   ;CPE005-0 07 . S DY= 12,DX=21 X  XY W "Typ e of Bill  (TOB): " W  $$TOB(CHM FPDI,CHMFP GNM,CHMFIM AG) ; KML  - 5/4/17RE V ; I $G(C HMFPGNM)&( $G(CHMFIMA G)) D .I $ E(+$$TOB(C HMFPDI,CHM FPGNM,CHMF IMAG),3)=8  D  ;HM 09 /15/2017 C PE005-034  .. S DY=14 ,DX=21 X X Y W "Do yo u want to  initiate a  Reversal?  Y/N " ;HM  09/15/201 7 CPE005-0 34 .. R RE VRESP:$S($ D(DTIME):D TIME,1:60)  ;HM 09/15 /2017 CPE0 05-034 ..  S:'$T DTOU T="" S:REV RESP="^^"  (DFOUT)=""  S:REVRESP ="^" (DUOU T)="" ;HM  09/15/2017  CPE005-03 4 .. I REV RESP="Y"!( REVRESP="N ") D  ;HM  09/15/2017  CPE005-03 4 ... S NP DI=CHMFPDI  ... S OPD I=CHMOPDI  ... I REVR ESP="Y" D  .... S DIE =741000.2, DA=CHMOPDI ,DR=".06// /11;.22/// "_DT D ^DI E K DIE ;B DB 09/19/2 017 .... S  DIE=74100 0.2,DA=CHM FPDI,DR=". 05///"_DT_ ";.06///4"  D ^DIE K  DIE ;BDB 0 9/19/2017  .... NEW C HMFPDI,ADD Q .... S C HMFPDI=CHM OPDI ....  D SORT^CHF CDUTL ....  D QUE1^CH FCDUTL ;qu eue the be ne check a nd bene ca lc .... S  ADDQ=$$ADD 2QUE^CH835 TRG(OPDI)  ;HM 09/20/ 2017 CPE00 5-041 ...  I REVRESP= "N" S PDIF NL=$$PDIFI NAL^CHCSTA T(NPDI,"F0 :35"),DIE= 741000.2,D A=NPDI,DR= ".06///4"  D ^DIE K D IE ;HM 09/ 20/2017 CP E005-041 . . E  G REV  Q ; NOOHI  S DY=18,D X=10 X XY  W "No Bill  Invoice h as been en terd to al low entry  of OHI Pay ments." Q  ;ERR1 S DY =15,DX=5 X  XY W *7,* 7,@CHBON," This PDI h as already  been proc essed!" W  " Cannot b e modified  at this p oint!",@CH BOFF Q ;ER R3 D CLEAR B S DY=15, DX=8 X XY  W "PDI: ", Y," - has  not been S canned or  Manually e ntered!" W  !,?28,"Pl ease verif y this PDI  number an d re-enter ." Q INBAT  D CLEARB  S DY=15,DX =13 X XY W  "This PDI  is not a  Manual PDI . Please R e-enter."  Q ;READY D  CLEARB S  DY=15,DX=1 4 X XY W " This PDI i s Image pr ocessing o nly. Pleas e Re-enter ." Q ;PDI1 5 D CLEARB  S DY=15,D X=20 X XY  W *7,@CHBO N W "PDI N umber must  be 15 dig its.",@CHB OFF Q ;JUL 2000 D CLE ARB S DY=1 5,DX=14 X  XY W *7,@C HBON  ;Val idation me ssage for  Julian Yea r less tha n 2000. W  "Julian Ye ar must be  year 2000  or later. ",@CHBOFF  Q ;JULFUTR  D CLEARB  S DY=15,DX =14 X XY W  *7,@CHBON   ;Validat ion messag e for Juli an Year gr eater than  Current Y ear. W "Ju lian Year  cannot be  in the fut ure.",@CHB OFF QJULDA Y D CLEARB  S DY=15,D X=14 X XY  W *7,@CHBO N  ;Valida tion messa ge for Jul ian Day. W  "Julian D ay must be  001 throu gh 366.",@ CHBOFF Q ; CHPIMSG D  CLEARB S D Y=15,DX=14  X XY W *7 ,@CHBON  ; Validation  message f or CHAMPVA  Program I ndicator.  W "PDI Pro gram Indic ator must  be 91, 97( CHAMPVA ED I).",@CHBO FF QSBPIMS G D CLEARB  S DY=15,D X=14 X XY  W *7,@CHBO N  ;Valida tion messa ge for Spi na Bifida  Program In dicator. W  "PDI Prog ram Indica tor must b e 92, 90(S B EDI).",@ CHBOFF Q ; CHKOPDI(CH MFPDI,CHMO PDI,CHOSEN ,WRTMSG) ; CPE005-004   ;Validat ions for O riginal an d Current  EDI Re-ope n PDI Numb ers. ;User  Stories C PE005-073,  074, 075,  076, 077  and 080 ad ded to val idations.  ;CHMFPDI =  Current P DI Number  ;CHMOPDI =  Original  PDI Number  ;CHOSEN =  The menu  option the  user chos e from rou tine drive r CHMFADRV . ;WRTMSG  = 0 or 1 -  0 does no t display  message to  the scree n; 1 does.  I $G(CHOS EN)'=6,$G( CHOSEN)'=7 ,$G(CHOSEN )'=8 Q 0 ; Validation s for EDI  Re-open on ly; Menu o ptions "RC ", "RS" an d "ER". N  ALLCOMP,BE NE,CURDT,C URYR,DY,DX ,ERR,IEN,J DAY,STATUS  S CHMFPDI =$G(CHMFPD I),CHMOPDI =$G(CHMOPD I),CHOSEN= $G(CHOSEN) ,WRTMSG=$G (WRTMSG) S  (BENE,ERR )=0 I CHOS EN=8,CHMOP DI="" Q 0  ;Allow use r to advan ce to bott om menu at  the Origi nal PDI nu mber promp t. I CHOSE N'=8,CHMOP DI'?15N D   Q ERR ;CP E005-004 a nd 080 .I  WRTMSG D P DI15 .S ER R=1 I CHOS EN=8,CHMOP DI'="",CHM OPDI'?15N  D  Q ERR   ;CPE005-08 0 .I WRTMS G D PDI15  .S ERR=1 I  $E(CHMOPD I,1,4)<200 0 D  Q ERR   ;CPE005- 004 and 07 8 .I WRTMS G D JUL200 0 .S ERR=1  I CHOSEN= 8,CHMFPDI' ="",$E(CHM FPDI,1,4)< 2000 D  Q  ERR  ;CPE0 05-080 .I  WRTMSG D J UL2000 .S  ERR=1 S CU RDT=$$HTE^ XLFDT($H,7 ),CURYR=$E (CURDT,1,4 ) I $E(CHM OPDI,1,4)> CURYR D  Q  ERR  ;CPE 005-004 an d 073 .I W RTMSG D JU LFUTR .S E RR=1 I CHO SEN=8,CHMF PDI'="",$E (CHMFPDI,1 ,4)>CURYR  D  Q ERR   ;CPE005-07 3 .I WRTMS G D JULFUT R .S ERR=1  N X,CHJUL  D NOW^%DT C S:'$D(X)  X=DT S X= $E(DT,1,3) _"0000" D  H^%DTC S C HJUL=($P($ H,",",1)-% H)+1 ;S JD AY=$E(CHMO PDI,5,7) I  $E(CHMOPD I,5,7)<"00 1"!($E(CHM OPDI,5,7)> "366") D   Q ERR  ;CP E005-004 a nd 074 .I  WRTMSG D J ULDAY .S E RR=1 I CHO SEN=8,CHMF PDI'="" D   I ERR Q 1  ;CPE005-0 74 .I $E(C HMFPDI,5,7 )<"001"!($ E(CHMFPDI, 5,7)>"366" ) D  ..I W RTMSG D JU LDAY ..S E RR=1 I CHO SEN=8,CHMO PDI'="",CH MFPDI'="", $E(CHMOPDI ,8,9)=91,$ E(CHMFPDI, 8,9)'=97 D   Q ERR  ; CPE005-075  .I WRTMSG  D CHPIMSG  .S ERR=1  I CHOSEN=8 ,CHMOPDI'= "",CHMFPDI '="",$E(CH MOPDI,8,9) =92,$E(CHM FPDI,8,9)' =90 D  Q E RR  ;CPE00 5-075 .I W RTMSG D SB PIMSG .S E RR=1 I CHO SEN=6,CHMO PDI'="",$E (CHMOPDI,8 ,9)'=91 D   Q ERR  ;C PE005-004  .I WRTMSG  D CHPIMSG  .S ERR=1 I  CHOSEN=7, CHMOPDI'=" ",$E(CHMOP DI,8,9)'=9 2 D  Q ERR   ;CPE005- 004 .I WRT MSG D SBPI MSG .S ERR =1 I CHOSE N=8,CHMOPD I'="",$E(C HMOPDI,8,9 )'=91,$E(C HMOPDI,8,9 )'=92 D  Q  ERR .I WR TMSG D ..D  CLEARB .. S DY=15,DX =1 X XY W  *7,@CHBON, "Original  PDI Progra m Indicato r must be  a 91 for C HAMPVA or  92 for Spi na Bifida. ",@CHBOFF  .S ERR=1 I  CHMOPDI'= "" D  I ER R Q 1 ;CPE 005-079 .S  ALLCOMP=$ $CMPCLAIM( CHMOPDI) . I 'ALLCOMP  D  ;All c laims have  been comp leted. Do  not allow  furthur pr ocessing o n Original  PDI. ..I  WRTMSG D   ...D CLEAR B ...S DY= 15,DX=30 X  XY W *7,@ CHBON,"Can not ReOpen  PDI.",@CH BOFF ..S E RR=1 I CHO SEN=8 Q 0  S BENE=$$C HKBENE(CHM OPDI,CHMFP DI) I 'BEN E D  Q ERR  . I WRTMS G D .. D C LEARB .. S  DY=15,DX= 14 X XY W  *7,@CHBON, "Beneficia ry does no t match -  enter the  Original P DI Number. ",@CHBOFF  . S ERR=1  I CHMOPDI' ="",$P($G( ^CHMIMG(CH MOPDI,"E-R EOPEN"))," ^",3)=1 D   Q ERR  ;C PE005-004  and 077 .I  WRTMSG D   ..D CLEAR B ..S DY=1 5,DX=14 X  XY W *7,@C HBON,"PDI  Number has  already b een reopen ed.",@CHBO FF .S ERR= 1 Q ERR ;C MPCLAIM(PD I) ;Check  to see if  all associ ated claim s for PDI  have been  completed.                ;If an y of the c laims have  not been  completed,  then a fa lse value  is returne d. ;PDI =  PDI Number  S PDI=$G( PDI) S COM PLETE=1 ;  I '$D(^CHM PAY("C",PD I)) Q 0 ;N o claims t o check so  nothing h as been co mpleted. S  IEN=0 F   S IEN=$O(^ CHMPAY("C" ,PDI,IEN))  Q:'IEN!(' COMPLETE)  D .S STATU S=$P(^CHMP AY(IEN,0), "^",2) .I  STATUS=1!( STATUS=3)! (STATUS=6) !(STATUS=7 )!(STATUS= 8)!(STATUS =9) S COMP LETE=0 Q C OMPLETE ;C HKBENE(CHM OPDI,CHMFP DI) ;Check  beneficia ry for val idation pu rposes ;CH MOPDI = Or iginal PDI  Number ;C HMFPDI = C urrent PDI  Number N  BFN,CURRBE N,D1,D2,DA TA0,DATA10 ,IEN,ORIGB EN,SPONNUM  S CHMOPDI =$G(CHMOPD I),CHMFPDI =$G(CHMFPD I) S (ORIG BEN,CURRBE N,IEN)=""  I $D(^CHMP AY("C",CHM OPDI)) D . S IEN=$O(^ CHMPAY("C" ,CHMOPDI," ")) .S DAT A0=^CHMPAY (IEN,0) .S  SPONNUM=$ P(DATA0,"^ ",21) .S B FN=$P(DATA 0,"^",22)  .S ORIGBEN =SPONNUM_" /"_BFN I O RIGBEN=""  D .S D1=""  F  S D1=$ O(^CHMIMAG E(CHMOPDI, 1,D1)) Q:D 1=""  D .. S D2="" F   S D2=$O(^ CHMIMAGE(C HMOPDI,1,D 1,2,D2)) Q :D2=""  D  ...I $D(^C HMIMAGE(CH MOPDI,1,D1 ,2,D2,10))  D ....S D ATA10=^CHM IMAGE(CHMO PDI,1,D1,2 ,D2,10) .. ..S SPONNU M=$P(DATA1 0,"^"),BFN =$P(DATA10 ,"^",2) .. ..S ORIGBE N=SPONNUM_ "/"_BFN S  D1="" F  S  D1=$O(^CH MIMAGE(CHM FPDI,1,D1) ) Q:D1=""   D .S D2=" " F  S D2= $O(^CHMIMA GE(CHMFPDI ,1,D1,2,D2 )) Q:D2=""   D ..I $D (^CHMIMAGE (CHMFPDI,1 ,D1,2,D2,1 0)) D ...S  DATA10=^C HMIMAGE(CH MFPDI,1,D1 ,2,D2,10)  ...S SPONN UM=$P(DATA 10,"^"),BF N=$P(DATA1 0,"^",2) . ..S CURRBE N=SPONNUM_ "/"_BFN I  ORIGBEN=CU RRBEN Q 1  Q 0LOCK S  DY=15,DX=1  X XY W !, " PDI: ",C HMFPDI," i s Currentl y Being Pr ocessed" W  !," By An other User , Please E nter a Dif ferent PDI ." S CHMFP DI="",CHMF NMPG="" QI MAGE S VAL ="No" S:'$ D(CHMFPDI)  CHMFPDI=" " I CHMFPD I I $D(^CH MIMG(CHMFP DI,"DOC"))  D .S:$P(^ CHMIMG(CHM FPDI,"DOC" ),"^",3)'= "" VAL="Ye s" S DY=10 ,DX=41 X X Y W VAL Q  ;TOB(CHMFP DI,CHMFPGN M,CHMFIMAG ) ;CPE005- 004 ; retr ieve Type  of Bill an d Frequenc y Code ; i nput -  ;  CHMFPDI -  PDI ien ;  CHMFPGNM -  page numb er ien ; C HMFIMAG -  IMAGE ien  ; output -  ; returns  the Type  of Bill an d Frequenc y code  N  CHMFTOB I  '$D(CHMFPD I)!('$D(CH MFPGNM))!( '$D(CHMFIM AG)) Q "Fr equency Co de not def ined" I '$ D(^CHMIMAG E(+CHMFPDI ,1,+CHMFPG NM,2,+CHMF IMAG,"VEN" )) Q "Freq uency Code  not defin ed" S CHMF TOB=$P($G( ^CHMIMAGE( CHMFPDI,1, CHMFPGNM,2 ,CHMFIMAG, "VEN")),"^ ",7) I $E( CHMFTOB,3) =5 Q CHMFT OB_" Late  Charge Onl y" I $E(CH MFTOB,3)=6  Q CHMFTOB _" Adjustm ent of Pri or Claim"  I $E(CHMFT OB,3)=7 Q  CHMFTOB_"  Replacemen t of Prior  Claim" I  $E(CHMFTOB ,3)=8 Q CH MFTOB_" Vo id / Cance l of Prior  Claim" Q  $S(CHMFTOB ="":"Frequ ency Code  not define d",1:CHMFT OB_" Frequ ency Code  not define d") ; PGCN T Q:'$D(^C HMIMAGE(CH MFPDI,0))  S CHMFNMPG =$P(^CHMIM AGE(CHMFPD I,0),"^",2 ) Q ; TLPG CNT Q:'$D( ^CHMIMAGE( CHMFPDI,1) ) S TLPGCT =9999999,T LPGCT=$O(^ CHMIMAGE(C HMFPDI,1,T LPGCT),-1)  S:TLPGCT= "" TLPGCT= 1 S CHMFNM PG=TLPGCT  K TLPGCT Q  ;
  11  
  12  
  13  
  14   Difference s
  15  
  16  
  17  
  18  
  19  
  20  
  21  
  22  
  23  
  24  
  25  
  26  
  27  
  28  
  29  
  30  
  31  
  32  
  33  
  34  
  35  
  36  
  37   Passed XIN DEX?  (Y /  N):