Produced by Araxis Merge on 9/6/2017 3:05:36 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 US583 v1.01.docx | Thu Jul 27 19:14:30 2017 UTC |
| 2 | MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle | TAS ePhm SDD US583 v1.01.docx | Wed Sep 6 18:32:47 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 3044 |
| 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 US583 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | June 2017 | |
| 10 | Version 1. 01 | |
| 11 | User Story Number: U SRX-29 | |
| 12 | User Story Name: Rej ect Inform ation Scre en to disp lay the Ta x ID and P CN | |
| 13 | Product Ba cklog ID: 29 | |
| 14 | Backlog Pr iority: Lo w | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: tbd | |
| 17 | Rally ID: US583 | |
| 18 | ||
| 19 | Design – S ummary | |
| 20 | Modify the Reject In formation screen to display th e Tax ID a nd PCN. Th e Reject I nformation Screen is available from two options: T hird Party Payer Rej ects – Wor klist (PSO REJECTS W ORKLIST) a nd Third P arty Payer Rejects – View/Proc ess (PSO R EJECTS VIE W/PROCESS) . | |
| 21 | Modify act ion REJ OP ECC Reject Informati on to disp lay the Ta x ID. The REJ action is availa ble from t he ECME Us er Screen (BPS USER SCREEN). | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | File: REJ ECT INFO S ub-File (# 52.25) | |
| 25 | Routine: B PSNCPD3 | |
| 26 | Routine: B PSSCRRJ | |
| 27 | Routine: P SO7P478 | |
| 28 | Routine: P SOREJP1 | |
| 29 | Routine: P SOREJU2 | |
| 30 | Routine: P SOREJU3 | |
| 31 | Routine: P SOREJUT | |
| 32 | ||
| 33 | ||
| 34 | Design – D etail | |
| 35 | Subroutine Name | |
| 36 | DVINFO^PSO REJU2 | |
| 37 | Enhancemen t Category | |
| 38 | New | |
| 39 | Modify | |
| 40 | Delete | |
| 41 | No Change | |
| 42 | Story | |
| 43 | US583 | |
| 44 | Related Me nu Options or ListMa n Actions | |
| 45 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 46 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 47 | Related Ro utines | |
| 48 | This Subro utine is C alled By | |
| 49 | This Subro utine Call s | |
| 50 | ||
| 51 | HDR^PSOREJ P1 | |
| 52 | HDR^PSOREJ P5 | |
| 53 | DISPLAY^PS OREJU3 | |
| 54 | $$DIVNCPDP ^BPSBUTL | |
| 55 | $$GET1^DIQ | |
| 56 | $$RXSITE^P SOBPSUT | |
| 57 | Related In tegration Control Re gistration s (ICRs) | |
| 58 | IA# 6768 | |
| 59 | Data Passi ng | |
| 60 | Parameter Input | |
| 61 | Parameter Output | |
| 62 | Function Return Val ue | |
| 63 | Global Mo dified | |
| 64 | Input Attr ibute Name and Defin ition | |
| 65 | Name: RX | |
| 66 | Definition : Rx IEN ( #52) | |
| 67 | New Modify Delete No Cha nge | |
| 68 | Name: RFL | |
| 69 | Definition : Refill # | |
| 70 | New Modify Delete No Cha nge | |
| 71 | Name: LM | |
| 72 | Definition : ListMana ger Format (1-Yes, 2 -No) Defau lt-0 | |
| 73 | New Modify Delete No Cha nge | |
| 74 | Output Att ribute Nam e and Defi nition | |
| 75 | Name: $$DV INFO | |
| 76 | Definition : String o f Division informati on | |
| 77 | New Modify Delete No Cha nge | |
| 78 | Current Lo gic | |
| 79 | ||
| 80 | PSOREJU2 ; BIRM/MFR - BPS (ECME ) - Clinic al Rejects Utilities (1) ;10/1 5/04 | |
| 81 | ;;7.0;OUT PATIENT PH ARMACY;**1 48,260,287 ,341,290,3 58,359,385 ,403,421,4 27**;DEC 1 997;Build 21 | |
| 82 | ||
| 83 | … | |
| 84 | ||
| 85 | DVINFO(RX, RFL,LM) ; Returns he ader displ ayable Div ision Info rmation | |
| 86 | ;Input: ( r) RX - Rx IEN (#5 2) | |
| 87 | ; ( o) RFL - Refill # ( Default: m ost recent ) | |
| 88 | ; ( o) LM - ListManage r format? (1 - Yes / 0 - No) - Default: 0 | |
| 89 | N TXT,DVI NFO,NCPNPI ,DVIEN | |
| 90 | S DVIEN=+ $$RXSITE^P SOBPSUT(RX ,RFL) | |
| 91 | S DVINFO= "Division : "_$$GET1 ^DIQ(59,DV IEN,.01) | |
| 92 | ;Display both NPI a nd NCPDP n umbers - P SO*7.0*421 | |
| 93 | S NCPNPI= $$DIVNCPDP ^BPSBUTL(D VIEN) | |
| 94 | S $E(DVIN FO,33)="NP I: "_$P(NC PNPI,U,2) | |
| 95 | S $E(DVIN FO,$S($G(L M):59,1:52 ))="NCPDP: "_$P(NCPN PI,U) | |
| 96 | Q DVINFO | |
| 97 | ||
| 98 | Modified L ogic (Chan ges are hi ghlighted) | |
| 99 | ||
| 100 | PSOREJU2 ; BIRM/MFR - BPS (ECME ) - Clinic al Rejects Utilities (1) ;10/1 5/04 | |
| 101 | ;;7.0;OUT PATIENT PH ARMACY;**1 48,260,287 ,341,290,3 58,359,385 ,403,421,4 27,478**;D EC 1997;Bu ild 21 | |
| 102 | ;Referenc e to $$TAX ID^IBCEF75 supported by IA 676 8 | |
| 103 | ||
| 104 | … | |
| 105 | ||
| 106 | DVINFO(RX, RFL,LM) ; Returns he ader displ ayable Div ision Info rmation | |
| 107 | ;Input: ( r) RX - Rx IEN (#5 2) | |
| 108 | ; ( o) RFL - Refill # ( Default: m ost recent ) | |
| 109 | ; ( o) LM - ListManage r format? (1 - Yes / 0 - No) - Default: 0 | |
| 110 | N TXT,DVI NFO,NCPNPI ,DVIEN,PSO TAXID | |
| 111 | S DVIEN=+ $$RXSITE^P SOBPSUT(RX ,RFL) | |
| 112 | S DVINFO= "Division : "_$E($$G ET1^DIQ(59 ,DVIEN,.01 ),1,15) | |
| 113 | ;Display both NPI a nd NCPDP n umbers - P SO*7.0*421 | |
| 114 | S NCPNPI= $$DIVNCPDP ^BPSBUTL(D VIEN) | |
| 115 | S $E(DVIN FO,28)="NP I: "_$P(NC PNPI,U,2) | |
| 116 | S $E(DVIN FO,44))="N CPDP: "_$P (NCPNPI,U) | |
| 117 | S PSOTAXI D=$P($$TAX ID^IBCEF75 ,U,2) ; IA 6768 | |
| 118 | S $E(DVIN FO,62)="TA X ID: "_$E (PSOTAXID, 1,2)_"-"_$ E(PSOTAXID ,3,$L(PSOT AXID)) | |
| 119 | Q DVINFO | |
| 120 | ||
| 121 | ||
| 122 | Subroutine Name | |
| 123 | DVINFO^BPS SCRRJ | |
| 124 | Enhancemen t Category | |
| 125 | New | |
| 126 | Modify | |
| 127 | Delete | |
| 128 | No Change | |
| 129 | Story | |
| 130 | US583 | |
| 131 | Related Me nu Options or ListMa n Actions | |
| 132 | REJ Action available from the ECME User Screen [BP S USER SCR EEN]. | |
| 133 | Related Ro utines | |
| 134 | This Subro utine is C alled By | |
| 135 | This Subro utine Call s | |
| 136 | ||
| 137 | HDR^BPSSCR RJ | |
| 138 | $$DIVNCPDP ^BPSBUTL | |
| 139 | $$GET1^DIQ | |
| 140 | $$RXSITE^P SOBPSUT | |
| 141 | Related In tegration Control Re gistration s (ICRs) | |
| 142 | IA# 6768 | |
| 143 | Data Passi ng | |
| 144 | Parameter Input | |
| 145 | Parameter Output | |
| 146 | Function Return Val ue | |
| 147 | Global Mo dified | |
| 148 | Input Attr ibute Name and Defin ition | |
| 149 | Name: RX | |
| 150 | Definition : Rx IEN ( #52) | |
| 151 | New Modify Delete No Cha nge | |
| 152 | Name: RFL | |
| 153 | Definition : Refill # | |
| 154 | New Modify Delete No Cha nge | |
| 155 | Output Att ribute Nam e and Defi nition | |
| 156 | Name: $$DV INFO | |
| 157 | Definition : String o f Division informati on | |
| 158 | New Modify Delete No Cha nge | |
| 159 | Current Lo gic | |
| 160 | ||
| 161 | BPSSCRRJ ; ALB/ESG - ECME OPECC Reject In formation ;02-SEP-20 15 | |
| 162 | ;;1.0;E C LAIMS MGMT ENGINE;** 20**;JUN 2 004;Build 27 | |
| 163 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 164 | ; | |
| 165 | ; ICR# 47 01 for cal l to $$RXS ITE^PSOBPS UT | |
| 166 | ; ICR# 47 05 for cal l to $$GET NDC^PSONDC UT | |
| 167 | ; ICR# 47 11 for cal l to DP^PS ORXVW | |
| 168 | ; ICR# 62 27 for cal l to REJCO M^PSOREJU4 | |
| 169 | ; ICR# 62 28 for cal l to MP^PS OREJU4 and PI^PSOREJ U4 | |
| 170 | ||
| 171 | … | |
| 172 | ||
| 173 | DVINFO(RX, RFL); head er divisio n data | |
| 174 | ;Input: (r ) RX - R x IEN (#52 ) | |
| 175 | ; (o ) RFL - R efill # | |
| 176 | N DVIEN,DV INFO,NCPNP I | |
| 177 | S DVINFO=" Division : "_$$GET1^ DIQ(900231 3.59,BPORI 59,11) ; Pharmac y Division name from BPS Trans action | |
| 178 | ;Display b oth NPI an d NCPDP nu mbers | |
| 179 | S DVIEN=+$ $RXSITE^PS OBPSUT(RX, RFL) ; ICR# 47 01 | |
| 180 | S NCPNPI=$ $DIVNCPDP^ BPSBUTL(DV IEN) | |
| 181 | S $E(DVINF O,33)="NPI : "_$P(NCP NPI,U,2) | |
| 182 | S $E(DVINF O,59)="NCP DP: "_$P(N CPNPI,U,1) | |
| 183 | Q DVINFO | |
| 184 | ||
| 185 | Modified L ogic (Chan ges are hi ghlighted) | |
| 186 | ||
| 187 | BPSSCRRJ ; ALB/ESG - ECME OPECC Reject In formation ;02-SEP-20 15 | |
| 188 | ;;1.0;E C LAIMS MGMT ENGINE;** 20,22**;JU N 2004;Bui ld 27 | |
| 189 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 190 | ; | |
| 191 | ; ICR# 47 01 for cal l to $$RXS ITE^PSOBPS UT | |
| 192 | ; ICR# 47 05 for cal l to $$GET NDC^PSONDC UT | |
| 193 | ; ICR# 47 11 for cal l to DP^PS ORXVW | |
| 194 | ; ICR# 62 27 for cal l to REJCO M^PSOREJU4 | |
| 195 | ; ICR# 62 28 for cal l to MP^PS OREJU4 and PI^PSOREJ U4 | |
| 196 | ; ICR# 67 68 for cal l to $$TAX ID^IBCEF75 | |
| 197 | … | |
| 198 | ||
| 199 | DVINFO(RX, RFL); head er divisio n data | |
| 200 | ;Input: (r ) RX - R x IEN (#52 ) | |
| 201 | ; (o ) RFL - R efill # | |
| 202 | N BPSTAXID ,DVIEN,DVI NFO,NCPNPI | |
| 203 | S DVINFO=" Division : "_$E($$GE T1^DIQ(900 2313.59,BP ORI59,11), 1,15) ; Ph armacy Div ision name from BPS Transactio n | |
| 204 | ;Display b oth NPI an d NCPDP nu mbers | |
| 205 | S DVIEN=+$ $RXSITE^PS OBPSUT(RX, RFL) ; ICR# 47 01 | |
| 206 | S NCPNPI=$ $DIVNCPDP^ BPSBUTL(DV IEN) | |
| 207 | S $E(DVINF O,28)="NPI : "_$P(NCP NPI,U,2) | |
| 208 | S $E(DVINF O,44)="NCP DP: "_$P(N CPNPI,U,1) | |
| 209 | S BPSTAXID =$P($$TAXI D^IBCEF75, U,2) ; ICR# 67 68 | |
| 210 | S $E(DVINF O,62)="TAX ID: "_$E( BPSTAXID,1 ,2)_"-"_$E (BPSTAXID, 3,$L(BPSTA XID)) | |
| 211 | Q DVINFO | |
| 212 | ||
| 213 | ||
| 214 | ||
| 215 | ||
| 216 | Subroutine Name | |
| 217 | GET^PSOREJ U2 | |
| 218 | Enhancemen t Category | |
| 219 | New | |
| 220 | Modify | |
| 221 | Delete | |
| 222 | No Change | |
| 223 | Story | |
| 224 | US583 | |
| 225 | Related Me nu Options or ListMa n Actions | |
| 226 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 227 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 228 | Related Ro utines | |
| 229 | This Subro utine is C alled By | |
| 230 | This Subro utine Call s | |
| 231 | ||
| 232 | SETTMP^PSO REJP0 | |
| 233 | RUN^PSOREJ P0 | |
| 234 | INIT^PSORE JP1 | |
| 235 | OPN^PSOREJ P2 | |
| 236 | PSOCOB^PSO REJP3 | |
| 237 | DISPLAY^PS OREJU3 | |
| 238 | MULTI^PSOR EJU4 | |
| 239 | SINGLE^PSO REJU4 | |
| 240 | FIND^PSORE JUT | |
| 241 | GETS^DIQ | |
| 242 | $$LSTRFL^P SOBPSU1 | |
| 243 | Related In tegration Control Re gistration s (ICRs) | |
| 244 | N/A | |
| 245 | Data Passi ng | |
| 246 | Parameter Input | |
| 247 | Parameter Output | |
| 248 | Function Return Val ue | |
| 249 | Global Mo dified | |
| 250 | Input Attr ibute Name and Defin ition | |
| 251 | Name: RX | |
| 252 | Definition : Rx IEN ( #52) | |
| 253 | New Modify Delete No Cha nge | |
| 254 | Name: RFL | |
| 255 | Definition : Refill # | |
| 256 | New Modify Delete No Cha nge | |
| 257 | Name: REJD ATA | |
| 258 | Definition : Array wh ere Reject Fields ar e returned | |
| 259 | New Modify Delete No Cha nge | |
| 260 | Name: REJI D | |
| 261 | Definition : REJECT I EN in the PRESCRIPTI ON File | |
| 262 | New Modify Delete No Cha nge | |
| 263 | Name: OKCL | |
| 264 | Definition : CLOSED R EJECTS fla g | |
| 265 | New Modify Delete No Cha nge | |
| 266 | Name: CODE | |
| 267 | Definition : Only REJ ECTS with this CODE should be returned | |
| 268 | New Modify Delete No Cha nge | |
| 269 | Name: RRRF LAG | |
| 270 | Definition : Reject R esolution Required f lag | |
| 271 | New Modify Delete No Cha nge | |
| 272 | Output Att ribute Nam e and Defi nition | |
| 273 | Name: REJD ATA | |
| 274 | Definition : Array in which rej ect fields will be r eturned. | |
| 275 | New Modify Delete No Cha nge | |
| 276 | Current Lo gic | |
| 277 | ||
| 278 | GET(RX,RFL ,REJDATA,R EJID,OKCL, CODE,RRRFL G) ; get r eject data from subf ile 52.25 | |
| 279 | ; Input: (r) RX - Rx IEN (# 52) | |
| 280 | ; (o) RFL - Refill # (Default: most recen t) | |
| 281 | ; (r) REJDA TA(REJECT IEN,FIELD) - Array w here these Reject fi elds will be returne d: | |
| 282 | ; "BIN" - Payer B IN number | |
| 283 | ; "CODE " - Reject Code (79 or 88) | |
| 284 | ; "DATE /TIME" - D ATE/TIME R eject was detected | |
| 285 | ; "PAYE R MESSAGE" - Message returned by the pay er | |
| 286 | ; "REAS ON" - Reje ct Reason descriptio n (from pa yer) | |
| 287 | ; "INSU RANCE NAME " - Patien t's Insura nce Compan y Name | |
| 288 | ; "INSU RANCE POIN TER" - Pat ient Insur ance Compa ny Pointer | |
| 289 | ; "COB" - Coordin ation of B enefits | |
| 290 | ; "GROU P NAME" - Patient's Insurance Group Name | |
| 291 | ; "GROU P NUMBER" - Patient' s Insuranc e Group Nu mber | |
| 292 | ; "CARD HOLDER ID" - Patient 's Insuran ce Cardhol der ID | |
| 293 | ; "PLAN CONTACT" - Plan's C ontact (eg ., "1-800- ...") | |
| 294 | ; "PLAN PREVIOUS FILL DATE" - Last ti me Rx was paid by pa yer | |
| 295 | ; "STAT US" - REJE CTS status ("OPEN/UN RESOLVED" or "CLOSED /RESOLVED" ) | |
| 296 | ; "DUR TEXT" - Pa yer's DUR descriptio n | |
| 297 | ; "DUR ADD MSG TE XT" - Paye r's DUR ad ditional d escription | |
| 298 | ; "OTHE R REJECTS" - Other R ejects on the same r esponse | |
| 299 | ; "REAS ON SVC COD E" - Reaso n for Serv ice Code | |
| 300 | ; If REJECT is closed, the follo wing field s will be returned: | |
| 301 | ; "CLA CODE" - Cl arificatio n Code sub mitted | |
| 302 | ; "PRIO R AUTH TYP E" - Prior Authoriza tion Type | |
| 303 | ; "PRIO R AUTH NUM BER" - Pri or Authori zation Typ e | |
| 304 | ; "CLOS ED DATE/TI ME" - DATE /TIME Reje ct was clo sed | |
| 305 | ; "CLOS ED BY" - N ame of the user resp onsible fo r closing Reject | |
| 306 | ; "CLOS E REASON" - Reason f or closing Reject (t ext) | |
| 307 | ; "CLOS E COMMENTS " - User e ntered com ments at c lose | |
| 308 | ; (o) REJID - REJECT IEN in the PRESCRIPT ION file f or retriev e this REJ ECT | |
| 309 | ; (o) OKCL - If set t o 1, CLOSE D REJECTs will also be returne d | |
| 310 | ; (o) CODE - Only REJ ECTs with this CODE should be returned | |
| 311 | ; (o) RRRFL G - If set to 1 with CODE pres ent, also return Rej ect Resolu tion Requi red REJECT s | |
| 312 | ; If set to 1 and CODE not p assed, the n only ret urn RRR RE JECTs | |
| 313 | ; | |
| 314 | N REJS,AR RAY,REJFLD ,IDX,COM,Z | |
| 315 | ; | |
| 316 | I '$D(RFL ) S RFL=$$ LSTRFL^PSO BPSU1(RX) | |
| 317 | ; | |
| 318 | K REJDATA | |
| 319 | I '$O(^PS RX(RX,"REJ ",0)) Q | |
| 320 | ; | |
| 321 | K REJS S RFL=+$G(RF L) | |
| 322 | I $G(REJI D) D | |
| 323 | . I +$P($ G(^PSRX(RX ,"REJ",REJ ID,0)),"^" ,4)'=RFL Q | |
| 324 | . I '$G(O KCL),$P($G (^PSRX(RX, "REJ",REJI D,0)),"^", 5) Q | |
| 325 | . S REJS( REJID)="" | |
| 326 | E D | |
| 327 | . S IDX=9 99 | |
| 328 | . F S ID X=$O(^PSRX (RX,"REJ", IDX),-1) Q :'IDX D | |
| 329 | . . I +$P ($G(^PSRX( RX,"REJ",I DX,0)),"^" ,4)'=RFL Q | |
| 330 | . . I '$G (OKCL),$P( $G(^PSRX(R X,"REJ",ID X,0)),"^", 5) Q | |
| 331 | . . S REJ S(IDX)="" | |
| 332 | I '$D(REJ S) Q | |
| 333 | ; | |
| 334 | S IDX=0 | |
| 335 | F S IDX= $O(REJS(ID X)) Q:'IDX D | |
| 336 | . N SKIP | |
| 337 | . K ARRAY D GETS^DI Q(52.25,ID X_","_RX_" ,","*","", "ARRAY") | |
| 338 | . K REJFL D M REJFLD =ARRAY(52. 25,IDX_"," _RX_",") | |
| 339 | . ; | |
| 340 | . ; check CODE and RRRFLG to see if we want this reject dat a | |
| 341 | . S SKIP= 0 ; def ault is to include i t | |
| 342 | . I $G(CO DE)'="",RE JFLD(.01)' =CODE S SK IP=1 ; CODE exis ts and doe sn't match this reje ct | |
| 343 | . I SKIP, $G(RRRFLG) ,$G(REJFLD (30))="YES " S SKIP=0 ; but incl ude these if RRRFLG is true an d this is an RRR rej ect | |
| 344 | . I $G(CO DE)="",$G( RRRFLG),$G (REJFLD(30 ))'="YES" S SKIP=1 ; want only RRR rejec ts in this case | |
| 345 | . I SKIP Q ; get out if we 're skippi ng this on e | |
| 346 | . ; | |
| 347 | . S REJDA TA(IDX,"CO DE")=$G(RE JFLD(.01)) | |
| 348 | . S REJDA TA(IDX,"DA TE/TIME")= $G(REJFLD( 1)) | |
| 349 | . S REJDA TA(IDX,"PA YER MESSAG E")=$G(REJ FLD(2)) | |
| 350 | . S REJDA TA(IDX,"RE ASON")=$G( REJFLD(3)) | |
| 351 | . S REJDA TA(IDX,"PH ARMACIST") =$G(REJFLD (4)) | |
| 352 | . S REJDA TA(IDX,"IN SURANCE NA ME")=$G(RE JFLD(20)) | |
| 353 | . S REJDA TA(IDX,"IN SURANCE PO INTER")=$G (REJFLD(33 )) ;PSO*4 27 | |
| 354 | . S REJDA TA(IDX,"CO B")=$G(REJ FLD(27)) | |
| 355 | . S REJDA TA(IDX,"GR OUP NAME") =$G(REJFLD (6)) | |
| 356 | . S REJDA TA(IDX,"GR OUP NUMBER ")=$G(REJF LD(21)) | |
| 357 | . S REJDA TA(IDX,"BI N")=$G(REJ FLD(29)) | |
| 358 | . S REJDA TA(IDX,"CA RDHOLDER I D")=$G(REJ FLD(22)) | |
| 359 | . S REJDA TA(IDX,"PL AN CONTACT ")=$G(REJF LD(7)) | |
| 360 | . S REJDA TA(IDX,"PL AN PREVIOU S FILL DAT E")=$G(REJ FLD(8)) | |
| 361 | . S REJDA TA(IDX,"ST ATUS")=$G( REJFLD(9)) | |
| 362 | . S REJDA TA(IDX,"OT HER REJECT S")=$G(REJ FLD(17)) | |
| 363 | . S REJDA TA(IDX,"DU R TEXT")=$ G(REJFLD(1 8)) | |
| 364 | . S REJDA TA(IDX,"DU R ADD MSG TEXT")=$G( REJFLD(28) ) | |
| 365 | . S REJDA TA(IDX,"RE ASON SVC C ODE")=$G(R EJFLD(14)) | |
| 366 | . S REJDA TA(IDX,"RE SPONSE IEN ")=$G(REJF LD(16)) | |
| 367 | . S REJDA TA(IDX,"RR R FLAG")=$ G(REJFLD(3 0)) ;PSO* 421 | |
| 368 | . S REJDA TA(IDX,"RR R THRESHOL D AMT")=$G (REJFLD(31 )) ;PSO*4 21 | |
| 369 | . S REJDA TA(IDX,"RR R GROSS AM T DUE")=$G (REJFLD(32 )) ;PSO*4 21 | |
| 370 | . I '$G(O KCL) Q | |
| 371 | . S REJDA TA(IDX,"CL OSED DATE/ TIME")=$G( REJFLD(10) ) | |
| 372 | . S REJDA TA(IDX,"CL OSED BY")= $G(REJFLD( 11)) | |
| 373 | . S REJDA TA(IDX,"CL OSE REASON ")=$G(REJF LD(12)) | |
| 374 | . S REJDA TA(IDX,"CL OSE COMMEN TS")=$G(RE JFLD(13)) | |
| 375 | . S REJDA TA(IDX,"CO D1")=$G(RE JFLD(14)) | |
| 376 | . S REJDA TA(IDX,"CO D2")=$G(RE JFLD(15)) | |
| 377 | . S REJDA TA(IDX,"CO D3")=$G(RE JFLD(19)) | |
| 378 | . S REJDA TA(IDX,"CL A CODE")=$ G(REJFLD(2 4)) | |
| 379 | . S REJDA TA(IDX,"PR IOR AUTH T YPE")=$G(R EJFLD(25)) | |
| 380 | . S REJDA TA(IDX,"PR IOR AUTH N UMBER")=$G (REJFLD(26 )) | |
| 381 | . S COM=0 F S COM= $O(^PSRX(R X,"REJ",ID X,"COM",CO M)) Q:'COM D | |
| 382 | . . S Z=^ PSRX(RX,"R EJ",IDX,"C OM",COM,0) | |
| 383 | . . S REJ DATA(IDX," COMMENTS", COM,"DATE/ TIME")=$P( Z,"^") | |
| 384 | . . S REJ DATA(IDX," COMMENTS", COM,"USER" )=$P(Z,"^" ,2) | |
| 385 | . . S REJ DATA(IDX," COMMENTS", COM,"COMME NTS")=$P(Z ,"^",3) | |
| 386 | Q | |
| 387 | ||
| 388 | ||
| 389 | Modified L ogic (Chan ges are hi ghlighted) | |
| 390 | ||
| 391 | GET(RX,RFL ,REJDATA,R EJID,OKCL, CODE,RRRFL G) ; get r eject data from subf ile 52.25 | |
| 392 | ; Input: (r) RX - Rx IEN (# 52) | |
| 393 | ; (o) RFL - Refill # (Default: most recen t) | |
| 394 | ; (r) REJDA TA(REJECT IEN,FIELD) - Array w here these Reject fi elds will be returne d: | |
| 395 | ; "BIN" - Payer B IN number | |
| 396 | ; “PCN” – Process or Control Number | |
| 397 | ; "CODE " - Reject Code (79 or 88) | |
| 398 | ; "DATE /TIME" - D ATE/TIME R eject was detected | |
| 399 | ; "PAYE R MESSAGE" - Message returned by the pay er | |
| 400 | ; "REAS ON" - Reje ct Reason descriptio n (from pa yer) | |
| 401 | ; "INSU RANCE NAME " - Patien t's Insura nce Compan y Name | |
| 402 | ; "INSU RANCE POIN TER" - Pat ient Insur ance Compa ny Pointer | |
| 403 | ; "COB" - Coordin ation of B enefits | |
| 404 | ; "GROU P NAME" - Patient's Insurance Group Name | |
| 405 | ; "GROU P NUMBER" - Patient' s Insuranc e Group Nu mber | |
| 406 | ; "CARD HOLDER ID" - Patient 's Insuran ce Cardhol der ID | |
| 407 | ; "PLAN CONTACT" - Plan's C ontact (eg ., "1-800- ...") | |
| 408 | ; "PLAN PREVIOUS FILL DATE" - Last ti me Rx was paid by pa yer | |
| 409 | ; "STAT US" - REJE CTS status ("OPEN/UN RESOLVED" or "CLOSED /RESOLVED" ) | |
| 410 | ; "DUR TEXT" - Pa yer's DUR descriptio n | |
| 411 | ; "DUR ADD MSG TE XT" - Paye r's DUR ad ditional d escription | |
| 412 | ; "OTHE R REJECTS" - Other R ejects on the same r esponse | |
| 413 | ; "REAS ON SVC COD E" - Reaso n for Serv ice Code | |
| 414 | ; If REJECT is closed, the follo wing field s will be returned: | |
| 415 | ; "CLA CODE" - Cl arificatio n Code sub mitted | |
| 416 | ; "PRIO R AUTH TYP E" - Prior Authoriza tion Type | |
| 417 | ; "PRIO R AUTH NUM BER" - Pri or Authori zation Typ e | |
| 418 | ; "CLOS ED DATE/TI ME" - DATE /TIME Reje ct was clo sed | |
| 419 | ; "CLOS ED BY" - N ame of the user resp onsible fo r closing Reject | |
| 420 | ; "CLOS E REASON" - Reason f or closing Reject (t ext) | |
| 421 | ; "CLOS E COMMENTS " - User e ntered com ments at c lose | |
| 422 | ; (o) REJID - REJECT IEN in the PRESCRIPT ION file f or retriev e this REJ ECT | |
| 423 | ; (o) OKCL - If set t o 1, CLOSE D REJECTs will also be returne d | |
| 424 | ; (o) CODE - Only REJ ECTs with this CODE should be returned | |
| 425 | ; (o) RRRFL G - If set to 1 with CODE pres ent, also return Rej ect Resolu tion Requi red REJECT s | |
| 426 | ; If set to 1 and CODE not p assed, the n only ret urn RRR RE JECTs | |
| 427 | ; | |
| 428 | N REJS,AR RAY,REJFLD ,IDX,COM,Z | |
| 429 | ; | |
| 430 | I '$D(RFL ) S RFL=$$ LSTRFL^PSO BPSU1(RX) | |
| 431 | ; | |
| 432 | K REJDATA | |
| 433 | I '$O(^PS RX(RX,"REJ ",0)) Q | |
| 434 | ; | |
| 435 | K REJS S RFL=+$G(RF L) | |
| 436 | I $G(REJI D) D | |
| 437 | . I +$P($ G(^PSRX(RX ,"REJ",REJ ID,0)),"^" ,4)'=RFL Q | |
| 438 | . I '$G(O KCL),$P($G (^PSRX(RX, "REJ",REJI D,0)),"^", 5) Q | |
| 439 | . S REJS( REJID)="" | |
| 440 | E D | |
| 441 | . S IDX=9 99 | |
| 442 | . F S ID X=$O(^PSRX (RX,"REJ", IDX),-1) Q :'IDX D | |
| 443 | . . I +$P ($G(^PSRX( RX,"REJ",I DX,0)),"^" ,4)'=RFL Q | |
| 444 | . . I '$G (OKCL),$P( $G(^PSRX(R X,"REJ",ID X,0)),"^", 5) Q | |
| 445 | . . S REJ S(IDX)="" | |
| 446 | I '$D(REJ S) Q | |
| 447 | ; | |
| 448 | S IDX=0 | |
| 449 | F S IDX= $O(REJS(ID X)) Q:'IDX D | |
| 450 | . N SKIP | |
| 451 | . K ARRAY D GETS^DI Q(52.25,ID X_","_RX_" ,","*","", "ARRAY") | |
| 452 | . K REJFL D M REJFLD =ARRAY(52. 25,IDX_"," _RX_",") | |
| 453 | . ; | |
| 454 | . ; check CODE and RRRFLG to see if we want this reject dat a | |
| 455 | . S SKIP= 0 ; def ault is to include i t | |
| 456 | . I $G(CO DE)'="",RE JFLD(.01)' =CODE S SK IP=1 ; CODE exis ts and doe sn't match this reje ct | |
| 457 | . I SKIP, $G(RRRFLG) ,$G(REJFLD (30))="YES " S SKIP=0 ; but incl ude these if RRRFLG is true an d this is an RRR rej ect | |
| 458 | . I $G(CO DE)="",$G( RRRFLG),$G (REJFLD(30 ))'="YES" S SKIP=1 ; want only RRR rejec ts in this case | |
| 459 | . I SKIP Q ; get out if we 're skippi ng this on e | |
| 460 | . ; | |
| 461 | . S REJDA TA(IDX,"CO DE")=$G(RE JFLD(.01)) | |
| 462 | . S REJDA TA(IDX,"DA TE/TIME")= $G(REJFLD( 1)) | |
| 463 | . S REJDA TA(IDX,"PA YER MESSAG E")=$G(REJ FLD(2)) | |
| 464 | . S REJDA TA(IDX,"RE ASON")=$G( REJFLD(3)) | |
| 465 | . S REJDA TA(IDX,"PH ARMACIST") =$G(REJFLD (4)) | |
| 466 | . S REJDA TA(IDX,"IN SURANCE NA ME")=$G(RE JFLD(20)) | |
| 467 | . S REJDA TA(IDX,"IN SURANCE PO INTER")=$G (REJFLD(33 )) ;PSO*4 27 | |
| 468 | . S REJDA TA(IDX,"CO B")=$G(REJ FLD(27)) | |
| 469 | . S REJDA TA(IDX,"GR OUP NAME") =$G(REJFLD (6)) | |
| 470 | . S REJDA TA(IDX,"GR OUP NUMBER ")=$G(REJF LD(21)) | |
| 471 | . S REJDA TA(IDX,"BI N")=$G(REJ FLD(29)) | |
| 472 | . S REJDA TA(IDX,”PC N”)=$G(REJ FLD(34)) | |
| 473 | . S REJDA TA(IDX,"CA RDHOLDER I D")=$G(REJ FLD(22)) | |
| 474 | . S REJDA TA(IDX,"PL AN CONTACT ")=$G(REJF LD(7)) | |
| 475 | . S REJDA TA(IDX,"PL AN PREVIOU S FILL DAT E")=$G(REJ FLD(8)) | |
| 476 | . S REJDA TA(IDX,"ST ATUS")=$G( REJFLD(9)) | |
| 477 | . S REJDA TA(IDX,"OT HER REJECT S")=$G(REJ FLD(17)) | |
| 478 | . S REJDA TA(IDX,"DU R TEXT")=$ G(REJFLD(1 8)) | |
| 479 | . S REJDA TA(IDX,"DU R ADD MSG TEXT")=$G( REJFLD(28) ) | |
| 480 | . S REJDA TA(IDX,"RE ASON SVC C ODE")=$G(R EJFLD(14)) | |
| 481 | . S REJDA TA(IDX,"RE SPONSE IEN ")=$G(REJF LD(16)) | |
| 482 | . S REJDA TA(IDX,"RR R FLAG")=$ G(REJFLD(3 0)) ;PSO* 421 | |
| 483 | . S REJDA TA(IDX,"RR R THRESHOL D AMT")=$G (REJFLD(31 )) ;PSO*4 21 | |
| 484 | . S REJDA TA(IDX,"RR R GROSS AM T DUE")=$G (REJFLD(32 )) ;PSO*4 21 | |
| 485 | . I '$G(O KCL) Q | |
| 486 | . S REJDA TA(IDX,"CL OSED DATE/ TIME")=$G( REJFLD(10) ) | |
| 487 | . S REJDA TA(IDX,"CL OSED BY")= $G(REJFLD( 11)) | |
| 488 | . S REJDA TA(IDX,"CL OSE REASON ")=$G(REJF LD(12)) | |
| 489 | . S REJDA TA(IDX,"CL OSE COMMEN TS")=$G(RE JFLD(13)) | |
| 490 | . S REJDA TA(IDX,"CO D1")=$G(RE JFLD(14)) | |
| 491 | . S REJDA TA(IDX,"CO D2")=$G(RE JFLD(15)) | |
| 492 | . S REJDA TA(IDX,"CO D3")=$G(RE JFLD(19)) | |
| 493 | . S REJDA TA(IDX,"CL A CODE")=$ G(REJFLD(2 4)) | |
| 494 | . S REJDA TA(IDX,"PR IOR AUTH T YPE")=$G(R EJFLD(25)) | |
| 495 | . S REJDA TA(IDX,"PR IOR AUTH N UMBER")=$G (REJFLD(26 )) | |
| 496 | . S COM=0 F S COM= $O(^PSRX(R X,"REJ",ID X,"COM",CO M)) Q:'COM D | |
| 497 | . . S Z=^ PSRX(RX,"R EJ",IDX,"C OM",COM,0) | |
| 498 | . . S REJ DATA(IDX," COMMENTS", COM,"DATE/ TIME")=$P( Z,"^") | |
| 499 | . . S REJ DATA(IDX," COMMENTS", COM,"USER" )=$P(Z,"^" ,2) | |
| 500 | . . S REJ DATA(IDX," COMMENTS", COM,"COMME NTS")=$P(Z ,"^",3) | |
| 501 | Q | |
| 502 | ||
| 503 | ||
| 504 | ||
| 505 | Subroutine Name | |
| 506 | INS^PSOREJ P1 | |
| 507 | Enhancemen t Category | |
| 508 | New | |
| 509 | Modify | |
| 510 | Delete | |
| 511 | No Change | |
| 512 | Story | |
| 513 | US583 | |
| 514 | Related Me nu Options or ListMa n Actions | |
| 515 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 516 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 517 | Related Ro utines | |
| 518 | This Subro utine is C alled By | |
| 519 | This Subro utine Call s | |
| 520 | ||
| 521 | INIT^PSORE JP1 | |
| 522 | SETLN^PSOR EJP1 | |
| 523 | Related In tegration Control Re gistration s (ICRs) | |
| 524 | N/A | |
| 525 | Data Passi ng | |
| 526 | Parameter Input | |
| 527 | Parameter Output | |
| 528 | Function Return Val ue | |
| 529 | Global Mo dified | |
| 530 | Input Attr ibute Name and Defin ition | |
| 531 | Name: | |
| 532 | Definition : | |
| 533 | New Modify Delete No Cha nge | |
| 534 | Output Att ribute Nam e and Defi nition | |
| 535 | Name: | |
| 536 | Definition : | |
| 537 | New Modify Delete No Cha nge | |
| 538 | Current Lo gic | |
| 539 | ||
| 540 | PSOREJP1 ; BIRM/MFR - Third Par ty Reject Display Sc reen ;04/2 9/05 | |
| 541 | ;;7.0;OUT PATIENT PH ARMACY;**1 48,247,260 ,281,287,2 89,290,358 ,359,385,4 03,421,427 ,448**;DEC 1997;Buil d 25 | |
| 542 | ||
| 543 | … | |
| 544 | ||
| 545 | INS; - Ins urance Inf ormation | |
| 546 | D SETLN() | |
| 547 | D SETLN("I NSURANCE I nformation ",1,1) | |
| 548 | N PSOINS,P SOINS1,I | |
| 549 | S PSOINS=$ G(DATA(REJ ,"INSURANC E NAME")) | |
| 550 | F I=1:1:(5 0-($L(PSOI NS)+18)) S PSOINS=PS OINS_" " | |
| 551 | S PSOINS1= $G(DATA(RE J,"COB")) | |
| 552 | I PSOINS1= "SECONDARY " S PSOINS =PSOINS_"C oord. Of B enefits: " _PSOINS1 | |
| 553 | D SETLN("I nsurance : "_PS OINS,,,18) | |
| 554 | D SETLN("C ontact : "_$G (DATA(REJ, "PLAN CONT ACT")),,,1 8) | |
| 555 | D SETLN("B IN : "_$G (DATA(REJ, "BIN")),,, 18) | |
| 556 | D SETLN("G roup Numbe r : "_$G (DATA(REJ, "GROUP NUM BER")),,,1 8) | |
| 557 | D SETLN("C ardholder ID : "_$G (DATA(REJ, "CARDHOLDE R ID")),,1 ,18) | |
| 558 | Q | |
| 559 | ||
| 560 | Modified L ogic (Chan ges are hi ghlighted) | |
| 561 | ||
| 562 | PSOREJP1 ; BIRM/MFR - Third Par ty Reject Display Sc reen ;04/2 9/05 | |
| 563 | ;;7.0;OUT PATIENT PH ARMACY;**1 48,247,260 ,281,287,2 89,290,358 ,359,385,4 03,421,427 ,448,478** ;DEC 1997; Build 25 | |
| 564 | ||
| 565 | … | |
| 566 | ||
| 567 | INS; - Ins urance Inf ormation | |
| 568 | D SETLN() | |
| 569 | D SETLN("I NSURANCE I nformation ",1,1) | |
| 570 | N PSOINS,P SOINS1,I,P SOBINPCN | |
| 571 | S PSOINS=$ G(DATA(REJ ,"INSURANC E NAME")) | |
| 572 | F I=1:1:(5 0-($L(PSOI NS)+18)) S PSOINS=PS OINS_" " | |
| 573 | S PSOINS1= $G(DATA(RE J,"COB")) | |
| 574 | I PSOINS1= "SECONDARY " S PSOINS =PSOINS_"C oord. Of B enefits: " _PSOINS1 | |
| 575 | D SETLN("I nsurance : "_PS OINS,,,18) | |
| 576 | D SETLN("C ontact : "_$G (DATA(REJ, "PLAN CONT ACT")),,,1 8) | |
| 577 | S PSOBINPC N=$G(DATA( REJ,”BIN”) )_”/ “_$G( DATA(REJ,” PCN”)) | |
| 578 | D SETLN("B IN/ PCN : "_PS OBINPCN,,, 18) | |
| 579 | D SETLN("G roup Numbe r : "_$G (DATA(REJ, "GROUP NUM BER")),,,1 8) | |
| 580 | D SETLN("C ardholder ID : "_$G (DATA(REJ, "CARDHOLDE R ID")),,1 ,18) | |
| 581 | Q | |
| 582 | ||
| 583 | ||
| 584 | Subroutine Name | |
| 585 | ^PSO7P478 | |
| 586 | Enhancemen t Category | |
| 587 | New | |
| 588 | Modify | |
| 589 | Delete | |
| 590 | No Change | |
| 591 | Story | |
| 592 | US583 | |
| 593 | Related Me nu Options or ListMa n Actions | |
| 594 | N/A | |
| 595 | Related Ro utines | |
| 596 | This Subro utine is C alled By | |
| 597 | This Subro utine Call s | |
| 598 | ||
| 599 | KIDS syste m; Kernel Installati on and Dis tribution System; ca lled upon patch inst allation | |
| 600 | BMES^XPDUT L | |
| 601 | MES^XPDUTL | |
| 602 | ^DIE | |
| 603 | DURRESP^BP SNCPD3 | |
| 604 | ^XMD | |
| 605 | Related In tegration Control Re gistration s (ICRs) | |
| 606 | N/A | |
| 607 | Data Passi ng | |
| 608 | Parameter Input | |
| 609 | Parameter Output | |
| 610 | Function Return Val ue | |
| 611 | Global Mo dified | |
| 612 | Input Attr ibute Name and Defin ition | |
| 613 | Name: N/A | |
| 614 | Definition : | |
| 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 | N/A – new routine fo r patch; p ost instal l. | |
| 623 | ||
| 624 | Modified L ogic (Chan ges are hi ghlighted) | |
| 625 | ||
| 626 | ||
| 627 | PSO7P478 ; AITC/PD - Post-insta ll for PSO *7*478 ;6/ 15/2017 | |
| 628 | ;;7.0;OUT PATIENT PH ARMACY;**4 78**; | |
| 629 | ; Referen ce to BPSN CPD3 suppo rted by IA 4560 | |
| 630 | ; | |
| 631 | Q | |
| 632 | ; | |
| 633 | POST ; Pos t-install functions are coded here. | |
| 634 | ; | |
| 635 | D MES^XPD UTL(" Sta rting post -install o f PSO*7*47 8") | |
| 636 | D PCN | |
| 637 | D BMES^XP DUTL(" Fi nished pos t-install of PSO*7*4 78") | |
| 638 | Q | |
| 639 | ; | |
| 640 | PCN ;Updat e PCN on P RESCRIPTIO N reject m ultiple | |
| 641 | ; | |
| 642 | N CNT,COB, DAT,DCNT,D UR,RX,RN,R SPIEN,DA,D R,DIE | |
| 643 | D BMES^XP DUTL(" U pdating PC N Numbers" ) | |
| 644 | S CNT=0 | |
| 645 | S DCNT=0 | |
| 646 | S DAT=0 F S DAT=$O (^PSRX("RE JDAT",DAT) ) Q:'DAT D | |
| 647 | . S RX="" F S RX=$ O(^PSRX("R EJDAT",DAT ,RX)) Q:'R X D | |
| 648 | .. S RN=" " F S RN= $O(^PSRX(" REJDAT",DA T,RX,RN)) Q:'RN D | |
| 649 | ... I $L( $P($G(^PSR X(RX,"REJ" ,RN,2)),"^ ",10))=10 Q | |
| 650 | ... S RSP IEN=$P($G( ^PSRX(RX," REJ",RN,0) ),"^",11) I 'RSPIEN Q | |
| 651 | ... S COB =$P($G(^PS RX(RX,"REJ ",RN,2))," ^",7) I CO B="" S COB =1 | |
| 652 | ... K DUR D DURRESP ^BPSNCPD3( RSPIEN,.DU R,COB) ; ICR# 45 60 | |
| 653 | ... I $L( DUR(COB,"P CN"))'=10 Q | |
| 654 | ... S DIE ="^PSRX("_ RX_",""REJ "",",DA(1) =RX,DA=RN, DR=34_"/// /"_DUR(COB ,"PCN") | |
| 655 | ... D ^DI E K DA,DR, DIE | |
| 656 | ... S CNT =CNT+1 | |
| 657 | ... I CNT #1000=0 W "." S DCNT =DCNT+1 | |
| 658 | ... I DCN T=76 W ! S DCNT=0 | |
| 659 | D MES^XPD UTL(" - "_CNT_" e ntries upd ated") | |
| 660 | D MES^XPD UTL(" - Done with updating PCN Number s") | |
| 661 | ; | |
| 662 | D MAIL(CN T) ; Send mail mess age | |
| 663 | Q | |
| 664 | ; | |
| 665 | MAIL(PCNCN T) ; Send mail messa ge | |
| 666 | N CNT,MSG ,XMY,XMDUZ ,DIFROM,XM SUB,XMTEXT | |
| 667 | S XMY(DUZ )="" | |
| 668 | S XMSUB=" PSO*7.0*47 8 Post ins tall is co mplete",XM DUZ="Patch PSO*7.0*4 78" | |
| 669 | S XMTEXT= "MSG(" | |
| 670 | S CNT=1,M SG(CNT)="" | |
| 671 | S CNT=CNT +1,MSG(CNT )="Patch P SO*7.0*478 post inst all routin e has comp leted." | |
| 672 | S CNT=CNT +1,MSG(CNT )="" | |
| 673 | S CNT=CNT +1,MSG(CNT )="Updated "_PCNCNT_ " records in the REJ ECT INFO s ub-file of the PRESC RIPTION fi le." | |
| 674 | S CNT=CNT +1,MSG(CNT )="" | |
| 675 | S CNT=CNT +1,MSG(CNT )="For mor e informat ion about this post install, r eview the patch desc ription." | |
| 676 | D ^XMD | |
| 677 | Q | |
| 678 | ||
| 679 | ||
| 680 | Subroutine Name | |
| 681 | DURRESP^BP SNCPD3 | |
| 682 | Enhancemen t Category | |
| 683 | New | |
| 684 | Modify | |
| 685 | Delete | |
| 686 | No Change | |
| 687 | Story | |
| 688 | US583 | |
| 689 | Related Me nu Options or ListMa n Actions | |
| 690 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 691 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 692 | Related Ro utines | |
| 693 | This Subro utine is C alled By | |
| 694 | This Subro utine Call s | |
| 695 | ||
| 696 | DUR1^BPSNC PD3 | |
| 697 | SMA^PSOREJ P1 | |
| 698 | ISDUR^PSOR EJP5 | |
| 699 | INIT^PSORE JP5 | |
| 700 | ADDMESS^BP SSCRLG | |
| 701 | $$GET1^DIQ | |
| 702 | GETS^DIQ | |
| 703 | Related In tegration Control Re gistration s (ICRs) | |
| 704 | IA #4560 | |
| 705 | Data Passi ng | |
| 706 | Parameter Input | |
| 707 | Parameter Output | |
| 708 | Function Return Val ue | |
| 709 | Global Mo dified | |
| 710 | Input Attr ibute Name and Defin ition | |
| 711 | Name: DURI EN | |
| 712 | Definition : Claim Re sponse IEN . Ptr to B PS RESPONS ES (#90023 13.03) | |
| 713 | New Modify Delete No Cha nge | |
| 714 | Name: BPRX COB | |
| 715 | Definition : Payer Se quence | |
| 716 | New Modify Delete No Cha nge | |
| 717 | Output Att ribute Nam e and Defi nition | |
| 718 | Name: DUR | |
| 719 | Definition : Array of DUR relat ed informa tion for a specific claim resp onse in th e BPS RESP ONSES file . | |
| 720 | New Modify Delete No Cha nge | |
| 721 | Current Lo gic | |
| 722 | BPSNCPD3 ; BHAM ISC/L JE - Conti nuation of BPSNCPDP - DUR HAND LING ;06/1 6/2004 | |
| 723 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,6,7,8, 10,11,15,1 9,20**;JUN 2004;Buil d 27 | |
| 724 | ||
| 725 | … | |
| 726 | ||
| 727 | DURRESP(DU RIEN,DUR,B PRXCOB) ; | |
| 728 | ;I nput Varia bles: | |
| 729 | ; DURIEN - C laim Respo nse IEN. P ointer to the BPS RE SPONSES Fi le #900231 3.03 | |
| 730 | ; BPRXCOB - (Optional) The Payer Sequence: | |
| 731 | ; 1 - Prim ary (defau lt) | |
| 732 | ; 2 - Seco ndary | |
| 733 | ; | |
| 734 | ;O utput Vari ables: | |
| 735 | ; DUR - Arra y of DUR r elated inf ormation f or a speci fic claim response i n the | |
| 736 | ; BPS RESP ONSES file in the fo llowing fo rmat (INSN is the Pa yer Sequen ce): | |
| 737 | ; | |
| 738 | ; DUR(INSN," RESPONSE I EN") - Poi nter to th e RESPONSE file (#90 02313.03) for | |
| 739 | ; the clai m submissi on | |
| 740 | ; DUR(INSN," MESSAGE") - The Tran smission l evel speci fic data, Message fi eld 504 | |
| 741 | ; DUR(INSN," PAYER MESS AGE") - Me ssage retu rned from the payer in the Tra nsaction | |
| 742 | ; level | |
| 743 | ; DUR(INSN," STATUS") - Status of the claim (i.e. REJ ECTED CLAI M, PAYABLE ) | |
| 744 | ; | |
| 745 | ; The follow ing four f ields are redundant with the f ields in t he DUR PPS | |
| 746 | ; array but are provid ed for bac kwards com patibility . | |
| 747 | ; DUR(INSN," REASON") - Reason fo r Service Code point er to BPS NCPDP REAS ON FOR | |
| 748 | ; SERVICE CODE file (#9002313. 23) | |
| 749 | ; DUR(INSN," PREV FILL DATE") - P lan's Prev ious Fill Date | |
| 750 | ; DUR(INSN," DUR FREE T EXT DESC") - Drug Ut ilization Review (DU R) descrip tion | |
| 751 | ; and/or c laims reje ction free text info rmation fr om the pay er | |
| 752 | ; DUR(INSN," DUR ADD MS G TEXT") - Drug Util ization Re view (DUR) additiona l free | |
| 753 | ; text inf ormation f rom the pa yer | |
| 754 | ; | |
| 755 | ; The follow ing fields are from the DUR PP S RESPONSE multiple. | |
| 756 | ; DUR(INSN," DUR PPS",S EQ,"DUR PP S RESPONSE ") - Total number of DUR PPS | |
| 757 | ; response s from the payer | |
| 758 | ; DUR(INSN," DUR PPS",S EQ,"REASON FOR SERVI CE CODE") - Code ide ntifying t he | |
| 759 | ; type of utilizatio n conflict detected or the rea son for th e pharmaci st | |
| 760 | ; professi onal servi ce | |
| 761 | ; DUR(INSN," DUR PPS",S EQ,"CLINIC AL SIGNIFI CANCE CODE ") - Code identifyin g | |
| 762 | ; the sign ificance o r severity level of a clinical event as contained | |
| 763 | ; in the o riginating data base | |
| 764 | ; DUR(INSN," DUR PPS",S EQ,"OTHER PHARMACY I NDICATOR") - Code fo r the type of | |
| 765 | ; pharmacy dispensin g the conf licting dr ug | |
| 766 | ; DUR(INSN," DUR PPS",S EQ,"PREVIO US DATE OF FILL") - Date presc ription wa s | |
| 767 | ; previous ly filled | |
| 768 | ; DUR(INSN," DUR PPS",S EQ,"QUANTI TY OF PREV IOUS FILL" ) - Amount expressed in | |
| 769 | ; metric d ecimal uni ts of the conflictin g agent th at was pre viously fi lled | |
| 770 | ; DUR(INSN," DUR PPS",S EQ,"DATABA SE INDICAT OR") - Cod e identify ing the so urce | |
| 771 | ; of drug informatio n used for DUR proce ssing | |
| 772 | ; DUR(INSN," DUR PPS",S EQ,"OTHER PRESCRIBER INDICATOR ") - Code comparing the | |
| 773 | ; prescrib er of the current pr escription to the pr escriber o f the prev iously | |
| 774 | ; filled c onflicting prescript ion | |
| 775 | ; DUR(INSN," DUR PPS",S EQ,"DUR FR EE TEXT ME SSAGE") - Text that provides | |
| 776 | ; addition al detail regarding a DUR conf lict | |
| 777 | ; DUR(INSN," DUR PPS",S EQ,"DUR AD DITIONAL T EXT") - De scriptive informatio n that | |
| 778 | ; further defines th e referenc ed DUR ale rt | |
| 779 | ; DUR(INSN," REJ CODE L ST") - Lis t of rejec tion code( s) returne d by the p ayer | |
| 780 | ; separate d by comma s (i.e. 79 ,14) | |
| 781 | ; DUR(INSN," REJ CODES" ,SEQ,REJ C ODE) - Arr ay of reje ction code descripti ons | |
| 782 | ; where RE J CODE cor relates to DUR(INSN, "REJ CODE LST") valu e(s) and S EQ | |
| 783 | ; equals a sequentia l number | |
| 784 | ; | |
| 785 | I '$G(DURIEN ) Q | |
| 786 | S BPRXCOB=+$ G(BPRXCOB) | |
| 787 | I BPRXCOB=0 S BPRXCOB= 1 ;default is Primar y | |
| 788 | N ADDMESS,I, DUR1,CLMIE N | |
| 789 | S DUR(BPRXCO B,"RESPONS E IEN")=DU RIEN | |
| 790 | ; | |
| 791 | ;G et BIN fro m claim | |
| 792 | S CLMIEN=$$G ET1^DIQ(90 02313.03,D URIEN,.01, "I") | |
| 793 | S DUR(BPRXCO B,"BIN")=$ $GET1^DIQ( 9002313.02 ,CLMIEN_", ",101) ; B IN Number | |
| 794 | ; | |
| 795 | ; Get the Tr ansmission specific data (Mess age) | |
| 796 | S DUR(BPRXCO B,"MESSAGE ")=$$GET1^ DIQ(900231 3.03,DURIE N_",",504, "E") | |
| 797 | ; | |
| 798 | ; Get the Ad ditional M essage Inf ormation f rom the tr ansaction | |
| 799 | D ADDMESS^BP SSCRLG(DUR IEN,1,.ADD MESS) | |
| 800 | M DUR(BPRXCO B,"PAYER M ESSAGE")=A DDMESS | |
| 801 | ; | |
| 802 | ; Get the ot her transa ction leve l data | |
| 803 | D GETS^DIQ(9 002313.030 1,"1,"_DUR IEN_",","5 01;567.01* ","E","DUR 1","ERROR" ) | |
| 804 | S DUR(BPRXCO B,"STATUS" )=$G(DUR1( 9002313.03 01,"1,"_DU RIEN_",",5 01,"E")) | |
| 805 | ;Sta tus of Res ponse | |
| 806 | ; | |
| 807 | ; The follow ing four f ields are redundant with the f ields in t he DUR PPS | |
| 808 | ||
| 809 | ; multiple but are n eeded for backwards compatibil ity with t he OP code | |
| 810 | S DUR(BPRXCO B,"REASON" )=$G(DUR1( 9002313.11 01,"1,1,"_ DURIEN_"," ,439,"E")) ;Rea son for Se rvice Code | |
| 811 | S DUR(BPRXCO B,"PREV FI LL DATE")= $G(DUR1(90 02313.1101 ,"1,1,"_DU RIEN_",",5 30,"E")) ;Pre vious Date of Fill | |
| 812 | S DUR(BPRXCO B,"DUR FRE E TEXT DES C")=$G(DUR 1(9002313. 1101,"1,1, "_DURIEN_" ,",544,"E" )) ;DUR Free Text Message f rom Payer | |
| 813 | S DUR(BPRXCO B,"DUR ADD MSG TEXT" )=$G(DUR1( 9002313.11 01,"1,1,"_ DURIEN_"," ,570,"E")) ;DUR Additiona l Message Text from Payer | |
| 814 | ; | |
| 815 | ; Get DUR PP S RESPONSE multiple values | |
| 816 | S DUR(BPRXCO B,"DUR PPS RESPONSE" )="" | |
| 817 | F I=1:1 Q:'$ D(DUR1(900 2313.1101, I_",1,"_DU RIEN_",",. 01)) D | |
| 818 | . S DUR(BPRX COB,"DUR P PS RESPONS E")=I | |
| 819 | . S DUR(BPRX COB,"DUR P PS",I,"DUR PPS RESPO NSE")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",.01, "E")) | |
| 820 | . S DUR(BPRX COB,"DUR P PS",I,"REA SON FOR SE RVICE CODE ")=$G(DUR1 (9002313.1 101,I_",1, "_DURIEN_" ,",439,"E" )) | |
| 821 | . S DUR(BPRX COB,"DUR P PS",I,"CLI NICAL SIGN IFICANCE C ODE")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",528, "E")) | |
| 822 | . S DUR(BPRX COB,"DUR P PS",I,"OTH ER PHARMAC Y INDICATO R")=$G(DUR 1(9002313. 1101,I_",1 ,"_DURIEN_ ",",529,"E ")) | |
| 823 | . S DUR(BPRX COB,"DUR P PS",I,"PRE VIOUS DATE OF FILL") =$G(DUR1(9 002313.110 1,I_",1,"_ DURIEN_"," ,530,"E")) | |
| 824 | . S DUR(BPRX COB,"DUR P PS",I,"QUA NTITY OF P REVIOUS FI LL")=$G(DU R1(9002313 .1101,I_", 1,"_DURIEN _",",531," E")) | |
| 825 | . S DUR(BPRX COB,"DUR P PS",I,"DAT ABASE INDI CATOR")=$G (DUR1(9002 313.1101,I _",1,"_DUR IEN_",",53 2,"E")) | |
| 826 | . S DUR(BPRX COB,"DUR P PS",I,"OTH ER PRESCRI BER INDICA TOR")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",533, "E")) | |
| 827 | . S DUR(BPRX COB,"DUR P PS",I,"DUR FREE TEXT MESSAGE") =$G(DUR1(9 002313.110 1,I_",1,"_ DURIEN_"," ,544,"E")) | |
| 828 | . S DUR(BPRX COB,"DUR P PS",I,"DUR ADDITIONA L TEXT")=$ G(DUR1(900 2313.1101, I_",1,"_DU RIEN_",",5 70,"E")) | |
| 829 | ; | |
| 830 | ; Get DUR re ject codes and descr iption and store in DUR | |
| 831 | D GETS^DIQ(9 002313.030 1,"1,"_DUR IEN_",","5 11*","I"," DUR1","ERR OR") ;get DUR codes and descri ptions | |
| 832 | S DUR(BPRXCO B,"REJ COD E LST")="" | |
| 833 | F I=1:1 Q:'$ D(DUR1(900 2313.03511 ,I_",1,"_D URIEN_",") ) D | |
| 834 | . N REJX,REJ N | |
| 835 | . S REJX=$G( DUR1(90023 13.03511,I _",1,"_DUR IEN_",",.0 1,"I")) Q: REJX="" ; extern al reject code | |
| 836 | . S REJN=+$O (^BPSF(900 2313.93,"B ",REJX,0)) Q:'REJN ; intern al reject code ien | |
| 837 | . S DUR(BPRX COB,"REJ C ODES",I,RE JX)=$P($G( ^BPSF(9002 313.93,REJ N,0)),U,2) ; reject code desc ription | |
| 838 | . S DUR(BPRX COB,"REJ C ODE LST")= DUR(BPRXCO B,"REJ COD E LST")_", "_REJX | |
| 839 | S DUR(BPRXCO B,"REJ COD E LST")=$E (DUR(BPRXC OB,"REJ CO DE LST"),2 ,9999) | |
| 840 | Q | |
| 841 | ||
| 842 | Modified L ogic (Chan ges are hi ghlighted) | |
| 843 | ||
| 844 | BPSNCPD3 ; BHAM ISC/L JE - Conti nuation of BPSNCPDP - DUR HAND LING ;06/1 6/2004 | |
| 845 | ;;1.0;E C LAIMS MGMT ENGINE;** 1,5,6,7,8, 10,11,15,1 9,20,22**; JUN 2004;B uild 27 | |
| 846 | ||
| 847 | … | |
| 848 | ||
| 849 | DURRESP(DU RIEN,DUR,B PRXCOB) ; | |
| 850 | ;I nput Varia bles: | |
| 851 | ; DURIEN - C laim Respo nse IEN. P ointer to the BPS RE SPONSES Fi le #900231 3.03 | |
| 852 | ; BPRXCOB - (Optional) The Payer Sequence: | |
| 853 | ; 1 - Prim ary (defau lt) | |
| 854 | ; 2 - Seco ndary | |
| 855 | ; | |
| 856 | ;O utput Vari ables: | |
| 857 | ; DUR - Arra y of DUR r elated inf ormation f or a speci fic claim response i n the | |
| 858 | ; BPS RESP ONSES file in the fo llowing fo rmat (INSN is the Pa yer Sequen ce): | |
| 859 | ; | |
| 860 | ; DUR(INSN," RESPONSE I EN") - Poi nter to th e RESPONSE file (#90 02313.03) for | |
| 861 | ; the clai m submissi on | |
| 862 | ; DUR(INSN,” PCN”) – Pr ocessor Co ntrol Numb er | |
| 863 | ; DUR(INSN," MESSAGE") - The Tran smission l evel speci fic data, Message fi eld 504 | |
| 864 | ; DUR(INSN," PAYER MESS AGE") - Me ssage retu rned from the payer in the Tra nsaction | |
| 865 | ; level | |
| 866 | ; DUR(INSN," STATUS") - Status of the claim (i.e. REJ ECTED CLAI M, PAYABLE ) | |
| 867 | ; | |
| 868 | ; The follow ing four f ields are redundant with the f ields in t he DUR PPS | |
| 869 | ; array but are provid ed for bac kwards com patibility . | |
| 870 | ; DUR(INSN," REASON") - Reason fo r Service Code point er to BPS NCPDP REAS ON FOR | |
| 871 | ; SERVICE CODE file (#9002313. 23) | |
| 872 | ; DUR(INSN," PREV FILL DATE") - P lan's Prev ious Fill Date | |
| 873 | ; DUR(INSN," DUR FREE T EXT DESC") - Drug Ut ilization Review (DU R) descrip tion | |
| 874 | ; and/or c laims reje ction free text info rmation fr om the pay er | |
| 875 | ; DUR(INSN," DUR ADD MS G TEXT") - Drug Util ization Re view (DUR) additiona l free | |
| 876 | ; text inf ormation f rom the pa yer | |
| 877 | ; | |
| 878 | ; The follow ing fields are from the DUR PP S RESPONSE multiple. | |
| 879 | ; DUR(INSN," DUR PPS",S EQ,"DUR PP S RESPONSE ") - Total number of DUR PPS | |
| 880 | ; response s from the payer | |
| 881 | ; DUR(INSN," DUR PPS",S EQ,"REASON FOR SERVI CE CODE") - Code ide ntifying t he | |
| 882 | ; type of utilizatio n conflict detected or the rea son for th e pharmaci st | |
| 883 | ; professi onal servi ce | |
| 884 | ; DUR(INSN," DUR PPS",S EQ,"CLINIC AL SIGNIFI CANCE CODE ") - Code identifyin g | |
| 885 | ; the sign ificance o r severity level of a clinical event as contained | |
| 886 | ; in the o riginating data base | |
| 887 | ; DUR(INSN," DUR PPS",S EQ,"OTHER PHARMACY I NDICATOR") - Code fo r the type of | |
| 888 | ; pharmacy dispensin g the conf licting dr ug | |
| 889 | ; DUR(INSN," DUR PPS",S EQ,"PREVIO US DATE OF FILL") - Date presc ription wa s | |
| 890 | ; previous ly filled | |
| 891 | ; DUR(INSN," DUR PPS",S EQ,"QUANTI TY OF PREV IOUS FILL" ) - Amount expressed in | |
| 892 | ; metric d ecimal uni ts of the conflictin g agent th at was pre viously fi lled | |
| 893 | ; DUR(INSN," DUR PPS",S EQ,"DATABA SE INDICAT OR") - Cod e identify ing the so urce | |
| 894 | ; of drug informatio n used for DUR proce ssing | |
| 895 | ; DUR(INSN," DUR PPS",S EQ,"OTHER PRESCRIBER INDICATOR ") - Code comparing the | |
| 896 | ; prescrib er of the current pr escription to the pr escriber o f the prev iously | |
| 897 | ; filled c onflicting prescript ion | |
| 898 | ; DUR(INSN," DUR PPS",S EQ,"DUR FR EE TEXT ME SSAGE") - Text that provides | |
| 899 | ; addition al detail regarding a DUR conf lict | |
| 900 | ; DUR(INSN," DUR PPS",S EQ,"DUR AD DITIONAL T EXT") - De scriptive informatio n that | |
| 901 | ; further defines th e referenc ed DUR ale rt | |
| 902 | ; DUR(INSN," REJ CODE L ST") - Lis t of rejec tion code( s) returne d by the p ayer | |
| 903 | ; separate d by comma s (i.e. 79 ,14) | |
| 904 | ; DUR(INSN," REJ CODES" ,SEQ,REJ C ODE) - Arr ay of reje ction code descripti ons | |
| 905 | ; where RE J CODE cor relates to DUR(INSN, "REJ CODE LST") valu e(s) and S EQ | |
| 906 | ; equals a sequentia l number | |
| 907 | ; | |
| 908 | I '$G(DURIEN ) Q | |
| 909 | S BPRXCOB=+$ G(BPRXCOB) | |
| 910 | I BPRXCOB=0 S BPRXCOB= 1 ;default is Primar y | |
| 911 | N ADDMESS,I, DUR1,CLMIE N | |
| 912 | S DUR(BPRXCO B,"RESPONS E IEN")=DU RIEN | |
| 913 | ; | |
| 914 | ;G et BIN fro m claim | |
| 915 | S CLMIEN=$$G ET1^DIQ(90 02313.03,D URIEN,.01, "I") | |
| 916 | S DUR(BPRXCO B,"BIN")=$ $GET1^DIQ( 9002313.02 ,CLMIEN_", ",101) ; B IN Number | |
| 917 | ; | |
| 918 | ; Get PCN fr om claim | |
| 919 | S DUR(BPRXCO B,”PCN”)=$ $GET1^DIQ( 9002313.02 ,CLMIEN_”, ”,104) ; P CN Number | |
| 920 | ; | |
| 921 | ; Get the Tr ansmission specific data (Mess age) | |
| 922 | S DUR(BPRXCO B,"MESSAGE ")=$$GET1^ DIQ(900231 3.03,DURIE N_",",504, "E") | |
| 923 | ; | |
| 924 | ; Get the Ad ditional M essage Inf ormation f rom the tr ansaction | |
| 925 | D ADDMESS^BP SSCRLG(DUR IEN,1,.ADD MESS) | |
| 926 | M DUR(BPRXCO B,"PAYER M ESSAGE")=A DDMESS | |
| 927 | ; | |
| 928 | ; Get the ot her transa ction leve l data | |
| 929 | D GETS^DIQ(9 002313.030 1,"1,"_DUR IEN_",","5 01;567.01* ","E","DUR 1","ERROR" ) | |
| 930 | S DUR(BPRXCO B,"STATUS" )=$G(DUR1( 9002313.03 01,"1,"_DU RIEN_",",5 01,"E")) | |
| 931 | ;Sta tus of Res ponse | |
| 932 | ; | |
| 933 | ; The follow ing four f ields are redundant with the f ields in t he DUR PPS | |
| 934 | ||
| 935 | ; multiple but are n eeded for backwards compatibil ity with t he OP code | |
| 936 | S DUR(BPRXCO B,"REASON" )=$G(DUR1( 9002313.11 01,"1,1,"_ DURIEN_"," ,439,"E")) ;Rea son for Se rvice Code | |
| 937 | S DUR(BPRXCO B,"PREV FI LL DATE")= $G(DUR1(90 02313.1101 ,"1,1,"_DU RIEN_",",5 30,"E")) ;Pre vious Date of Fill | |
| 938 | S DUR(BPRXCO B,"DUR FRE E TEXT DES C")=$G(DUR 1(9002313. 1101,"1,1, "_DURIEN_" ,",544,"E" )) ;DUR Free Text Message f rom Payer | |
| 939 | S DUR(BPRXCO B,"DUR ADD MSG TEXT" )=$G(DUR1( 9002313.11 01,"1,1,"_ DURIEN_"," ,570,"E")) ;DUR Additiona l Message Text from Payer | |
| 940 | ; | |
| 941 | ; Get DUR PP S RESPONSE multiple values | |
| 942 | S DUR(BPRXCO B,"DUR PPS RESPONSE" )="" | |
| 943 | F I=1:1 Q:'$ D(DUR1(900 2313.1101, I_",1,"_DU RIEN_",",. 01)) D | |
| 944 | . S DUR(BPRX COB,"DUR P PS RESPONS E")=I | |
| 945 | . S DUR(BPRX COB,"DUR P PS",I,"DUR PPS RESPO NSE")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",.01, "E")) | |
| 946 | . S DUR(BPRX COB,"DUR P PS",I,"REA SON FOR SE RVICE CODE ")=$G(DUR1 (9002313.1 101,I_",1, "_DURIEN_" ,",439,"E" )) | |
| 947 | . S DUR(BPRX COB,"DUR P PS",I,"CLI NICAL SIGN IFICANCE C ODE")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",528, "E")) | |
| 948 | . S DUR(BPRX COB,"DUR P PS",I,"OTH ER PHARMAC Y INDICATO R")=$G(DUR 1(9002313. 1101,I_",1 ,"_DURIEN_ ",",529,"E ")) | |
| 949 | . S DUR(BPRX COB,"DUR P PS",I,"PRE VIOUS DATE OF FILL") =$G(DUR1(9 002313.110 1,I_",1,"_ DURIEN_"," ,530,"E")) | |
| 950 | . S DUR(BPRX COB,"DUR P PS",I,"QUA NTITY OF P REVIOUS FI LL")=$G(DU R1(9002313 .1101,I_", 1,"_DURIEN _",",531," E")) | |
| 951 | . S DUR(BPRX COB,"DUR P PS",I,"DAT ABASE INDI CATOR")=$G (DUR1(9002 313.1101,I _",1,"_DUR IEN_",",53 2,"E")) | |
| 952 | . S DUR(BPRX COB,"DUR P PS",I,"OTH ER PRESCRI BER INDICA TOR")=$G(D UR1(900231 3.1101,I_" ,1,"_DURIE N_",",533, "E")) | |
| 953 | . S DUR(BPRX COB,"DUR P PS",I,"DUR FREE TEXT MESSAGE") =$G(DUR1(9 002313.110 1,I_",1,"_ DURIEN_"," ,544,"E")) | |
| 954 | . S DUR(BPRX COB,"DUR P PS",I,"DUR ADDITIONA L TEXT")=$ G(DUR1(900 2313.1101, I_",1,"_DU RIEN_",",5 70,"E")) | |
| 955 | ; | |
| 956 | ; Get DUR re ject codes and descr iption and store in DUR | |
| 957 | D GETS^DIQ(9 002313.030 1,"1,"_DUR IEN_",","5 11*","I"," DUR1","ERR OR") ;get DUR codes and descri ptions | |
| 958 | S DUR(BPRXCO B,"REJ COD E LST")="" | |
| 959 | F I=1:1 Q:'$ D(DUR1(900 2313.03511 ,I_",1,"_D URIEN_",") ) D | |
| 960 | . N REJX,REJ N | |
| 961 | . S REJX=$G( DUR1(90023 13.03511,I _",1,"_DUR IEN_",",.0 1,"I")) Q: REJX="" ; extern al reject code | |
| 962 | . S REJN=+$O (^BPSF(900 2313.93,"B ",REJX,0)) Q:'REJN ; intern al reject code ien | |
| 963 | . S DUR(BPRX COB,"REJ C ODES",I,RE JX)=$P($G( ^BPSF(9002 313.93,REJ N,0)),U,2) ; reject code desc ription | |
| 964 | . S DUR(BPRX COB,"REJ C ODE LST")= DUR(BPRXCO B,"REJ COD E LST")_", "_REJX | |
| 965 | S DUR(BPRXCO B,"REJ COD E LST")=$E (DUR(BPRXC OB,"REJ CO DE LST"),2 ,9999) | |
| 966 | Q | |
| 967 | ||
| 968 | ||
| 969 | Subroutine Name | |
| 970 | SAVE^PSORE JUT | |
| 971 | Enhancemen t Category | |
| 972 | New | |
| 973 | Modify | |
| 974 | Delete | |
| 975 | No Change | |
| 976 | Story | |
| 977 | US583 | |
| 978 | Related Me nu Options or ListMa n Actions | |
| 979 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 980 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 981 | Related Ro utines | |
| 982 | This Subro utine is C alled By | |
| 983 | This Subro utine Call s | |
| 984 | ||
| 985 | SYNC2^PSOR EJUT | |
| 986 | OPN^PSOREJ P2 | |
| 987 | NOW^%DTC | |
| 988 | $$ADDCOMM^ BPSBUTL | |
| 989 | FILE^DICN | |
| 990 | $$LSTRFL^P SOBPSU1 | |
| 991 | $$RXSITE^P SOBPSUT | |
| 992 | SAVECOM^PS OREJP3 | |
| 993 | $$EVAL^PSO REJU4 | |
| 994 | Related In tegration Control Re gistration s (ICRs) | |
| 995 | N/A | |
| 996 | Data Passi ng | |
| 997 | Parameter Input | |
| 998 | Parameter Output | |
| 999 | Function Return Val ue | |
| 1000 | Global Mo dified | |
| 1001 | Input Attr ibute Name and Defin ition | |
| 1002 | Name: RX | |
| 1003 | Definition : Rx IEN ( #52) | |
| 1004 | New Modify Delete No Cha nge | |
| 1005 | Name: RFL | |
| 1006 | Definition : Refill # | |
| 1007 | New Modify Delete No Cha nge | |
| 1008 | Name: REOP EN | |
| 1009 | Definition : Claim Re Opened Fla g | |
| 1010 | New Modify Delete No Cha nge | |
| 1011 | Name: REJ | |
| 1012 | Definition : REJECT I nformation Array | |
| 1013 | New Modify Delete No Cha nge | |
| 1014 | Output Att ribute Nam e and Defi nition | |
| 1015 | Name: REJ | |
| 1016 | Definition : Reject I nformation Array | |
| 1017 | New Modify Delete No Cha nge | |
| 1018 | Current Lo gic | |
| 1019 | ||
| 1020 | SAVE(RX,RF L,REJ,REOP EN) ; - Sa ves DUR In formation in the fil e 52 | |
| 1021 | ; Input: (r ) RX - Rx IEN (#52) | |
| 1022 | ; (o ) RFL - Re fill # (De fault: mos t recent) | |
| 1023 | ; (o ) REOPEN - value of 1 means cl aim being reopened; null or no value pas sed means reopen cla im functio nality not being use d | |
| 1024 | ; (r ) REJ - Ar ray contai ning infor mation abo ut the REJ ECT on the following subscript s: | |
| 1025 | ; "B IN" - BIN Number | |
| 1026 | ; "C ODE" - R eject Code (79 or 88 ) | |
| 1027 | ; "D ATE/TIME" - Date/T ime Reject Detected | |
| 1028 | ; "P AYER MESSA GE" - Mess age return ed by Paye r (up to 1 40 chars l ong) | |
| 1029 | ; "R EASON" - R eject Reas on (up to 100 chars long) | |
| 1030 | ; "D UR TEXT" - Payer's D UR descrip tion | |
| 1031 | ; "D UR ADD MSG TEXT" - P ayer's DUR additiona l message text descr iption | |
| 1032 | ; "I NSURANCE N AME" - Pat ient's Ins urance Com pany Name | |
| 1033 | ; "I NSURANCE P OINTER" - Patient's Insurance Company IE N | |
| 1034 | ; "G ROUP NAME" - Patient 's Insuran ce Group N ame | |
| 1035 | ; "G ROUP NUMBE R" - Patie nt's Insur ance Group Number | |
| 1036 | ; "C ARDHOLDER ID" - Pati ent's Insu rance Card holder ID | |
| 1037 | ; "C OB" - Coor dination o f Benefits | |
| 1038 | ; "P LAN CONTAC T" - Patie nt's Insur ance Plan Contact (1 -800) | |
| 1039 | ; "P REVIOUS FI LL" - Plan 's Previou s Fill Dat e | |
| 1040 | ; "O THER REJEC TS" - Othe r Rejects with same Response | |
| 1041 | ; "P HARMACIST" - Pharmac ist DUZ | |
| 1042 | ; "R ESPONSE IE N" - Point er to the RESPONSE f ile in ECM E | |
| 1043 | ; "R EASON SVC CODE" - Re ason for S ervice Cod e (pointer to BPS NC PDP REASON FOR SERVI CE CODE) | |
| 1044 | ; "R E-OPENED" - Re-Open Flag | |
| 1045 | ; "R RR FLAG" - Reject Re solution R equired in dicator (e xpecting 1 /0 into SA VE) | |
| 1046 | ; "R RR THRESHO LD AMT" - Reject Res olution Re quired Dol lar Thresh old | |
| 1047 | ; "R RR GROSS A MT DUE" - Reject Res olution Re quired Gro ss Amount Due | |
| 1048 | ;O utput: REJ ("REJECT I EN") | |
| 1049 | N %,DIC,DR,D A,X,DINUM, DD,DO,DLAY GO,ERR | |
| 1050 | I '$D(RFL) S RFL=$$LST RFL^PSOBPS U1(RX) | |
| 1051 | I '$G(PSODIV ) S PSODIV =$$RXSITE^ PSOBPSUT(R X,RFL) | |
| 1052 | S REJ("BIN") =$E($G(REJ ("BIN")),1 ,6) | |
| 1053 | S REJ("CODE" )=$G(REJ(" CODE")) | |
| 1054 | ; | |
| 1055 | ; convert RE J("RRR FLA G") into i nternal fo rmat (1/0) if necess ary. When coming int o SAVE fro m the Re-o pen Reject | |
| 1056 | ; action, th is flag is in the ex ternal for mat (YES/N O). esg - 3/29/16 - PSO*7*44 8 | |
| 1057 | I $G(REJ("RR R FLAG"))= "YES" S RE J("RRR FLA G")=1 | |
| 1058 | I $G(REJ("RR R FLAG"))= "NO" S REJ ("RRR FLAG ")=0 | |
| 1059 | ; | |
| 1060 | ;I gnore this additiona l Check if reject is Reject Re solution R equired re ject - PSO *7*421 | |
| 1061 | I '$G(REJ("R RR FLAG")) ,REJ("CODE ")'=79&(RE J("CODE")' =88)&('$G( PSOTRIC))& ('$G(REOPE N)) S ERR= $$EVAL^PSO REJU4(PSOD IV,REJ("CO DE"),$G(OP ECC)) Q:'+ ERR | |
| 1062 | S REJ("PAYER MESSAGE") =$E($G(REJ ("PAYER ME SSAGE")),1 ,140),REJ( "REASON")= $E($G(REJ( "REASON")) ,1,100) | |
| 1063 | S REJ("DUR T EXT")=$E($ G(REJ("DUR TEXT")),1 ,100),REJ( "DUR ADD M SG TEXT")= $E($G(REJ( "DUR ADD M SG TEXT")) ,1,100),RE J("GROUP N AME")=$E($ G(REJ("GRO UP NAME")) | |
| 1064 | ,1,30) | |
| 1065 | S REJ("INSUR ANCE NAME" )=$E($G(RE J("INSURAN CE NAME")) ,1,30),REJ ("PLAN CON TACT")=$E( $G(REJ("PL AN CONTACT ")),1,30) | |
| 1066 | S REJ("GROUP NUMBER")= $E($G(REJ( "GROUP NUM BER")),1,3 0),REJ("OT HER REJECT S")=$E($G( REJ("OTHER REJECTS") ),1,15) | |
| 1067 | S REJ("CARDH OLDER ID") =$E($G(REJ ("CARDHOLD ER ID")),1 ,20),REJ(" COB")=$G(R EJ("COB")) | |
| 1068 | I $G(REJ("DA TE/TIME")) ="" D NOW^ %DTC S REJ ("DATE/TIM E")=% | |
| 1069 | S DIC="^PSRX ("_RX_","" REJ"",",DA (1)=RX,DIC (0)="" | |
| 1070 | S X=$G(REJ(" CODE")),DI NUM=$O(^PS RX(RX,"REJ ",9999),-1 )+1 | |
| 1071 | S DIC("DR")= "1///"_$G( REJ("DATE/ TIME"))_"; 2///"_REJ( "PAYER MES SAGE")_";3 ///"_REJ(" REASON")_" ;4////"_$G (REJ("PHAR MACIST"))_ ";5///"_RF L | |
| 1072 | S DIC("DR")= DIC("DR")_ ";6///"_RE J("GROUP N AME")_";7/ //"_REJ("P LAN CONTAC T")_";8/// "_$G(REJ(" PREVIOUS F ILL")) | |
| 1073 | S DIC("DR")= DIC("DR")_ ";9///0;14 ///"_$G(RE J("REASON SVC CODE") )_";16///" _$G(REJ("R ESPONSE IE N")) | |
| 1074 | S DIC("DR")= DIC("DR")_ ";17///"_$ G(REJ("OTH ER REJECTS "))_";18// /"_REJ("DU R TEXT")_" ;20///"_RE J("INSURAN CE NAME") | |
| 1075 | S DIC("DR")= DIC("DR")_ ";21///"_R EJ("GROUP NUMBER")_" ;22///"_RE J("CARDHOL DER ID")_" ;23///"_$G (REJ("RE-O PENED")) | |
| 1076 | S DIC("DR")= DIC("DR")_ ";27///"_R EJ("COB") | |
| 1077 | S DIC("DR")= DIC("DR")_ ";28///"_R EJ("DUR AD D MSG TEXT ") | |
| 1078 | S DIC("DR")= DIC("DR")_ ";29///"_R EJ("BIN") | |
| 1079 | ;U pdate Reje ct Resolut ion Requir ed fields - PSO*7*42 1 | |
| 1080 | I $G(REJ("RR R FLAG")) D | |
| 1081 | .S DIC("DR") =DIC("DR") _";30///"_ REJ("RRR F LAG") | |
| 1082 | .S DIC("DR") =DIC("DR") _";31///"_ REJ("RRR T HRESHOLD A MT") | |
| 1083 | .S DIC("DR") =DIC("DR") _";32///"_ REJ("RRR G ROSS AMT D UE") | |
| 1084 | S DIC("DR")= DIC("DR")_ ";33///"_R EJ("INSURA NCE POINTE R") | |
| 1085 | F L +^PSRX( RX):5 Q:$T H 15 | |
| 1086 | K DD,DO D FI LE^DICN K DD,DO S RE J("REJECT IEN")=+Y | |
| 1087 | S REJ("OVERR IDE MSG")= $G(DATA("O VERRIDE MS G")) | |
| 1088 | ;C omments us e POSTMAST ER as user for auto transfers - PSO*7*42 1 | |
| 1089 | I REJ("OVERR IDE MSG")' ="" D | |
| 1090 | .N ORIGIN S ORIGIN=$G( DUZ) | |
| 1091 | .S :REJ("OVER RIDE MSG") ["Automati cally tran sferred" O RIGIN=.5 | |
| 1092 | .D SAVECOM^P SOREJP3(RX ,REJ("REJE CT IEN"),R EJ("OVERRI DE MSG"),$ G(REJ("DAT E/TIME")), ORIGIN) | |
| 1093 | .; Insert com ment for T ransfer an d RRR Reje cts - PSO* 7*421 | |
| 1094 | .I REJ("OVER RIDE MSG") ["Automati cally tran sferred" D | |
| 1095 | .. N X,TXT | |
| 1096 | .. S TXT="Aut o Send to Pharmacy W orklist du e to Trans fer Reject Code" | |
| 1097 | .. I $G(REJ(" RRR FLAG") ) S TXT="A uto Send t o Pharmacy Worklist due to Rej ect Resolu tion Requi red Code" | |
| 1098 | .. I $G(PSOTR IC) S TXT= "Auto Send to Pharma cy Worklis t & OPECC - CVA/TRI" | |
| 1099 | .. S X=$$ADDC OMM^BPSBUT L(RX,RFL,T XT,1) ; IA 4719 | |
| 1100 | L -^PSRX(RX) | |
| 1101 | Q | |
| 1102 | ||
| 1103 | Modified L ogic (Chan ges are hi ghlighted) | |
| 1104 | ||
| 1105 | SAVE(RX,RF L,REJ,REOP EN) ; - Sa ves DUR In formation in the fil e 52 | |
| 1106 | ; Input: (r ) RX - Rx IEN (#52) | |
| 1107 | ; (o ) RFL - Re fill # (De fault: mos t recent) | |
| 1108 | ; (o ) REOPEN - value of 1 means cl aim being reopened; null or no value pas sed means reopen cla im functio nality not being use d | |
| 1109 | ; (r ) REJ - Ar ray contai ning infor mation abo ut the REJ ECT on the following subscript s: | |
| 1110 | ; "B IN" - BIN Number | |
| 1111 | ; “P CN” – PCN Number | |
| 1112 | ; "C ODE" - R eject Code (79 or 88 ) | |
| 1113 | ; "D ATE/TIME" - Date/T ime Reject Detected | |
| 1114 | ; "P AYER MESSA GE" - Mess age return ed by Paye r (up to 1 40 chars l ong) | |
| 1115 | ; "R EASON" - R eject Reas on (up to 100 chars long) | |
| 1116 | ; "D UR TEXT" - Payer's D UR descrip tion | |
| 1117 | ; "D UR ADD MSG TEXT" - P ayer's DUR additiona l message text descr iption | |
| 1118 | ; "I NSURANCE N AME" - Pat ient's Ins urance Com pany Name | |
| 1119 | ; "I NSURANCE P OINTER" - Patient's Insurance Company IE N | |
| 1120 | ; "G ROUP NAME" - Patient 's Insuran ce Group N ame | |
| 1121 | ; "G ROUP NUMBE R" - Patie nt's Insur ance Group Number | |
| 1122 | ; "C ARDHOLDER ID" - Pati ent's Insu rance Card holder ID | |
| 1123 | ; "C OB" - Coor dination o f Benefits | |
| 1124 | ; "P LAN CONTAC T" - Patie nt's Insur ance Plan Contact (1 -800) | |
| 1125 | ; "P REVIOUS FI LL" - Plan 's Previou s Fill Dat e | |
| 1126 | ; "O THER REJEC TS" - Othe r Rejects with same Response | |
| 1127 | ; "P HARMACIST" - Pharmac ist DUZ | |
| 1128 | ; "R ESPONSE IE N" - Point er to the RESPONSE f ile in ECM E | |
| 1129 | ; "R EASON SVC CODE" - Re ason for S ervice Cod e (pointer to BPS NC PDP REASON FOR SERVI CE CODE) | |
| 1130 | ; "R E-OPENED" - Re-Open Flag | |
| 1131 | ; "R RR FLAG" - Reject Re solution R equired in dicator (e xpecting 1 /0 into SA VE) | |
| 1132 | ; "R RR THRESHO LD AMT" - Reject Res olution Re quired Dol lar Thresh old | |
| 1133 | ; "R RR GROSS A MT DUE" - Reject Res olution Re quired Gro ss Amount Due | |
| 1134 | ;O utput: REJ ("REJECT I EN") | |
| 1135 | N %,DIC,DR,D A,X,DINUM, DD,DO,DLAY GO,ERR | |
| 1136 | I '$D(RFL) S RFL=$$LST RFL^PSOBPS U1(RX) | |
| 1137 | I '$G(PSODIV ) S PSODIV =$$RXSITE^ PSOBPSUT(R X,RFL) | |
| 1138 | S REJ("BIN") =$E($G(REJ ("BIN")),1 ,6) | |
| 1139 | S REJ(“PCN”) =$G(REJ(“P CN”)) | |
| 1140 | S REJ("CODE" )=$G(REJ(" CODE")) | |
| 1141 | ; | |
| 1142 | ; convert RE J("RRR FLA G") into i nternal fo rmat (1/0) if necess ary. When coming int o SAVE fro m the Re-o pen Reject | |
| 1143 | ; action, th is flag is in the ex ternal for mat (YES/N O). esg - 3/29/16 - PSO*7*44 8 | |
| 1144 | I $G(REJ("RR R FLAG"))= "YES" S RE J("RRR FLA G")=1 | |
| 1145 | I $G(REJ("RR R FLAG"))= "NO" S REJ ("RRR FLAG ")=0 | |
| 1146 | ; | |
| 1147 | ;I gnore this additiona l Check if reject is Reject Re solution R equired re ject - PSO *7*421 | |
| 1148 | I '$G(REJ("R RR FLAG")) ,REJ("CODE ")'=79&(RE J("CODE")' =88)&('$G( PSOTRIC))& ('$G(REOPE N)) S ERR= $$EVAL^PSO REJU4(PSOD IV,REJ("CO DE"),$G(OP ECC)) Q:'+ ERR | |
| 1149 | S REJ("PAYER MESSAGE") =$E($G(REJ ("PAYER ME SSAGE")),1 ,140),REJ( "REASON")= $E($G(REJ( "REASON")) ,1,100) | |
| 1150 | S REJ("DUR T EXT")=$E($ G(REJ("DUR TEXT")),1 ,100),REJ( "DUR ADD M SG TEXT")= $E($G(REJ( "DUR ADD M SG TEXT")) ,1,100),RE J("GROUP N AME")=$E($ G(REJ("GRO UP NAME")) | |
| 1151 | ,1,30) | |
| 1152 | S REJ("INSUR ANCE NAME" )=$E($G(RE J("INSURAN CE NAME")) ,1,30),REJ ("PLAN CON TACT")=$E( $G(REJ("PL AN CONTACT ")),1,30) | |
| 1153 | S REJ("GROUP NUMBER")= $E($G(REJ( "GROUP NUM BER")),1,3 0),REJ("OT HER REJECT S")=$E($G( REJ("OTHER REJECTS") ),1,15) | |
| 1154 | S REJ("CARDH OLDER ID") =$E($G(REJ ("CARDHOLD ER ID")),1 ,20),REJ(" COB")=$G(R EJ("COB")) | |
| 1155 | I $G(REJ("DA TE/TIME")) ="" D NOW^ %DTC S REJ ("DATE/TIM E")=% | |
| 1156 | S DIC="^PSRX ("_RX_","" REJ"",",DA (1)=RX,DIC (0)="" | |
| 1157 | S X=$G(REJ(" CODE")),DI NUM=$O(^PS RX(RX,"REJ ",9999),-1 )+1 | |
| 1158 | S DIC("DR")= "1///"_$G( REJ("DATE/ TIME"))_"; 2///"_REJ( "PAYER MES SAGE")_";3 ///"_REJ(" REASON")_" ;4////"_$G (REJ("PHAR MACIST"))_ ";5///"_RF L | |
| 1159 | S DIC("DR")= DIC("DR")_ ";6///"_RE J("GROUP N AME")_";7/ //"_REJ("P LAN CONTAC T")_";8/// "_$G(REJ(" PREVIOUS F ILL")) | |
| 1160 | S DIC("DR")= DIC("DR")_ ";9///0;14 ///"_$G(RE J("REASON SVC CODE") )_";16///" _$G(REJ("R ESPONSE IE N")) | |
| 1161 | S DIC("DR")= DIC("DR")_ ";17///"_$ G(REJ("OTH ER REJECTS "))_";18// /"_REJ("DU R TEXT")_" ;20///"_RE J("INSURAN CE NAME") | |
| 1162 | S DIC("DR")= DIC("DR")_ ";21///"_R EJ("GROUP NUMBER")_" ;22///"_RE J("CARDHOL DER ID")_" ;23///"_$G (REJ("RE-O PENED")) | |
| 1163 | S DIC("DR")= DIC("DR")_ ";27///"_R EJ("COB") | |
| 1164 | S DIC("DR")= DIC("DR")_ ";28///"_R EJ("DUR AD D MSG TEXT ") | |
| 1165 | S DIC("DR")= DIC("DR")_ ";29///"_R EJ("BIN") | |
| 1166 | S DIC(“DR”)= DIC(“DR”)_ ”;34///”_R EJ(“PCN”) | |
| 1167 | ;U pdate Reje ct Resolut ion Requir ed fields - PSO*7*42 1 | |
| 1168 | I $G(REJ("RR R FLAG")) D | |
| 1169 | .S DIC("DR") =DIC("DR") _";30///"_ REJ("RRR F LAG") | |
| 1170 | .S DIC("DR") =DIC("DR") _";31///"_ REJ("RRR T HRESHOLD A MT") | |
| 1171 | .S DIC("DR") =DIC("DR") _";32///"_ REJ("RRR G ROSS AMT D UE") | |
| 1172 | S DIC("DR")= DIC("DR")_ ";33///"_R EJ("INSURA NCE POINTE R") | |
| 1173 | F L +^PSRX( RX):5 Q:$T H 15 | |
| 1174 | K DD,DO D FI LE^DICN K DD,DO S RE J("REJECT IEN")=+Y | |
| 1175 | S REJ("OVERR IDE MSG")= $G(DATA("O VERRIDE MS G")) | |
| 1176 | ;C omments us e POSTMAST ER as user for auto transfers - PSO*7*42 1 | |
| 1177 | I REJ("OVERR IDE MSG")' ="" D | |
| 1178 | .N ORIGIN S ORIGIN=$G( DUZ) | |
| 1179 | .S :REJ("OVER RIDE MSG") ["Automati cally tran sferred" O RIGIN=.5 | |
| 1180 | .D SAVECOM^P SOREJP3(RX ,REJ("REJE CT IEN"),R EJ("OVERRI DE MSG"),$ G(REJ("DAT E/TIME")), ORIGIN) | |
| 1181 | .; Insert com ment for T ransfer an d RRR Reje cts - PSO* 7*421 | |
| 1182 | .I REJ("OVER RIDE MSG") ["Automati cally tran sferred" D | |
| 1183 | .. N X,TXT | |
| 1184 | .. S TXT="Aut o Send to Pharmacy W orklist du e to Trans fer Reject Code" | |
| 1185 | .. I $G(REJ(" RRR FLAG") ) S TXT="A uto Send t o Pharmacy Worklist due to Rej ect Resolu tion Requi red Code" | |
| 1186 | .. I $G(PSOTR IC) S TXT= "Auto Send to Pharma cy Worklis t & OPECC - CVA/TRI" | |
| 1187 | .. S X=$$ADDC OMM^BPSBUT L(RX,RFL,T XT,1) ; IA 4719 | |
| 1188 | L -^PSRX(RX) | |
| 1189 | Q | |
| 1190 | ||
| 1191 | ||
| 1192 | Subroutine Name | |
| 1193 | SYNC2^PSOR EJUT | |
| 1194 | Enhancemen t Category | |
| 1195 | New | |
| 1196 | Modify | |
| 1197 | Delete | |
| 1198 | No Change | |
| 1199 | Story | |
| 1200 | US583 | |
| 1201 | Related Me nu Options or ListMa n Actions | |
| 1202 | Third Part y Payer Re jects – Wo rklist [PS O REJECTS WORKLIST] | |
| 1203 | Third Part y Payer Re jects – Vi ew/Process [PSO REJE CTS VIEW/P ROCESS] | |
| 1204 | Related Ro utines | |
| 1205 | This Subro utine is C alled By | |
| 1206 | This Subro utine Call s | |
| 1207 | ||
| 1208 | WRKLST^PSO REJU4 | |
| 1209 | $$CLEAN^PS OREJU1 | |
| 1210 | $$DAT^PSOR EJU1 | |
| 1211 | $$OTH^PSOR EJU1 | |
| 1212 | $$REASON^P SOREJU2 | |
| 1213 | Related In tegration Control Re gistration s (ICRs) | |
| 1214 | N/A | |
| 1215 | Data Passi ng | |
| 1216 | Parameter Input | |
| 1217 | Parameter Output | |
| 1218 | Function Return Val ue | |
| 1219 | Global Mo dified | |
| 1220 | Input Attr ibute Name and Defin ition | |
| 1221 | Name: N/A | |
| 1222 | Definition : | |
| 1223 | New Modify Delete No Cha nge | |
| 1224 | Output Att ribute Nam e and Defi nition | |
| 1225 | Name: N/A | |
| 1226 | Definition : | |
| 1227 | New Modify Delete No Cha nge | |
| 1228 | Current Lo gic | |
| 1229 | ||
| 1230 | SYNC2 ; | |
| 1231 | S (IDX,CODE) ="" F S I DX=$O(REJS (IDX)) Q:I DX="" D | |
| 1232 | . F S CODE= $O(REJS(ID X,CODE)) Q :CODE="" K DATA D | |
| 1233 | . . ;Additio nal check for Reject Resolutio n Required - PSO*7*4 21 | |
| 1234 | . . I 'OPECC &(CODE'[79 )&(CODE'[8 8) D | |
| 1235 | . . .I '+$G( REJRRR(IDX )) S DATA( "OVERRIDE MSG")="Aut omatically transferr ed due to override f or reject code." Q | |
| 1236 | . . .;Reject Resolutio n Required fields | |
| 1237 | . . .S DATA( "RRR FLAG" )=1 | |
| 1238 | . . .S DATA( "RRR GROSS AMT DUE") =$P(REJRRR (IDX),U,2) | |
| 1239 | . . .S DATA( "RRR THRES HOLD AMT") =$P(REJRRR (IDX),U,3) | |
| 1240 | . . .S DATA( "OVERRIDE MSG")="Aut omatically transferr ed due to Reject Res olution Re quired rej ect code" | |
| 1241 | . . I OPECC& (CODE'[79) &(CODE'[88 ) S DATA(" OVERRIDE M SG")="Tran sferred by "_$S(CODE ["eT":"",C ODE["eC":" ",1:"OPECC .") ;cnf ,PSO*7.0*3 58 | |
| 1242 | . . I $D(COM MTXT) S:CO MMTXT'="" DATA("OVER RIDE MSG") =DATA("OVE RRIDE MSG" )_" "_$$CL EAN^PSOREJ U1($P(COMM TXT,":",2) ) | |
| 1243 | . . S DATA(" DUR TEXT") =$$CLEAN^P SOREJU1($G (REJ(IDX," DUR FREE T EXT DESC") )) | |
| 1244 | . . S DATA(" DUR ADD MS G TEXT")=$ $CLEAN^PSO REJU1($G(R EJ(IDX,"DU R ADD MSG TEXT"))) | |
| 1245 | . . ; In NCP DP D0, the Payer Add itional Me ssage is a repeating field and we want t o display as much of the | |
| 1246 | . . ; data on the re ject infor mation scr een as pos sible so w e put the messages t ogether up to the fi eld | |
| 1247 | . . ; leng th of 140 | |
| 1248 | . . N CNT,MS G | |
| 1249 | . . S CNT="" ,DATA("PAY ER MESSAGE ")="" | |
| 1250 | . . F S CNT =$O(REJ(ID X,"PAYER M ESSAGE",CN T)) Q:CNT= ""!($L(DAT A("PAYER M ESSAGE"))> 140) D | |
| 1251 | . . . S MSG= $$CLEAN^PS OREJU1(REJ (IDX,"PAYE R MESSAGE" ,CNT)) | |
| 1252 | . . . I MSG] "" S DATA( "PAYER MES SAGE")=DAT A("PAYER M ESSAGE")_M SG_" " | |
| 1253 | . . ; Call C LEAN again to strip the extra trailing s paces we m ight have added | |
| 1254 | . . S DATA(" PAYER MESS AGE")=$$CL EAN^PSOREJ U1(DATA("P AYER MESSA GE")) | |
| 1255 | . . S DATA(" CODE")=COD E,DATA("RE ASON")=$$C LEAN^PSORE JU1($G(REJ (IDX,"REAS ON"))) | |
| 1256 | . . S DATA(" PHARMACIST ")=$G(USR) ,DATA("INS URANCE NAM E")=$$CLEA N^PSOREJU1 ($G(REJ(ID X,"INSURAN CE NAME")) ) | |
| 1257 | . . S DATA(" INSURANCE POINTER")= $$CLEAN^PS OREJU1($G( REJ(IDX,"I NSURANCE P OINTER"))) | |
| 1258 | . . S DATA(" GROUP NAME ")=$$CLEAN ^PSOREJU1( $G(REJ(IDX ,"GROUP NA ME"))),DAT A("GROUP N UMBER")=$$ CLEAN^PSOR EJU1($G(RE J(IDX,"GRO UP NUMBER" ))) | |
| 1259 | . . S DATA(" CARDHOLDER ID")=$$CL EAN^PSOREJ U1($G(REJ( IDX,"CARDH OLDER ID") )),DATA("P LAN CONTAC T")=$$CLEA N^PSOREJU1 ($G(REJ(ID X,"PLAN CO NTACT"))) | |
| 1260 | . . S DATA(" PREVIOUS F ILL")=$$CL EAN^PSOREJ U1($$DAT^P SOREJU1($G (REJ(IDX," PREVIOUS F ILL DATE") ))) | |
| 1261 | . . S DATA(" OTHER REJE CTS")=$$CL EAN^PSOREJ U1($$OTH^P SOREJU1(CO DE,$G(REJ( IDX,"REJ C ODE LST")) )) | |
| 1262 | . . S DATA(" RESPONSE I EN")=+$$CL EAN^PSOREJ U1($G(REJ( IDX,"RESPO NSE IEN")) ) | |
| 1263 | . . S DATA(" REASON SVC CODE")=$$ REASON^PSO REJU2($G(R EJ(IDX,"RE ASON"))),D ATA("COB") =IDX | |
| 1264 | . . S DATA(" MESSAGE")= $$CLEAN^PS OREJU1($G( REJ(IDX,"M ESSAGE"))) | |
| 1265 | . . S DATA(" DUR RESPON SE DATA")= $$CLEAN^PS OREJU1($G( REJ(IDX,"D UR RESPONS E DATA"))) | |
| 1266 | . . S DATA(" BIN")=$$CL EAN^PSOREJ U1($G(REJ( IDX,"BIN") )) | |
| 1267 | . . D SAVE(R X,RFL,.DAT A) | |
| 1268 | L -^PSRX("RE J",RX) | |
| 1269 | Q | |
| 1270 | ||
| 1271 | ||
| 1272 | Modified L ogic (Chan ges are hi ghlighted) | |
| 1273 | ||
| 1274 | SYNC2 ; | |
| 1275 | S (IDX,CODE) ="" F S I DX=$O(REJS (IDX)) Q:I DX="" D | |
| 1276 | . F S CODE= $O(REJS(ID X,CODE)) Q :CODE="" K DATA D | |
| 1277 | . . ;Additio nal check for Reject Resolutio n Required - PSO*7*4 21 | |
| 1278 | . . I 'OPECC &(CODE'[79 )&(CODE'[8 8) D | |
| 1279 | . . .I '+$G( REJRRR(IDX )) S DATA( "OVERRIDE MSG")="Aut omatically transferr ed due to override f or reject code." Q | |
| 1280 | . . .;Reject Resolutio n Required fields | |
| 1281 | . . .S DATA( "RRR FLAG" )=1 | |
| 1282 | . . .S DATA( "RRR GROSS AMT DUE") =$P(REJRRR (IDX),U,2) | |
| 1283 | . . .S DATA( "RRR THRES HOLD AMT") =$P(REJRRR (IDX),U,3) | |
| 1284 | . . .S DATA( "OVERRIDE MSG")="Aut omatically transferr ed due to Reject Res olution Re quired rej ect code" | |
| 1285 | . . I OPECC& (CODE'[79) &(CODE'[88 ) S DATA(" OVERRIDE M SG")="Tran sferred by "_$S(CODE ["eT":"",C ODE["eC":" ",1:"OPECC .") ;cnf ,PSO*7.0*3 58 | |
| 1286 | . . I $D(COM MTXT) S:CO MMTXT'="" DATA("OVER RIDE MSG") =DATA("OVE RRIDE MSG" )_" "_$$CL EAN^PSOREJ U1($P(COMM TXT,":",2) ) | |
| 1287 | . . S DATA(" DUR TEXT") =$$CLEAN^P SOREJU1($G (REJ(IDX," DUR FREE T EXT DESC") )) | |
| 1288 | . . S DATA(" DUR ADD MS G TEXT")=$ $CLEAN^PSO REJU1($G(R EJ(IDX,"DU R ADD MSG TEXT"))) | |
| 1289 | . . ; In NCP DP D0, the Payer Add itional Me ssage is a repeating field and we want t o display as much of the | |
| 1290 | . . ; data on the re ject infor mation scr een as pos sible so w e put the messages t ogether up to the fi eld | |
| 1291 | . . ; leng th of 140 | |
| 1292 | . . N CNT,MS G | |
| 1293 | . . S CNT="" ,DATA("PAY ER MESSAGE ")="" | |
| 1294 | . . F S CNT =$O(REJ(ID X,"PAYER M ESSAGE",CN T)) Q:CNT= ""!($L(DAT A("PAYER M ESSAGE"))> 140) D | |
| 1295 | . . . S MSG= $$CLEAN^PS OREJU1(REJ (IDX,"PAYE R MESSAGE" ,CNT)) | |
| 1296 | . . . I MSG] "" S DATA( "PAYER MES SAGE")=DAT A("PAYER M ESSAGE")_M SG_" " | |
| 1297 | . . ; Call C LEAN again to strip the extra trailing s paces we m ight have added | |
| 1298 | . . S DATA(" PAYER MESS AGE")=$$CL EAN^PSOREJ U1(DATA("P AYER MESSA GE")) | |
| 1299 | . . S DATA(" CODE")=COD E,DATA("RE ASON")=$$C LEAN^PSORE JU1($G(REJ (IDX,"REAS ON"))) | |
| 1300 | . . S DATA(" PHARMACIST ")=$G(USR) ,DATA("INS URANCE NAM E")=$$CLEA N^PSOREJU1 ($G(REJ(ID X,"INSURAN CE NAME")) ) | |
| 1301 | . . S DATA(" INSURANCE POINTER")= $$CLEAN^PS OREJU1($G( REJ(IDX,"I NSURANCE P OINTER"))) | |
| 1302 | . . S DATA(" GROUP NAME ")=$$CLEAN ^PSOREJU1( $G(REJ(IDX ,"GROUP NA ME"))),DAT A("GROUP N UMBER")=$$ CLEAN^PSOR EJU1($G(RE J(IDX,"GRO UP NUMBER" ))) | |
| 1303 | . . S DATA(" CARDHOLDER ID")=$$CL EAN^PSOREJ U1($G(REJ( IDX,"CARDH OLDER ID") )),DATA("P LAN CONTAC T")=$$CLEA N^PSOREJU1 ($G(REJ(ID X,"PLAN CO NTACT"))) | |
| 1304 | . . S DATA(" PREVIOUS F ILL")=$$CL EAN^PSOREJ U1($$DAT^P SOREJU1($G (REJ(IDX," PREVIOUS F ILL DATE") ))) | |
| 1305 | . . S DATA(" OTHER REJE CTS")=$$CL EAN^PSOREJ U1($$OTH^P SOREJU1(CO DE,$G(REJ( IDX,"REJ C ODE LST")) )) | |
| 1306 | . . S DATA(" RESPONSE I EN")=+$$CL EAN^PSOREJ U1($G(REJ( IDX,"RESPO NSE IEN")) ) | |
| 1307 | . . S DATA(" REASON SVC CODE")=$$ REASON^PSO REJU2($G(R EJ(IDX,"RE ASON"))),D ATA("COB") =IDX | |
| 1308 | . . S DATA(" MESSAGE")= $$CLEAN^PS OREJU1($G( REJ(IDX,"M ESSAGE"))) | |
| 1309 | . . S DATA(" DUR RESPON SE DATA")= $$CLEAN^PS OREJU1($G( REJ(IDX,"D UR RESPONS E DATA"))) | |
| 1310 | . . S DATA(" BIN")=$$CL EAN^PSOREJ U1($G(REJ( IDX,"BIN") )) | |
| 1311 | . . S DATA(“ PCN”)=$$CL EAN^PSOREJ U1($G(REJ( IDX,”PCN”) )) | |
| 1312 | . . D SAVE(R X,RFL,.DAT A) | |
| 1313 | L -^PSRX("RE J",RX) | |
| 1314 | Q | |
| 1315 | ||
| 1316 | ||
| 1317 | The Reject Notificat ion Screen is not to be includ ed in the updates wh ich add Fe deral Tax ID. Since Reject Not ification Screen use s the same API as th e previous ly updated routines, it is nec essary to create a n ew subrout ine which will conta in the log ic to not include th e Federal Tax ID. T he followi ng two tab les reflec t this cha nge. | |
| 1318 | ||
| 1319 | Subroutine Name | |
| 1320 | DISPLAY^PS OREJU3 | |
| 1321 | Enhancemen t Category | |
| 1322 | New | |
| 1323 | Modify | |
| 1324 | Delete | |
| 1325 | No Change | |
| 1326 | Story | |
| 1327 | US583 | |
| 1328 | Related Me nu Options or ListMa n Actions | |
| 1329 | Reject Not ification Screen | |
| 1330 | Related Ro utines | |
| 1331 | This Subro utine is C alled By | |
| 1332 | This Subro utine Call s | |
| 1333 | ||
| 1334 | ACTION^PSO REJU1 | |
| 1335 | $$GET1^DIQ | |
| 1336 | GET^PSOREJ U2 | |
| 1337 | $$PTINFO^P SOREJU2 | |
| 1338 | $$CLAIM^BP SBUTL | |
| 1339 | PRT^PSOREJ U2 | |
| 1340 | ||
| 1341 | Related In tegration Control Re gistration s (ICRs) | |
| 1342 | n/a | |
| 1343 | Data Passi ng | |
| 1344 | Parameter Input | |
| 1345 | Parameter Output | |
| 1346 | Function Return Val ue | |
| 1347 | Global Mo dified | |
| 1348 | Input Attr ibute Name and Defin ition | |
| 1349 | Name: RX | |
| 1350 | Definition : Rx IEN ( #52) | |
| 1351 | New Modify Delete No Cha nge | |
| 1352 | Name: REJ | |
| 1353 | Definition : Reject I D | |
| 1354 | New Modify Delete No Cha nge | |
| 1355 | Name: KEY | |
| 1356 | Definition : Display any KEY to Continue 1-yes/0-no | |
| 1357 | New Modify Delete No Cha nge | |
| 1358 | Name: RRR | |
| 1359 | Definition : Reject R esolution Required i nformation | |
| 1360 | New Modify Delete No Cha nge | |
| 1361 | Output Att ribute Nam e and Defi nition | |
| 1362 | Name: N/A | |
| 1363 | Definition : String o f Division informati on | |
| 1364 | New Modify Delete No Cha nge | |
| 1365 | Current Lo gic | |
| 1366 | ||
| 1367 | DISPLAY(RX ,REJ,KEY,R RR) ; - Di splays REJ ECT inform ation | |
| 1368 | ; Input: (r) RX - Rx IEN (# 52) | |
| 1369 | ; (r) REJ - REJECT ID (IEN) | |
| 1370 | ; (o) KEY - Display " Press any KEY to con tinue..." (1-YES/0-N O) (Defaul t: 0) | |
| 1371 | ; (o) RRR - Reject Re solution R equired in formation Flag(0/1) ^Threshold Amt^Gross Amt Due (Default: 0) | |
| 1372 | ; If Flag = 0, there is no Reje ct Resolut ion Requir ed reject code. Par ameter add ed with PS O*421 | |
| 1373 | ; | |
| 1374 | Q:$G(NFRO M) | |
| 1375 | I '$G(RX) !'$G(REJ) Q | |
| 1376 | I '$D(^PS RX(RX,"REJ ",REJ))&(' $G(PSONBIL L))&('$G(P SONPROG)) Q | |
| 1377 | ; | |
| 1378 | N DATA,RF L,LINE,% | |
| 1379 | S RFL=+$$ GET1^DIQ(5 2.25,REJ_" ,"_RX,5) | |
| 1380 | I '$G(PSO NBILL)&('$ G(PSONPROG )) D GET^P SOREJU2(RX ,RFL,.DATA ,REJ) I '$ D(DATA(REJ )) Q | |
| 1381 | ; | |
| 1382 | D HDR | |
| 1383 | S $P(LINE ,"-",74)=" " W !?3,LI NE | |
| 1384 | W !?3,$$D VINFO^PSOR EJU2(RX,RF L) | |
| 1385 | W !?3,$$P TINFO^PSOR EJU2(RX) | |
| 1386 | … | |
| 1387 | Modified L ogic (Chan ges are hi ghlighted) | |
| 1388 | ||
| 1389 | DISPLAY(RX ,REJ,KEY,R RR) ; - Di splays REJ ECT inform ation | |
| 1390 | ; Input: (r) RX - Rx IEN (# 52) | |
| 1391 | ; (r) REJ - REJECT ID (IEN) | |
| 1392 | ; (o) KEY - Display " Press any KEY to con tinue..." (1-YES/0-N O) (Defaul t: 0) | |
| 1393 | ; (o) RRR - Reject Re solution R equired in formation Flag(0/1) ^Threshold Amt^Gross Amt Due (Default: 0) | |
| 1394 | ; If Flag = 0, there is no Reje ct Resolut ion Requir ed reject code. Par ameter add ed with PS O*421 | |
| 1395 | ; | |
| 1396 | Q:$G(NFRO M) | |
| 1397 | I '$G(RX) !'$G(REJ) Q | |
| 1398 | I '$D(^PS RX(RX,"REJ ",REJ))&(' $G(PSONBIL L))&('$G(P SONPROG)) Q | |
| 1399 | ; | |
| 1400 | N DATA,RF L,LINE,% | |
| 1401 | S RFL=+$$ GET1^DIQ(5 2.25,REJ_" ,"_RX,5) | |
| 1402 | I '$G(PSO NBILL)&('$ G(PSONPROG )) D GET^P SOREJU2(RX ,RFL,.DATA ,REJ) I '$ D(DATA(REJ )) Q | |
| 1403 | ; | |
| 1404 | D HDR | |
| 1405 | S $P(LINE ,"-",74)=" " W !?3,LI NE | |
| 1406 | W !?3,$$D VINFO(RX,R FL) | |
| 1407 | W !?3,$$P TINFO^PSOR EJU2(RX) | |
| 1408 | … | |
| 1409 | ||
| 1410 | Subroutine Name | |
| 1411 | DVINFO^PSO REJU3 | |
| 1412 | Enhancemen t Category | |
| 1413 | New | |
| 1414 | Modify | |
| 1415 | Delete | |
| 1416 | No Change | |
| 1417 | Story | |
| 1418 | US583 | |
| 1419 | Related Me nu Options or ListMa n Actions | |
| 1420 | Reject Not ification Screen | |
| 1421 | Related Ro utines | |
| 1422 | This Subro utine is C alled By | |
| 1423 | This Subro utine Call s | |
| 1424 | ||
| 1425 | DISPLAY^PS OREJU3 | |
| 1426 | $$DIVNCPDP ^BPSBUTL | |
| 1427 | $$GET1^DIQ | |
| 1428 | $$RXSITE^P SOBPSUT | |
| 1429 | Related In tegration Control Re gistration s (ICRs) | |
| 1430 | ||
| 1431 | Data Passi ng | |
| 1432 | Parameter Input | |
| 1433 | Parameter Output | |
| 1434 | Function Return Val ue | |
| 1435 | Global Mo dified | |
| 1436 | Input Attr ibute Name and Defin ition | |
| 1437 | Name: RX | |
| 1438 | Definition : Rx IEN ( #52) | |
| 1439 | New Modify Delete No Cha nge | |
| 1440 | Name: RFL | |
| 1441 | Definition : Refill # | |
| 1442 | New Modify Delete No Cha nge | |
| 1443 | Name: LM | |
| 1444 | Definition : ListMana ger Format (1-Yes, 2 -No) Defau lt-0 | |
| 1445 | New Modify Delete No Cha nge | |
| 1446 | Output Att ribute Nam e and Defi nition | |
| 1447 | Name: $$DV INFO | |
| 1448 | Definition : String o f Division informati on | |
| 1449 | New Modify Delete No Cha nge | |
| 1450 | Current Lo gic | |
| 1451 | ||
| 1452 | n/a | |
| 1453 | ||
| 1454 | Modified L ogic (Chan ges are hi ghlighted) | |
| 1455 | ||
| 1456 | DVINFO(RX, RFL,LM) ; Returns he ader displ ayable Div ision Info rmation | |
| 1457 | ;Input: ( r) RX - Rx IEN (#5 2) | |
| 1458 | ; ( o) RFL - Refill # ( Default: m ost recent ) | |
| 1459 | ; ( o) LM - ListManage r format? (1 - Yes / 0 - No) - Default: 0 | |
| 1460 | N TXT,DVI NFO,NCPNPI ,DVIEN | |
| 1461 | S DVIEN=+ $$RXSITE^P SOBPSUT(RX ,RFL) | |
| 1462 | S DVINFO= "Division : "_$$GET1 ^DIQ(59,DV IEN,.01) | |
| 1463 | ;Display both NPI a nd NCPDP n umbers - P SO*7.0*421 | |
| 1464 | S NCPNPI= $$DIVNCPDP ^BPSBUTL(D VIEN) | |
| 1465 | S $E(DVIN FO,33)="NP I: "_$P(NC PNPI,U,2) | |
| 1466 | S $E(DVIN FO,$S($G(L M):59,1:52 ))="NCPDP: "_$P(NCPN PI,U) | |
| 1467 | Q DVINFO | |
| 1468 | ||
| 1469 | ||
| 1470 | The field PCN will b e added to sub-file #52.25, Re ject Info, of file # 52, Prescr iption. | |
| 1471 | Field Attr ibutes | |
| 1472 | Values | |
| 1473 | FIELD NAME | |
| 1474 | PCN | |
| 1475 | FIELD NUMB ER | |
| 1476 | 34 | |
| 1477 | NODE;PIECE | |
| 1478 | 2;10 | |
| 1479 | FIELD TYPE | |
| 1480 | Free Text | |
| 1481 | FIELD LENG TH | |
| 1482 | 1-10 | |
| 1483 | INPUT TRAN SFORM | |
| 1484 | K:$L(10)>1 0!($L(X)<1 ) X | |
| 1485 | HELP PROMP T | |
| 1486 | Answer mus t be 10 ch aracters i n length. | |
| 1487 | DESCRIPTIO N | |
| 1488 | Number whi ch will un iquely ide ntify the submitter of the cla im. | |
| 1489 | ||
| 1490 | ICR agreem ent to gov ern use of $$TAXID^I BCEF75. Ca lled from DVINFO^PSO REJU2 and DVINFO^BPS SCRRJ. | |
| 1491 | Integratio n Control Registrati on # | |
| 1492 | 6768 | |
| 1493 | Name | |
| 1494 | FEDERAL TA X ID FOR S ITE | |
| 1495 | Enhancemen t Category | |
| 1496 | New Modify Expand | |
| 1497 | Custodial Package | |
| 1498 | Integrated Billing | |
| 1499 | Subscribin g Package( s) | |
| 1500 | E Claims M gmt Engine | |
| 1501 | Outpatient Pharmacy | |
| 1502 | Usage | |
| 1503 | Controlled Subscript ion | |
| 1504 | Type | |
| 1505 | Routine | |
| 1506 | Routine | |
| 1507 | IBCEF75 | |
| 1508 | Component | |
| 1509 | $$TAXID() | |
| 1510 | Input Vari ables | |
| 1511 | Name: n/a | |
| 1512 | Descriptio n: | |
| 1513 | Output Var iables | |
| 1514 | Name: TAXI D | |
| 1515 | Descriptio n: Federal Tax Numbe r for the facility. | |
| 1516 | ||
| 1517 | Back Out/R ollback Pr ocedure | |
| 1518 | This story includes modificati ons to exi sting rout ines and f iles. | |
| 1519 | To back ou t this enh ancement, all the ro utines whi ch are a p art of thi s patch sh ould be ba cked up pr ior to ins tallation. Reverting to the pr evious ver sion of th ese routin es would b ack out th is enhance ment. Alte rnatively, the previ ous versio n of these routines could be d istributed via an em ergency pa tch. | |
| 1520 | Rolling ba ck the cha nges to th e database would inv olve the f ollowing s teps, whic h could be performed by a deve loper or I RM at each site or v ia an emer gency patc h: | |
| 1521 | Delete any values in field #34 , PCN, fro m the Reje ct Info su b-file of the Prescr iption Fil e. This co uld be per formed via FileMan o r from a r outine wri tten for t he purpose . | |
| 1522 | Delete fie ld #34, PC N, from th e data dic tionary fo r sub-file #52.25, R EJECT INFO . This sho uld be per formed via FileMan. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.