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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBAAPIE1

Package: Fee Basis

Routine: FBAAPIE1


Information

FBAAPIE1 ;AISC/GRR - ENTER FEE PHARMACY INVOICE ;6/5/2009

Source Information

Source file <FBAAPIE1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Fee Basis 3 (CHK,RDD,RDP,RDRX,RXADD)^FBAAPIE  $$SSN^FBAAUTL  GETAUTHK^FBAAUTL1  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Fee Basis 2 FBAAPIE  FBAAPIP  

Entry Points

Name Comments DBIA/ICR reference
LISTLI
Q
GETIT
HED
CHKK
CALC ;Calculate Invoice Total
RDM
RD2
RD3
RX2
PROB
CHK2 ;Checks for duplicate payments on all linked vendors.

External References

Name Field # of Occurrence
HOME^%ZIS LISTLI+1
^DIC RD2
$$GET1^DIQ RD2+1
^DIR GETIT+3, RDM, RD3, RX2+1
CHK^FBAAPIE RX2+1
RDD^FBAAPIE CHKK+1
RDP^FBAAPIE RD3+1
RDRX^FBAAPIE RX2+1
RXADD^FBAAPIE RX2+1
$$SSN^FBAAUTL GETIT+1
GETAUTHK^FBAAUTL1 Q+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No prescriptions currently in this invoice.",!
  • Line Location: LISTLI+0
Function Call: WRITE
  • Prompt: !,SSN,?19,$E(FBFD,4,5),"-",$E(FBFD,6,7),"-",$E(FBFD,2,3),?31,FBRX,?44,FBAC
  • Line Location: GETIT+4
Function Call: WRITE
  • Prompt: @IOF,"Invoice #: ",DA,?25,"Vendor Name: ",VNAM,!!,"Patient I.D.",?18,"Fill Date",?30," RX #",?40,"Amt Claimed",!
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !!,*7,"There already is a prescription number entered, from this vendor, ",!,"for that fill date. The invoice number is ",$O(^FBAA(162.1,"AL",VIN,PSRX,DATEF,""))_" ."
  • Line Location: CHKK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: RD2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RD3+0
Function Call: WRITE
  • Prompt: !!,*7,"This prescription number already exsists in this invoice.",!
  • Line Location: RX2+0
Function Call: WRITE
  • Prompt: !!,"You do not have access to the Fee Invoice File, contact your IRM Service.",!
  • Line Location: PROB+0
Routine Call
  • %ZIS
  • Line Location:
    • LISTLI+1
Routine Call
  • DIC
  • Line Location:
    • RD2
Routine Call
  • DIR
  • Line Location:
    • GETIT+3
    • RDM
    • RD3
    • RX2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(162.1 - [#162.1] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(162.1 - [#162.1] LISTLI, LISTLI+2, GETIT+1, CHKK, CALC+1, RD3+1, CHK2+1
^FBAAV - [#161.2] GETIT+1

Label References

Name Line Occurrences
CALC RD2+2
GETIT LISTLI+2
HED GETIT+2, GETIT+3
LISTLI RD3
Q RDM, RD2, RD3, PROB
RD2 RD2

Naked Globals

Name Field # of Occurrence
^( CALC+1
^(0 LISTLI+2, RD2, RD3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q!
A1 Q+1!
A2 Q+1!
AC Q!
CHN Q+1!
CNT Q!
D Q+1!
D0 Q+1!
DA LISTLI, LISTLI+2, Q!, GETIT+1, HED, RD2*, RD2+1
DA(1 RD2*
DAT Q!
DATEF Q!, CHKK, CHK2+1
DFN Q+1!, GETIT*, GETIT+1
DIC Q!, RD2*
DIC("S" RD2*
DIC(0 RD2*
DIE Q!
DIR GETIT+3!, RDM!, RD3!, RX2+1!
DIR("A" RDM*, RD3*, RX2+1*
DIR("B" RDM*, RD3*, RX2+1*
DIR(0 GETIT+3*, RDM*, RD3*, RX2+1*
DIRUT Q+2!, RDM, RD3, RX2+1
DOB Q+1!
DR Q!
F Q+1!
FB7078 Q+2!
FBAABDT Q!
FBAAEDT Q!
FBAAIN Q!
FBAAOUT LISTLI+2*, Q!, GETIT+3*
FBAAPN Q!
FBAAPTC Q!
FBAC Q+1!, GETIT*, GETIT+4
FBAP Q+1!
FBAR Q+2!
FBAR( CHK2+1
FBASSOC Q+2!
FBAUT Q+1!
FBBATCH Q!
FBD1 Q+2!
FBDA Q+2!
FBDEL Q+1!
FBDRUG Q!
FBDX Q!
FBFD Q+1!, GETIT*, GETIT+4
FBFDC Q!
FBFPPSC Q+2!, RD3+1*
FBI Q!
FBID Q+2!
FBINTOT Q!, CALC+1*, RD2+2
FBINVN Q!
FBJ Q+2!, CHK2+1*
FBLOC Q+2!
FBMDF Q!
FBMST Q!
FBPARCD Q+2!
FBPD Q!
FBPOP Q!
FBPOV Q!
FBPROG Q+1!
FBPSA Q+1!
FBPT Q!
FBPV Q+1!
FBQTY Q+1!
FBRBC Q!
FBREIM Q!
FBRR Q+1!
FBRX Q+1!, GETIT*, GETIT+4
FBSITE Q!
FBSTR Q+1!
FBSUSP Q+1!
FBT Q+1!
FBTOUT Q+2!
FBTOV Q+1!
FBTT Q+1!
FBTTYPE Q!
FBTV Q+1!
FBTYPE Q+1!
FBVEN Q+2!
FBVINVDT Q+2!
FBXX Q+1!
FEEO Q+1!
FID Q+1!
FSW LISTLI+1*, Q+1!, GETIT+2*
FTP Q+1!
FY Q+1!
I Q+1!, CALC+1*, CALC+2!
IN Q!, CALC+1, RD2*, RD3+1
INVDATE Q!, RD2+1*
IOF HED
IOSL GETIT+3
J LISTLI+2*, Q+1!
K Q+1!
L Q+1!
LCNT Q!, RD3+1*
N Q+1!
NAME Q+1!
PI Q+1!
POP Q+1!
PSA Q+1!
PSRX Q!, CHKK, CHK2+1
PTYPE Q+1!
Q Q+1!
S Q+1!
SSN Q+1!, GETIT+1*, GETIT+4
STAT Q!, RD3+1*
STAT( RD3+1*
T Q+1!
TA Q+1!
TAC Q!, RD3+1*
VAL Q+1!
VAR Q+1!
VID Q+1!, GETIT+1*
VIN Q!, CHKK, RD2*
VNAM Q+1!, GETIT+1*, HED
X Q!, RD2
X1 Q+1!
Y Q!, GETIT+3, RDM, RD2, RD3, RX2+1
Y(0 LISTLI+2*, GETIT
Z Q!
Z1 Q+1!
Z2 Q+1!
ZZ Q+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All