Produced by Araxis Merge on 9/19/2018 12:35:35 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2542+v1.00.docx | Wed Sep 12 15:17:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2542+v1.00.docx | Wed Sep 19 14:41:57 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 700 |
| 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 US2542 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | February 2 018 | |
| 10 | Version 1. 0 | |
| 11 | User Story Number: U SRX- | |
| 12 | User Story Name: Ign ored Rejec ts Report to display reject co de(s) and insurance name | |
| 13 | Product Ba cklog ID: | |
| 14 | Backlog Pr iority: 49 | |
| 15 | Initial Si zing Estim ate: | |
| 16 | Rational I D: | |
| 17 | Rally ID: US2542 | |
| 18 | Epic Taxon omy: Updat e | |
| 19 | ||
| 20 | Design – S ummary | |
| 21 | On the Ign ored Rejec ts Report [PSO IGNOR ED REJECTS REPORT], display th e Insuranc e Name and Ignored R eject Code s. This w ill allow the ePharm acy Site M anager to have the c omplete da ta availab le on the Ignored Re jects Repo rt without having to do any fu rther rese arch. | |
| 22 | ||
| 23 | List of Co mponents: | |
| 24 | Routine: P SOBPSR1 | |
| 25 | ||
| 26 | Design – D etail | |
| 27 | The routin e EN^PSOBP SR1 will b e modified to displa y the Insu rance Name and Rejec t Code(s) for each i gnored rej ect as des cribed in the tables below. I t will als o be modif ied to cal l one subr outine, $$ COMPILE, t hat will g ather the data and c alculate t he number of lines o n the repo rt for eac h Prescrip tion and a nother sub routine, P RINT, to p rint the i nformation . | |
| 28 | ||
| 29 | Subroutine Name | |
| 30 | EN^PSOBPSR 1 | |
| 31 | Enhancemen t Category | |
| 32 | New | |
| 33 | Modify | |
| 34 | ||
| 35 | ||
| 36 | Routines W hich Call This Subro utine | |
| 37 | n/a | |
| 38 | Current Lo gic | |
| 39 | ||
| 40 | PSOBPSR1 ; BHM/LE - c ontinued I gnored Cla ims Report ;03/01/07 | |
| 41 | ;;7.0;OUT PATIENT PH ARMACY;**2 60,448**;1 3 Feb 97;B uild 25 | |
| 42 | ;External reference to File ^ PS(55 supp orted by D BIA 2228 | |
| 43 | ;External reference to $$GET1 ^DIQ is su pported by DBIA 2056 | |
| 44 | ;External reference to ^VADPT is suppor ted by DBI A 10061 | |
| 45 | ;External reference to ^XLFDT is suppor ted by DBI A 10103 | |
| 46 | ;External reference to ^%ZISC is suppor ted by DBI A 10089 | |
| 47 | ;Referenc e to $$GET BAMT^BPSBU TL support ed by DBIA #4719. | |
| 48 | ; | |
| 49 | EN N CLOSE ,CDATE,DFN ,DRG,RXIEN ,PAG,PCNT, PRTD,PNAM, I,II,J,Y,X ,XX,S1,S2, S3,S4,S5,F CNT,CBYI | |
| 50 | N SP1,SP2 ,SEQ2,CINF O,RDATE,RS EQ,PSORX,R XINFO,DNAM I,CDIV,CDI VN,OCDIV,R XNUMB,PSOR XN,RXE | |
| 51 | U IO K ^T MP("PSOBPS RP",$J),^T MP("PSOBPS RC",$J) | |
| 52 | S (SP1,SP 2)="",$P(S P1,"=",81) ="",$P(SP2 ,"-",81)=" " | |
| 53 | ; | |
| 54 | . . . | |
| 55 | ||
| 56 | ; | |
| 57 | ;look for ignored r ejects | |
| 58 | S SEQ2=0 F S SEQ2= $O(^PSRX(R XIEN,"REJ" ,SEQ2)) Q: 'SEQ2&(SEQ 2'?1N.N) D | |
| 59 | . S (CDAT E,CBY,CBYI ,CFILL,CDI V)="" | |
| 60 | . K CLOSE D GETS^DI Q(52.25,SE Q2_","_RXI EN_",","5; 10;11;12", "IE","CLOS E") | |
| 61 | . S CDATE =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",10,"I ")) | |
| 62 | . S CFILL =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",5,"I" )) | |
| 63 | . S CDIV= $$RXSITE^P SOBPSUT(RX IEN,CFILL) | |
| 64 | . I '$G(P SOSIT)&'$D (PSODIV(CD IV)) Q | |
| 65 | . I $G(CL OSE(52.25, SEQ2_","_R XIEN_",",1 2,"I"))=6, (CDATE'<PS OSD&(CDATE '>PSOED)) D | |
| 66 | . . S CBY =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",11,"E ")) | |
| 67 | . . S CBY I=$G(CLOSE (52.25,SEQ 2_","_RXIE N_",",11," I")) | |
| 68 | . . I '$G (PSOUSER), '$D(PSOU(C BYI)) Q ; user selec ted specif ic user fo r "ignored by" colum n in repor t | |
| 69 | . . D SET | |
| 70 | G RX | |
| 71 | ; | |
| 72 | ... | |
| 73 | ||
| 74 | CLOSE ; | |
| 75 | D ^%ZISC S:$D(ZTQUE UED) ZTREQ ="@" | |
| 76 | END K ^TMP ("PSOBPSRP ",$J),^TMP ("PSOBPSRC ",$J) | |
| 77 | K PSOAPT, PSODRUG,PS OUSER,PSOU ,PSODRG,PS OPT,PSOSRT ,PSOED,PSO SD,PSODIV, PSOSIT | |
| 78 | Q | |
| 79 | ||
| 80 | Modified L ogic (Chan ges are hi ghlighted) | |
| 81 | ||
| 82 | PSOBPSR1 ; BHM/LE - c ontinued I gnored Cla ims Report ;03/01/07 | |
| 83 | ;;7.0;OUT PATIENT PH ARMACY;**2 60,448,512 **;13 Feb 97;Build 2 5 | |
| 84 | ;External reference to File ^ PS(55 supp orted by D BIA 2228 | |
| 85 | ;External reference to $$GET1 ^DIQ is su pported by DBIA 2056 | |
| 86 | ;External reference to ^VADPT is suppor ted by DBI A 10061 | |
| 87 | ;External reference to ^XLFDT is suppor ted by DBI A 10103 | |
| 88 | ;External reference to ^%ZISC is suppor ted by DBI A 10089 | |
| 89 | ;Referenc e to $$GET BAMT^BPSBU TL support ed by DBIA #4719. | |
| 90 | ; | |
| 91 | EN N CLOSE ,CDATE,DFN ,DRG,RXIEN ,PAG,PCNT, PRTD,PNAM, I,II,J,Y,X ,XX,S1,S2, S3,S4,S5,F CNT,CBYI | |
| 92 | N SP1,SP2 ,SEQ2,CINF O,RDATE,RS EQ,PSORX,R XINFO,DNAM I,CDIV,CDI VN,OCDIV,R XNUMB,PSOR XN,RXE | |
| 93 | N EXTRALI NES,LINES, RXLN | |
| 94 | U IO K ^T MP("PSOBPS RP",$J),^T MP("PSOBPS RC",$J) | |
| 95 | S (SP1,SP 2)="",$P(S P1,"=",81) ="",$P(SP2 ,"-",81)=" " | |
| 96 | ; | |
| 97 | . . . | |
| 98 | ||
| 99 | ; | |
| 100 | ;look for ignored r ejects | |
| 101 | S SEQ2=0 F S SEQ2= $O(^PSRX(R XIEN,"REJ" ,SEQ2)) Q: 'SEQ2&(SEQ 2'?1N.N) D | |
| 102 | . S (CDAT E,CBY,CBYI ,CFILL,CDI V)="" | |
| 103 | . K CLOSE D GETS^DI Q(52.25,SE Q2_","_RXI EN_",","5; 10;11;12", "IE","CLOS E") | |
| 104 | . S CDATE =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",10,"I ")) | |
| 105 | . S CFILL =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",5,"I" )) | |
| 106 | . S CDIV= $$RXSITE^P SOBPSUT(RX IEN,CFILL) | |
| 107 | . I '$G(P SOSIT)&'$D (PSODIV(CD IV)) Q | |
| 108 | . ; Field #12-CLOSE REASON mu st be 6=IG NORED - NO RESUBMISS ION . ; CD ATE = Fiel d #10-CLOS E DATE/TIM E. It will only be s et if fiel d #9-STATU S equals 1 =CLOSED/RE SOLVED . ; Compare C DATE again st the Beg inning (PS OSD) and E nding (PSO ED) Reject Dates | |
| 109 | . I $G(CL OSE(52.25, SEQ2_","_R XIEN_",",1 2,"I"))=6, (CDATE'<PS OSD&(CDATE '>PSOED)) D | |
| 110 | . . S CBY =$G(CLOSE( 52.25,SEQ2 _","_RXIEN _",",11,"E ")) | |
| 111 | . . S CBY I=$G(CLOSE (52.25,SEQ 2_","_RXIE N_",",11," I")) | |
| 112 | . . I '$G (PSOUSER), '$D(PSOU(C BYI)) Q ; user selec ted specif ic user fo r "ignored by" colum n in repor t | |
| 113 | . . D SET | |
| 114 | G RX | |
| 115 | ; | |
| 116 | NEXT ; - I f not Sort ing (alrea dy printed ), SKIP, o therwise, print the report | |
| 117 | I '$D(^TM P("PSOBPSR P")) G NDT P | |
| 118 | ; I IOST= "C" S EXTR ALINES=3 E S EXTRAL INES=8 ; | |
| 119 | S (S1,S2, S3,DFN,RSE Q,PSORX,PS ORXN,RXNUM B,CDIV,OCD IV,CDIVN)= "" | |
| 120 | F S CDIV =$O(^TMP(" PSOBPSRP", $J,CDIV)) Q:CDIV="" D Q:$D(D IRUT) | |
| 121 | . F S S1 =$O(^TMP(" PSOBPSRP", $J,CDIV,S1 )) Q:S1="" D Q:$D( DIRUT) | |
| 122 | . . F S S2=$O(^TMP ("PSOBPSRP ",$J,CDIV, S1,S2)) Q: S2="" D Q:$D(DIRUT ) | |
| 123 | . . . F S S3=$O(^T MP("PSOBPS RP",$J,CDI V,S1,S2,S3 )) Q:S3="" D Q:$D( DIRUT) | |
| 124 | . . . . F S DFN=$O (^TMP("PSO BPSRP",$J, CDIV,S1,S2 ,S3,DFN)) Q:DFN="" D Q:$D(DI RUT) | |
| 125 | . . . . . F S PSOR XN=$O(^TMP ("PSOBPSRP ",$J,CDIV, S1,S2,S3,D FN,PSORXN) ) Q:PSORXN ="" D Q: $D(DIRUT) | |
| 126 | . . . . . . F S RS EQ=$O(^TMP ("PSOBPSRP ",$J,CDIV, S1,S2,S3,D FN,PSORXN, RSEQ)) Q:R SEQ="" D Q:$D(DIRU T) | |
| 127 | . . . . . . . I $Y> (IOSL-7)&( $E(IOST)=" C") D HDR I $D(DIRUT ) Q | |
| 128 | . . . . . . . I $Y> (IOSL-12)& ($E(IOST)' ="C") D HD R I $D(DIR UT) Q | |
| 129 | . . . . . . . S (RX NUMB,PSORX )="",RXNUM B=$E(PSORX N,1,$L(PSO RXN)-1),PS ORX=$O(^PS RX("B",RXN UMB,PSORX) ) | |
| 130 | . . . . . . . S LIN ES=$$COMPI LE(DFN,PSO RX) . . . . . . . I $Y>(IOSL-( LINES+EXTR ALINES)) D HDR I $D( DIRUT) Q | |
| 131 | . . . . . . . D PRI NT(DFN,PSO RX) | |
| 132 | . . . I ' $D(DIRUT), S2'=0,$O(^ TMP("PSOBP SRP",$J,CD IV,S1,S2)) '="" W SP2 | |
| 133 | . . I '$D (DIRUT),$O (^TMP("PSO BPSRP",$J, CDIV,S1))' ="" W !,SP 1 | |
| 134 | G CLOSE:$ D(DIRUT) | |
| 135 | ; | |
| 136 | NDTP I 'PR TD D HDR W !!?18,"** ******** NO DATA T O PRINT ********** " | |
| 137 | I $G(PCNT ) D | |
| 138 | . W !,SP1 | |
| 139 | . W !,"To tal: ",PCN T," patien t",$S(PCNT >1:"s",1:" ") | |
| 140 | . W " and ",FCNT," prescripti on fill",$ S(FCNT>1:" s",1:"")," ." | |
| 141 | ; | |
| 142 | CLOSE ; | |
| 143 | D ^%ZISC S:$D(ZTQUE UED) ZTREQ ="@" | |
| 144 | END K ^TMP ("PSOBPSRP ",$J),^TMP ("PSOBPSRC ",$J) | |
| 145 | K PSOAPT, PSODRUG,PS OUSER,PSOU ,PSODRG,PS OPT,PSOSRT ,PSOED,PSO SD,PSODIV, PSOSIT | |
| 146 | Q | |
| 147 | ||
| 148 | ||
| 149 | A new subr outine $$C OMPILE^PSO BPSR1 will be create d that wil l gather t he informa tion for t he report and determ ine the nu mber of li nes on the report fo r each Pre scription. | |
| 150 | ||
| 151 | Subroutine Name | |
| 152 | $$COMPILE^ PSOBPSR1 | |
| 153 | Enhancemen t Category | |
| 154 | New | |
| 155 | Modify | |
| 156 | Delete | |
| 157 | No Change | |
| 158 | Related In tegration Control Re gistration s (ICRs) | |
| 159 | n/a | |
| 160 | Data Passi ng | |
| 161 | Parameter Input | |
| 162 | Parameter Output | |
| 163 | Function Return Val ue | |
| 164 | Global Mo dified | |
| 165 | Input Attr ibute Name and Defin ition | |
| 166 | Name: DFN | |
| 167 | Definition : Patient | |
| 168 | New Modify Delete No Cha nge | |
| 169 | Name: RXIE N | |
| 170 | Definition : Prescrip tion IEN | |
| 171 | New Modify Delete No Cha nge | |
| 172 | Output Att ribute Nam e and Defi nition | |
| 173 | Name: LINE | |
| 174 | Definition : number o f lines fo r Rx | |
| 175 | New Modify Delete No Cha nge | |
| 176 | Current Lo gic | |
| 177 | ||
| 178 | n/a – new subroutine | |
| 179 | ||
| 180 | Modified L ogic (Chan ges are hi ghlighted) | |
| 181 | ||
| 182 | COMPILE(DF N,RXIEN) ; | |
| 183 | ; Gather data for r eport and determine the number of lines for the Rx | |
| 184 | ;Input: D FN-Patient | |
| 185 | ; R XIEN=Presc ription IE N | |
| 186 | ;Output: LINE=numbe r of lines for Rx | |
| 187 | ; | |
| 188 | N BILLED, CBY,CCOM,C DAT,CFILL, CINFO,COB, CREAS,DNAM ,II,J,K,LI NE,PMES,PN AM,PSSN,RX NUM,STR,X, XX | |
| 189 | S (BILLED ,CBY,CCOM, CDAT,CINFO ,COB,CREAS ,DNAM,PMES ,PNAM,PSSN ,RXNUM)="" | |
| 190 | ; | |
| 191 | D DEM^VAD PT S PSSN= $P($G(VADM (2)),"^",2 ) K VADM | |
| 192 | K RXINFO D GETS^DIQ (52,RXIEN_ ",",".01;2 ;6","EI"," RXINFO") | |
| 193 | S PNAM=RX INFO(52,RX IEN_",",2, "E"),DNAM= RXINFO(52, RXIEN_",", 6,"E") | |
| 194 | D GETS^DI Q(52.25,RS EQ_","_RXI EN_",",".0 1;2;5;10;1 1;12;13;17 ;20;27","I E","CINFO" ) | |
| 195 | S:$D(RXIN FO(52,RXIE N_",",.01, "E")) RXNU M=RXINFO(5 2,RXIEN_", ",.01,"E") | |
| 196 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",10, "I")) CDAT =CINFO(52. 25,RSEQ_", "_RXIEN_", ",10,"I") | |
| 197 | S CDAT=$$ DT(CDAT) | |
| 198 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",12, "I")) CREA S=CINFO(52 .25,RSEQ_" ,"_RXIEN_" ,",12,"E") | |
| 199 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",11, "E")) CBY= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,11,"E") | |
| 200 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",2," E")) PMES= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,2,"E") | |
| 201 | D TEXT(.P MES,PMES,6 5) | |
| 202 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",13, "E")) CCOM =CINFO(52. 25,RSEQ_", "_RXIEN_", ",13,"E") | |
| 203 | D TEXT(.C COM,CCOM,6 5) | |
| 204 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",5," I")) CFILL =CINFO(52. 25,RSEQ_", "_RXIEN_", ",5,"I") | |
| 205 | S COB=$G( CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,27,"I")) | |
| 206 | ; | |
| 207 | ; Get Ins urance Nam e and Reje ct Code(s) | |
| 208 | N I,OTHRE JS,PSOINS, RCARR,RCEX PL,RCEXPLS ,RCIEN,RCI ENS,REJCD, REJCDS | |
| 209 | S (OTHREJ S,PSOINS,R CARR,RCEXP L,RCEXPLS, RCIEN,RCIE NS,REJCD,R EJCDS)="" | |
| 210 | ; | |
| 211 | S PSOINS= $G(CINFO(5 2.25,RSEQ_ ","_RXIEN_ ",",20,"I" )) | |
| 212 | S REJCD=$ G(CINFO(52 .25,RSEQ_" ,"_RXIEN_" ,",.01,"I" )) | |
| 213 | I REJCD'= "" D | |
| 214 | . ; get R eject Code Explanati on from Fi le #900231 3.93 | |
| 215 | . S RCIEN =$O(^BPSF( 9002313.93 ,"B",REJCD ,"")) | |
| 216 | . S RCEXP L=$$GET1^D IQ(9002313 .93,RCIEN_ ",",.02,"E ") | |
| 217 | . ; creat e a reject s array RC ARR | |
| 218 | . S RCARR (0)=REJCD_ ":"_RCEXPL | |
| 219 | . Q | |
| 220 | ; check t o see if a ny other r eject code s were ret urned, fie ld #17 OTH ER REJECTS | |
| 221 | ; if any were foun d add them to the re jects arra y RCARR | |
| 222 | I $G(CINF O(52.25,RS EQ_","_RXI EN_",",17, "I"))'="" D | |
| 223 | . S OTHRE JS=CINFO(5 2.25,RSEQ_ ","_RXIEN_ ",",17,"I" ) | |
| 224 | . F I=1:1 :$L(OTHREJ S,",") S R EJCDS=$P(O THREJS,"," ,I) D | |
| 225 | . . S RCI ENS=$O(^BP SF(9002313 .93,"B",RE JCDS,"")) | |
| 226 | . . S RCE XPLS=$$GET 1^DIQ(9002 313.93,RCI ENS_",",.0 2,"E") | |
| 227 | . . S RCA RR(I)=REJC DS_":"_RCE XPLS | |
| 228 | . . Q | |
| 229 | ; | |
| 230 | S BILLED= $$GETBAMT^ BPSBUTL(RX IEN,$G(CFI LL),COB) ; DBIA #47 19 | |
| 231 | ; | |
| 232 | S LINE=1 | |
| 233 | S ^TMP("P SOBPSRP",$ J,CDIV,S1, S2,S3,DFN, PSORXN,RSE Q,LINE)=RX NUM_"/"_CF ILL_U_ | |
| 234 | $E(DNAM,1, 21)_U_$E(P NAM,1,13)_ "("_$P(PSS N,"-",3)_" )"_U_CDAT_ U_$E(CBY,1 ,14) | |
| 235 | S LINE=LI NE+1 | |
| 236 | S ^TMP("P SOBPSRP",$ J,CDIV,S1, S2,S3,DFN, PSORXN,RSE Q,LINE)="I nsurance: "_PSOINS | |
| 237 | S LINE=LI NE+1 | |
| 238 | ; | |
| 239 | S II="" F S II=$O( RCARR(II)) Q:II="" D | |
| 240 | . I II=0 S ^TMP("PS OBPSRP",$J ,CDIV,S1,S 2,S3,DFN,P SORXN,RSEQ ,LINE)="Re ject: "_$ G(RCARR(II )) | |
| 241 | . E S ^T MP("PSOBPS RP",$J,CDI V,S1,S2,S3 ,DFN,PSORX N,RSEQ,LIN E)=" "_$E($G (RCARR(II) ),1,69) | |
| 242 | . S LINE= LINE+1 | |
| 243 | ; | |
| 244 | S ^TMP("P SOBPSRP",$ J,CDIV,S1, S2,S3,DFN, PSORXN,RSE Q,LINE)="B illed Amou nt: "_"$"_ BILLED | |
| 245 | S LINE=LI NE+1 | |
| 246 | ; | |
| 247 | S II="" F S II=$O( CCOM(II)) Q:II="" D | |
| 248 | . I II=1 S ^TMP("PS OBPSRP",$J ,CDIV,S1,S 2,S3,DFN,P SORXN,RSEQ ,LINE)=" Comment s: "_$G(CC OM(II)) | |
| 249 | . E S ^T MP("PSOBPS RP",$J,CDI V,S1,S2,S3 ,DFN,PSORX N,RSEQ,LIN E)=" " _$G(CCOM(I I)) | |
| 250 | . S LINE= LINE+1 | |
| 251 | ; | |
| 252 | S II="" F S II=$O( PMES(II)) Q:II="" D | |
| 253 | . I II=1 S ^TMP("PS OBPSRP",$J ,CDIV,S1,S 2,S3,DFN,P SORXN,RSEQ ,LINE)="Pa yer Messag e: "_$G(PM ES(II)) | |
| 254 | . E S ^T MP("PSOBPS RP",$J,CDI V,S1,S2,S3 ,DFN,PSORX N,RSEQ,LIN E)=" " _$G(PMES(I I)) | |
| 255 | . S LINE= LINE+1 | |
| 256 | ; | |
| 257 | Q LINE | |
| 258 | ||
| 259 | ||
| 260 | PRINT^PSOB PSR1 will be modifie d to only print the informatio n to the r eport. | |
| 261 | ||
| 262 | Subroutine Name | |
| 263 | PRINT^PSOB PSR1 | |
| 264 | Enhancemen t Category | |
| 265 | New | |
| 266 | Modify | |
| 267 | ||
| 268 | ||
| 269 | Routines W hich Call This Subro utine | |
| 270 | n/a | |
| 271 | Current Lo gic | |
| 272 | ||
| 273 | PRINT(DFN, RXIEN) ; - Print | |
| 274 | ;Input: D FN-Patient ;RXIEN=Pre scription IEN | |
| 275 | N X,XX,K, PNAM,PSSN, II,J,STR,C COM,PMES,C BY,CREAS,C DAT,CFILL, RXNUM,DNAM ,CINFO,COB ,BILLED | |
| 276 | S (CDAT,C REAS,CBY,D NAM,PNAM,P MES,PSSN,C COM,CINFO, RXNUM,COB, BILLED)="" | |
| 277 | ; | |
| 278 | I OCDIV'= CDIV!(OCDI V="") D HD R I $D(DIR UT) Q | |
| 279 | S OCDIV=C DIV | |
| 280 | ; | |
| 281 | D DEM^VAD PT S PSSN= $P($G(VADM (2)),"^",2 ) K VADM | |
| 282 | K RXINFO D GETS^DIQ (52,RXIEN_ ",",".01;2 ;6","EI"," RXINFO") | |
| 283 | S PNAM=RX INFO(52,RX IEN_",",2, "E"),DNAM= RXINFO(52, RXIEN_",", 6,"E") | |
| 284 | D GETS^DI Q(52.25,RS EQ_","_RXI EN_",","5; 10;11;12;2 ;13;27","I E","CINFO" ) | |
| 285 | S:$D(RXIN FO(52,RXIE N_",",.01, "E")) RXNU M=RXINFO(5 2,RXIEN_", ",.01,"E") | |
| 286 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",10, "I")) CDAT =CINFO(52. 25,RSEQ_", "_RXIEN_", ",10,"I") | |
| 287 | S CDAT=$$ DT(CDAT) | |
| 288 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",12, "I")) CREA S=CINFO(52 .25,RSEQ_" ,"_RXIEN_" ,",12,"E") | |
| 289 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",11, "E")) CBY= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,11,"E") | |
| 290 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",2," E")) PMES= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,2,"E") | |
| 291 | D TEXT(.P MES,PMES,6 5) | |
| 292 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",13, "E")) CCOM =CINFO(52. 25,RSEQ_", "_RXIEN_", ",13,"E") | |
| 293 | D TEXT(.C COM,CCOM,6 5) | |
| 294 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",5," I")) CFILL =CINFO(52. 25,RSEQ_", "_RXIEN_", ",5,"I") | |
| 295 | S COB=$G( CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,27,"I")) | |
| 296 | ; | |
| 297 | S BILLED= $$GETBAMT^ BPSBUTL(RX IEN,$G(CFI LL),COB) ; DBIA #47 19 | |
| 298 | W !,RXNUM _"/"_CFILL ,?15,$E(DN AM,1,21),? 37,$E(PNAM ,1,13)_"(" _$P(PSSN," -",3)_")", ?57,CDAT,? 66,$E(CBY, 1,14) | |
| 299 | W !,"Bill ed Amount: ",?15,"$" ,BILLED | |
| 300 | S II="" F S II=$O( CCOM(II)) Q:II="" D | |
| 301 | . W:II=1 !," Co mments: " | |
| 302 | . W:$D(CC OM(II)) ?1 5,CCOM(II) ,! | |
| 303 | S II="" F S II=$O( PMES(II)) Q:II="" D | |
| 304 | . W:II=1 "Payer Me ssage: " | |
| 305 | . W:$D(P MES(II)) ? 15,PMES(II ),! | |
| 306 | ; | |
| 307 | S:'$D(^TM P("PSOBPSR C",$J,DFN) ) PCNT=PCN T+1 S ^TMP ("PSOBPSRC ",$J,DFN)= "" | |
| 308 | ; | |
| 309 | S PRTD=1, FCNT=FCNT+ 1 | |
| 310 | Q | |
| 311 | ||
| 312 | Modified L ogic (Chan ges are hi ghlighted) | |
| 313 | ||
| 314 | PRINT(DFN, RXIEN) ; - Print | |
| 315 | ;Input: D FN-Patient | |
| 316 | ;Input: D FN=Patient | |
| 317 | ; R XIEN=Presc ription IE N | |
| 318 | N X,XX,K, PNAM,PSSN, II,J,STR,C COM,PMES,C BY,CREAS,C DAT,CFILL, RXNUM,DNAM ,CINFO,COB ,BILLED | |
| 319 | N OTHREJS ,PSOINS,RC ,RCARR,RCE XPL,RCEXPL S,RCIEN,RC IENS,REJCD ,REJCDS | |
| 320 | S (CDAT,C REAS,CBY,D NAM,PNAM,P MES,PSSN,C COM,CINFO, RXNUM,COB, BILLED)="" | |
| 321 | N RXLN,RX REC | |
| 322 | ; | |
| 323 | I OCDIV'= CDIV!(OCDI V="") D HD R I $D(DIR UT) Q | |
| 324 | S OCDIV=C DIV | |
| 325 | ; | |
| 326 | D DEM^VAD PT S PSSN= $P($G(VADM (2)),"^",2 ) K VADM | |
| 327 | K RXINFO D GETS^DIQ (52,RXIEN_ ",",".01;2 ;6","EI"," RXINFO") | |
| 328 | S PNAM=RX INFO(52,RX IEN_",",2, "E"),DNAM= RXINFO(52, RXIEN_",", 6,"E") | |
| 329 | D GETS^DI Q(52.25,RS EQ_","_RXI EN_",","5; 10;11;12;2 ;13;27","I E","CINFO" ) | |
| 330 | S:$D(RXIN FO(52,RXIE N_",",.01, "E")) RXNU M=RXINFO(5 2,RXIEN_", ",.01,"E") | |
| 331 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",10, "I")) CDAT =CINFO(52. 25,RSEQ_", "_RXIEN_", ",10,"I") | |
| 332 | S CDAT=$$ DT(CDAT) | |
| 333 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",12, "I")) CREA S=CINFO(52 .25,RSEQ_" ,"_RXIEN_" ,",12,"E") | |
| 334 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",11, "E")) CBY= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,11,"E") | |
| 335 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",2," E")) PMES= CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,2,"E") | |
| 336 | D TEXT(.P MES,PMES,6 5) | |
| 337 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",13, "E")) CCOM =CINFO(52. 25,RSEQ_", "_RXIEN_", ",13,"E") | |
| 338 | D TEXT(.C COM,CCOM,6 5) | |
| 339 | S:$D(CINF O(52.25,RS EQ_","_RXI EN_",",5," I")) CFILL =CINFO(52. 25,RSEQ_", "_RXIEN_", ",5,"I") | |
| 340 | S COB=$G( CINFO(52.2 5,RSEQ_"," _RXIEN_"," ,27,"I")) | |
| 341 | S RXLN="" F S RXLN =$O(^TMP(" PSOBPSRP", $J,CDIV,S1 ,S2,S3,DFN ,PSORXN,RS EQ,RXLN)) Q:RXLN="" D . S RXR EC=^TMP("P SOBPSRP",$ J,CDIV,S1, S2,S3,DFN, PSORXN,RSE Q,RXLN) . ; If first line, wri te Rx Info . For all other line s write In surance Na me, | |
| 342 | . ; Rejec ts, Billed Amount, C omments an d Payer Me ssage. . I RXLN=1 W !,$P(RXREC ,U),?15,$P (RXREC,U,2 ),?37,$P(R XREC,U,3), ?57,$P(RXR EC,U,4),?6 6,$P(RXREC ,U,5) . E W !,RXREC | |
| 343 | W ! | |
| 344 | ; | |
| 345 | S:'$D(^TM P("PSOBPSR C",$J,DFN) ) PCNT=PCN T+1 S ^TMP ("PSOBPSRC ",$J,DFN)= "" | |
| 346 | ; | |
| 347 | S PRTD=1, FCNT=FCNT+ 1 | |
| 348 | Q | |
| 349 | ||
| 350 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.