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

Package: Fee Basis

Routine: FBAACO1


Information

FBAACO1 ;AISC/GRR - ENTER PAYMENT CONTINUED ;5/12/2014

Source Information

Source file <FBAACO1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Fee Basis 7 (1,Q)^FBAACO  (CALC,CKMAX)^FBAACO3  (,CHK1)^FBAACO4  ($$DATX,GETNXI)^FBAAUTL  REPMOD^FBAAUTL4  (EDITV,EN1,NEW)^FBAAVD  $$UCFA^FBUTL7  
VA FileMan 4 ^%DT  ^DIC  ^DIE  ^DIR  

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 5 FBAACO  FBAAFS  FBAAMP  FBCHEP  FBNHEP1  

Entry Points

Name Comments DBIA/ICR reference
SVCPR ;set up service provided multiple
; input FBASSOC (auth ptr,0 if not known)
PPT(FBDEF,FBDEFC,FB162) ;establishes prompt pay type and contract for entry
; input
; FBDEF = (optional) default for DIR prompt: =1 for yes, else no
; FBDEFC = (optional) default for the contract prompt
; FBAAMM = ppt if 1 ask for each line item; if 0 don't ask
; FBV = vendor (ien) being paid
; FBVEN = vendor (ien) from authorization
; FBCNTRA= contract (ien) from authorization
; FB583 = (optional) $D(FB583) true if unauthorized claim
; FB162 = (optional) = 1 if payment line item in sub-file 162.03 is being edited. FBDEF and FBDEFC must be current values.
; output
; FBAAMM1 = the ppt for the line item
; FBCNTRP = contract ien for the line item
Q
POS ; prompt for place of service
; output
; FBHCFA(30) = place of service (internal)
GETVEN ;select vendor from vendor file
GETVEN1
GETVEN2
GETINV ;assign invoice number or select existing invoice number
GETINV1 ;selects existing invoice if user does not choose to assign new number
GETINDT ;get invoice dates
GETIND1
DISPINV ;display invoice totals

External References

Name Field # of Occurrence
^%DT GETINDT+3, GETIND1
^DIC SVCPR+5, GETVEN+1
^DIE SVCPR+14
^DIR PPT+31, PPT+41, POS+6, GETVEN2, GETVEN2+1, GETINV+1, GETINV1+1
1^FBAACO Q
Q^FBAACO Q
CALC^FBAACO3 GETINV1+5
CKMAX^FBAACO3 DISPINV+2
^FBAACO4 GETVEN2+2
CHK1^FBAACO4 GETINV1+2
$$DATX^FBAAUTL GETINDT+2, GETIND1
GETNXI^FBAAUTL GETINV+2
REPMOD^FBAAUTL4 SVCPR+17
EDITV^FBAAVD GETVEN2
EN1^FBAAVD GETVEN1+2
NEW^FBAAVD GETVEN+3
$$UCFA^FBUTL7 PPT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SVCPR+3
Function Call: WRITE
  • Prompt: !,"Contract is ",$P($G(^FBAA(161.43,FBCNTRA,0)),U)," from the authorization."
  • Line Location: PPT+18
Function Call: WRITE
  • Prompt: !,"Invoice ",$S(FBDEF=1:"is",1:"is not")," for contracted services."
  • Line Location: PPT+24
Function Call: WRITE
  • Prompt: !,$C(7),"Required Response!"
  • Line Location: PPT+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETVEN+1
Function Call: WRITE
  • Prompt: !!,"Invoice # ",FBAAIN," assigned to this Invoice"
  • Line Location: GETINV+2
Function Call: WRITE
  • Prompt: !,$C(7),"Only previously entered invoices in the same batch may be selected!"
  • Line Location: GETINV1+4
Function Call: WRITE
  • Prompt: !,"Enter Date Correct Invoice Received or Last Date of Service"
  • Line Location: GETINDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GETIND1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Vendor's invoice date is later than the date you received it!!"
  • Line Location: GETIND1+1
Function Call: WRITE
  • Prompt: !!,"$ ",$P(^(0),"^",3)," for travel already entered for this date of service"
  • Line Location: DISPINV+3
Routine Call
  • DIC
  • Line Location:
    • SVCPR+5
    • GETVEN+1
Routine Call
  • DIE
  • Line Location:
    • SVCPR+14
Routine Call
  • DIR
  • Line Location:
    • PPT+31
    • PPT+41
    • POS+6
    • GETVEN2
    • GETVEN2+1
    • GETINV+1
    • GETINV1+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.43 - [#161.43] PPT+18, PPT+40
^FBAAC - [#162] SVCPR+2*, DISPINV+3
^FBAAC("AJ" GETINV1+3
^FBAAV - [#161.2] GETVEN1+1
^XUSEC("FBAA ESTABLISH VENDOR" GETVEN2, GETVEN2+1

Label References

Name Line Occurrences
GETIND1 GETIND1+1
GETINDT GETINDT+4, GETINDT+7, GETIND1
GETINV GETINV1+1
GETINV1 GETINV1+2, GETINV1+3
GETVEN GETVEN+3, GETVEN1+1

Naked Globals

Name Field # of Occurrence
^("ADEL" GETVEN1+1
^(0 DISPINV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT GETINDT+3*!, GETIND1*!
%DT("A" GETINDT+2*, GETIND1*
%DT("B" GETINDT+2*, GETIND1*
%DT(0 GETINDT+2*
>> A DISPINV+4
>> CALLERID GETINDT+4
DA SVCPR+6!, SVCPR+7*, SVCPR+11!*, SVCPR+14!, GETVEN+3*, GETVEN1*, GETVEN1+1, GETVEN2+2
DA(1 SVCPR+3*, SVCPR+11*
DA(2 SVCPR+3*, SVCPR+11*
DA(3 SVCPR+3*, SVCPR+11*
>> DFN SVCPR+2, SVCPR+3, SVCPR+10, SVCPR+11, SVCPR+17, DISPINV+3
DIC SVCPR+3*, SVCPR+6!, GETVEN+1*, GETVEN+3!
DIC(0 SVCPR+3*, GETVEN+1*
DIE SVCPR+10*, SVCPR+14!, GETVEN+3*!
DIR PPT+31!, PPT+41!, POS+6!, GETVEN2!, GETVEN2+1!, GETINV+1!, GETINV1+1!
DIR("?" PPT+30*, PPT+37*, PPT+38*, GETINV1+1*
DIR("A" PPT+28*, PPT+36*, GETVEN2*, GETINV+1*, GETINV1+1*
DIR("B" PPT+29*, PPT+40*, GETVEN2*, GETINV+1*
DIR("S" PPT+39*
DIR(0 PPT+28*, PPT+35*, POS+5*, GETVEN2*, GETVEN2+1*, GETINV+1*, GETINV1+1*
>> DIRUT PPT+31, POS+6, GETVEN2, GETVEN2+1, GETINV+1, GETINV1+1
DLAYGO SVCPR+3*, SVCPR+6!, GETVEN+1*!, GETVEN+3!
DR SVCPR+12*, SVCPR+13*, SVCPR+14!, GETVEN+3!
>> DTOUT PPT+44
>> DUOUT PPT+44
DUZ GETVEN2, GETVEN2+1
FB162 PPT~, PPT+23, PPT+27
>> FB583 PPT+17, Q, GETVEN1, GETVEN1+1, GETINV1+1
>> FBAABDT GETINDT+7, GETINDT+8
>> FBAABE GETINV1+3
FBAACK1 GETINV1+2!
FBAACP Q!
>> FBAACPI SVCPR+7*, SVCPR+11, SVCPR+17
FBAADT SVCPR+5, Q!, DISPINV+2, DISPINV+3
>> FBAAEDT GETINDT+4, GETINDT+5
FBAAID GETINDT+2, GETINDT+4*!, GETINDT+7!, GETIND1+1
>> FBAAIN Q, GETINV+2, GETINV1+5*
>> FBAAMM PPT+15, PPT+17, PPT+21
>> FBAAMM1 PPT+14*, PPT+19*, PPT+32*, PPT+33
FBAAOUT SVCPR+6*, GETVEN+1*, GETVEN1+1*, GETVEN2*, GETVEN2+1*, GETINV+1!*, GETINV1+1*, GETINDT+2!, GETINDT+3*, GETIND1*
FBAAVID GETIND1, GETIND1+1*!
>> FBAOT DISPINV+4
>> FBAR( GETVEN2+2*
>> FBASSOC SVCPR+13
>> FBCHCO Q, DISPINV+4
>> FBCNH GETINDT+2
>> FBCNP SVCPR+3, GETINDT+7
>> FBCNTRA PPT+17, PPT+18, PPT+20
>> FBCNTRP PPT+14*, PPT+20*, PPT+44*, PPT+45*
FBDEF PPT~, PPT+24, PPT+25, PPT+29
FBDEFC PPT~, PPT+40, PPT+44
>> FBENDDT GETINDT+2
>> FBHCFA(30 POS+4*, POS+7*
>> FBINTOT Q, GETINV+1*, GETINV1+5
>> FBSDI SVCPR+2, SVCPR+3, SVCPR+10, SVCPR+11, SVCPR+17
>> FBSITE(0 GETVEN1+2, GETVEN2, GETVEN2+1
>> FBSITE(1 DISPINV+4
>> FBTPD DISPINV+3*
>> FBV SVCPR+2, SVCPR+3, SVCPR+10, SVCPR+11, SVCPR+17, PPT+16*, PPT+17, GETVEN2+2*
>> FBVEN PPT+16, PPT+17, GETVEN1
FBX SVCPR+3, Q!
>> FBZX DISPINV+3*
>> G DISPINV+2*
>> H DISPINV+2*
ICPTVDT SVCPR+5~*
>> R DISPINV+2*
>> S DISPINV+2*
SHOWDOS GETINDT+5~*, GETINDT+6, GETINDT+8~*, GETINDT+9
U PPT+18, PPT+40, POS+7, GETVEN1+1
X SVCPR+3*, GETVEN+1, GETVEN+3!, GETINV1+1, GETINV1+3, GETINV1+5, GETINDT+3, GETIND1
Y SVCPR+6, SVCPR+7, PPT+13~, PPT+25*, PPT+27, PPT+31*, PPT+32, PPT+45, POS+3~, POS+7
, GETVEN+3, GETVEN2, GETINV+2, GETINDT+4, GETIND1+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