Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSQP

Package: Pharmacy Point of Sale

Routine: ABSPOSQP


Information

ABSPOSQP ; IHS/FCS/DRS - SGM 05:46 PM 20 Jan 1997 ; [ 09/12/2002 10:18 AM ]

Source Information

Source file <ABSPOSQP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Point of Sale 4 $$MAKE11N^ABSPOS9  RECALC1^ABSPOSI7  ASK^ABSPOSS3  IMPOSS^ABSPOSUE  
VA Fileman 1 ($$GET,PUT)^DDSVAL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSI7  ABSPOSQB  

Entry Points

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()

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"At this time, you have "
  • Line Location: NEWENTRY+2
Function Call: WRITE
  • Prompt: "only the STANDARD pricing formula.",!
  • Line Location: NEWENTRY+4
Function Call: WRITE
  • Prompt: COUNT," pricing formulas on file.",!
  • Line Location: NEWENTRY+6

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T( UNITPRI2+10, STEP+1, PAGE7+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All