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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 74 |
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: _____ ___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): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.