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

Package: Fee Basis

Routine: FBUTL7


Information

FBUTL7 ;WIOFO/SAB - FEE BASIS UTILITY FOR CONTRACT ;9/24/2009

Source Information

Source file <FBUTL7.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Fee Basis 2 ^FBAACO4  $$PAY^FBUCUTL  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Fee Basis 4 FBAACFE  FBAACO  FBAACO1  FBCHCD  

Entry Points

Name Comments DBIA/ICR reference
EDCNTRA(FBDFN,FBAUTH) ; determine if CONTRACT can be edited
; Input
; FBDFN = IEN of patient in file 161 (and file 2)
; FBAUTH = IEN of authorization in sub-file 161.01
; Returns a string value flag^message where
; flag = 1 if contract field in sub-file 161.01 can be edited
; = 0 if it cannot be edited
; message = optional text that if present should be displayed
  • ICR #5744
    • Status: Active
    • Usage: Controlled Subscription
    EDCNTRAX ; EDCNTRA exit
    OUTPA(FBDFN,FBAUTH) ; Outpatient Authorization Has Payments?
    ; input
    ; patient IEN
    ; authorization IEN
    ; output
    ; FBPAY = 1 or 0, =1 if any payments on file for the authorization
    OUTPAV ;
    CNTRPTR(FBDA) ; Contract pointed-to
    ; input FBDA = ien of contract in file 161.43
    ; result 0 or 1, =1 if contract is pointed-to
    UCFA(FBVENI,FBVENA,FBCNTRA) ; Use Contract From Authorization
    ; input
    ; FBVENI = vendor IEN for invoice/payment
    ; FBVENA = vendor IEN for associated authorization
    ; FBCNTRA = contract IEN for associated authorization
    ; returns 0 or 1
    ; = 1 if invoice must have same contract as associated authorization
    CNTRSCR(FBDFN,FBAUT,FBCNTRA) ; contract screen
    ; called by 161.01 CONTRACT field screen
    ; input
    ; FEE BASIS PATIENT ien
    ; AUTHORIZATION ien
    ; CONTRACT ien
    ; return 0 or 1, =1 if contract passes screen
    VCNTR(FBV,FBC) ; vendor applicable for the contract
    ; input
    ; FBV = IEN of vendor (FEE BASIS VENDOR file)
    ; FBC = IEN on contract (FEE BASIS CONTRACT file)
    ; returns 0 or 1
    ; =1 if vendor is applicable for the contract
  • ICR #5744
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    $$GET1^DIQ EDCNTRA+31
    ^FBAACO4 UCFA+19, VCNTR+17
    $$PAY^FBUCUTL EDCNTRA+27

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.43 - [#161.43] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.43 - [#161.43] CNTRSCR+10, VCNTR+10, VCNTR+20
    ^FBAAA - [#161] EDCNTRA+15, OUTPA+9, CNTRSCR+13
    ^FBAAA("ACN" CNTRPTR+6
    ^FBAAC - [#162] OUTPA+11, OUTPAV+3, OUTPAV+4, OUTPAV+5
    ^FBAAC("ACN" CNTRPTR+8
    ^FBAAI("ACN" CNTRPTR+10

    Label References

    Name Line Occurrences
    $$OUTPA EDCNTRA+26
    $$VCNTR CNTRSCR+15
    EDCNTRAX EDCNTRA+13, EDCNTRA+14, EDCNTRA+16, EDCNTRA+20, EDCNTRA+22, EDCNTRA+28
    OUTPAV OUTPA+10, OUTPA+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA UCFA+16~, UCFA+17*, UCFA+18, VCNTR+14~, VCNTR+15*, VCNTR+16
    >> DIUTIL CNTRSCR+10
    FBA UCFA+16~, VCNTR+14~
    FBAR UCFA+7~, VCNTR+6~
    FBAR( UCFA+18*, UCFA+21, VCNTR+16*, VCNTR+19
    FBAUT CNTRSCR~, CNTRSCR+12, CNTRSCR+13
    FBAUTH EDCNTRA~, EDCNTRA+14, EDCNTRA+15, EDCNTRA+26, OUTPA~, OUTPA+9, OUTPAV+4
    FBC VCNTR~, VCNTR+8, VCNTR+10, VCNTR+20
    FBCNTRA UCFA~, UCFA+10, CNTRSCR~, CNTRSCR+10, CNTRSCR+15
    FBDA CNTRPTR~, CNTRPTR+6, CNTRPTR+8, CNTRPTR+10, UCFA+16~, VCNTR+14~
    FBDFN EDCNTRA~, EDCNTRA+13, EDCNTRA+15, EDCNTRA+26, OUTPA~, OUTPA+9, OUTPA+11, OUTPAV+3, OUTPAV+4, OUTPAV+5
    , CNTRSCR~, CNTRSCR+12, CNTRSCR+13
    FBDTI OUTPAV+1~, OUTPAV+2*, OUTPAV+3*, OUTPAV+4, OUTPAV+5
    FBI UCFA+7~, UCFA+21*, UCFA+22, VCNTR+6~, VCNTR+19*, VCNTR+20
    FBJ UCFA+16~, VCNTR+14~
    FBPAY EDCNTRA+9~, EDCNTRA+25*, EDCNTRA+26*, EDCNTRA+27*, EDCNTRA+28, OUTPA+6~, OUTPA+7*, OUTPA+11, OUTPA+12, OUTPAV+3
    OUTPAV+6*
    FBRET EDCNTRA+9~, EDCNTRA+10*, EDCNTRA+33*, EDCNTRA+36*, EDCNTRAX+1, CNTRPTR+3~, CNTRPTR+4*, CNTRPTR+6*, CNTRPTR+8*, CNTRPTR+10*
    , CNTRPTR+11, UCFA+7~, UCFA+8*, UCFA+12*, UCFA+13, UCFA+21, UCFA+22*, UCFA+23, CNTRSCR+7~, CNTRSCR+8*
    , CNTRSCR+10*, CNTRSCR+12, CNTRSCR+14*, CNTRSCR+15*, CNTRSCR+16, VCNTR+6~, VCNTR+7*, VCNTR+10*, VCNTR+11, VCNTR+19
    , VCNTR+20*, VCNTR+21
    FBV VCNTR~, VCNTR+8, VCNTR+10, VCNTR+15
    FBVEN OUTPA+6~, OUTPA+9*, OUTPA+10, OUTPA+11*, OUTPAV+3, OUTPAV+4, OUTPAV+5, CNTRSCR+7~, CNTRSCR+13*, CNTRSCR+14
    , CNTRSCR+15
    FBVENA UCFA~, UCFA+12, UCFA+22
    FBVENI UCFA~, UCFA+12, UCFA+15, UCFA+17
    FBX EDCNTRA+29~, EDCNTRA+30*, EDCNTRA+31*, EDCNTRA+32*, EDCNTRA+33
    FBY EDCNTRA+9~, EDCNTRA+15*, EDCNTRA+16, EDCNTRA+20, EDCNTRA+22, EDCNTRA+26, EDCNTRA+27, EDCNTRA+31
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All