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

Package: Fee Basis

Routine: FBCH78


Information

FBCH78 ;AISC/DMK - SETS UP 7078/AUTHORIZATION FOR CONTRACT HOSPITAL ;9/18/2014

Source Information

Source file <FBCH78.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;DEM;139 ICD=10 Project - Replaced original line with next two to add condition FBFRDT<$$IMPDATE^FBCSV1("10D")
FBPDIS
ASKPT
7078
SET78
AUTH
FBDCHG
FBPUR
FBPSA
SHOW
END
PROB
NOGOOD
OUTP ;ENTRY TO DISPLAY A 7078
REFNPI(IEN200,IEN162P4,CHKAUTH) ;FB*3.5*103
; a new function that returns the REFERRING PROVIDER NPI if it is Active and the provider has authorized use of the NPI
; If is used in both a Fileman function and in other FB routines.
  • ICR #5328
    • Status: Retired
    • Usage: Controlled Subscription
    NBCHK ;Newborn Enhancement check FB*3.5*146
    DTCHK1 ;
    DEL
    CN7078(FBDA) ; VA FORM 10-7078 Contract
    ; input FBDA = ien of entry in file 162.4
    ; returns contract ien^contract number for the 7078 or null

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"There already is a 7078 set up for this request.",!,"The number is ",$P(^FB7078($P(^FBAA(162.2,FBDA,0),"^",17),0),"^")," .",!
    • Line Location: FBCH78+4
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+7
    Function Call: WRITE
    • Prompt: !!,*7,?5,"Authorization To Date must be after Authorization From Date!",!
    • Line Location: EN+8
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !!,*7,?5,"Date of Discharge must not be earlier than the Authorization To Date!",!
    • Line Location: EN+10
    Function Call: WRITE
    • Prompt: !!,*7,?5,"Date of Discharge must not be earlier than the Date of Birth!",!
    • Line Location: EN+11
    Function Call: WRITE
    • Prompt: !!,*7,"...deleting 7078."
    • Line Location: SET78+1
    Function Call: WRITE
    • Prompt: !!,*7,Y,!,"...deleting 7078. Use 'Set-up a 7078' after adjusting 1358.",!
    • Line Location: SET78+2
    Function Call: WRITE
    • Prompt: !,"Error adding record in User Audit. Please contact IRM."
    • Line Location: SET78+7
    Function Call: WRITE
    • Prompt: !,"ERROR: Unable to create entry in FEE BASIS PATIENT file."
    • Line Location: AUTH+10
    Function Call: WRITE
    • Prompt: !!
    • Line Location: SHOW+0
    Function Call: WRITE
    • Prompt: ?2,"CONTRACT: ",$P(X,U,2)
    • Line Location: SHOW+1
    Function Call: WRITE
    • Prompt: !!,"The reference number did not get set up with the",!,"IFCAP software. Contact your package coordinator."
    • Line Location: PROB+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: OUTP+4
    Function Call: WRITE
    • Prompt: ?2,"CONTRACT: ",$P(X,U,2),!
    • Line Location: OUTP+6
    Function Call: WRITE
    • Prompt: ?2,"DISCHARGE TYPE: ",$$DISCH^FBCH780(FBDA),!
    • Line Location: OUTP+7
    Function Call: WRITE
    • Prompt: !!,*7,?5,"Patient is a newborn. Authorization To Date must not be more than 7 days after the Date of Birth",!
    • Line Location: DTCHK1+2
    Function Call: WRITE
    • Prompt: !!,*7,?5,"Patient is a newborn. Authorization To Date must not be before the Date of Birth",!
    • Line Location: DTCHK1+3

    FileMan Files Accessed Via FileMan Db Call

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