PSOCPBA2 ;BIR/EJW-PHARMACY CO-PAY APPLICATION UTILITIES FOR IB ;03/29/03
Source file <PSOCPBA2.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 3 | (CHKIB,XTYPE1)^PSOCP1 ACTLOG^PSOCPA ^PSOLSET |
National Drug File | 1 | $$CPTIER^PSNAPIS |
VA FileMan | 1 | NOW^%DTC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 2 | PSOCPBAK PSOCPIB3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TALLY | ;
; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND TALLY |
|
CP | ; Entry point to Check if COPAY - Requires RXP,PSOSITE7
|
|
RX | ; Determine Original or Refill for RX
|
|
QUIT | ;
|
|
COPAYREL | ; Recheck copay status at release
|
|
COPAYRE1 | ;
|
|
ACCUM | ; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
|
|
SITE | ; SET UP VARIABLES NEEDED BY BILLING
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBAM(354.7 - [#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* |
^XTMP("PSOTIEREFTST" | COPAYREL+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | COPAYREL+16 |
CHKXTYPE | COPAYREL+8! |
CPDATE | COPAYREL+21~*! |
DRG | COPAYREL+5~, COPAYREL+6*, COPAYREL+21 |
DRGTYP | COPAYREL+5~, COPAYREL+6*, COPAYREL+7 |
PREA | QUIT+1!, COPAYREL+23* |
>> 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*, COPAYREL+22* |
PSOCOMM | QUIT+1!, COPAYREL+23* |
PSOCP | CP+2!, CP+4*, CP+5, CP+8, RX+13 |
PSOCP1 | QUIT+1! |
PSOCP2 | QUIT+1! |
PSOCPN | CP+3*, CP+8, QUIT+1! |
PSOCPT | COPAYREL+21~*, COPAYREL+22, COPAYREL+23 |
PSOCPUN | RX+15*, QUIT+1!, ACCUM+7, ACCUM+8, ACCUM+9 |
PSODA | QUIT+1!, COPAYREL+23* |
>> 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 |
PSONW | QUIT+1!, COPAYREL+23* |
PSOOLD | QUIT+1!, COPAYREL+23* |
>> 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! |
PSOTIERE | COPAYREL+14~, COPAYREL+15*, COPAYREL+16*, COPAYREL+17*, COPAYREL+19 |
>> 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, COPAYREL+23, SITE+1 |
X | CP+8*, QUIT+1!, COPAYREL+21~! |
Y | QUIT+1! |
>> YY | TALLY+5*, TALLY+6, TALLY+8, TALLY+12, RX+4, SITE+1 |