Produced by Araxis Merge on 8/5/2017 9:36:54 AM 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 | BPS_1.0_21_Build_8.zip | TAS ePhm SDD US187 v1.00.docx | Tue May 2 15:03:36 2017 UTC |
| 2 | BPS_1.0_21_Build_8.zip | TAS ePhm SDD US187 v1.00.docx | Fri Aug 4 18:00:03 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 730 |
| 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 US187 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | December 2 016 | |
| 10 | Version 1. 0 | |
| 11 | User Story Number: U SRX-13A | |
| 12 | User Story Name: Def ault item number 1.1 when only one rejec t is liste d on the E CME User S creen | |
| 13 | Product Ba cklog ID: 174 | |
| 14 | Backlog Pr iority: Lo w | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US187 | |
| 18 | Design | |
| 19 | The story calls for defaulting the item number at the Select Item prom pt for 13 actions on the ECME User Scree n and 10 a ctions on the Furthe r Research Screen. A ll of thes e actions share code for promp ting the u ser to ent er an item and then checking t he user’s response f or validit y. | |
| 20 | This desig n calls fo r creating a new sub routine (D EFAULT^BPS SCRU4) to attempt to determine a default item. Tha t subrouti ne will be invoked b y two exis ting subro utines (SE LLINE^BPSS CRU4 and A SKLINES^BP SSCRU4) pr ior to pro mpting the user to e nter an it em. If the DEFAULT s ubroutine returns a value, the n that val ue will be presented to the us er as the default. | |
| 21 | The change s describe d below wi ll handle all 23 of the action s indicate d in the s tory. | |
| 22 | ||
| 23 | Subroutine Name | |
| 24 | SELLINE^BP SSCRU4 | |
| 25 | Enhancemen t Category | |
| 26 | New | |
| 27 | Modify | |
| 28 | Delete | |
| 29 | No Change | |
| 30 | Story | |
| 31 | US187 (Ral ly ID) | |
| 32 | Related Op tions | |
| 33 | ECME User Screen | |
| 34 | Related Ro utines | |
| 35 | Subroutine is Called By | |
| 36 | Subroutine Calls | |
| 37 | ||
| 38 | ASKLINE^BP SELG, ASKL INE^BPSRES , ASKLINE^ BPSSCRU4 | |
| 39 | $$DEFAULT^ BPSSCRU4, $$PROMPT^B PSSCRU4 | |
| 40 | Data Dicti onary (DD) Reference s | |
| 41 | None | |
| 42 | Related Pr otocols | |
| 43 | None | |
| 44 | Related In tegration Control Re gistration s (ICRs) | |
| 45 | None | |
| 46 | Data Passi ng | |
| 47 | Input | |
| 48 | Output Re ference | |
| 49 | Both | |
| 50 | Global Re ference | |
| 51 | Local | |
| 52 | Input Attr ibute Name and Defin ition | |
| 53 | Name: BPRO MPT | |
| 54 | Definition : Prompt t o display to user. | |
| 55 | New Modify Delete No Cha nge | |
| 56 | Name: BPTY PE | |
| 57 | Definition : P, C or PC, indica ting that the prompt will acce pt a patie nt, a clai m or eithe r. | |
| 58 | New Modify Delete No Cha nge | |
| 59 | Name: BPTM P1 | |
| 60 | Definition : Temporar y ListMan global con taining li st of pati ents and c laims. | |
| 61 | New Modify Delete No Cha nge | |
| 62 | Name: BPDF LT | |
| 63 | Definition : Default value to p resent to user. | |
| 64 | New Modify Delete No Cha nge | |
| 65 | Output Att ribute Nam e and Defi nition | |
| 66 | Name: $$SE LLINE | |
| 67 | Definition : String o f values ( see commen ts in code below). | |
| 68 | New Modify Delete No Cha nge | |
| 69 | Current Lo gic | |
| 70 | ||
| 71 | ; prompts th e user for line# for various m enu option of the Us er Screen | |
| 72 | ; input: | |
| 73 | ; BPROMPT - prompt s tring | |
| 74 | ; BPTYPE - expected user's sel ection on level | |
| 75 | ; of P-pat ient or C- claim or P C - both | |
| 76 | ; BPTMP1 - temporary global (V ALMAR) | |
| 77 | ; BPDFLT - default v alue for t he prompt (optional) | |
| 78 | ; output: | |
| 79 | ; piece 1: | |
| 80 | ; 1 - oka y | |
| 81 | ; <0 - er rors | |
| 82 | ; 0 - use r wants to quit | |
| 83 | ; piece 2: patient i en #2 | |
| 84 | ; piece 3: insurance ien #36 | |
| 85 | ; piece 4: ptr to #9 002313.59 | |
| 86 | ; piece 5: 1st line for index( es) in LM "VALM" arr ay | |
| 87 | ; piece 6: patient's index | |
| 88 | ; piece 7: claim's i ndex | |
| 89 | SELLINE(BP ROMPT,BPTY PE,BPTMP1, BPDFLT) ;* / | |
| 90 | N BPX,BPLIN E,BPPATIND ,BPCLMIND | |
| 91 | N BPDFN,BPS INSUR,BP59 ,BP1LN | |
| 92 | S BPLINE=$$ PROMPT(BPR OMPT,$G(BP DFLT)) | |
| 93 | I BPLINE="^ " Q 0 | |
| 94 | S BPPATIND= +$P(BPLINE ,".") | |
| 95 | I (BPLINE[" -")!(BPLIN E[",") Q - 8 ;multip le line in put in not allowed | |
| 96 | I '$D(@BPTM P1@("LMIND ",BPPATIND )) Q -1 ; the patien t level do esn't exis t | |
| 97 | S BPCLMIND= +$P(BPLINE ,".",2) | |
| 98 | I BPTYPE="P ",BPCLMIND >0 Q -2 ; P was requ ested but claim port ion was pr ovided | |
| 99 | I BPTYPE="C ",BPCLMIND =0 Q -3 ; C was requ ested but claim port ion was no t provided | |
| 100 | I '$D(@BPTM P1@("LMIND ",BPPATIND ,BPCLMIND) ) Q -4 ;t he claim l evel doesn 't exist | |
| 101 | S BPDFN=$O( @BPTMP1@(" LMIND",BPP ATIND,BPCL MIND,0)) | |
| 102 | I +BPDFN=0 Q -5 ;err or | |
| 103 | S BPSINSUR= $O(@BPTMP1 @("LMIND", BPPATIND,B PCLMIND,BP DFN,"")) | |
| 104 | I BPSINSUR= "" Q -6 ; error | |
| 105 | ; if fractio nal part w as entered | |
| 106 | I BPCLMIND> 0 D I +BP 59=0 Q -7 ;error | |
| 107 | . S BP59=$O (@BPTMP1@( "LMIND",BP PATIND,BPC LMIND,BPDF N,BPSINSUR ,0)) | |
| 108 | I BPCLMIND= 0 S BP59=0 | |
| 109 | S BP1LN=$O( @BPTMP1@(" LMIND",BPP ATIND,BPCL MIND,BPDFN ,BPSINSUR, BP59,0)) | |
| 110 | I +BP1LN=0 Q -7 ;err or | |
| 111 | Q "1"_U_BPD FN_U_BPSIN SUR_U_BP59 _U_BP1LN_U _BPPATIND_ U_BPCLMIND | |
| 112 | ||
| 113 | Modified L ogic (Chan ges are hi ghlighted) | |
| 114 | ||
| 115 | ; prompts th e user for line# for various m enu option of the Us er Screen | |
| 116 | ; input: | |
| 117 | ; BPROMPT - prompt s tring | |
| 118 | ; BPTYPE - expected user's sel ection on level | |
| 119 | ; of P-pat ient or C- claim or P C - both | |
| 120 | ; BPTMP1 - temporary global (V ALMAR) | |
| 121 | ; BPDFLT - default v alue for t he prompt (optional) | |
| 122 | ; output: | |
| 123 | ; piece 1: | |
| 124 | ; 1 - oka y | |
| 125 | ; <0 - er rors | |
| 126 | ; 0 - use r wants to quit | |
| 127 | ; piece 2: patient i en #2 | |
| 128 | ; piece 3: insurance ien #36 | |
| 129 | ; piece 4: ptr to #9 002313.59 | |
| 130 | ; piece 5: 1st line for index( es) in LM "VALM" arr ay | |
| 131 | ; piece 6: patient's index | |
| 132 | ; piece 7: claim's i ndex | |
| 133 | SELLINE(BP ROMPT,BPTY PE,BPTMP1, BPDFLT) ;* / | |
| 134 | N BPX,BPLIN E,BPPATIND ,BPCLMIND | |
| 135 | N BPDFN,BPS INSUR,BP59 ,BP1LN | |
| 136 | ; | |
| 137 | ; Attempt t o determin e default if none pa ssed in. | |
| 138 | ; | |
| 139 | I ‘$G(BPDFL T) S BPDFL T=$$DEFAUL T(BPTYPE,B PTMP1) | |
| 140 | ; | |
| 141 | S BPLINE=$$ PROMPT(BPR OMPT,$G(BP DFLT)) | |
| 142 | I BPLINE="^ " Q 0 | |
| 143 | S BPPATIND= +$P(BPLINE ,".") | |
| 144 | I (BPLINE[" -")!(BPLIN E[",") Q - 8 ;multip le line in put in not allowed | |
| 145 | I '$D(@BPTM P1@("LMIND ",BPPATIND )) Q -1 ; the patien t level do esn't exis t | |
| 146 | S BPCLMIND= +$P(BPLINE ,".",2) | |
| 147 | I BPTYPE="P ",BPCLMIND >0 Q -2 ; P was requ ested but claim port ion was pr ovided | |
| 148 | I BPTYPE="C ",BPCLMIND =0 Q -3 ; C was requ ested but claim port ion was no t provided | |
| 149 | I '$D(@BPTM P1@("LMIND ",BPPATIND ,BPCLMIND) ) Q -4 ;t he claim l evel doesn 't exist | |
| 150 | S BPDFN=$O( @BPTMP1@(" LMIND",BPP ATIND,BPCL MIND,0)) | |
| 151 | I +BPDFN=0 Q -5 ;err or | |
| 152 | S BPSINSUR= $O(@BPTMP1 @("LMIND", BPPATIND,B PCLMIND,BP DFN,"")) | |
| 153 | I BPSINSUR= "" Q -6 ; error | |
| 154 | ; if fractio nal part w as entered | |
| 155 | I BPCLMIND> 0 D I +BP 59=0 Q -7 ;error | |
| 156 | . S BP59=$O (@BPTMP1@( "LMIND",BP PATIND,BPC LMIND,BPDF N,BPSINSUR ,0)) | |
| 157 | I BPCLMIND= 0 S BP59=0 | |
| 158 | S BP1LN=$O( @BPTMP1@(" LMIND",BPP ATIND,BPCL MIND,BPDFN ,BPSINSUR, BP59,0)) | |
| 159 | I +BP1LN=0 Q -7 ;err or | |
| 160 | Q "1"_U_BPD FN_U_BPSIN SUR_U_BP59 _U_BP1LN_U _BPPATIND_ U_BPCLMIND | |
| 161 | ||
| 162 | ||
| 163 | Subroutine Name | |
| 164 | ASKLINES^B PSSCRU4 | |
| 165 | Enhancemen t Category | |
| 166 | New | |
| 167 | Modify | |
| 168 | Delete | |
| 169 | No Change | |
| 170 | Story | |
| 171 | US187 (Ral ly ID) | |
| 172 | Related Op tions | |
| 173 | ECME User Screen | |
| 174 | Related Ro utines | |
| 175 | Subroutine is Called By | |
| 176 | Subroutine Calls | |
| 177 | ||
| 178 | EUSCREOP^B PSREOP1, C LO^BPSSCRC L, RES^BPS SCRRS, RES NRV^BPSSCR RS, REV^BP SSCRRV, SE LCLMS^BPSW RKLS | |
| 179 | $$DEFAULT^ BPSSCRU4, $$MKINDEXS ^BPSSCRU4, $$PROMPT^ BPSSCRU4 | |
| 180 | Data Dicti onary (DD) Reference s | |
| 181 | None | |
| 182 | Related Pr otocols | |
| 183 | None | |
| 184 | Related In tegration Control Re gistration s (ICRs) | |
| 185 | None | |
| 186 | Data Passi ng | |
| 187 | Input | |
| 188 | Output Re ference | |
| 189 | Both | |
| 190 | Global Re ference | |
| 191 | Local | |
| 192 | Input Attr ibute Name and Defin ition | |
| 193 | Name: BPRO MPT | |
| 194 | Definition : Prompt t o display to user. | |
| 195 | New Modify Delete No Cha nge | |
| 196 | Name: BPTY PE | |
| 197 | Definition : P, C or PC, indica ting that the prompt will acce pt a patie nt, a clai m or eithe r. | |
| 198 | New Modify Delete No Cha nge | |
| 199 | Name: BPAR RLN2 | |
| 200 | Definition : Passed b y referenc e; used to return re sults. | |
| 201 | New Modify Delete No Cha nge | |
| 202 | Name: BPTM P | |
| 203 | Definition : Temporar y ListMan global con taining li st of pati ents and c laims. | |
| 204 | New Modify Delete No Cha nge | |
| 205 | Output Att ribute Nam e and Defi nition | |
| 206 | Name: $$AS KLINES | |
| 207 | Definition : 1 if suc cessful, - 1 if inval id entry, ^ if user quit. | |
| 208 | New Modify Delete No Cha nge | |
| 209 | Name: BPAR RLN2 | |
| 210 | Definition : Array of lines sel ected | |
| 211 | New Modify Delete No Cha nge | |
| 212 | Current Lo gic | |
| 213 | ||
| 214 | ; BPTMP = VA LMAR | |
| 215 | ; input: | |
| 216 | ; BPROMPT - prompt te xt | |
| 217 | ; BPTYPE - expected u ser's sele ction on l evel | |
| 218 | ; of P-pat ient or C- claim or P C - both | |
| 219 | ; BPTMP - t emporary g lobal (lik e VALMAR) | |
| 220 | ; BPARRLN2 - to retur n results | |
| 221 | ; output : | |
| 222 | ; 1 if oka y | |
| 223 | ; -1 -inva lid format | |
| 224 | ; ^ - quit | |
| 225 | ; BPARRLN2 - Array(B 59)="line# in VALM"^ "PatientIn dex.ClaimI ndex" | |
| 226 | ; example: | |
| 227 | ; BPARR(30 045.00001) =134^2.34 | |
| 228 | ASKLINES(B PROMPT,BPT YPE,BPARRL N2,BPTMP) ; | |
| 229 | N BPQ,BPXLN ,BPN,BPLN, BPZ | |
| 230 | N BPL,BPCLM | |
| 231 | N BPARRLN1, BPX1 | |
| 232 | S BPSPROM=" Select ite m(s)" | |
| 233 | S BPLN=$$PR OMPT(BPSPR OM,"") | |
| 234 | I BPLN="^" Q "^" | |
| 235 | S BPLN=$P(B PLN,U) | |
| 236 | S BPQ=0 | |
| 237 | F BPN=1:1 S BPX1=$P(B PLN,",",BP N) Q:$L(BP X1)=0 D Q:BPQ'=0 | |
| 238 | . S BPZ=$$M KINDEXS(BP X1,BPTMP,. BPARRLN1) | |
| 239 | . I BPZ<1 S BPQ=-1 | |
| 240 | . I (BPZ=-1 )!(BPZ=-2) W !,"Inva lid format .",! | |
| 241 | . I (BPZ=-3 ) W !,"Not a valid s election." ,! | |
| 242 | Q :BPQ=-1 -1 | |
| 243 | ; | |
| 244 | N BPPAT,BPC LM | |
| 245 | S BPPAT=0 F S BPPAT= $O(BPARRLN 1(BPPAT)) Q:BPPAT="" D | |
| 246 | . S BPCLM=0 F S BPCL M=$O(BPARR LN1(BPPAT, BPCLM)) Q: BPCLM="" D | |
| 247 | . . S BP1=$ G(BPARRLN1 (BPPAT,BPC LM)) | |
| 248 | . . Q:$L(BP 1)=0 | |
| 249 | . . S BPARR LN2(+$P(BP 1,U,4))=+$ P(BP1,U,5) _U_BPPAT_" ."_BPCLM | |
| 250 | Q 1 | |
| 251 | ||
| 252 | Modified L ogic (Chan ges are hi ghlighted) | |
| 253 | ||
| 254 | ; BPTMP = VA LMAR | |
| 255 | ; input: | |
| 256 | ; BPROMPT - prompt te xt | |
| 257 | ; BPTYPE - expected u ser's sele ction on l evel | |
| 258 | ; of P-pat ient or C- claim or P C - both | |
| 259 | ; BPTMP - t emporary g lobal (lik e VALMAR) | |
| 260 | ; BPARRLN2 - to retur n results | |
| 261 | ; output : | |
| 262 | ; 1 if oka y | |
| 263 | ; -1 -inva lid format | |
| 264 | ; ^ - quit | |
| 265 | ; BPARRLN2 - Array(B 59)="line# in VALM"^ "PatientIn dex.ClaimI ndex" | |
| 266 | ; example: | |
| 267 | ; BPARR(30 045.00001) =134^2.34 | |
| 268 | ASKLINES(B PROMPT,BPT YPE,BPARRL N2,BPTMP) ; | |
| 269 | N BPQ,BPXLN ,BPN,BPLN, BPZ | |
| 270 | N BPL,BPCLM ,BPDFLT | |
| 271 | N BPARRLN1, BPX1 | |
| 272 | S BPSPROM=" Select ite m(s)" | |
| 273 | ; | |
| 274 | ; Attempt t o determin e default. | |
| 275 | ; | |
| 276 | S BPDFLT=$$ DEFAULT(BP TYPE,BPTMP ) | |
| 277 | ; | |
| 278 | S BPLN=$$PR OMPT(BPSPR OM,BPDFLT) | |
| 279 | I BPLN="^" Q "^" | |
| 280 | S BPLN=$P(B PLN,U) | |
| 281 | S BPQ=0 | |
| 282 | F BPN=1:1 S BPX1=$P(B PLN,",",BP N) Q:$L(BP X1)=0 D Q:BPQ'=0 | |
| 283 | . S BPZ=$$M KINDEXS(BP X1,BPTMP,. BPARRLN1) | |
| 284 | . I BPZ<1 S BPQ=-1 | |
| 285 | . I (BPZ=-1 )!(BPZ=-2) W !,"Inva lid format .",! | |
| 286 | . I (BPZ=-3 ) W !,"Not a valid s election." ,! | |
| 287 | Q :BPQ=-1 -1 | |
| 288 | ; | |
| 289 | N BPPAT,BPC LM | |
| 290 | S BPPAT=0 F S BPPAT= $O(BPARRLN 1(BPPAT)) Q:BPPAT="" D | |
| 291 | . S BPCLM=0 F S BPCL M=$O(BPARR LN1(BPPAT, BPCLM)) Q: BPCLM="" D | |
| 292 | . . S BP1=$ G(BPARRLN1 (BPPAT,BPC LM)) | |
| 293 | . . Q:$L(BP 1)=0 | |
| 294 | . . S BPARR LN2(+$P(BP 1,U,4))=+$ P(BP1,U,5) _U_BPPAT_" ."_BPCLM | |
| 295 | Q 1 | |
| 296 | ||
| 297 | ||
| 298 | Subroutine Name | |
| 299 | DEFAULT^BP SSCRU4 | |
| 300 | Enhancemen t Category | |
| 301 | New | |
| 302 | Modify | |
| 303 | Delete | |
| 304 | No Change | |
| 305 | Story | |
| 306 | US187 (Ral ly ID) | |
| 307 | Related Op tions | |
| 308 | ECME User Screen | |
| 309 | Related Ro utines | |
| 310 | Subroutine is Called By | |
| 311 | Subroutine Calls | |
| 312 | ||
| 313 | SELLINE^BP SSCRU4, AS KLINES^BPS SCRU4 | |
| 314 | None | |
| 315 | Data Dicti onary (DD) Reference s | |
| 316 | None | |
| 317 | Related Pr otocols | |
| 318 | None | |
| 319 | Related In tegration Control Re gistration s (ICRs) | |
| 320 | None | |
| 321 | Data Passi ng | |
| 322 | Input | |
| 323 | Output Re ference | |
| 324 | Both | |
| 325 | Global Re ference | |
| 326 | Local | |
| 327 | Input Attr ibute Name and Defin ition | |
| 328 | Name: BPTY PE | |
| 329 | Definition : P, C or PC, indica ting that the prompt will acce pt a patie nt, a clai m or eithe r. | |
| 330 | New Modify Delete No Cha nge | |
| 331 | Name: BPLI ST | |
| 332 | Definition : Temporar y ListMan global con taining li st of pati ents and c laims. | |
| 333 | New Modify Delete No Cha nge | |
| 334 | Output Att ribute Nam e and Defi nition | |
| 335 | Name: $$DE FAULT | |
| 336 | Definition : Patient number, cl aim number or <blank >. | |
| 337 | New Modify Delete No Cha nge | |
| 338 | Current Lo gic | |
| 339 | ||
| 340 | N/A | |
| 341 | ||
| 342 | Modified L ogic (Chan ges are hi ghlighted) | |
| 343 | ||
| 344 | ; | |
| 345 | ; DEFAULT w ill return a value t o be used as the def ault at th e | |
| 346 | ; Select It em prompt if there i s only one item on t he list. If the | |
| 347 | ; user must enter a p atient-lev el item (B PTYPE of “ P”), then the | |
| 348 | ; patient n umber will be return ed if only one. Oth erwise, th e claim | |
| 349 | ; number wi ll be retu rned if on ly one pat ient and o ne claim. | |
| 350 | ; Input: B PTYPE – P if user sh ould enter a Patient . | |
| 351 | ; C if user sh ould enter a Claim. | |
| 352 | ; PC if user m ay enter e ither. | |
| 353 | ; B PLIST – te mporary gl obal (VALM AR). | |
| 354 | ; Output: $$DEFAULT – Either a patient n umber, or a claim nu mber, | |
| 355 | ; or <blank> i f neither could be d efaulted. | |
| 356 | DEFAULT(BP TYPE,BPLIS T) ; Deter mine defau lt item nu mber. | |
| 357 | N BPSCLAIM,B PSPATIENT | |
| 358 | S BPSPATIEN T=$O(@BPLI ST@(“LMIND ”,0)) | |
| 359 | I $O(@BPLIS T@(“LMIND” ,BPSPATIEN T))’=“” Q “” ; If n ot one pat ient, Quit “”. | |
| 360 | I BPTYPE=“P ” Q BPSPAT IENT ; If BPTYPE is P(atient) , then Qui t with the patient. | |
| 361 | S BPSCLAIM= $O(@BPLIST @(“LMIND”, BPSPATIENT ,0)) | |
| 362 | I $O(@BPLIS T@(“LMIND” ,BPSPATIEN T,BPSCLAIM ))’=“” Q “ ” ; If no t one clai m, Quit “” . | |
| 363 | Q BPSPATIEN T_“.”_BPSC LAIM | |
| 364 | ; | |
| 365 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.