ABSPOSQP ; IHS/FCS/DRS - SGM 05:46 PM 20 Jan 1997 ; [ 09/12/2002 10:18 AM ]
Source file <ABSPOSQP.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Point of Sale | 4 | $$MAKE11N^ABSPOS9 RECALC1^ABSPOSI7 ASK^ABSPOSS3 IMPOSS^ABSPOSUE |
VA Fileman | 1 | ($$GET,PUT)^DDSVAL |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Point of Sale | 2 | ABSPOSI7 ABSPOSQB |
Name | Comments | DBIA/ICR reference |
---|---|---|
ROUND(X) | ||
EN | ;EP - PRICING ; called from ABSPOSQB
|
|
IEN59() | ||
NEWENTRY | ;EP - this is called by ENTRY ACTION of option ABSP SETUP PRICING
|
|
QTY() | ; given ABSBRXI, ABSBRXR
|
|
UNITPRI1() | ||
METHOD() | ; what pricing method to use?
; point to an entry in 9002313.53 and return the zero node |
|
DISPFEE() | ||
GETPPDU() | ||
ZEROES(X) | ||
GETPSRXA() | ||
UNITPRI() | ||
GETCPTRT() | ||
GETPSRXU() | ||
PAGE7 | ;EP - called from ABSPOSI7 - pop-up page for pricing
; want to set some defaults |
|
GETAWP() | ; Given ABSBNDC, get AWP-MED TRANSACTION file's avg. wholesale price
|
|
PRICING() | ||
STEP(X) | ; INCOMPLETE!!!! deal with step formula in 9002313.53
|
|
UNITPRI2(Y) | ||
METHNUM() | ||
GETAWPPD() |
Name | Field # of Occurrence |
---|---|
$$MAKE11N^ABSPOS9 | PAGE7+26 |
RECALC1^ABSPOSI7 | PAGE7+21, PAGE7+38 |
ASK^ABSPOSS3 | NEWENTRY+7 |
IMPOSS^ABSPOSUE | UNITPRI2+10, STEP+1, PAGE7+8 |
$$GET^DDSVAL | PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+34 |
PUT^DDSVAL | PAGE7+10, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19, PAGE7+20, PAGE7+27, PAGE7+29, PAGE7+30 , PAGE7+31, PAGE7+36 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABSCPT(9002300 | GETCPTRT+1, GETCPTRT+3, PAGE7+12 |
^ABSP(9002313.53 - [#9002313.53] | METHOD+2, NEWENTRY+1 |
^ABSPEI - [#9002313.4] | METHNUM+2, DISPFEE+4 |
^ABSPT - [#9002313.59] | PRICING+15* |
^ABSSETUP(9002314 | DISPFEE+16 |
^APSAMDF - [#9009037] | GETAWP+3 |
^APSAMDF("B" | GETAWP+2 |
^PSDRUG - [#50] | EN+13, GETAWPPD+1, GETPPDU+1 |
^PSRX - [#52] | EN+15, GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, QTY+1, QTY+2 |
^TMP("DDS" | PAGE7+2 |
^VA(200 - [#200] | EN+16 |
Name | Line Occurrences |
---|---|
$$DISPFEE | PRICING+8, PAGE7+30 |
$$GETAWP | UNITPRI+5, UNITPRI+12, UNITPRI2+3 |
$$GETAWPPD | UNITPRI+6, UNITPRI+13, UNITPRI2+4 |
$$GETCPTRT | UNITPRI+10, UNITPRI+17, UNITPRI2+8 |
$$GETPPDU | UNITPRI+7, UNITPRI+16, UNITPRI2+5 |
$$GETPSRXA | UNITPRI+8, UNITPRI+14, UNITPRI2+6 |
$$GETPSRXU | UNITPRI+9, UNITPRI+15, UNITPRI2+7 |
$$METHNUM | METHOD+2 |
$$METHOD | PRICING+2, DISPFEE+10, PAGE7+23 |
$$QTY | PRICING+4, PAGE7+27 |
$$ROUND | PRICING+12 |
$$STEP | UNITPRI+19 |
$$UNITPRI | PRICING+5 |
$$UNITPRI1 | PAGE7+28 |
$$UNITPRI2 | UNITPRI1+3, UNITPRI1+18, UNITPRI1+19, UNITPRI1+20, UNITPRI1+21, UNITPRI1+22, UNITPRI1+23, UNITPRI1+24 |
$$ZEROES | PAGE7+29, PAGE7+36 |
PRICING | EN+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ABSBDRGI | EN+12 |
ABSBNDC | GETAWP+1, GETAWP+2, PAGE7+3~, PAGE7+25*, PAGE7+26* |
ABSBRXI | EN+15, GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, IEN59, QTY+1, QTY+2, PAGE7+3~, PAGE7+5* , PAGE7+6 |
ABSBRXR | GETPSRXA+1, GETPSRXA+2, GETPSRXU+1, GETPSRXU+2, IEN59, QTY+1, PAGE7+3~, PAGE7+22* |
ABSPINCN | PRICING+10~*, PRICING+12, PRICING+14 |
ABSPINCT | PAGE7+33~, PAGE7+34*, PAGE7+35*, PAGE7+36 |
COUNT | NEWENTRY+1~*, NEWENTRY+3, NEWENTRY+6 |
CPTDFN | GETCPTRT+1~*, GETCPTRT+2, GETCPTRT+3 |
CPTIEN | PAGE7+7~*, PAGE7+8, PAGE7+12 |
>> DA | PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19 , PAGE7+20, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+27, PAGE7+29, PAGE7+30, PAGE7+31, PAGE7+34, PAGE7+36 |
>> DDS | PAGE7+2 |
>> DDSDA | PAGE7+2 |
>> DDSERROR | PAGE7+2* |
>> DIE | PAGE7+4, PAGE7+5, PAGE7+7, PAGE7+10, PAGE7+11, PAGE7+14, PAGE7+15, PAGE7+16, PAGE7+18, PAGE7+19 , PAGE7+20, PAGE7+22, PAGE7+24, PAGE7+25, PAGE7+27, PAGE7+29, PAGE7+30, PAGE7+31, PAGE7+34, PAGE7+36 |
DISPFEE | PRICING+8~*, PRICING+12, PRICING+13 |
DRGDFN | EN+12~*, EN+13, EN+14, GETAWPPD+1, GETPPDU+1, GETCPTRT+1, PAGE7+3~, PAGE7+24* |
>> DRGNAME | EN+13*, EN+14* |
FEE | DISPFEE+1~, DISPFEE+3, DISPFEE+4*, DISPFEE+10*, DISPFEE+16*, DISPFEE+17 |
>> IEN59 | PRICING+15 |
INSURER | METHNUM+2, DISPFEE+3, DISPFEE+4, PAGE7+3~, PAGE7+4* |
METHOD | METHNUM+1~*, METHNUM+2*, METHNUM+3*, METHNUM+4, UNITPRI+4, UNITPRI+19, UNITPRI1+2, PRICING+2~*, PRICING+6, PAGE7+3~ , PAGE7+23* |
MULTIP | PRICING+6~*, PRICING+7 |
>> PRICALC | PRICING+1*, PRICING+4*, PRICING+5*, PRICING+7*, PRICING+8*, PRICING+10*, PRICING+12* |
PRICE | PAGE7+12~*, PAGE7+13, PAGE7+18 |
>> PRICING | PRICING+13*, PRICING+14*, PRICING+15 |
>> PROV | EN+16*, EN+17*, EN+18* |
>> PROVDFN | EN+15*, EN+16, EN+18 |
QTY | PRICING+4~*, PRICING+12, PRICING+13 |
U | EN+13, EN+15, EN+16, METHNUM+2, GETAWP+3, GETAWPPD+1, GETPPDU+1, GETCPTRT+3, GETPSRXA+1, GETPSRXA+2 , GETPSRXU+1, GETPSRXU+2, UNITPRI+4, UNITPRI+19, UNITPRI1+2, UNITPRI2+11, PRICING+6, PRICING+13, PRICING+14, QTY+1 , QTY+2, DISPFEE+4, DISPFEE+10, DISPFEE+16, PAGE7+2, PAGE7+12, PAGE7+29, PAGE7+31, NEWENTRY+1 |
UNITPRI | PRICING+5~*, PRICING+7*, PRICING+12, PRICING+13 |
X | GETAWP+2~*, GETAWP+3, UNITPRI+3~, UNITPRI+4*, UNITPRI+5*, UNITPRI+6*, UNITPRI+7*, UNITPRI+8*, UNITPRI+9*, UNITPRI+10* , UNITPRI+12*, UNITPRI+13*, UNITPRI+14*, UNITPRI+15*, UNITPRI+16*, UNITPRI+17*, UNITPRI+18*, UNITPRI+19*, UNITPRI+21, UNITPRI1+1~ , UNITPRI1+3*, UNITPRI1+18*, UNITPRI1+19*, UNITPRI1+20*, UNITPRI1+21*, UNITPRI1+22*, UNITPRI1+23*, UNITPRI1+24*, UNITPRI1+26, UNITPRI2+3* , UNITPRI2+4*, UNITPRI2+5*, UNITPRI2+6*, UNITPRI2+7*, UNITPRI2+8*, UNITPRI2+9*, UNITPRI2+11, STEP~, PRICING+12~*, PRICING+13 , PRICING+16, ROUND~, PAGE7+28~*, PAGE7+29, PAGE7+31, ZEROES~, ZEROES+1*, ZEROES+2, ZEROES+3*, ZEROES+4* , ZEROES+5 |
Y | UNITPRI+3~, UNITPRI+4*, UNITPRI+5, UNITPRI+6, UNITPRI+7, UNITPRI+8, UNITPRI+9, UNITPRI+10, UNITPRI1+1~, UNITPRI1+2* , UNITPRI1+3, UNITPRI2~, UNITPRI2+3, UNITPRI2+4, UNITPRI2+5, UNITPRI2+6, UNITPRI2+7, UNITPRI2+8, UNITPRI2+9*, UNITPRI2+10 , UNITPRI2+11 |
Name | Field # of Occurrence |
---|---|
$T( | UNITPRI2+10, STEP+1, PAGE7+8 |