©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSOCPBA2 ;BIR/EJW-PHARMACY CO-PAY APPLICATION UTILITIES FOR IB ;03/29/03
Source file <PSOCPBA2.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | (CHKIB,XTYPE1)^PSOCP1 ^PSOLSET |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | PSOCPBAK PSOCPIB3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ;
|
|
| TALLY | ;
; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND TALLY |
|
| RX | ; Determine Original or Refill for RX
|
|
| SITE | ; SET UP VARIABLES NEEDED BY BILLING
|
|
| COPAYREL | ; Recheck copay status at release
|
|
| CP | ; Entry point to Check if COPAY - Requires RXP,PSOSITE7
|
|
| ACCUM | ; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBAM(354.7 | ACCUM+5 |
| ^PS(53 - [#53] | COPAYREL+3 |
| ^PS(59 - [#59] | CP+7, SITE+3, SITE+4 |
| ^PSDRUG - [#50] | COPAYREL+6 |
| ^PSRX - [#52] | TALLY+9, TALLY+12, CP+3, CP+4, CP+8, RX+4, RX+6, RX+7, RX+8, RX+9 , RX+15, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, SITE+1 |
| ^XTMP("PSOCPBAK" | TALLY+2, TALLY+3, TALLY+5, TALLY+6, ACCUM+3, ACCUM+8*, ACCUM+9* |
| Name | Line Occurrences |
|---|---|
| ACCUM | RX+16 |
| COPAYREL | RX+11 |
| CP | TALLY+11, TALLY+14, CP+1 |
| QUIT | RX+6, RX+7, RX+8, RX+9, RX+12, RX+13 |
| SITE | TALLY+10, TALLY+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHKXTYPE | COPAYREL+8! |
| DRG | COPAYREL+5~, COPAYREL+6* |
| DRGTYP | COPAYREL+5~, COPAYREL+6*, COPAYREL+7 |
| PREA | QUIT+1! |
| >> PSOCAP( | TALLY+7, ACCUM+7* |
| >> PSOCAP(302 | TALLY+4* |
| >> PSOCAP(303 | TALLY+4* |
| PSOCHG | RX+10*, RX+12, RX+13, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+10* |
| PSOCP | CP+2!, CP+4*, CP+5, CP+8, RX+13 |
| PSOCP1 | QUIT+1! |
| PSOCP2 | QUIT+1! |
| PSOCPN | CP+3*, CP+8, QUIT+1! |
| PSOCPUN | RX+15*, QUIT+1!, ACCUM+7, ACCUM+8, ACCUM+9 |
| >> PSODFN | TALLY+2*, TALLY+3, TALLY+5, TALLY+6, ACCUM+3, ACCUM+5, ACCUM+8, ACCUM+9 |
| PSOIB | RX+1~, RX+2*, RX+6, RX+8 |
| >> PSOLOG | ACCUM+5*, ACCUM+6 |
| >> PSOPAR | CP+1, SITE+3* |
| PSOREF | RX+3*, RX+4*, RX+6, RX+7, RX+8, RX+9, QUIT+1! |
| >> PSOREL | TALLY+6*, TALLY+7, ACCUM+1 |
| PSORSN | QUIT+1! |
| PSOSAVE | CP+5*, QUIT+1! |
| >> PSOSITE | CP+7, SITE+1*, SITE+2, SITE+3, SITE+4 |
| >> PSOSITE7 | CP+7*, CP+8, SITE+4* |
| >> PSOSQ | ACCUM+5* |
| PSOTG | COPAYREL+8! |
| >> PSOTOT | ACCUM+3*, ACCUM+4, ACCUM+6*, ACCUM+7, ACCUM+8 |
| >> PSOYEAR | ACCUM+2*, ACCUM+3, ACCUM+8, ACCUM+9 |
| >> PSOYR | ACCUM+1*, ACCUM+2, ACCUM+5, ACCUM+7 |
| QUIT+1! | |
| >> RXP | TALLY+5*, TALLY+6, TALLY+9, TALLY+12, CP+3, CP+4, CP+8, RX+4, RX+6, RX+7 , RX+8, RX+9, RX+15, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, SITE+1 |
| X | CP+8*, QUIT+1! |
| Y | QUIT+1! |
| >> YY | TALLY+5*, TALLY+6, TALLY+8, TALLY+12, RX+4, SITE+1 |