Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(162.1 - [#162.1] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call