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

Package: Fee Basis

Routine: FBUTL8


Information

FBUTL8 ;DSS/BPD - FEE BASIS UTILITY FOR PROVIDER INFORMATION ;5/11/2011

Source Information

Source file <FBUTL8.m>

Entry Points

Name Comments DBIA/ICR reference
RPROV(FBPROV,FBPROVD) ; Prompt for line item rendering providers
ASKRPROV ; multiply prompt for rendering providers
EXIT
DEL(FBI) ; delete Rendering Provider from list
FILERP(FBIENS,FBPROV) ; Routine to file Rendering Provider information to 162.5
;
; Input
; IENS - Required - DA_"," for the record to save the Rendering Provider information to
; FBPROV - Required - Passed by reference array that contains the information to save
  • ICR #5745
    • Status: Retired
    • Usage: Controlled Subscription
    LOADRP(FBIENS,FBPROV) ; Load Line Item Rendering Providers
    ; Input
    ; FBIENS - required, internal entry numbers for subfile 162.5
    ; in standard format as specified for FileMan DBS calls
    ; FBPROV - required, array passed by reference
    ; array to load line item rendering providers into
    ; Output
    ; FBPROV - the FBPROV input array passed by reference will be modified
    ; format
    ; FBPROV(#)=IEN^NAME^NPI^TAXONOMY
    ; if no line item rendering providers are on file then the array will be undefined

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Current list of Line Item Rendering Providers: "
    • Line Location: ASKRPROV+4
    Function Call: WRITE
    • Prompt: "none"
    • Line Location: ASKRPROV+5
    Function Call: WRITE
    • Prompt: !?3,"Line Item: "_FBI
    • Line Location: ASKRPROV+7
    Function Call: WRITE
    • Prompt: ?25,"Rendering Provider Name: "_$P(FBPROV(FBI),U)
    • Line Location: ASKRPROV+8
    Function Call: WRITE
    • Prompt: !?3,"Rendering Provider NPI: "_$P(FBPROV(FBI),U,2)
    • Line Location: ASKRPROV+9
    Function Call: WRITE
    • Prompt: ?45,"Taxonomy Code: "_$P(FBPROV(FBI),U,3)
    • Line Location: ASKRPROV+10
    Function Call: WRITE
    • Prompt: " (provider deleted)"
    • Line Location: DEL+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAI - [#162.5] GETS^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call