Produced by Araxis Merge on 4/17/2018 8:06:52 PM Central Daylight 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 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US591+v1.00.docx | Sun Mar 11 20:07:29 2018 UTC |
| 2 | MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218 | TAS+ePhm+SDD+US591+v1.00.docx | Wed Apr 18 00:20:00 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 1270 |
| 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 | MCCF EDI T AS US591 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | April 2017 | |
| 10 | Version 1. 00 | |
| 11 | User Story Number: U SRX-10 | |
| 12 | User Story Name: Enh ance the E CME User S creen CV C hange View action. | |
| 13 | Product Ba cklog ID: 10 | |
| 14 | Backlog Pr iority: | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US591 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Edit speci fied promp ts of the Change Vie w (CV) act ion of the ECME User Screen. C urrently, the prompt s allow al l values o r a single value. Th e updated prompts wi ll allow t he user to select mu ltiple ent ries. The following prompts wi ll be upda ted: | |
| 21 | Select Cer tain Eligi bility Typ e or (A)ll : A// | |
| 22 | Display On e ECME (U) ser or (A) LL: A// | |
| 23 | Display On e (P)atien t or (A)LL : A// | |
| 24 | Display On e (R)x or (A)LL: A// | |
| 25 | Display (R )ejects or (P)ayable s or (U)ns tranded or (A)LL: A/ / | |
| 26 | Display (C )MOP or (M )ail or (W )indow or (A)LL: A// | |
| 27 | Display (R )ealTime, (B)ackbill s, (P)RO O ption, Re( S)ubmissio n or (A)LL : A// | |
| 28 | Display Sp ecific (R) eject Code or (A)LL: A// | |
| 29 | Of the pro mpts being updated, the follow ing prompt s will req uire confi rmation fr om the use r if a pre viously se lected ent ry is to b e deleted: | |
| 30 | Display On e ECME (U) ser or (A) LL: A// | |
| 31 | Display On e (P)atien t or (A)LL : A// | |
| 32 | Display On e (R)x or (A)LL: A// | |
| 33 | Of the pro mpts being updated, the follow ing prompt s will not require c onfirmatio n if a pre viously se lected ent ry is to b e deleted: | |
| 34 | Select Cer tain Eligi bility Typ e or (A)ll : A// | |
| 35 | Display (R )ejects or (P)ayable s or (U)ns tranded or (A)LL: A/ / | |
| 36 | Display (C )MOP or (M )ail or (W )indow or (A)LL: A// | |
| 37 | Display (R )ealTime, (B)ackbill s, (P)RO O ption, Re( S)ubmissio n or (A)LL : A// | |
| 38 | Display Sp ecific (R) eject Code or (A)LL: A// | |
| 39 | Division p rompt will also be u pdated to require at least one division if user se lects D. I f user sel ects D and does not enter a di vision, th e prompt w ill be iss ued again. | |
| 40 | The header of the EC ME Screen will be up dated to r emove the details pe rtaining t o Selected Users. Li nes 2 and 3 of the h eader will be change d to left justify, a ligning ea ch line by the colon . | |
| 41 | List of Co mponents: | |
| 42 | Routine: B PSSCRCV | |
| 43 | Routine: B PSSCR01 | |
| 44 | Routine: B PSSCR03 | |
| 45 | Routine: B PSSCR05 | |
| 46 | ||
| 47 | Design – D etail | |
| 48 | Change Vie w Action u ser prompt s. | |
| 49 | Subroutine Name | |
| 50 | EDITPROF^B PSSCRCV | |
| 51 | Enhancemen t Category | |
| 52 | New | |
| 53 | Modify | |
| 54 | Delete | |
| 55 | No Change | |
| 56 | Story | |
| 57 | US591 | |
| 58 | Related Me nu Options or ListMa n Actions | |
| 59 | ECME User Screen act ion CV | |
| 60 | Related Ro utines | |
| 61 | This Subro utine is C alled By | |
| 62 | This Subro utine Call s | |
| 63 | ||
| 64 | CV^BPSSCRC V | |
| 65 | $$DS^BPSSC RDS, $$EDI TRX^BPSSCR PR, $$INSU RSEL^BPSSC RCU, $$PRO MPTRX^BPSU TIL1, DIQ^ PSODI, ^DI R | |
| 66 | Related In tegration Control Re gistration s (ICRs) | |
| 67 | 4858 | |
| 68 | Data Passi ng | |
| 69 | Parameter Input | |
| 70 | Parameter Output | |
| 71 | Function Return Val ue | |
| 72 | Global Mo dified | |
| 73 | Input Attr ibute Name and Defin ition | |
| 74 | Name: BPAR R | |
| 75 | Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR” | |
| 76 | New Modify Delete No Cha nge | |
| 77 | Name: BPDU Z7 | |
| 78 | Definition : DUZ | |
| 79 | New Modify Delete No Cha nge | |
| 80 | Output Att ribute Nam e and Defi nition | |
| 81 | Name: BPAR R | |
| 82 | Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR” | |
| 83 | New Modify Delete No Cha nge | |
| 84 | Name: BPDU Z7 | |
| 85 | Definition : DUZ | |
| 86 | New Modify Delete No Cha nge | |
| 87 | Current Lo gic | |
| 88 | ||
| 89 | EDITPROF(B PARR,BPDUZ 7) ; I +$G (DUZ)=0 D ERRMSG("Un known User ") Q N BP1 ,BPTF,BPQ, BPINP N BP RET N DIR, DR,DIE,DA ;get ONE/A LL USERS? ;EDITFLD(F ILENO,FLDN O,RECIEN,C ODESET,PRM TMSG,DFLTC ODE) ; S B PRET=$$DS^ BPSSCRDS(. BPARR,+BPD UZ7) ;get divisions Q:BPRET=-2 ;quit due to timeou t or ^ Q:$ $EDITFLD(2 .01,+BPDUZ 7,"S^V:VET ERAN;T:TRI CARE;C:CHA MPVA;A:ALL ","Select Certain El igibility Type or (A )ll","V",. BPARR)=-1 S BPQ=0 F D Q:BPQ' =0 . S BPI NP=$$EDITF LD(1.01,+B PDUZ7,"S^U :ONE USER; A:ALL","Di splay One ECME (U)se r or (A)LL ","ALL",.B PARR) . S: BPINP=-1 B PQ=-1 S:$P (BPINP,U,2 )="A" BPQ= 1 I BPQ'=0 Q . S BPI NP=$$EDITF LD(1.16,+B PDUZ7,"P^V A(200,","S elect User ","",.BPAR R) . S:BPI NP=-1 BPQ= -1 S:$P(BP INP,U,2)'= "" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ; quit due t o timeout or ^ S BPQ =0 F D Q :BPQ'=0 . S BPINP=$$ EDITFLD(1. 02,+BPDUZ7 ,"S^P:ONE PATIENT;A: ALL","Disp lay One (P )atient or (A)LL","A LL",.BPARR ) . S:BPIN P=-1 BPQ=- 1 S:$P(BPI NP,U,2)="A " BPQ=1 I BPQ'=0 Q . S BPINP=$ $EDITFLD(1 .17,+BPDUZ 7,"P^DPT(" ,"Select P atient","" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)'="" B PQ=1 I BPQ '=0 Q Q:BP Q=-1 ;quit due to ti meout or ^ S BPQ=0 F D Q:BPQ '=0 . S BP INP=$$EDIT FLD(1.03,+ BPDUZ7,"S^ R:ONE RX;A :ALL","Dis play One ( R)x or (A) LL","ALL", .BPARR) . S:BPINP=-1 BPQ=-1 S: $P(BPINP,U ,2)="A" BP Q=1 I BPQ' =0 Q . S B PINP=$$EDI TRX^BPSSCR PR(1.18,+B PDUZ7,"Sel ect RX","" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)'="" B PQ=1 I BPQ '=0 Q Q:BP Q=-1 ;quit due to ti meout or ^ S BPINP=$ $EDITFLD(1 .04,+BPDUZ 7,"S^D:DAY S;H:HOURS" ,"Activity Timeframe (H)ours o r (D)ays", "DAYS",.BP ARR) I BPI NP=-1 Q ; quit due t o timeout or ^ S BPT F=$P(BPINP ,U,2) Q:$$ EDITFLD(1. 05,+BPDUZ7 ,"N^1:999: 0","Activi ty Timefra me Value", $S(BPTF="H ":24,1:7), .BPARR)=-1 Q:$$EDITF LD(2.02,+B PDUZ7,"S^O :OPEN CLAI MS;C:CLOSE D CLAIMS;A :ALL","Sel ect Open/C losed or A ll Claims" ,"O",.BPAR R)=-1 Q:$$ EDITFLD(1. 19,+BPDUZ7 ,"S^O:Open Non-Billa ble Entrie s;C:Closed Non-Billa ble Entrie s;A:ALL"," Display (O )pen or (C )losed or (A)ll Non- Billable E ntries","A ",.BPARR)= -1 Q:$$EDI TFLD(2.03, +BPDUZ7,"S ^B:BILLING REQUESTS; R:REVERSAL S;A:ALL"," Select Sub mission Ty pe","A",.B PARR)=-1 Q :$$EDITFLD (1.06,+BPD UZ7,"S^R:R EJECTS;P:P AYABLES;U: UNSTRANDED ;A:ALL","D isplay (R) ejects or (P)ayables or (U)nst randed or (A)LL","RE JECTS",.BP ARR)=-1 Q: $$EDITFLD( 1.07,+BPDU Z7,"S^R:RE LEASED;N:N ON-RELEASE D;A:ALL"," Display (R )eleased R xs or (N)o n-Released Rxs or (A )LL","RELE ASED",.BPA RR)=-1 Q:$ $EDITFLD(1 .08,+BPDUZ 7,"S^C:CMO P;M:MAIL;W :WINDOW;A: ALL","Disp lay (C)MOP or (M)ail or (W)ind ow or (A)L L","ALL",. BPARR)=-1 Q:$$EDITFL D(1.09,+BP DUZ7,"S^R: REALTIME;B :BACKBILLS ;P:PRO OPT ION;S:RESU BMISSION;A :ALL","Dis play (R)ea lTime, (B) ackbills, (P)RO Opti on, Re(S)u bmission o r (A)LL"," ALL",.BPAR R)=-1 S BP Q=0 F D Q:BPQ'=0 . S BPINP=$ $EDITFLD(1 .1,+BPDUZ7 ,"S^R:REJE CT CODE;A: ALL","Disp lay Specif ic (R)ejec t Code or (A)LL","AL L",.BPARR) . S:BPINP =-1 BPQ=-1 S:$P(BPIN P,U,2)="A" BPQ=1 I B PQ'=0 Q . S BPINP=$$ EDITFLD(1. 15,+BPDUZ7 ,"P^BPSF(9 002313.93, ","Select Reject Cod e","",.BPA RR) . S:BP INP=-1 BPQ =-1 S:$P(B PINP,U,2)' ="" BPQ=1 I BPQ'=0 Q Q:BPQ=-1 ;quit due to timeout or ^ Q:$$ INSURSEL^B PSSCRCU(.B PARR,+BPDU Z7)=-1 Q | |
| 90 | ||
| 91 | Modified L ogic (Chan ges are hi ghlighted) | |
| 92 | ||
| 93 | EDITPROF(B PARR,BPDUZ 7) ; I +$G (DUZ)=0 D ERRMSG("Un known User ") Q N BP1 ,BPTF,BPQ, BPINP N BP RET N DIR, DR,DIE,DA N BPS106,B PS106STR,B PS108,BPS1 08STR,BPS1 09,BPS109S TR,BPS115, BPS115AR,B PS115NM,BP S115X N BP S116,BPS11 6AR,BPS116 NM,BPS116X ,BPS117,BP S117AR,BPS 117NM,BPS1 17X,BPS118 ,BPS118AR, BPS118X N BPS201,BPS 201STR,BPS CNT,BPSDRU G,BPSERR,B PSRXD,BPSR XN,BPSSEL, BPSX ;get ONE/ALL US ERS? ;EDIT FLD(FILENO ,FLDNO,REC IEN,CODESE T,PRMTMSG, DFLTCODE) ; ;BPS113 ; FIELD 1. 13 - Divis ion S BPRE T=$$DS^BPS SCRDS(.BPA RR,+BPDUZ7 ) ;get div isions Q:B PRET=-2 ;q uit due to timeout o r ^ ; If ( D)ivision option was selected but no Div ision ente red, set B PARR(1.13) to "A" ; a nd re-prom pt current question. I ($G(BPA RR(1.13))= "D")&(($G( BPARR("DIV S"))="")!( $G(BPARR(" DIVS"))="; ")) S BPAR R(1.13)="A " G BPS113 ; ; ***** ***** Star t of BPS20 1 Logic ** ******** ; ; BPS201S TR = strin g of valid codes ; ; Upon com pletion of Eligibili ty codes, values wil l be place d into a s tring deli mited ; by commas. e .g. C,T ; ; If user includes (A)ll as a n Eligibil ity code, only A wil l be store d in BPARR ; array. e.g. Entry of C,T,A will save as BPARR(1 .13)="A" ; ; User i nput value s are temp orarily st ored in ar ray BPS201 to elimin ate duplic ate ; ent ries. e.g. Entry of T,C,T will save as B PARR(1.13) ="C,T" ; B PS201 ; FI ELD 2.01 - Eligibili ty Type ; S BPS201ST R=",V,T,C, A," S DIR( 0)="FO^0:7 " S DIR("A ",1)="" S DIR("A",2) =" Select one of the following :" S DIR(" A",3)="" S DIR("A",4 )=" V VETE RAN" S DIR ("A",5)=" T TRICARE" S DIR("A" ,6)=" C CH AMPVA" S D IR("A",7)= " A ALL" S DIR("A",8 )="" S DIR ("A")="Sel ect One or Many Elig ibility Ty pes or (A) ll" S DIR( "B")="V" I $G(BPARR (2.01))'=" " S DIR("B ")=BPARR(2 .01) S DIR ("?",1)="E nter a sin gle respon se or mult iple respo nses separ ated by co mmas." S D IR("?",2)= " Example: " S DIR("? ",3)=" T" S DIR("?") =" T,C" D ^DIR K DIR ; I $D(DI RUT) Q ; ; Loop thro ugh user i nput (retu rned in va riable X). ; Display warning m essage if any user i nput selec tion is no t included ; in the string of acceptable codes (BP S201STR) a nd re-prom pt questio n. ; Assig n valid se lections t o BPS201 a rray. This array wil l prevent ; duplicat e entries from being saved to the user's profile. ; K BPS201 S BPSERR= 0 F BPSX=1 :1:$L(X,", ") D . S B PSSEL=$P(X ,",",BPSX) . I BPS20 1STR'[("," _BPSSEL_", ") W !," " ,BPSSEL," is not a v alid entry ." S BPSER R=1 Q . S BPS201(BPS SEL)="" ; I $G(BPSE RR)=1 G BP S201 ; ; If user in cluded (A) ll as a se lection, s et profile setting t o A. ; I $ D(BPS201(" A")) S BPA RR(2.01)=" A" E D ; User did not enter "A". . ; . ; At this point use r selectio ns are val id and do not includ e "A". . ; Loop thro ugh valid user selec tions. Set selection s into a . ; comma d elimited s tring befo re assigni ng to BPAR R array. . ; . S BPS SEL="" . F S BPSSEL =$O(BPS201 (BPSSEL)) Q:BPSSEL=" " D . . S BPS201=$G (BPS201)_B PSSEL_"," . S BPS201 =$E(BPS201 ,1,($L(BPS 201)-1)) . S BPARR(2 .01)=BPS20 1 ; ; ^^^^ ^^^^^^ End of BPS201 Logic ^^^ ^^^^^^^ ; ; ******** ** Start o f BPS101 / BPS116 Lo gic ****** **** ; ; U ser input will be te mporarily stored in BPS116AR f or display to user ; of selec ted USERS while in C V Action. ; ; If U is selecte d, at leas t one USER must be s elected. I f not, sel ection ; will defau lt to (A)l l and the current qu estion wil l be re-pr ompted. ; ; Upon co mpletion o f USERs en try, value s will be placed int o a string ; delimi ted by sem icolons. e .g. BPARR( 1.16)=";12 345;56789; " ; ; BPS 116AR = ar ray contai ning USER informatio n ; BPS116 AR(BPS116) ="" BPS116 = IEN fro m New Pers on File #2 00 ; BPS11 6AR("B",BP S116NM) BP S116NM = U ser Name - Index use d to displ ay ; sele cted USERs in alphab etical ord er while i n CV Actio n. ;BPS101 ; Fields 1.01 and 1 .16 - User (s) ; S BP INP=$$EDIT FLD(1.01,+ BPDUZ7,"S^ U:ONE USER ;A:ALL","D isplay One or Many E CME (U)ser s or (A)LL ","ALL",.B PARR) I BP INP=-1 Q ; S BPSERR= 0 ; ; If u ser select ion is U, assign exi sting entr y(s) into BPS116AR a rray. ; I $P(BPINP,U ,2)="U" D . S BPS116 =$G(BPARR( 1.16)) . I BPS116'=" " D . . S BPSCNT=$L( BPS116,";" ) . . I BP SCNT=1 D . . . S BPS 116NM=$$GE T1^DIQ(200 ,BPS116,.0 1) . . . I $G(BPS116 NM)'="" S BPS116AR(B PS116)="", BPS116AR(" B",BPS116N M)="" . . I +BPSCNT> 2 D . . . F I=2:1:BP SCNT-1 D . . . . S B PS116X=$P( BPS116,";" ,I),BPS116 NM=$$GET1^ DIQ(200,BP S116X,.01) . . . . I $G(BPS116 NM)'="" S BPS116AR(B PS116X)="" ,BPS116AR( "B",BPS116 NM)="" . ; . ; Displ ay existin g entry(s) to user. . ; . I $D (BPS116AR) D . . W ! ,?2,"Selec ted:" . . S BPS116NM ="" F S B PS116NM=$O (BPS116AR( "B",BPS116 NM)) Q:BPS 116NM="" W !,?10,BP S116NM . ; . W !!,"E nter a use r to selec t." | |
| 94 | . W !,"On ce all use rs are sel ected, hit enter wit hout makin g a select ion.",! | |
| 95 | . ; | |
| 96 | . S BPS11 6="" F D Q:BPS116= -1 . . S D IR0="P^VA( 200," . . S PRMTMSG= "Select Us er" . . S DFLTVAL="" . . S BPS 116=$$PROM PT(DIR0,PR MTMSG,DFLT VAL) . . ; . . ; Exi t 'Select User' loop if user e ntered nil . . . ; . . I BPS11 6=-1 Q . . ; . . S BPS116NM=$ $GET1^DIQ( 200,BPS116 ,.01) . . ; . . ; If entry exi sts in BPS 116AR arra y, prompt user to de lete from list. . . ; . . I $ D(BPS116AR (BPS116)) D . . . S DIR(0)="S^ Y:YES;N:NO " . . . S DIR("A")=" Delete "_B PS116NM_" from your list?" . . . S DIR(" B")="NO" . . . D ^D IR . . . I Y="Y" K B PS116AR(BP S116),BPS1 16AR("B",B PS116NM) . . . ; . . E D . . . ; . . . ; Set ne w entry in to BPS116A R array. . . . ; . . . I $G(BP S116NM)'=" " S BPS116 AR(BPS116) ="",BPS116 AR("B",BPS 116NM)="" . . ; . . ; Display existing e ntry(s) to user. . . ; . . I $D(BPS116A R) D . . . W !,?2,"S elected:" . . . S BP S116NM="" F S BPS11 6NM=$O(BPS 116AR("B", BPS116NM)) Q:BPS116N M="" W !, ?10,BPS116 NM . ; . ; If user s elected (U )ser but h as not sel ected any users, . ; set profi le setting to ALL an d set BPSE RR flag to re-prompt question. . ; . I '$D(BPS116 AR) S BPAR R(1.01)="A ",BPARR(1. 16)="" S B PSERR=1 Q . ; . ; Lo op through selected users, set ting selec ted users into . ; BPARR arra y - delimi ted by sem i-colon. . ; . S BP ARR(1.16)= ";" . S BP S116=0 F S BPS116=$ O(BPS116AR (BPS116)) Q:+BPS116= 0 S BPARR( 1.16)=BPAR R(1.16)_BP S116_";" ; ; If BPSE RR flag is 1, re-pro mpt questi on. ; I $ G(BPSERR)= 1 G BPS101 ; ; ^^^^^ ^^^^^ End of BPS101 / BPS116 L ogic ^^^^^ ^^^^^ ; ; ********** Start of BPS102 / B PS117 Logi c ******** ** ; ; Use r input wi ll be temp orarily st ored in BP S117AR for display t o user ; of selecte d PATIENTS while in CV Action. ; ; If P is select ed, at lea st one PAT IENT must be selecte d. If not, selection ; will d efault to (A)ll and the curren t question will be r e-prompted . ; ; Upo n completi on of PATI ENTs entry , values w ill be pla ced into a string ; delimited by semico lons. e.g. BPARR(1.1 7)=";12345 ;56789;" ; ; BPS117 AR = array containin g PATIENT informatio n ; BPS117 AR(BPS117) ="" BPS117 = IEN fro m Patient File ^DPT ; BPS117AR ("B",BPS11 7M) BPS117 NM = Patie nt Name - Index used to displa y ; selec ted PATIEN Ts in alph abetical o rder while in CV Act ion. ;BPS 102 ; Fiel ds 1.02 an d 1.17 - P atient(s) ; S BPINP= $$EDITFLD( 1.02,+BPDU Z7,"S^P:ON E PATIENT; A:ALL","Di splay One or Many (P )atients o r (A)LL"," ALL",.BPAR R) I BPINP =-1 Q ; S BPSERR=0 ; ; If user selection is P, ass ign existi ng entry(s ) into BPS 117AR arra y. ; I $P( BPINP,U,2) ="P" D . S BPS117=$G (BPARR(1.1 7)) . I BP S117'="" D . . S BPS CNT=$L(BPS 117,";") . . I BPSCN T=1 D . . . S BPS117 NM=$$GET1^ DIQ(2,BPS1 17,.01) . . . I $G(B PS117NM)'= "" S BPS11 7AR(BPS117 )="",BPS11 7AR("B",BP S117NM)="" . . I +BP SCNT>2 D . . . F I=2 :1:BPSCNT- 1 D . . . . S BPS117 X=$P(BPS11 7,";",I),B PS117NM=$$ GET1^DIQ(2 ,BPS117X,. 01) . . . . I $G(BPS 117NM)'="" S BPS117A R(BPS117X) ="",BPS117 AR("B",BPS 117NM)="" . ; . ; Di splay exis ting entry (s) to use r. . ; . I $D(BPS11 7AR) D . . W !,?2,"S elected:" . . S BPS1 17NM="" F S BPS117N M=$O(BPS11 7AR("B",BP S117NM)) Q :BPS117NM= "" W !,?1 0,BPS117NM . ; . W ! !,"Enter a patient t o select." | |
| 97 | . W !,"On ce all pat ients are selected, hit enter without ma king a sel ection.",! | |
| 98 | . ; | |
| 99 | . S BPS11 7="" F D Q:BPS117= -1 . . S D IR0="P^DPT (" . . S P RMTMSG="Se lect Patie nt" . . S DFLTVAL="" . . S BPS 117=$$PROM PT(DIR0,PR MTMSG,DFLT VAL) . . ; . . ; Exi t 'Select Patient' l oop if use r entered nil. . . ; . . I BP S117=-1 Q . . ; . . S BPS117N M=$$GET1^D IQ(2,BPS11 7,.01) . . ; . . ; I f entry ex ists in BP S117AR arr ay, prompt user to d elete from list. . . ; . . I $D(BPS117A R(BPS117)) D . . . S DIR(0)="S ^Y:YES;N:N O" . . . S DIR("A")= "Delete "_ BPS117NM_" from your list?" . . . S DIR( "B")="NO" . . . D ^D IR . . . I Y="Y" K B PS117AR(BP S117),BPS1 17AR("B",B PS117NM) . . . ; . . E D . . . ; . . . ; Set ne w entry in to BPS117A R array. . . . ; . . . I $G(B PS117NM)'= "" S BPS11 7AR(BPS117 )="",BPS11 7AR("B",BP S117NM)="" . . ; . . ; Display existing entry(s) t o user. . . ; . . I $D(BPS117 AR) D . . . W !,?2," Selected:" . . . S B PS117NM="" F S BPS1 17NM=$O(BP S117AR("B" ,BPS117NM) ) Q:BPS117 NM="" W ! ,?10,BPS11 7NM . ; . ; If user selected ( P)atient b ut has not selected any patien ts, . ; se t profile setting to ALL and r e-prompt q uestion. . ; . I '$ D(BPS117AR ) S BPARR( 1.02)="A", BPARR(1.17 )="" S BPS ERR=1 Q . ; . ; Loop through s elected pa tients, se tting sele cted patie nts into . ; BPARR a rray - del imited by semi-colon . . ; . S BPARR(1.17 )=";" . S BPS117=0 F S BPS117 =$O(BPS117 AR(BPS117) ) Q:+BPS11 7=0 S BPAR R(1.17)=BP ARR(1.17)_ BPS117_";" I $G(BPSE RR)=1 G BP S102 ; ; ^ ^^^^^^^^^ End of BPS 102 / BPS1 17 Logic ^ ^^^^^^^^^ ; ; ****** **** Start of BPS103 / BPS118 Logic **** ****** ; ; User inpu t will be temporaril y stored i n BPS118AR for displ ay to user ; of sel ected RXs while in C V Action. ; ; If R is selecte d, at leas t one RX m ust be sel ected. If not, selec tion ; wi ll default to (A)ll and the cu rrent ques tion will be re-prom pted. ; ; Upon comp letion of RXs entry, values wi ll be plac ed into a string ; delimited by semicol ons. e.g. BPARR(1.18 )=";12345; 56789;" ; ; BPS118A R = array containing RX inform ation ; BP S118AR(BPS 118)="" BP S118 = IEN from Pres cription F ile #52 ; BPS118AR(" B",BPSRXN) BPSRXN = RX Number - Index us ed to disp lay ; sel ected RXs in numeric al order w hile in CV Action. ; BPS103 ; Fields 1.0 3 and 1.18 - Rx(s) ; S BPINP=$ $EDITFLD(1 .03,+BPDUZ 7,"S^R:ONE RX;A:ALL" ,"Display One or Man y (R)x or (A)LL","AL L",.BPARR) I BPINP=- 1 Q ; S BP SERR=0 ; ; If user selection is R, assi gn existin g entry(s) into BPS1 18AR array . ; I $P(B PINP,U,2)= "R" D . S BPS118=$G( BPARR(1.18 )) . I BPS 118'="" D . . S BPSC NT=$L(BPS1 18,";") . . I BPSCNT =1 D . . . S DIC=52 . . . S DR =".01;6" . . . S DA= BPS118 . . . S DIQ=" BPSRXD" . . . S DIQ( 0)="E" . . . D DIQ^P SODI(52,DI C,DR,DA,.D IQ) ; ICR 4858 . . . ; . . . S BPSRXN=$ G(BPSRXD(5 2,DA,.01," E")) . . . S BPSDRUG =$G(BPSRXD (52,DA,6," E")) . . . ; . . . S BPS118AR (BPS118)=" ",BPS118AR ("B",BPSRX N)=BPSDRUG . . . ; . . I +BPS CNT>2 D . . . F I=2: 1:BPSCNT-1 D . . . . S BPS118X =$P(BPS118 ,";",I) . . . . S DI C=52 . . . . S DR=". 01;6" . . . . S DA=B PS118X . . . . S DIQ ="BPSRXD" . . . . S DIQ(0)="E" . . . . D DIQ^PSODI (52,DIC,DR ,DA,.DIQ) ; ICR 4858 . . . . ; . . . . S BPSRXN=$G (BPSRXD(52 ,DA,.01,"E ")) . . . . S BPSDRU G=$G(BPSRX D(52,DA,6, "E")) . . . . ; . . . . S BPS 118AR(BPS1 18X)="",BP S118AR("B" ,BPSRXN)=B PSDRUG . ; . ; Displ ay existin g entry(s) to user. . ; . I $ D(BPS118AR ) D . . W !,?2,"Sele cted:" . . S BPSRXN= "" F S BP SRXN=$O(BP S118AR("B" ,BPSRXN)) Q:BPSRXN=" " W !,?10 ,BPSRXN,?3 0,BPS118AR ("B",BPSRX N) . ; . W !!,"Enter a prescri ption to s elect." | |
| 100 | . W !,"On ce all pre scriptions are selec ted, hit e nter witho ut making a selectio n.",! | |
| 101 | . ; | |
| 102 | . S BPS11 8="" F D Q:BPS118= -1 . . S P RMTMSG="Se lect RX" . . S DFLTV AL="" . . S BPS118=$ $PROMPTRX^ BPSUTIL1(P RMTMSG,DFL TVAL) . . ; . . ; E xit 'Selec t RX' loop if user e ntered nil . . . ; . . I BPS118 =-1 Q . . ; . . S DI C=52 . . S DR=".01;6 " . . S DA =BPS118 . . S DIQ="B PSRXD" . . S DIQ(0)= "E" . . D DIQ^PSODI( 52,DIC,DR, DA,.DIQ) ; ICR 4858 . . ; . . S BPSRXN= $G(BPSRXD( 52,DA,.01, "E")) . . S BPSDRUG= $G(BPSRXD( 52,DA,6,"E ")) . . . . ; . . ; If entry exists in BPS118AR a rray, prom pt user to delete fr om list. . . ; . . I $D(BPS11 8AR(BPS118 )) D . . . S DIR(0)= "S^Y:YES;N :NO" . . . S DIR("A" )="Delete "_BPSRXN_" from your list?" . . . S DIR( "B")="NO" . . . D ^D IR . . . I Y="Y" K B PS118AR(BP S118),BPS1 18AR("B",B PSRXN) . . . ; . . E D . . . ; Set new entry int o BPS118AR array. . . . ; . . . S BPS11 8AR(BPS118 )="",BPS11 8AR("B",BP SRXN)=BPSD RUG . . ; . . ; Disp lay existi ng entry(s ) to user. . . ; . . I $D(BPS1 18AR) D . . . W !,?2 ,"Selected :" . . . S BPSRXN="" F S BPSR XN=$O(BPS1 18AR("B",B PSRXN)) Q: BPSRXN="" W !,?10,B PSRXN,?30, BPS118AR(" B",BPSRXN) . ; . ; I f user sel ected (R)x but has n ot selecte d any RXs, . ; set p rofile set ting to AL L and set BPSERR fla g to re-pr ompt quest ion. . ; . I '$D(BP S118AR) S BPARR(1.03 )="A",BPAR R(1.18)="" S BPSERR= 1 Q . ; . ; Loop thr ough selec ted RXs, s etting sel ected RXs into . ; B PARR array - delimit ed by semi -colon. . ; . S BPA RR(1.18)=" ;" . S BPS 118=0 F S BPS118=$O (BPS118AR( BPS118)) Q :+BPS118=0 S BPARR(1 .18)=BPARR (1.18)_BPS 118_";" ; ; If BPSER R flag is 1, re-prom pt questio n. ; I $G( BPSERR)=1 G BPS103 ; ; ^^^^^^^ ^^^ End of BPS103 / BPS118 Log ic ^^^^^^^ ^^^ ; S BP INP=$$EDIT FLD(1.04,+ BPDUZ7,"S^ D:DAYS;H:H OURS","Act ivity Time frame (H)o urs or (D) ays","DAYS ",.BPARR) I BPINP=-1 Q ;quit due to tim eout or ^ S BPTF=$P( BPINP,U,2) Q:$$EDITF LD(1.05,+B PDUZ7,"N^1 :999:0","A ctivity Ti meframe Va lue",$S(BP TF="H":24, 1:7),.BPAR R)=-1 Q:$$ EDITFLD(2. 02,+BPDUZ7 ,"S^O:OPEN CLAIMS;C: CLOSED CLA IMS;A:ALL" ,"Select O pen/Closed or All Cl aims","O", .BPARR)=-1 Q:$$EDITF LD(1.19,+B PDUZ7,"S^O :Open Non- Billable E ntries;C:C losed Non- Billable E ntries;A:A LL","Displ ay (O)pen or (C)lose d or (A)ll Non-Billa ble Entrie s","A",.BP ARR)=-1 Q: $$EDITFLD( 2.03,+BPDU Z7,"S^B:BI LLING REQU ESTS;R:REV ERSALS;A:A LL","Selec t Submissi on Type"," A",.BPARR) =-1 ; ; ** ******** S tart of BP S106 Logic ********* * ; ; BPS1 06STR = st ring of va lid codes ; ; Upon c ompletion of prompt, values wi ll be plac ed into a string del imited ; b y commas. e.g. P,R ; ; If user includes (A)ll as a code, onl y A will b e stored i n BPARR ; array. e.g . Entry of R,P,A wil l save as BPARR(1.06 )="A" ; ; User input values ar e temporar y stored i n array BP S106 to el iminate du plicate ; entries. e.g. Entry of R,P,R will save as BPARR(1 .06)="P,R" ; BPS106 ; FIELD 1. 06 - Rejec ts / Payab les / Unst randed / A ll ; S BP S106STR=", R,P,U,A," S DIR(0)=" FO^0:7" S DIR("A",1) ="" S DIR( "A",2)=" S elect one of the fol lowing:" S DIR("A",3 )="" S DIR ("A",4)=" R REJECTS" S DIR("A" ,5)=" P PA YABLES" S DIR("A",6) =" U UNSTR ANDED" S D IR("A",7)= " A ALL" S DIR("A",8 )="" S DIR ("A")="Dis play (R)ej ects or (P )ayables o r (U)nstra nded or (A )ll" S DIR ("B")="A" I $G(BPAR R(1.06))'= "" S DIR(" B")=BPARR( 1.06) S DI R("?",1)=" Enter a si ngle respo nse or mul tiple resp onses sepa rated by c ommas." S DIR("?",2) =" Example :" S DIR(" ?",3)=" P" S DIR("?" )=" P,R" D ^DIR K DI R ; I $D(D IRUT) Q ; ; Loop thr ough user input (ret urned in v ariable X) . ; Displa y warning message if any user input sele ction is n ot include d ; in the string of acceptabl e codes (B PS106STR) and re-pro mpt questi on. ; Assi gn valid s elections to BPS106 array. Thi s array wi ll prevent ; duplica te entries from bein g saved to the user' s profile. ; K BPS10 6 S BPSERR =0 F BPSX= 1:1:$L(X," ,") D . S BPSSEL=$P( X,",",BPSX ) . I BPS1 06STR'[(", "_BPSSEL_" ,") W !," ",BPSSEL," is not a valid entr y." S BPSE RR=1 Q . S BPS106(BP SSEL)="" ; I $G(BPSE RR)=1 G BP S106 ; ; I f user inc luded (A)l l as a sel ection, se t profile setting to A. ; I $D (BPS106("A ")) S BPAR R(1.06)="A " E D ; User did n ot enter " A" . ; . ; At this point user selection s are vali d and do n ot include "A". . ; Loop throu gh valid u ser select ions. Set selections into a . ; comma de limited st ring befor e assignin g to BPARR array. . ; . S BPS SEL="" . F S BPSSEL =$O(BPS106 (BPSSEL)) Q:BPSSEL=" " D . . S BPS106=$G (BPS106)_B PSSEL_"," . S BPS106 =$E(BPS106 ,1,($L(BPS 106)-1)) . S BPARR(1 .06)=BPS10 6 ; ; ^^^^ ^^^^^^ End of BPS106 Logic ^^^ ^^^^^^^ ; Q:$$EDITFL D(1.07,+BP DUZ7,"S^R: RELEASED;N :NON-RELEA SED;A:ALL" ,"Display (R)eleased Rxs or (N )on-Releas ed Rxs or (A)LL","RE LEASED",.B PARR)=-1 ; ; ******* *** Start of BPS108 Logic **** ****** ; ; BPS108STR = string of valid c odes ; ; Upon compl etion of p rompt, val ues will b e placed i nto a stri ng delimit ed ; by co mmas. e.g. C,M ; ; If user in cludes (A) ll as a co de, only A will be s tored in B PARR ; arr ay. e.g. E ntry of C, M,A will s ave as BPA RR(1.08)=" A" ; ; Us er input v alues are temporary stored in array BPS1 08 to elim inate dupl icate ; e ntries. e. g. Entry o f C,M,C wi ll save as BPARR(1.0 8)="C,M" ; BPS108 ; FIELD 1.08 - CMOP / Mail / Win dow / All ; S BPS10 8STR=",C,M ,W,A," S D IR(0)="FO^ 0:7" S DIR ("A",1)="" S DIR("A" ,2)=" Sele ct one of the follow ing:" S DI R("A",3)=" " S DIR("A ",4)=" C C MOP" S DIR ("A",5)=" M MAIL" S DIR("A",6) =" W WINDO W" S DIR(" A",7)=" A ALL" S DIR ("A",8)="" S DIR("A" )="Display (C)MOP or (M)ail or (W)indow or (A)ll" S DIR("B") ="A" S:$G( BPARR(1.08 ))'="" DIR ("B")=BPAR R(1.08) S DIR("?",1) ="Enter a single res ponse or m ultiple re sponses se parated by commas." S DIR("?", 2)=" Examp le:" S DIR ("?",3)=" C" S DIR(" ?")=" C,M" D ^DIR K DIR ; I $D (DIRUT) Q ; ; Loop t hrough use r input (r eturned in variable X). ; Disp lay warnin g message if any use r input se lection is not inclu ded ; in t he string of accepta ble codes (BPS108STR ) and re-p rompt ques tion. ; As sign valid selection s to BPS10 8 array. T his array will preve nt ; dupli cate entri es from be ing saved to the use r's profil e. ; K BPS 108 S BPSE RR="" F BP SX=1:1:$L( X,",") D . S BPSSEL= $P(X,",",B PSX) . I B PS108STR'[ (","_BPSSE L_",") W ! ," ",BPSSE L," is not a valid e ntry." S B PSERR=1 Q . S BPS108 (BPSSEL)=" " ; I $G(B PSERR)=1 G BPS108 ; ; If user included ( A)ll as a seleection , set prof ile settin g to A. ; I $D(BPS10 8("A")) S BPARR(1.08 )="A" E D ; User d id not ent er "A". . ; . ; At t his point user selec tions are valid and do not inc lude "A". . ; Loop t hrough val id user se lections. Set select ions into a . ; comm a delimite d string b efore assi gning to B PARR array . . ; . S BPSSEL="" . F S BPS SEL=$O(BPS 108(BPSSEL )) Q:BPSSE L="" D . . S BPS108 =$G(BPS108 )_BPSSEL_" ," . S BPS 108=$E(BPS 108,1,($L( BPS108)-1) ) . S BPAR R(1.08)=BP S108 ; ; ^^^^^^^^^^ End of BP S108 Logic ^^^^^^^^^ ^ ; ; **** ****** Sta rt of BPS1 09 Logic * ********* ; ; BPS109 STR = stri ng of vali d codes ; ; Upon com pletion of prompt, v alues will be placed into a st ring delim ited ; by commas. e. g. P,R ; ; If user i ncludes (A )ll as a c ode, only A will be stored in BPARR ; ar ray. e.g. Entry of R ,P,A will save as BP ARR(1.09)= "A"' ; ; U ser input values are temporary stored in array BPS 106 to eli minate dup licate ; entries. e .g. Entry of R,P,R w ill save a s BPARR(1. 09)="P,R" ; BPS109 ; FIELD 1.0 9 - Realti me / Backb ills / Pro Option / Resubmissi on / All ; S BPS109S TR=",R,B,P ,S,A," S D IR(0)="FO^ 0:7" S DIR ("A",1)="" S DIR("A" ,2)=" Sele ct one of the follow ing:" S DI R("A",3)=" " S DIR("A ",4)=" R R EALTIME" S DIR("A",5 )=" B BACK BILLS" S D IR("A",6)= " P PRO OP TION" S DI R("A",7)=" S RESUBMI SSION" S D IR("A",8)= " A ALL" S DIR("A",9 )="" S DIR ("A")="Dis play (R)ea lTime, (B) ackbills, (P)RO Opti on, Re(S)u bmission o r (A)ll" S DIR("B")= "A" I $G( BPARR(1.09 ))'="" S D IR("B")=BP ARR(1.09) S DIR("?", 1)="Enter a single r esponse or multiple responses separated by commas. " S DIR("? ",2)=" Exa mple:" S D IR("?",3)= " B" S DIR ("?")=" B, P" D ^DIR K DIR ; I $D(DIRUT) Q ; ; Loo p through user input (returned in variab le X). ; D isplay war ning messa ge if any user input selection is not in cluded ; i n the stri ng of acce ptable cod es (BPS109 STR) and r e-prompt q uestion. ; Assign va lid select ions to BP S109 array . This arr ay will pr event ; du plicate en tries from being sav ed to the user's pro file. ; K BPS109 S B PSERR="" F BPSX=1:1: $L(X,",") D . S BPSS EL=$P(X,", ",BPSX) . I BPS109ST R'[(","_BP SSEL_",") W !," ",BP SSEL," is not a vali d entry." S BPSERR=1 Q . S BPS 109(BPSSEL )="" ; I $ G(BPSERR)= 1 G BPS109 ; ; If us er include d (A)ll as a selecti on, set pr ofile sett ing to A. ; I $D(BPS 109("A")) S BPARR(1. 09)="A" E D ; User did not e nter "A". . ; . ; At this poin t user sel ections ar e valid an d do not i nclude "A" . . ; Loop through v alid user selections . Set sele ctions int o a . ; co mma delimi ted string before as signing to BPARR arr ay. . ; . S BPSSEL=" " . F S B PSSEL=$O(B PS109(BPSS EL)) Q:BPS SEL="" D . . S BPS1 09=$G(BPS1 09)_BPSSEL _"," . S B PS109=$E(B PS109,1,($ L(BPS109)- 1)) . S BP ARR(1.09)= BPS109 ; ; ^^^^^^^^ ^^ End of BPS109 Log ic ^^^^^^^ ^^^ ; ; * ********* Start of B PS110 / BP S115 Logic ********* * ; ; User input wil l be tempo rarily sto red in BPS 115AR for display to user ; o f selected REJECT CO DES while in CV Acti on. ; ; I f R is sel ected, at least one REJECT COD E must be selected. If not, se lection ; will defa ult to (A) ll and the current q uestion wi ll be re-p rompted. ; ; Upon c ompletion of REJECT CODEs entr y, values will be pl aced into a string ; delimite d by semic olons. e.g . BPARR(1. 15)=";50;6 0;" ; ; B PS115AR = array cont aining REJ ECT CODE i nformation ; BPS115A R(BPS115)= BPS115NM B PS115 = IE N from Fil e #9002313 .93 ; BPS1 15NM = Rej ect Code E xplanation ; BPS110 ; Fields 1.10 and 1 .15 - Reje ct Code(s) ; S BPINP =$$EDITFLD (1.1,+BPDU Z7,"S^R:RE JECT CODE; A:ALL","Di splay Spec ific (R)ej ect Code o r (A)LL"," ALL",.BPAR R) I BPINP =-1 Q ; S BPSERR=0 ; ; If use r selectio n is R, as sign exist ing entry( s) into BP S115AR arr ay. ; I $P (BPINP,U,2 )="R" D . S BPS115=$ G(BPARR(1. 15)) . I B PS115'="" D . . S BP SCNT=$L(BP S115,";") . . I BPSC NT=1 D . . . S BPS11 5NM=$$GET1 ^DIQ(90023 13.93,BPS1 15,.02) . . . S BPS1 15AR(BPS11 5)=BPS115N M . . I +B PSCNT>2 D . . . F I= 2:1:BPSCNT -1 D . . . . S BPS11 5X=$P(BPS1 15,";",I), BPS115NM=$ $GET1^DIQ( 9002313.93 ,BPS115X,. 02) . . . . S BPS115 AR(BPS115X )=BPS115NM . ; . ; D isplay exi sting entr y(s) to us er. . ; . I $D(BPS1 15AR) D . . W !,?2," Selected:" . . S BPS 115="" F S BPS115=$ O(BPS115AR (BPS115)) Q:BPS115=" " W !,?10 ,BPS115,?2 0,BPS115AR (BPS115) . ; . S BPS 115="" F D Q:BPS11 5=-1 . . S DIR0="P^B PSF(900231 3.93," . . S PRMTMSG ="Select R eject Code " . . S DF LTVAL="" . . S BPS11 5=$$PROMPT (DIR0,PRMT MSG,DFLTVA L) . . ; . . ; Exit 'Select R eject Code ' loop if user enter ed nil. . . ; . . I BPS115=-1 Q . . ; . . S BPS11 5NM=$$GET1 ^DIQ(90023 13.93,BPS1 15,.02) . . . . ; . . ; If en try exists in BPS115 AR array, prompt use r to delet e from lis t. . . ; . . I $D(B PS115AR(BP S115)) D . . . S DIR (0)="S^Y:Y ES;N:NO" . . . S DIR ("A")="Del ete "_BPS1 15_" from your list? " . . . S DIR("B")=" NO" . . . D ^DIR . . . I Y="Y" K BPS115A R(BPS115) . . . ; . . E D . . . ; . . . ; Set n ew entry i ntp BPS115 AR array. . . . ; . . . S BPS 115AR(BPS1 15)=BPS115 NM . . ; . . ; Displ ay existin g entry(s) to user. . . ; . . I $D(BPS1 15AR) D . . . W !,?2 ,"Selected :" . . . S BPS115="" F S BPS1 15=$O(BPS1 15AR(BPS11 5)) Q:BPS1 15="" W ! ,?10,BPS11 5,?20,BPS1 15AR(BPS11 5) . ; . ; If user s elected (R )eject but has not s elected an y Reject C odes, . ; set profil e setting to ALL and set BPSER R flag to re-prompt question. . ; . I '$ D(BPS115AR ) S BPARR( 1.1)="A",B PARR(1.15) ="" S BPSE RR=1 Q . ; . ; Loop through se lected rej ect codes, setting s elected re ject codes into . ; BPARR arra y - delimi ted by sem i-colon. . ; . S B PARR(1.15) =";" . S B PS115=0 F S BPS115= $O(BPS115A R(BPS115)) Q:+BPS115 =0 S BPARR (1.15)=BPA RR(1.15)_B PS115_";" ; ; If BP SERR flag is 1, re-p rompt ques tion. ; I $G(BPSERR )=1 G BPS1 10 ; ; ^^^ ^^^^^^^ En d of BPS11 0 / BPS115 Logic ^^^ ^^^^^^^ ; Q:$$INSURS EL^BPSSCRC U(.BPARR,+ BPDUZ7)=-1 Q ; | |
| 103 | ||
| 104 | Update the header to no longer include i nformation pertainin g to Users . In addit ion to rem oving User informati on, right justify th e 2nd and 3rd header lines (al igning the colons). HDR right justifies the header lines. GE TVDETS rem oves the U ser inform ation. | |
| 105 | Subroutine Name | |
| 106 | HDR^BPSSCR 01 | |
| 107 | Enhancemen t Category | |
| 108 | New | |
| 109 | Modify | |
| 110 | Delete | |
| 111 | No Change | |
| 112 | Story | |
| 113 | US591 | |
| 114 | Related Me nu Options or ListMa n Actions | |
| 115 | ECME User Screen | |
| 116 | Related Ro utines | |
| 117 | This Subro utine is C alled By | |
| 118 | This Subro utine Call s | |
| 119 | ||
| 120 | ^BPSRSM | |
| 121 | ^BPSSCR | |
| 122 | RESTVIEW^B PSSCR01 | |
| 123 | $$GETVDIVS ^BPSSCR01 | |
| 124 | $$GETVDETS ^BPSSCR01 | |
| 125 | $$SORTTYPE ^BPSSCRSL | |
| 126 | Related In tegration Control Re gistration s (ICRs) | |
| 127 | N/A | |
| 128 | Data Passi ng | |
| 129 | Parameter Input | |
| 130 | Parameter Output | |
| 131 | Function Return Val ue | |
| 132 | Global Mo dified | |
| 133 | Input Attr ibute Name and Defin ition | |
| 134 | Name: BPSL N | |
| 135 | Definition : Header L ine Number | |
| 136 | New Modify Delete No Cha nge | |
| 137 | Output Att ribute Nam e and Defi nition | |
| 138 | Name: N/A | |
| 139 | Definition : | |
| 140 | New Modify Delete No Cha nge | |
| 141 | Current Lo gic | |
| 142 | ||
| 143 | HDR(BPSLN) ; -- head er code N BPARR,BPX, BPXSL Q:'$ D(@VALMAR@ ("VIEWPARA MS")) D RE STVIEW(.BP ARR) I BPS LN=1 Q "SE LECTED DIV ISION(S): "_$$GETVDI VS(.BPARR, 58) I BPSL N=2 Q $$GE TVDETS(.BP ARR) I BPS LN=3 D Q $$LINE^BPS SCRU3(80-$ L(BPX)," " )_BPX . S BPXSL=$$SO RTTYPE^BPS SCRSL($G(B PARR(1.12) )) . I BPX SL="" S BP XSL="Trans action dat e by defau lt" . S BP X="Sorted by: "_BPXS L Q "" | |
| 144 | ||
| 145 | Modified L ogic (Chan ges are hi ghlighted) | |
| 146 | ||
| 147 | HDR(BPSLN) ; -- head er code N BPARR,BPX, BPXSL Q:'$ D(@VALMAR@ ("VIEWPARA MS")) D RE STVIEW(.BP ARR) I BPS LN=1 Q "SE LECTED DIV ISION(S): "_$$GETVDI VS(.BPARR, 58) I BPSL N=2 Q $$GE TVDETS(.BP ARR) I BPS LN=3 D Q BPX . S BP XSL=$$SORT TYPE^BPSSC RSL($G(BPA RR(1.12))) . I BPXSL ="" S BPXS L="Transac tion date by default " . S BPX= " Sorted b y: "_BPXSL Q "" | |
| 148 | ||
| 149 | ||
| 150 | Subroutine Name | |
| 151 | GETVDETS^B PSSCR01 | |
| 152 | Enhancemen t Category | |
| 153 | New | |
| 154 | Modify | |
| 155 | Delete | |
| 156 | No Change | |
| 157 | Story | |
| 158 | US591 | |
| 159 | Related Me nu Options or ListMa n Actions | |
| 160 | ECME User Screen | |
| 161 | Related Ro utines | |
| 162 | This Subro utine is C alled By | |
| 163 | This Subro utine Call s | |
| 164 | ||
| 165 | HDR^BPSCMT | |
| 166 | HDR^BPSSCR 01 | |
| 167 | $$LJ^BPPSC R02 | |
| 168 | Related In tegration Control Re gistration s (ICRs) | |
| 169 | N/A | |
| 170 | Data Passi ng | |
| 171 | Parameter Input | |
| 172 | Parameter Output | |
| 173 | Function Return Val ue | |
| 174 | Global Mo dified | |
| 175 | Input Attr ibute Name and Defin ition | |
| 176 | Name: BPAR R | |
| 177 | Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR” | |
| 178 | New Modify Delete No Cha nge | |
| 179 | Output Att ribute Nam e and Defi nition | |
| 180 | Name: N/A | |
| 181 | Definition : | |
| 182 | New Modify Delete No Cha nge | |
| 183 | Current Lo gic | |
| 184 | ||
| 185 | GETVDETS(B PARR) ;*/ N BPSTR I $G(BPARR(1 .01))="A" S BPSTR=$$ LJ^BPSSCR0 2("Transmi tted by AL L users",3 1) E S BP STR=$$LJ^B PSSCR02("T ransmitted by "_$$GE TUSRNM^BPS SCRU1($G(B PARR(1.16) )),31) S B PSTR=BPSTR _$$LJ^BPSS CR02(" Act ivity Date Range: wi thin the p ast "_$G(B PARR(1.05) )_$S($G(BP ARR(1.04)) ="H":" hou r(s)",1:" day(s)"),4 9) Q BPSTR | |
| 186 | ||
| 187 | Modified L ogic (Chan ges are hi ghlighted) | |
| 188 | ||
| 189 | GETVDETS(B PARR) ;*/ N BPSTR I $G(BPARR(1 .01))="A" S BPSTR=$$ LJ^BPSSCR0 2("Transmi tted by AL L users",3 1) E S BP STR=$$LJ^B PSSCR02("T ransmitted by "_$$GE TUSRNM^BPS SCRU1($G(B PARR(1.16) )),31) S B PSTR=" Act ivity Date Range: wi thin the p ast "_$G(B PARR(1.05) )_$S($G(BP ARR(1.04)) ="H":" hou r(s)",1:" day(s)"),4 9) Q BPSTR | |
| 190 | ||
| 191 | Filter the informati on that di splays on the User S creen base d on the o ptions sel ected in C hange View . Previous ly the fil ters were based on A LL values or a SINGL E value. E ntries tha t included a single value, set the value into the BPARR arra y as follo ws: BPARR( 1.16)=1234 5. The BPA RR array h as been up dated to a llow a str ing of val ues, separ ated by se mi-colons. Eg. BPARR (1.16)=”;1 2345;56789 ;”. | |
| 192 | The update d filter l ogic has b een writte n to check for the o ld method of saving the inform ation and the new me thod. This prevents a conversi on routine from havi ng to be w ritten, up dating exi sting entr ies to inc lude semi- colons. Th e remainin g Subrouti ne Tables are all sp ecific to the filter ing logic. | |
| 193 | Field 2.01 : Eligibil ity | |
| 194 | Subroutine Name | |
| 195 | $$FLTELIG^ BPSSCR05 | |
| 196 | Enhancemen t Category | |
| 197 | New | |
| 198 | Modify | |
| 199 | Delete | |
| 200 | No Change | |
| 201 | Story | |
| 202 | US591 | |
| 203 | Related Me nu Options or ListMa n Actions | |
| 204 | ECME User Screen | |
| 205 | Related Ro utines | |
| 206 | This Subro utine is C alled By | |
| 207 | This Subro utine Call s | |
| 208 | ||
| 209 | FILTER^BPS SCR03 | |
| 210 | $$ELIGCODE ^BPSSCR05 | |
| 211 | Related In tegration Control Re gistration s (ICRs) | |
| 212 | N/A | |
| 213 | Data Passi ng | |
| 214 | Parameter Input | |
| 215 | Parameter Output | |
| 216 | Function Return Val ue | |
| 217 | Global Mo dified | |
| 218 | Input Attr ibute Name and Defin ition | |
| 219 | Name: BP59 | |
| 220 | Definition : Ptr to # 59 | |
| 221 | New Modify Delete No Cha nge | |
| 222 | Name: BPAR R | |
| 223 | Definition : Array wi th user’s preference s | |
| 224 | New Modify Delete No Cha nge | |
| 225 | Output Att ribute Nam e and Defi nition | |
| 226 | Name: N/A | |
| 227 | Definition : | |
| 228 | New Modify Delete No Cha nge | |
| 229 | Current Lo gic | |
| 230 | ||
| 231 | FLTELIG(BP 59,BPARR) ; Q:$G(BPA RR(2.01))= "A" 1 I $G (BPARR(2.0 1))="" S B PARR(2.01) ="V" Q $S( $$ELIGCODE (BP59)=$G( BPARR(2.01 )):1,1:0) | |
| 232 | ||
| 233 | Modified L ogic (Chan ges are hi ghlighted) | |
| 234 | ||
| 235 | FLTELIG(BP 59,BPARR) ; Q:$G(BPA RR(2.01))= "A" 1 I $G (BPARR(2.0 1))="" S B PARR(2.01) ="V" | |
| 236 | I $G(BPAR R(2.01))[$ $ELIGCODE( BP59) Q 1 | |
| 237 | Q 0 | |
| 238 | ||
| 239 | ||
| 240 | Field 1.01 /1.16 - Us er | |
| 241 | Subroutine Name | |
| 242 | FLTUSR^BPS SCR03 | |
| 243 | Enhancemen t Category | |
| 244 | New | |
| 245 | Modify | |
| 246 | Delete | |
| 247 | No Change | |
| 248 | Story | |
| 249 | US591 | |
| 250 | Related Me nu Options or ListMa n Actions | |
| 251 | ECME User Screen | |
| 252 | Related Ro utines | |
| 253 | This Subro utine is C alled By | |
| 254 | This Subro utine Call s | |
| 255 | ||
| 256 | FILTER^BPS SCR03 | |
| 257 | N/A | |
| 258 | Related In tegration Control Re gistration s (ICRs) | |
| 259 | N/A | |
| 260 | Data Passi ng | |
| 261 | Parameter Input | |
| 262 | Parameter Output | |
| 263 | Function Return Val ue | |
| 264 | Global Mo dified | |
| 265 | Input Attr ibute Name and Defin ition | |
| 266 | Name: BPST 0 | |
| 267 | Definition : Zero nod e of #9002 313.59 | |
| 268 | New Modify Delete No Cha nge | |
| 269 | Name: BPAR R | |
| 270 | Definition : Array wi th user’s preference s | |
| 271 | New Modify Delete No Cha nge | |
| 272 | Output Att ribute Nam e and Defi nition | |
| 273 | Name: N/A | |
| 274 | Definition : | |
| 275 | New Modify Delete No Cha nge | |
| 276 | Current Lo gic | |
| 277 | ||
| 278 | FLTUSR(BPS T0,BPARR) ; I $L($G( BPARR(1.16 )))=0 Q 0 I $P(BPST0 ,U,10)'=$G (BPARR(1.1 6)) Q 0 Q 1 | |
| 279 | ||
| 280 | Modified L ogic (Chan ges are hi ghlighted) | |
| 281 | ||
| 282 | FLTUSR(BPS T0,BPARR) ; | |
| 283 | I $L($G(B PARR(1.16) ))=0 Q 0 | |
| 284 | I $P(BPST 0,U,10)=$G (BPARR(1.1 6)) Q 1 | |
| 285 | I $G(BPAR R(1.16))[( ";"_$P(BPS T0,U,10)_" ;") Q 1 | |
| 286 | Q 0 ; | |
| 287 | ||
| 288 | ||
| 289 | Field 1.02 /1.17 - Pa tient | |
| 290 | Subroutine Name | |
| 291 | FLTPAT^BPS SCR03 | |
| 292 | Enhancemen t Category | |
| 293 | New | |
| 294 | Modify | |
| 295 | Delete | |
| 296 | No Change | |
| 297 | Story | |
| 298 | US591 | |
| 299 | Related Me nu Options or ListMa n Actions | |
| 300 | ECME User Screen | |
| 301 | Related Ro utines | |
| 302 | This Subro utine is C alled By | |
| 303 | This Subro utine Call s | |
| 304 | ||
| 305 | FILTER^BPS SCR03 | |
| 306 | N/A | |
| 307 | Related In tegration Control Re gistration s (ICRs) | |
| 308 | N/A | |
| 309 | Data Passi ng | |
| 310 | Parameter Input | |
| 311 | Parameter Output | |
| 312 | Function Return Val ue | |
| 313 | Global Mo dified | |
| 314 | Input Attr ibute Name and Defin ition | |
| 315 | Name: BPST 0 | |
| 316 | Definition : Zero nod e of #9002 313.59 | |
| 317 | New Modify Delete No Cha nge | |
| 318 | Name: BPAR R | |
| 319 | Definition : Array wi th user’s preference s | |
| 320 | New Modify Delete No Cha nge | |
| 321 | Output Att ribute Nam e and Defi nition | |
| 322 | Name: N/A | |
| 323 | Definition : | |
| 324 | New Modify Delete No Cha nge | |
| 325 | Current Lo gic | |
| 326 | ||
| 327 | FLTPAT(BPS T0,BPARR) ; I $L($G( BPARR(1.17 )))=0 Q 0 I $P(BPST0 ,U,6)'=$G( BPARR(1.17 )) Q 0 Q 1 | |
| 328 | ||
| 329 | Modified L ogic (Chan ges are hi ghlighted) | |
| 330 | ||
| 331 | FLTPAT(BPS T0,BPARR) ; I $L($G( BPARR(1.17 )))=0 Q 0 I $P(BPST0 ,U,6)=$G(B PARR(1.17) ) Q 1 I $G (BPARR(1.1 7))[(";"_$ P(BPST0,U, 6)_";") Q 1 Q 0 | |
| 332 | ||
| 333 | ||
| 334 | Field 1.03 /1.18 - Rx | |
| 335 | Subroutine Name | |
| 336 | FLTRX^BPSS CR03 | |
| 337 | Enhancemen t Category | |
| 338 | New | |
| 339 | Modify | |
| 340 | Delete | |
| 341 | No Change | |
| 342 | Story | |
| 343 | US591 | |
| 344 | Related Me nu Options or ListMa n Actions | |
| 345 | ECME User Screen | |
| 346 | Related Ro utines | |
| 347 | This Subro utine is C alled By | |
| 348 | This Subro utine Call s | |
| 349 | ||
| 350 | FILTER^BPS SCR03 | |
| 351 | N/A | |
| 352 | Related In tegration Control Re gistration s (ICRs) | |
| 353 | N/A | |
| 354 | Data Passi ng | |
| 355 | Parameter Input | |
| 356 | Parameter Output | |
| 357 | Function Return Val ue | |
| 358 | Global Mo dified | |
| 359 | Input Attr ibute Name and Defin ition | |
| 360 | Name: BPST 1 | |
| 361 | Definition : 1st node of #90023 13.59 | |
| 362 | New Modify Delete No Cha nge | |
| 363 | Name: BPAR R | |
| 364 | Definition : Array wi th user’s preference s | |
| 365 | New Modify Delete No Cha nge | |
| 366 | Output Att ribute Nam e and Defi nition | |
| 367 | Name: N/A | |
| 368 | Definition : | |
| 369 | New Modify Delete No Cha nge | |
| 370 | Current Lo gic | |
| 371 | ||
| 372 | FLTRX(BPST 1,BPARR) ; I $L($G(B PARR(1.18) ))=0 Q 0 I $P(BPST1, U,11)'=$G( BPARR(1.18 )) Q 0 Q 1 | |
| 373 | ||
| 374 | Modified L ogic (Chan ges are hi ghlighted) | |
| 375 | ||
| 376 | FLTRX(BPST 1,BPARR) ; I $L($G(B PARR(1.18) ))=0 Q 0 | |
| 377 | I $P(BPST 1,U,11)=$G (BPARR(1.1 8)) Q 1 I $G(BPARR(1 .18))[(";" _$P(BPST1, U,11)_";") Q 1 Q 0 | |
| 378 | ||
| 379 | ||
| 380 | Field 1.06 – Rejecte d / Payabl e / Unstra nded | |
| 381 | Subroutine Name | |
| 382 | FILTER^BPS SCR03 | |
| 383 | Enhancemen t Category | |
| 384 | New | |
| 385 | Modify | |
| 386 | Delete | |
| 387 | No Change | |
| 388 | Story | |
| 389 | US591 | |
| 390 | Related Me nu Options or ListMa n Actions | |
| 391 | ECME User Screen | |
| 392 | Related Ro utines | |
| 393 | This Subro utine is C alled By | |
| 394 | This Subro utine Call s | |
| 395 | ||
| 396 | FILTRALL^B PSSCR03 | |
| 397 | $$REJECTED ^BPSSCR02 | |
| 398 | $$PAYABLE^ BPSSCR02 | |
| 399 | $$UNSTRAND ^BPSSCR02 | |
| 400 | Related In tegration Control Re gistration s (ICRs) | |
| 401 | N/A | |
| 402 | Data Passi ng | |
| 403 | Parameter Input | |
| 404 | Parameter Output | |
| 405 | Function Return Val ue | |
| 406 | Global Mo dified | |
| 407 | Input Attr ibute Name and Defin ition | |
| 408 | Name: BP59 | |
| 409 | Definition : Pointer to file #9 002313.59 | |
| 410 | New Modify Delete No Cha nge | |
| 411 | Name: BPAR R | |
| 412 | Definition : Array wi th user’s preference s | |
| 413 | New Modify Delete No Cha nge | |
| 414 | Output Att ribute Nam e and Defi nition | |
| 415 | Name: N/A | |
| 416 | Definition : | |
| 417 | New Modify Delete No Cha nge | |
| 418 | Current Lo gic | |
| 419 | ||
| 420 | FILTER(BP5 9,BPARR) ; N BPST0,B PST1,BPRXR EF,BPRX52, BPREFNUM,B PRTBB N BP RET | |
| 421 | … | |
| 422 | ;only rej ected I '$ $NB(BP59), $G(BPARR(1 .06))="R", $$REJECTED ^BPSSCR02( BP59)=0 Q 0 ; n/a fo r non-bill ables ;onl y payable I '$$NB(BP 59),$G(BPA RR(1.06))= "P",$$PAYA BLE^BPSSCR 02(BP59)=0 Q 0 ; n/a for non-b illables ; only unstr anded I '$ $NB(BP59), $G(BPARR(1 .06))="U", $$UNSTRAND ^BPSSCR02( BP59)=0 Q 0 ; n/a fo r non-bill ables | |
| 423 | ; | |
| 424 | … | |
| 425 | ||
| 426 | Modified L ogic (Chan ges are hi ghlighted) | |
| 427 | ||
| 428 | FILTER(BP5 9,BPARR) ; N BPST0,B PST1,BPRXR EF,BPRX52, BPREFNUM,B PRTBB N BP RET,BPSRPU | |
| 429 | … | |
| 430 | S BPSRPU= 1 I '$$NB( BP59) D ; n/a for non-billa bles . S B PSRPU=0 . I ($G(BPAR R(1.06))[" R")&($$REJ ECTED^BPSS CR02(BP59) =1) S BPSR PU=1 . I ( $G(BPARR(1 .06))["P") &($$PAYABL E^BPSSCR02 (BP59)=1) S BPSRPU=1 . I ($G(B PARR(1.06) )["U")&($$ UNSTRAND^B PSSCR02(BP 59)=1) S B PSRPU=1 . I $G(BPARR (1.06))["A " S BPSRPU =1 I BPSRP U=0 Q 0 | |
| 431 | … | |
| 432 | ||
| 433 | ||
| 434 | Field 1.08 – CMOP / Mail / Win dow | |
| 435 | Subroutine Name | |
| 436 | ISMWC^BPSS CR03 | |
| 437 | Enhancemen t Category | |
| 438 | New | |
| 439 | Modify | |
| 440 | Delete | |
| 441 | No Change | |
| 442 | Story | |
| 443 | US591 | |
| 444 | Related Me nu Options or ListMa n Actions | |
| 445 | ECME User Screen | |
| 446 | Related Ro utines | |
| 447 | This Subro utine is C alled By | |
| 448 | This Subro utine Call s | |
| 449 | ||
| 450 | FILTER^BPS SCR03 | |
| 451 | $$MWCNAME^ BPSSCRU2 | |
| 452 | $$MWC^BPSS CRU2 | |
| 453 | Related In tegration Control Re gistration s (ICRs) | |
| 454 | N/A | |
| 455 | Data Passi ng | |
| 456 | Parameter Input | |
| 457 | Parameter Output | |
| 458 | Function Return Val ue | |
| 459 | Global Mo dified | |
| 460 | Input Attr ibute Name and Defin ition | |
| 461 | Name: BPRX 59 | |
| 462 | Definition : Pointer to file #9 002313.59 | |
| 463 | New Modify Delete No Cha nge | |
| 464 | Name: BPRE FNUM | |
| 465 | Definition : Refill # | |
| 466 | New Modify Delete No Cha nge | |
| 467 | Name: BPMW C | |
| 468 | Definition : Value fr om BPARR(1 .08) | |
| 469 | New Modify Delete No Cha nge | |
| 470 | Output Att ribute Nam e and Defi nition | |
| 471 | Name: N/A | |
| 472 | Definition : | |
| 473 | New Modify Delete No Cha nge | |
| 474 | Current Lo gic | |
| 475 | ||
| 476 | ISMWC(BPRX 52,BPREFNU M,BPMWC) ; I $$MWCNA ME^BPSSCRU 2($$MWC^BP SSCRU2(BPR X52,BPREFN UM))=BPMWC Q 1 Q 0 | |
| 477 | ||
| 478 | Modified L ogic (Chan ges are hi ghlighted) | |
| 479 | ||
| 480 | ISMWC(BPRX 52,BPREFNU M,BPMWC) ; I BPMWC[$ $MWCNAME^B PSSCRU2($$ MWC^BPSSCR U2(BPRX52, BPREFNUM)) Q 1 Q 0 | |
| 481 | ||
| 482 | ||
| 483 | Field 1.09 – RealTim e, Backbil ls, PRO Op tion, Resu bmission | |
| 484 | Subroutine Name | |
| 485 | FILTER^BPS SCR03 | |
| 486 | Enhancemen t Category | |
| 487 | New | |
| 488 | Modify | |
| 489 | Delete | |
| 490 | No Change | |
| 491 | Story | |
| 492 | US591 | |
| 493 | Related Me nu Options or ListMa n Actions | |
| 494 | ECME User Screen | |
| 495 | Related Ro utines | |
| 496 | This Subro utine is C alled By | |
| 497 | This Subro utine Call s | |
| 498 | ||
| 499 | FILTRALL^B PSSCR03 | |
| 500 | $$RTBB^BPS SCRU2 | |
| 501 | Related In tegration Control Re gistration s (ICRs) | |
| 502 | N/A | |
| 503 | Data Passi ng | |
| 504 | Parameter Input | |
| 505 | Parameter Output | |
| 506 | Function Return Val ue | |
| 507 | Global Mo dified | |
| 508 | Input Attr ibute Name and Defin ition | |
| 509 | Name: BP59 | |
| 510 | Definition : Pointer to file #9 002313.59 | |
| 511 | New Modify Delete No Cha nge | |
| 512 | Name: BPAR R | |
| 513 | Definition : Array wi th user’s preference s | |
| 514 | New Modify Delete No Cha nge | |
| 515 | Output Att ribute Nam e and Defi nition | |
| 516 | Name: N/A | |
| 517 | Definition : | |
| 518 | New Modify Delete No Cha nge | |
| 519 | Current Lo gic | |
| 520 | ||
| 521 | FILTER(BP5 9,BPARR) ; N BPST0,B PST1,BPRXR EF,BPRX52, BPREFNUM,B PRTBB N BP RET | |
| 522 | … | |
| 523 | ; filter checks for fill type S BPRTBB= $$RTBB^BPS SCRU2(BP59 ) I BPRTBB ="**" S BP RTBB="RT" I $G(BPARR (1.09))="B ",BPRTBB'= "BB" Q 0 ; filter fo r back bil ling I $G( BPARR(1.09 ))="P",BPR TBB'="P2" Q 0 ; filt er for PRO Option I $G(BPARR(1 .09))="S", BPRTBB'="R S" Q 0 ; f ilter for ECME user screen res ubmits (BP S*1*20) I $G(BPARR(1 .09))="R", BPRTBB'="R T" Q 0 ; f ilter for real time | |
| 524 | … | |
| 525 | ||
| 526 | Modified L ogic (Chan ges are hi ghlighted) | |
| 527 | ||
| 528 | FILTER(BP5 9,BPARR) ; N BPST0,B PST1,BPRXR EF,BPRX52, BPREFNUM,B PRTBB N BP RET,BPSFT | |
| 529 | … | |
| 530 | ; filter checks for fill type S BPRTBB= $$RTBB^BPS SCRU2(BP59 ) I BPRTBB ="**" S BP RTBB="RT" S BPSFT=1 I $G(BPARR (1.09))'[" A" D . S B PSFT=0 . I $G(BPARR( 1.09))["B" ,BPRTBB="B B" S BPSFT =1 ; filte r for back billing . I $G(BPAR R(1.09))[" P",BPRTBB= "P2" S BPS FT=1 ; fil ter for PR O Option . I $G(BPAR R(1.09))[" S",BPRTBB= "RS" S BPS FT=1 ; fil ter for EC ME user sc reen resub mits (BPS* 1*20) . I $G(BPARR(1 .09))["R", BPRTBB="RT " S BPSFT= 1 ; filter for real time I BPS FT=0 Q 0 | |
| 531 | ... | |
| 532 | ||
| 533 | ||
| 534 | Reject Cod es – If BP ARR(1.06) contains R for Rejec ts & speci fic Reject Codes are selected (BPARR(1.1 )=”R”), ca ll code ($ $FLTREJ) t o filter b ased on se lected rej ect codes (BPARR(1.1 5)). | |
| 535 | Subroutine Name | |
| 536 | FILTER^BPS SCR03 | |
| 537 | Enhancemen t Category | |
| 538 | New | |
| 539 | Modify | |
| 540 | Delete | |
| 541 | No Change | |
| 542 | Story | |
| 543 | US591 | |
| 544 | Related Me nu Options or ListMa n Actions | |
| 545 | ECME User Screen | |
| 546 | Related Ro utines | |
| 547 | This Subro utine is C alled By | |
| 548 | This Subro utine Call s | |
| 549 | ||
| 550 | FILTRALL^B PSSCR03 | |
| 551 | $$FLTREJ^B PSSCR03 | |
| 552 | Related In tegration Control Re gistration s (ICRs) | |
| 553 | N/A | |
| 554 | Data Passi ng | |
| 555 | Parameter Input | |
| 556 | Parameter Output | |
| 557 | Function Return Val ue | |
| 558 | Global Mo dified | |
| 559 | Input Attr ibute Name and Defin ition | |
| 560 | Name: BP59 | |
| 561 | Definition : Pointer to file #9 002313.59 | |
| 562 | New Modify Delete No Cha nge | |
| 563 | Name: BPAR R | |
| 564 | Definition : Array wi th user’s preference s | |
| 565 | New Modify Delete No Cha nge | |
| 566 | Output Att ribute Nam e and Defi nition | |
| 567 | Name: N/A | |
| 568 | Definition : | |
| 569 | New Modify Delete No Cha nge | |
| 570 | Current Lo gic | |
| 571 | ||
| 572 | FILTER(BP5 9,BPARR) ; … | |
| 573 | ;if only rejected a nd only sp ecific rej ected code s should b e displaye d I $G(BPA RR(1.06))= "R",$G(BPA RR(1.1))=" R",$$FLTRE J(BP59,.BP ARR)=0 Q 0 | |
| 574 | … | |
| 575 | ||
| 576 | Modified L ogic (Chan ges are hi ghlighted) | |
| 577 | ||
| 578 | FILTER(BP5 9,BPARR) ; … | |
| 579 | ;if only rejected a nd only sp ecific rej ected code s should b e displaye d I $G(BPA RR(1.06))[ "R",$G(BPA RR(1.1))=" R",$$FLTRE J(BP59,.BP ARR)=0 Q 0 | |
| 580 | … | |
| 581 | ||
| 582 | ||
| 583 | ||
| 584 | Reject Cod es (contin ued) | |
| 585 | Subroutine Name | |
| 586 | FLTREJ^BPS SCR03 | |
| 587 | Enhancemen t Category | |
| 588 | New | |
| 589 | Modify | |
| 590 | Delete | |
| 591 | No Change | |
| 592 | Story | |
| 593 | US591 | |
| 594 | Related Me nu Options or ListMa n Actions | |
| 595 | ECME User Screen | |
| 596 | Related Ro utines | |
| 597 | This Subro utine is C alled By | |
| 598 | This Subro utine Call s | |
| 599 | ||
| 600 | FILTER^BPS SCR03 | |
| 601 | REJCODES^B PSSCRU3 | |
| 602 | Related In tegration Control Re gistration s (ICRs) | |
| 603 | N/A | |
| 604 | Data Passi ng | |
| 605 | Parameter Input | |
| 606 | Parameter Output | |
| 607 | Function Return Val ue | |
| 608 | Global Mo dified | |
| 609 | Input Attr ibute Name and Defin ition | |
| 610 | Name: BP59 | |
| 611 | Definition : Pointer to file #9 002313.59 | |
| 612 | New Modify Delete No Cha nge | |
| 613 | Name: BPAR R | |
| 614 | Definition : Array wi th user’s preference s | |
| 615 | New Modify Delete No Cha nge | |
| 616 | Output Att ribute Nam e and Defi nition | |
| 617 | Name: N/A | |
| 618 | Definition : | |
| 619 | New Modify Delete No Cha nge | |
| 620 | Current Lo gic | |
| 621 | ||
| 622 | FLTREJ(BP5 9,BPARR) ; N BPRCODE S N BPRJCD S BPRJCD= $P($G(^BPS F(9002313. 93,+$G(BPA RR(1.15)), 0)),U) I $ L(BPRJCD)= 0 Q 0 D RE JCODES^BPS SCRU3(BP59 ,.BPRCODES ,1) ; bps* 1*20 inclu de possibl e non-bill able pseud o-reject c odes too I $D(BPRCOD ES(BPRJCD) ) Q 1 Q 0 | |
| 623 | ||
| 624 | Modified L ogic (Chan ges are hi ghlighted) | |
| 625 | ||
| 626 | FLTREJ(BP5 9,BPARR) ; N BPRCODE S N BPSRJC D,BPSRJFLA G,BPSRJIEN D REJCODE S^BPSSCRU3 (BP59,.BPR CODES,1) ; bps*1*20 include po ssible non -billable pseudo-rej ect codes too ; | |
| 627 | S BPSRJCD ="",BPSRJF LAG=0 | |
| 628 | F S BPSR JCD=$O(BPR CODES(BPSR JCD)) Q:BP SRJCD="" Q:BPSRJFLA G=1 D | |
| 629 | . S BPSRJ IEN="",BPS RJIEN=$O(^ BPSF(90023 13.93,"B", BPSRJCD,BP SRJIEN)) | |
| 630 | . I BPARR (1.15)=BPS RJIEN S BP SRJFLAG=1 | |
| 631 | . I BPARR (1.15)[("; "_BPSRJIEN _";") S BP SRJFLAG=1 | |
| 632 | Q BPSRJFL AG | |
| 633 | ||
| 634 | Back Out/R ollback Pr ocedure | |
| 635 | This story includes modificati ons to exi sting rout ines. To b ack out th is enhance ment, all the routin es which a re part of this patc h should b e backed u p prior to installat ion. Rever ting to th e previous version o f these ro utines wou ld back ou t this enh ancement. Alternativ ely, the p revious ve rsion of t hese routi nes could be distrib uted via a n emergenc y patch. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.