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

Package: Fee Basis

Routine: FBAAPIE


Information

FBAAPIE ;AISC/GRR - ENTER FEE PHARMACY INVOICE ;9/25/2014

Source Information

Source file <FBAAPIE.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Fee Basis 10 ENT^FBAAAUT  ^FBAACO4  ($$IPAC,$$IPACINV)^FBAAMP  (CHK2,CHKK,PROB,Q,RDM,RX2)^FBAAPIE1  ^FBAASAP  (GETNXI,SITEP)^FBAAUTL  FBPH^FBAAUTL2  (EDITV,EN1,NEW)^FBAAVD  
($$FPPSC,$$FPPSL)^FBUTL5  $$UOKPAY^FBUTL9  
VA FileMan 5 ^%DT  ^DIC  ^DIE  ^DIK  ^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: 5

Package Total Caller Graph
Fee Basis 4 FBAA ENTER PHARMACY INVOICE  FBAA REIMBURSEMENT PHARMACY  FBAAPIE1  FBUCPAY  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
RD1
ENTER
RDV
RDV1
RDP
RDD
RDRX
RXADD
RDDER
HERE
CHK
OVR
MORE
KILL
DELRX

External References

Name Field # of Occurrence
^%DT RDV1+6, RDV1+7, RDD
HOME^%ZIS RDP+10
^DIC ENTER+2, RDV, RXADD
^DIE RDV1+14, RXADD+1, OVR+2
^DIK KILL, DELRX
^DIR RD1, RDV1, RDRX, MORE
ENT^FBAAAUT RDP+9
^FBAACO4 RDV1+1
$$IPAC^FBAAMP RDV1+4
$$IPACINV^FBAAMP RDD+7
CHK2^FBAAPIE1 RDRX+2
CHKK^FBAAPIE1 RDRX+2
PROB^FBAAPIE1 ENTER+2
Q^FBAAPIE1 RD1, RDV+2, RDDER+1, CHK, OVR+2, MORE
RDM^FBAAPIE1 RD1
RX2^FBAAPIE1 RDRX+1
^FBAASAP RDP+3
GETNXI^FBAAUTL ENTER+1
SITEP^FBAAUTL FBAAPIE+3
FBPH^FBAAUTL2 RDP+10
EDITV^FBAAVD RDV1
EN1^FBAAVD RDV+3
NEW^FBAAVD RDV
$$FPPSC^FBUTL5 RDV1+10
$$FPPSL^FBUTL5 RDP+2
$$UOKPAY^FBUTL9 RDP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Invoice # assigned is: ",X
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RDV1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDV1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDV1+7
Function Call: WRITE
  • Prompt: !,"FPPS CLAIM ID: ",$S(FBFPPSC="":"N/A",1:FBFPPSC)
  • Line Location: RDV1+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: RDP+2
Function Call: WRITE
  • Prompt: !!,"You cannot process a payment associated with authorization ",DFN,"-",FTP
  • Line Location: RDP+6
Function Call: WRITE
  • Prompt: !,"due to separation of duties."
  • Line Location: RDP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: RDD+0
Function Call: WRITE
  • Prompt: !!,*7,"Date Prescription Filled is ",$S(DATEF<FBAABDT:" prior to ",1:"later than "),"authorization period!!"
  • Line Location: RDD+1
Function Call: WRITE
  • Prompt: !!,*7,"Prescription referred to Pharmacy Service for determination.",!
  • Line Location: RDDER+0
Function Call: WRITE
  • Prompt: !!,"Invoice No.: ",IN," Completed!"
  • Line Location: OVR+2
Function Call: WRITE
  • Prompt: ?45,"Invoice Total: $ ",$J(FBINTOT,1,2)
  • Condition for execution: FBINTOT>0
  • Line Location: OVR+2
Function Call: WRITE
  • Prompt: !,"Incomplete prescription entry. Deleted.",!
  • Line Location: DELRX+0
Routine Call
  • DIC
  • Line Location:
    • ENTER+2
    • RDV
    • RXADD
Routine Call
  • DIE
  • Line Location:
    • RDV1+14
    • RXADD+1
    • OVR+2
Routine Call
  • DIR
  • Line Location:
    • RD1
    • RDV1
    • RDRX
    • MORE
Routine Call
  • %ZIS
  • Line Location:
    • RDP+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAV - [#161.2] Classic Fileman Calls
^FBAA(162.1 - [#162.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB583 - [#162.7] RDV1+9
^FBAA(162.1 - [#162.1] RDV1+15*, RDD+10*, RDRX+1, RDDER+2*
^FBAAV - [#161.2] RDV+2
^XUSEC("FBAA ESTABLISH VENDOR" RDV1

Label References

Name Line Occurrences
CHK RDV, RDV1, RDV1+4, RDV1+6, RDV1+7, RDV1+10, RDP+2, RDP+3, RDP+10, RDRX
, DELRX
DELRX RXADD+1
ENTER MORE
KILL CHK
MORE CHK
OVR HERE
RDD RDD, RDD+1, RDD+2, RDD+7, HERE
RDP RDP+5, RDD, RDDER+1
RDRX RXADD
RDV RDV+2

Naked Globals

Name Field # of Occurrence
^("ADEL" RDV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT RDV1+6*, RDV1+7*, RDD*!
%DT("A" RDV1+6*!, RDV1+7*!, RDD*
%DT(0 RDV1+6*!, RDV1+7*!, RDD*
>> AC RDRX*, RXADD+2
DA RDV*, RDV+1*, RDV+2, RDV+3, RDV1, RDV1+1, RDV1+11*, RXADD!, RXADD+1*, RDDER+2
, OVR+2*, KILL*, DELRX*
DA(1 ENTER+2*, RXADD*, RDDER+3*, DELRX
>> DATEF RDD*, RDD+1, RDD+2
DFN RDP+3!, RDP+5, RDP+6
DG OVR!, DELRX!
>> DIC ENTER+2*, RDV*, RDV1+11*, RXADD*, RDDER+3, OVR+2*
>> DIC(0 ENTER+2*, RDV*, RXADD*
>> DIE RDV*, RDV1+11*, RXADD+1*, RDDER+3*, OVR+2*
DIK KILL*!, DELRX*
DIR RD1!, RDV1!, RDRX!, MORE!
DIR("A" RD1*, RDV1*, RDRX*, MORE*
DIR("B" RD1*, RDV1*, MORE*
DIR(0 RD1*, RDV1*, RDRX*, MORE*
>> DIRUT RD1, RDV1, RDP+10, MORE
DLAYGO ENTER+2*!, RDV*!, RXADD*!
DQ OVR!, DELRX!
DR RDV1+12*, RDV1+13*, RXADD+1*, OVR!, OVR+2*, DELRX!
DT RDV1+6, RDD
DTOUT RXADD+1, HERE, OVR!, DELRX!
DUZ RDV1
>> FB583 RDV, RDV+1, RDV+2, RDV1+9, RDP+5, RDP+10, RDDER+1, CHK
>> FBAABDT RDD+1
>> FBAAEDT RDD+1
>> FBAAIN ENTER+1
>> FBAAOUT ENTER*
>> FBAAPTC FBAAPIE+3*
>> FBAP HERE
>> FBAR( RDV1+1*
>> FBD1 RDP+9*
>> FBDA RXADD*, DELRX
FBDODINV FBAAPIE+4~, RDD+7, RDD+8*
>> FBFDC RDP+9*
FBFPPSC RDV1+9*, RDV1+10*!, RDP+2
FBFPPSL RDP+2*!
FBHX MORE!
FBIA FBAAPIE+4~, RDV1+4*, RDV1+13, RDD+7, RDD+8
>> FBINTOT ENTER*, RDP, HERE*, OVR+2
FBJ RDRX+2!
>> FBMDF FBAAPIE+3*
>> FBMST RDP+9*
FBPHARM RDP*, RDP+3!
>> FBPOP FBAAPIE+3
>> FBSITE(0 FBAAPIE+3, RDV+3
FBTOUT ENTER!, HERE*, CHK, OVR+2, DELRX*
>> FBTT RDP+9
>> FBTTYPE RDP+9*
FBUP RXADD+1, RXADD+2!
>> FBVEN RDV+1
>> FBVINVDT RDV1+7*
>> FTP RDP+5, RDP+6, RDP+9
>> IN ENTER+2*, RDV1+11, RDV1+15, RDP, RDD+10, RDRX+1, RXADD, RXADD+1, RDDER+2, RDDER+3
, CHK, OVR+2, KILL
>> INVDATE RDV1+6*, RDV1+7, RDD+2, RDD+3
>> LCNT ENTER*, RXADD+2*, CHK
>> PSRX RDRX*, RDRX+1, RXADD
SHOINVDT RDD+3~*, RDD+4
STAT OVR+2*, MORE!
STAT(0 ENTER*, OVR+2
STAT(1 RDDER+1*
STAT(2 OVR+1!
>> TAC ENTER*, RXADD+2*
U RDV1+9
>> VIN RDV+3*, RDV1*, RDV1+4
>> X ENTER+1*, ENTER+2, RDD, RXADD*, RDDER*
>> Y RD1, ENTER+2, RDV, RDV1, RDV1+6, RDV1+7, RDD, RDRX, RXADD, MORE
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