Produced by Araxis Merge on 9/6/2017 3:05:33 PM Eastern 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 BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US576 v1.01.docx | Thu Jul 27 19:17:24 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US576 v1.01.docx | Wed Sep 6 18:27:16 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 632 |
| 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 US576 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | May 2017 | |
| 10 | Version 1. 01 | |
| 11 | User Story Number: U SRX-12 | |
| 12 | User Story Name: Mod ify the CV Change Vi ew action on the ECM E User scr een to all ow a user to revert back to us er’s saved /preferred view and exit CV ac tion. | |
| 13 | Product Ba cklog ID: 12 | |
| 14 | Backlog Pr iority: Lo w | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US576 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Modify the Change Vi ew (CV) ac tion on th e EMCE Use r Screen t o allow th e user to revert bac k to their saved/pre ferred vie w and exit CV action . The prom pt to reve rt back to the user’ s preferre d view wil l default to YES. Th e prompt w ill not be displayed if the us er does no t have a p referred v iew or if the user’s preferred view is c urrently b eing shown . Respondi ng YES to the new pr ompt will prevent th e question s to edit the View P arameters from displ aying. | |
| 21 | ||
| 22 | List of Co mponents: | |
| 23 | Routine: B PSSCR | |
| 24 | Routine: B PSSCRCV | |
| 25 | Routine: B PSSCRSL | |
| 26 | ||
| 27 | Design – D etail | |
| 28 | Entry poin t for CV A ction. Upd ated code will check if a temp orary view is curren tly in use and if th e user has a preferr ed view de fined. If both condi tions are true, the user will be prompte d to resto re their p referred v iew withou t requirin g the logi c to flow through th e individu al paramet er edit qu estions. | |
| 29 | Subroutine Name | |
| 30 | CV^BPSSCRC V | |
| 31 | Enhancemen t Category | |
| 32 | New | |
| 33 | Modify | |
| 34 | Delete | |
| 35 | No Change | |
| 36 | Story | |
| 37 | US576 | |
| 38 | Related Me nu Options or ListMa n Actions | |
| 39 | CV Change View | |
| 40 | Related Ro utines | |
| 41 | This Subro utine is C alled By | |
| 42 | This Subro utine Call s | |
| 43 | ||
| 44 | ECME User Screen | |
| 45 | FULL^VALM1 | |
| 46 | ERRMSG^BPS SCRCV | |
| 47 | READPROF^B PSSCRSL | |
| 48 | SAVEVIEW^B PSSCR01 | |
| 49 | EDITPROF^B PSSCRCV | |
| 50 | ENDEDIT^BP SSCRSL | |
| 51 | REDRAW^BPS SCRUD | |
| 52 | Related In tegration Control Re gistration s (ICRs) | |
| 53 | N/A | |
| 54 | Input Attr ibute Name and Defin ition | |
| 55 | Name: N/A | |
| 56 | Definition : | |
| 57 | New Modify Delete No Cha nge | |
| 58 | Output Att ribute Nam e and Defi nition | |
| 59 | Name: N/A | |
| 60 | Definition : | |
| 61 | New Modify Delete No Cha nge | |
| 62 | Current Lo gic | |
| 63 | ||
| 64 | BPSSCRCV ; BHAM ISC/S S - ECME S CREEN CHAN GE VIEW ;0 5-APR-05 | |
| 65 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,7,11,1 4,20**;JUN 2004;Buil d 27 | |
| 66 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 67 | ||
| 68 | … | |
| 69 | ||
| 70 | CV ; | |
| 71 | D FULL^VALM 1 | |
| 72 | W @IOF | |
| 73 | K BPARR | |
| 74 | I +$G(DUZ)= 0 D ERRMSG ^BPSSCRCV( "Unknown U ser") Q | |
| 75 | N BPDUZ7 | |
| 76 | S BPDUZ7=+D UZ | |
| 77 | ; always get current p rofile fro m the file | |
| 78 | D READPROF^ BPSSCRSL(. BPARR,BPDU Z7) | |
| 79 | D SAVEVIEW^ BPSSCR01(. BPARR) | |
| 80 | ; edit curre nt profile | |
| 81 | D EDITPROF( .BPARR,.BP DUZ7) | |
| 82 | ; ask user i f need to save every thing in U SR PROFILE file | |
| 83 | ; (except SO RT LIST fi eld) | |
| 84 | N BPSRT S B PSRT=BPARR (1.12) | |
| 85 | K BPARR(1.1 2) | |
| 86 | D ENDEDIT^B PSSCRSL(.B PARR,+BPDU Z7) | |
| 87 | S BPARR(1.1 2)=BPSRT | |
| 88 | D SAVEVIEW^ BPSSCR01(. BPARR) | |
| 89 | S VALMBG=1 | |
| 90 | D REDRAW^BP SSCRUD("Up dating scr een...") | |
| 91 | Q | |
| 92 | Modified L ogic (Chan ges are hi ghlighted) | |
| 93 | ||
| 94 | BPSSCRCV ; BHAM ISC/S S - ECME S CREEN CHAN GE VIEW ;0 5-APR-05 | |
| 95 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,7,11,1 4,20,22**; JUN 2004;B uild 27 | |
| 96 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 97 | ||
| 98 | … | |
| 99 | ||
| 100 | CV ; | |
| 101 | N BPSRESCV, BPSTMPCV,D IR,Y | |
| 102 | D FULL^VALM 1 | |
| 103 | W @IOF | |
| 104 | S BPSTMPCV= $G(BPARR(“ TEMPCV”)) ; Define Temp View Flag befo re BPARR i s killed | |
| 105 | K BPARR | |
| 106 | I +$G(DUZ)= 0 D ERRMSG ^BPSSCRCV( "Unknown U ser") Q | |
| 107 | N BPDUZ7 | |
| 108 | S BPDUZ7=+D UZ | |
| 109 | ; always get current p rofile fro m the file | |
| 110 | D READPROF^ BPSSCRSL(. BPARR,BPDU Z7) | |
| 111 | ; BPARR(“1. 13”) is th e paramete r for Phar macy Divis ion. | |
| 112 | ; If BPARR( “1.13”) is defined, the user h as a prefe rred view defined. | |
| 113 | I ($G(BPSTM PCV)=1)&($ G(BPARR(“1 .13”))’=”” ) D | |
| 114 | . S DIR(0)= ”Y” | |
| 115 | . S DIR(“A” )=”Restore your Pref erred View and exit Change Vie w (Y/N)” | |
| 116 | . S DIR(“B” )=”Y” | |
| 117 | . D ^DIR | |
| 118 | . S BPSRESC V=Y | |
| 119 | I $G(BPSRES CV)=1 G CV 1 ; Us er replied YES – res tore to pr eferred vi ew. | |
| 120 | D SAVEVIEW^ BPSSCR01(. BPARR) | |
| 121 | ; edit curre nt profile | |
| 122 | D EDITPROF( .BPARR,.BP DUZ7) | |
| 123 | ; ask user i f need to save every thing in U SR PROFILE file | |
| 124 | ; (except SO RT LIST fi eld) | |
| 125 | N BPSRT S B PSRT=BPARR (1.12) | |
| 126 | K BPARR(1.1 2) | |
| 127 | D ENDEDIT^B PSSCRSL(.B PARR,+BPDU Z7) | |
| 128 | S BPARR(1.1 2)=BPSRT | |
| 129 | CV1 ; | |
| 130 | D SAVEVIEW^ BPSSCR01(. BPARR) | |
| 131 | S VALMBG=1 | |
| 132 | D REDRAW^BP SSCRUD("Up dating scr een...") | |
| 133 | Q | |
| 134 | ||
| 135 | Subroutine Name | |
| 136 | EDITPROF^B PSSCRCV | |
| 137 | Enhancemen t Category | |
| 138 | New | |
| 139 | Modify | |
| 140 | Delete | |
| 141 | No Change | |
| 142 | Story | |
| 143 | US591 | |
| 144 | Related Me nu Options or ListMa n Actions | |
| 145 | ECME User Screen act ion CV | |
| 146 | Related Ro utines | |
| 147 | This Subro utine is C alled By | |
| 148 | This Subro utine Call s | |
| 149 | ||
| 150 | CV^BPSSCRC V | |
| 151 | $$DS^BPSSC RDS, $$EDI TRX^BPSSCR PR, $$INSU RSEL^BPSSC RCU | |
| 152 | Related In tegration Control Re gistration s (ICRs) | |
| 153 | N/A | |
| 154 | Data Passi ng | |
| 155 | Parameter Input | |
| 156 | Parameter Output | |
| 157 | Function Return Val ue | |
| 158 | Global Mo dified | |
| 159 | Input Attr ibute Name and Defin ition | |
| 160 | Name: BPAR R | |
| 161 | Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR” | |
| 162 | New Modify Delete No Cha nge | |
| 163 | Name: BPDU Z7 | |
| 164 | Definition : DUZ | |
| 165 | New Modify Delete No Cha nge | |
| 166 | Output Att ribute Nam e and Defi nition | |
| 167 | Name: BPAR R | |
| 168 | Definition : User Pro file Array – Paramet er Definit ion “BPS U SRSCR” | |
| 169 | New Modify Delete No Cha nge | |
| 170 | Name: BPDU Z7 | |
| 171 | Definition : DUZ | |
| 172 | New Modify Delete No Cha nge | |
| 173 | Current Lo gic | |
| 174 | ||
| 175 | 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 | |
| 176 | ||
| 177 | Modified L ogic (Chan ges are hi ghlighted) | |
| 178 | EDITPROF(B PARR,BPDUZ 7) ; I +$G (DUZ)=0 D ERRMSG("Un known User ") Q | |
| 179 | I $G(BPSR ESCV)=”^” Q N BP1,BP TF,BPQ,BPI NP N BPRET N DIR,DR, DIE,DA ;ge t ONE/ALL USERS? ;ED ITFLD(FILE NO,FLDNO,R ECIEN,CODE SET,PRMTMS G,DFLTCODE ) ; S BPRE T=$$DS^BPS SCRDS(.BPA RR,+BPDUZ7 ) ;get div isions Q:B PRET=-2 ;q uit due to timeout o r ^ Q:$$ED ITFLD(2.01 ,+BPDUZ7," S^V:VETERA N;T:TRICAR E;C:CHAMPV A;A:ALL"," Select Cer tain Eligi bility Typ e or (A)ll ","V",.BPA RR)=-1 S B PQ=0 F D Q:BPQ'=0 . S BPINP= $$EDITFLD( 1.01,+BPDU Z7,"S^U:ON E USER;A:A LL","Displ ay One ECM E (U)ser o r (A)LL"," ALL",.BPAR R) . S:BPI NP=-1 BPQ= -1 S:$P(BP INP,U,2)=" A" BPQ=1 I BPQ'=0 Q . S BPINP= $$EDITFLD( 1.16,+BPDU Z7,"P^VA(2 00,","Sele ct User"," ",.BPARR) . S:BPINP= -1 BPQ=-1 S:$P(BPINP ,U,2)'="" BPQ=1 I BP Q'=0 Q Q:B PQ=-1 ;qui t due to t imeout or ^ S BPQ=0 F D Q:BP Q'=0 . S B PINP=$$EDI TFLD(1.02, +BPDUZ7,"S ^P:ONE PAT IENT;A:ALL ","Display One (P)at ient or (A )LL","ALL" ,.BPARR) . S:BPINP=- 1 BPQ=-1 S :$P(BPINP, U,2)="A" B PQ=1 I BPQ '=0 Q . S BPINP=$$ED ITFLD(1.17 ,+BPDUZ7," P^DPT(","S elect Pati ent","",.B PARR) . S: BPINP=-1 B PQ=-1 S:$P (BPINP,U,2 )'="" BPQ= 1 I BPQ'=0 Q Q:BPQ=- 1 ;quit du e to timeo ut or ^ S BPQ=0 F D Q:BPQ'=0 . S BPINP =$$EDITFLD (1.03,+BPD UZ7,"S^R:O NE RX;A:AL L","Displa y One (R)x or (A)LL" ,"ALL",.BP ARR) . S:B PINP=-1 BP Q=-1 S:$P( BPINP,U,2) ="A" BPQ=1 I BPQ'=0 Q . S BPIN P=$$EDITRX ^BPSSCRPR( 1.18,+BPDU Z7,"Select RX","",.B PARR) . S: BPINP=-1 B PQ=-1 S:$P (BPINP,U,2 )'="" BPQ= 1 I BPQ'=0 Q Q:BPQ=- 1 ;quit du e to timeo ut or ^ S BPINP=$$ED ITFLD(1.04 ,+BPDUZ7," S^D:DAYS;H :HOURS","A ctivity Ti meframe (H )ours or ( D)ays","DA YS",.BPARR ) I BPINP= -1 Q ;qui t due to t imeout or ^ S BPTF=$ P(BPINP,U, 2) Q:$$EDI TFLD(1.05, +BPDUZ7,"N ^1:999:0", "Activity Timeframe Value",$S( BPTF="H":2 4,1:7),.BP ARR)=-1 Q: $$EDITFLD( 2.02,+BPDU Z7,"S^O:OP EN CLAIMS; C:CLOSED C LAIMS;A:AL L","Select Open/Clos ed or All Claims","O ",.BPARR)= -1 Q:$$EDI TFLD(1.19, +BPDUZ7,"S ^O:Open No n-Billable Entries;C :Closed No n-Billable Entries;A :ALL","Dis play (O)pe n or (C)lo sed or (A) ll Non-Bil lable Entr ies","A",. BPARR)=-1 Q:$$EDITFL D(2.03,+BP DUZ7,"S^B: BILLING RE QUESTS;R:R EVERSALS;A :ALL","Sel ect Submis sion Type" ,"A",.BPAR R)=-1 Q:$$ EDITFLD(1. 06,+BPDUZ7 ,"S^R:REJE CTS;P:PAYA BLES;U:UNS TRANDED;A: ALL","Disp lay (R)eje cts or (P) ayables or (U)nstran ded or (A) LL","REJEC TS",.BPARR )=-1 Q:$$E DITFLD(1.0 7,+BPDUZ7, "S^R:RELEA SED;N:NON- RELEASED;A :ALL","Dis play (R)el eased Rxs or (N)on-R eleased Rx s or (A)LL ","RELEASE D",.BPARR) =-1 Q:$$ED ITFLD(1.08 ,+BPDUZ7," S^C:CMOP;M :MAIL;W:WI NDOW;A:ALL ","Display (C)MOP or (M)ail or (W)indow or (A)LL", "ALL",.BPA RR)=-1 Q:$ $EDITFLD(1 .09,+BPDUZ 7,"S^R:REA LTIME;B:BA CKBILLS;P: PRO OPTION ;S:RESUBMI SSION;A:AL L","Displa y (R)ealTi me, (B)ack bills, (P) RO Option, Re(S)ubmi ssion or ( A)LL","ALL ",.BPARR)= -1 S BPQ=0 F D Q:B PQ'=0 . S BPINP=$$ED ITFLD(1.1, +BPDUZ7,"S ^R:REJECT CODE;A:ALL ","Display Specific (R)eject C ode 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 TFLD(1.15, +BPDUZ7,"P ^BPSF(9002 313.93,"," Select Rej ect Code", "",.BPARR) . S:BPINP =-1 BPQ=-1 S:$P(BPIN P,U,2)'="" BPQ=1 I B PQ'=0 Q Q: BPQ=-1 ;qu it due to timeout or ^ Q:$$INS URSEL^BPSS CRCU(.BPAR R,+BPDUZ7) =-1 Q | |
| 180 | ||
| 181 | ||
| 182 | ||
| 183 | The ENDEDI T procedur e prompts the user t o save the current v iew as the user’s pr eferred vi ew. This u pdate will set an en try (“TEMP CV”) in th e BPARR ar ray if the user does not answe r YES to s ave the cu rrent view as their preferred view. BPAR R(“TEMPCV” )=1 will i ndicate th at the use r modified their cur rent view but did no t save it as their p referred v iew. | |
| 184 | Subroutine Name | |
| 185 | ENDEDIT^BP SSCRSL | |
| 186 | Enhancemen t Category | |
| 187 | New | |
| 188 | Modify | |
| 189 | Delete | |
| 190 | No Change | |
| 191 | Story | |
| 192 | US576 | |
| 193 | Related Me nu Options or ListMa n Actions | |
| 194 | CV Change View | |
| 195 | Related Ro utines | |
| 196 | This Subro utine is C alled By | |
| 197 | This Subro utine Call s | |
| 198 | ||
| 199 | CV^BPSSCRC V | |
| 200 | $$PROMPT^B PSSCRCV | |
| 201 | FILEALL^BP SSCRCV | |
| 202 | Related In tegration Control Re gistration s (ICRs) | |
| 203 | N/A | |
| 204 | Data Passi ng | |
| 205 | Parameter Input | |
| 206 | Parameter Output | |
| 207 | Function Return Val ue | |
| 208 | Global Mo dified | |
| 209 | Input Attr ibute Name and Defin ition | |
| 210 | Name: BPAR RAY | |
| 211 | Definition : Array of User’s De fined Para meters - BPS USRSCR | |
| 212 | New Modify Delete No Cha nge | |
| 213 | Name: BPDU Z7 | |
| 214 | Definition : Array of User’s De fined Para meters - BPS USRSCR | |
| 215 | New Modify Delete No Cha nge | |
| 216 | Output Att ribute Nam e and Defi nition | |
| 217 | Name: BPAR RAY | |
| 218 | Definition : Array of User’s De fined Para meters- BP S USRSCR | |
| 219 | New Modify Delete No Cha nge | |
| 220 | Current Lo gic | |
| 221 | ||
| 222 | BPSSCRSL ; BHAM ISC/S S - ECME S CREEN SORT LIST ;05- APR-05 | |
| 223 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,7,11,20* *;JUN 2004 ;Build 27 | |
| 224 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 225 | ||
| 226 | … | |
| 227 | ||
| 228 | .ENDEDIT(B PARRAY,BPD UZ7) ; | |
| 229 | I $$PROMPT^ BPSSCRCV(" S^Y:YES;N: NO","DO YO U WANT TO SAVE THIS VIEW AS YO | |
| 230 | UR PREFERR ED VIEW (Y /N)?","")= "Y" D | |
| 231 | . D FILEALL ^BPSSCRCV( .BPARRAY,B PDUZ7) | |
| 232 | Q | |
| 233 | Modified L ogic (Chan ges are hi ghlighted) | |
| 234 | ||
| 235 | BPSSCRSL ; BHAM ISC/S S - ECME S CREEN SORT LIST ;05- APR-05 | |
| 236 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,7,11,20, 22**;JUN 2 004;Build 27 | |
| 237 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 238 | ||
| 239 | … | |
| 240 | ||
| 241 | ENDEDIT(BP ARRAY,BPDU Z7) ; | |
| 242 | S BPARRAY(“ TEMPCV”)=1 ; Defaul t as Tempo rary View defined | |
| 243 | I $$PROMPT^ BPSSCRCV(" S^Y:YES;N: NO","DO YO U WANT TO SAVE THIS VIEW AS YO | |
| 244 | UR PREFERR ED VIEW (Y /N)?","")= "Y" D | |
| 245 | . D FILEALL ^BPSSCRCV( .BPARRAY,B PDUZ7) | |
| 246 | . K BPARRAY (“TEMPCV”) ; User a greed to s ave view a s preferre d – Remove TEMPCV fl ag | |
| 247 | Q | |
| 248 | ||
| 249 | This proce dure is ca lled when exiting th e ECME Use r Screen. The existi ng logic h as the BPA RR array s till set w hen exitin g ECME Use r Screen. The follow ing update ensures t he Tempora ry Change View flag is cleared upon exit ing, if it exists. | |
| 250 | Subroutine Name | |
| 251 | CLEANUP^BP SSCR | |
| 252 | Enhancemen t Category | |
| 253 | New | |
| 254 | Modify | |
| 255 | Delete | |
| 256 | No Change | |
| 257 | Story | |
| 258 | US576 | |
| 259 | Related Me nu Options or ListMa n Actions | |
| 260 | CV Change View | |
| 261 | Related Ro utines | |
| 262 | This Subro utine is C alled By | |
| 263 | This Subro utine Call s | |
| 264 | ||
| 265 | EXIT^BPSSC R | |
| 266 | N/A | |
| 267 | Related In tegration Control Re gistration s (ICRs) | |
| 268 | N/A | |
| 269 | Data Passi ng | |
| 270 | Parameter Input | |
| 271 | Parameter Output | |
| 272 | Function Return Val ue | |
| 273 | Global Mo dified | |
| 274 | Input Attr ibute Name and Defin ition | |
| 275 | Name: NA | |
| 276 | Definition : | |
| 277 | New Modify Delete No Cha nge | |
| 278 | ||
| 279 | Output Att ribute Nam e and Defi nition | |
| 280 | Name: NA | |
| 281 | Definition : | |
| 282 | New Modify Delete No Cha nge | |
| 283 | Current Lo gic | |
| 284 | ||
| 285 | BPSSCR ;BH AM ISC/SS - ECME USE R SCREEN M AIN ;10-MA R-2005 | |
| 286 | ;;1.0;E C LAIMS MGMT ENGINE;** 1**;JUN 20 04 | |
| 287 | ;; Per VH A Directiv e 10-93-14 2, this ro utine shou ld not be modified. | |
| 288 | ||
| 289 | … | |
| 290 | ||
| 291 | CLEANUP ; | |
| 292 | K @VALMAR | |
| 293 | D KILINSGL ;clean up insurance list | |
| 294 | Q | |
| 295 | Modified L ogic (Chan ges are hi ghlighted) | |
| 296 | ||
| 297 | BPSSCR ;BH AM ISC/SS - ECME USE R SCREEN M AIN ;10-MA R-2005 | |
| 298 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,22**;JUN 2004 | |
| 299 | ;; Per VH A Directiv e 6402, th is routine should no t be modif ied. | |
| 300 | ||
| 301 | … | |
| 302 | ||
| 303 | CLEANUP ; | |
| 304 | K @VALMAR | |
| 305 | D KILINSGL ;clean up insurance list | |
| 306 | S BPARR("TE MPCV")="" ; ensure Temp CV f lag is cle ared | |
| 307 | Q | |
| 308 | ||
| 309 | Back Out/R ollback Pr ocedure | |
| 310 | 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 a part of this pa tch should be backed up prior to install ation. Rev erting to the previo us version of these routines w ould back out this e nhancement . Alternat ively, the previous version of these rou tines coul d be distr ibuted via an emerge ncy patch. | |
| 311 | ||
| 312 | ||
| 313 | ||
| 314 | ||
| 315 | ||
| 316 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.