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

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA FileMan 8 ^%DT  NOW^%DTC  (,IX)^DIC  FILE^DICN  ^DIE  ^DIK  ($$GET1,EN)^DIQ  ^DIR  
Fee Basis 6 ($$DATX,SITEP)^FBAAUTL  (,$$DISCH,NULL,NULL1,PTF)^FBCH780  NOUP^FBCHCD  ASKV^FBCHREQ  $$IMPDATE^FBCSV1  $$ADDUA^FBUTL9  
Kernel 3 HOME^%ZIS  ($$F2H,$$FMDIFF,$$H2F)^XLFDT  ($$GETRLNPI,$$NPI)^XUSNPI  
IFCAP 2 EN1^PRCS58  EN1^PRCSUT31  

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

Package Total Caller Graph
Fee Basis 12 FB REF PROV NPI  FBAA79  FBAADEM1  FBCH 7078 SETUP  FBCH DISPLAY 7078  FBCH780  FBCHCD  FBCHP78  
FBCHREQ  FBCNH DISPLAY 7078  FBCTAU1  ^FB7078  

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

    External References

    Name Field # of Occurrence
    ^%DT EN+6, EN+7, EN+9
    NOW^%DTC NBCHK+4
    HOME^%ZIS AUTH
    ^DIC 7078+1
    IX^DIC OUTP+2
    FILE^DICN AUTH+8, FBPSA+2
    ^DIE 7078+2, SET78FBPSA+13, FBPSA+14, DEL
    ^DIK DEL
    $$GET1^DIQ REFNPI+17
    EN^DIQ SHOWOUTP+4, OUTP+5
    ^DIR EN+12, EN+14, FBPDISASKPTAUTH+21, FBDCHGFBPURFBPSANOGOOD
    $$DATX^FBAAUTL EN+6, EN+9
    SITEP^FBAAUTL AUTH+1
    ^FBCH780 SET78+1
    $$DISCH^FBCH780 OUTP+7
    NULL^FBCH780 FBPDIS
    NULL1^FBCH780 FBDCHGFBPSA
    PTF^FBCH780 SET78+8
    NOUP^FBCHCD ASKPT
    ASKV^FBCHREQ FBCH78+3
    $$IMPDATE^FBCSV1 EN+2
    $$ADDUA^FBUTL9 SET78+6
    EN1^PRCS58 7078
    EN1^PRCSUT31 7078
    $$F2H^XLFDT NBCHK+6, NBCHK+7
    $$FMDIFF^XLFDT NBCHK+5
    $$H2F^XLFDT NBCHK+6, NBCHK+7
    $$GETRLNPI^XUSNPI REFNPI+22
    $$NPI^XUSNPI REFNPI+25

    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
    Routine Call
    • DIC
    • Line Location:
      • 7078+1
    Routine Call
    • DIC
    • Line Location:
      • OUTP+2
    Routine Call
    • DIE
    • Line Location:
      • 7078+2
      • SET78
      • FBPSA+13
      • FBPSA+14
      • DEL
    Routine Call
    • DIR
    • Line Location:
      • EN+12
      • EN+14
      • FBPDIS
      • ASKPT
      • AUTH+21
      • FBDCHG
      • FBPUR
      • FBPSA
      • NOGOOD
    Routine Call
    • %ZIS
    • Line Location:
      • AUTH

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] AUTH+1
    ^DPT - [#2] NBCHK+3
    ^FB7078 - [#162.4] FBCH78+4, CN7078+6
    ^FBAA(161.43 - [#161.43] CN7078+12
    ^FBAA(162.2 - [#162.2] FBCH78+4, EN+1, EN+2, EN+4, DEL
    ^FBAAA - [#161] AUTH+3, AUTH+6, AUTH+9, CN7078+10
    ^FBAAA("AG" CN7078+8

    Label References

    Name Line Occurrences
    $$CN7078 SHOW+1, OUTP+6
    7078 NOGOOD
    ASKPT ASKPT
    DEL SET78+1, SET78+2
    DTCHK1 EN+6
    EN EN+6, EN+8, EN+10, EN+11
    END FBCH78+3, FBCH78+4, EN+6, EN+7, EN+9, EN+13, EN+15, FBPDISSET78+1, SET78+2
    AUTH+3, AUTH+13, FBDCHGFBPUR+1, FBPSAFBPSA+2, PROBNOGOODOUTP+3
    FBDCHG FBDCHG
    FBPSA FBPSA
    NBCHK EN+5
    NOGOOD 7078
    OUTP OUTP+8
    PROB 7078+1
    SHOW SET78+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 EN+1, AUTH+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT EN+6*!, EN+7*!, EN+9*!
    %DT("A" EN+6*, EN+7*, EN+9*
    %DT("B" EN+6*, EN+9*
    A END+1!
    CHKAUTH REFNPI~, REFNPI+22
    D END!, OUTP+2*
    D0 END+1!
    D1 END+1!
    DA EN+4!, 7078+1*, 7078+2*!, SET78*!, SET78+3!, FBPSA+2*, FBPSA+14*!, SHOW*, END!, OUTP+4*
    OUTP+5*, DEL*
    DA(1 FBPSA+2*
    DD AUTH+7!, FBPSA+2!
    DE AUTH+11!
    DFN SET78+8*, END!, CN7078+3~, CN7078+6*, CN7078+7, CN7078+8, CN7078+10
    DIC 7078+1*, 7078+2!, SET78!, SET78+3!, AUTH+7*, FBPSA+2*, FBPSA+5, FBPSA+14*, SHOW*, END!
    OUTP+2*
    DIC("A" OUTP+2*
    DIC("S" FBCH78+3*
    DIC(0 7078+1*, AUTH+7*, FBPSA+2*, OUTP+2*
    DIE 7078+2*!, SET78*!, SET78+3!, AUTH+11!, FBPSA+5*, FBPSA+13!, FBPSA+14*!, END!, DEL*
    DIE("NO^" FBPSA+2*
    DIK DEL*!
    DILOCKTM AUTH+6
    DINUM AUTH+4~, AUTH+7*
    DIQ(0 OUTP+4*!
    DIR EN+12!, EN+14!, FBPDIS!, ASKPT!, AUTH+15~, FBDCHG!, FBPUR!, FBPSA!, END!, NOGOOD!
    DIR("?" ASKPT*, AUTH+18*, AUTH+19*
    DIR("A" EN+12*, ASKPT*, AUTH+17*, NOGOOD*
    DIR("B" NOGOOD*
    DIR("S" AUTH+20*
    DIR(0 EN+12*, EN+14*, FBPDIS*, ASKPT*, AUTH+16*, FBDCHG*, FBPUR*, FBPSA*, NOGOOD*
    DIRUT EN+13, EN+15, ASKPTEND+1!, NOGOOD
    DLAYGO 7078+1*, AUTH+7*, AUTH+11!, FBPSA+2*, END!
    DO AUTH+7!, FBPSA+2!
    DOB NBCHK+1~, NBCHK+3*, NBCHK+5, NBCHK+6, NBCHK+7
    >> DOB7 EN+6*
    DQ AUTH+11!
    DR 7078+2*!, SET78*!, AUTH+11!, FBPSA+5*, FBPSA+6*, FBPSA+7*, FBPSA+13!, FBPSA+14*!, SHOW*, END!
    OUTP+4*, OUTP+5*, DEL*
    DR(1 FBPSA+9*, FBPSA+10*, FBPSA+11*
    >> DTFG EN+6, DTCHK1+1*, DTCHK1+2*, DTCHK1+3*
    DTOUT FBPDISAUTH+13, AUTH+21, FBDCHGFBPUR+1, FBPSAEND+1!
    DUOUT FBPDISAUTH+13, AUTH+21, FBDCHGFBPUR+1, FBPSAEND+1!
    FB END!
    FB7078 7078*, 7078+1, END!
    FB78 FBPSA+3*, END!
    FBAA78 7078+1*, SET78SET78+6, FBPSA+3, FBPSA+14, SHOWSHOW+1, END!, DEL
    FBADMIT EN+13*, END+1!
    FBAU CN7078+3~, CN7078+8*, CN7078+9, CN7078+10
    FBCHOB 7078*, END!
    FBCNTRA AUTH+14*, AUTH+22*, FBPSA+11, END+1!, CN7078+3~, CN7078+10*, CN7078+11, CN7078+12
    FBCOMM END!
    FBDA FBCH78+3, FBCH78+4, EN+1, EN+2, EN+4, 7078+2, END!, OUTP+4*, OUTP+5, OUTP+6
    OUTP+7, CN7078~, CN7078+5, CN7078+6, CN7078+8
    FBDCHG FBDCHG*, END+1!
    FBDFN END!, NBCHK+3
    FBDOA EN+1*, END+1!
    FBDOB EN+11, END+1!, NBCHK+2*, NBCHK+6*, DTCHK1+3
    FBDOB7 EN+6, END+1!, NBCHK+2*, NBCHK+7*, DTCHK1+2
    FBDOD EN+9*, EN+10, EN+11, END+1!
    FBDXS EN+2*, END+1!
    FBEST EN+15*, END!
    FBFLG END!
    FBFRDT EN+1*, EN+2, EN+8, FBPSA+2, END!
    FBI END!
    FBLENT END!
    FBMENT END!
    FBNAME END!
    FBOUT SET78+1, END!
    FBPDIS FBPDIS*, END+1!
    FBPOP AUTH+1, END+1!
    FBPSA AUTH+1*, FBPSA*, END!
    FBPT ASKPT*, END!
    FBPUR FBPUR*, END+1!
    FBRET CN7078+3~, CN7078+4*, CN7078+12*, CN7078+13
    FBRP EN+4*, FBPSA+6, END+1!
    FBSEQ 7078*, END!
    FBSITE END!
    FBSITE(1 AUTH+1
    FBSSN END!
    FBSW END!
    FBTODT EN+6*, EN+7*, EN+8, EN+9, EN+10, FBPDISASKPTSET78+9, END!, DTCHK1+2
    DTCHK1+3
    FBTYPE FBPUR*, END!
    FBVEN EN+1*, AUTH+2*, END!
    FBVET EN+1*, SET78+8, AUTH+3, AUTH+6, AUTH+7, AUTH+9, FBPSA+2, END!
    FBX SET78+5~, SET78+6*, SET78+7
    FBZ END!
    FBZZ END+1!
    I END!
    IEN162P4 REFNPI~, REFNPI+13, REFNPI+17
    IEN200 REFNPI~, REFNPI+13, REFNPI+17*, REFNPI+22, REFNPI+25
    J END!
    K END!
    >> NEWB EN+6, EN+7, EN+10, NBCHK+2*, NBCHK+7*
    NOW NBCHK+1~, NBCHK+4*, NBCHK+5
    NPI REFNPI+25~*, REFNPI+28, REFNPI+29
    POP END!
    PRC END!
    PRCS END+1!
    PRCS("A" 7078*!
    PRCS("TYPE" 7078*
    PRCSCPAN END+1!
    S END!
    U SHOW+1, OUTP+6, REFNPI+28, CN7078+6, CN7078+10, CN7078+12
    VAL END!
    X FBCH78+3, EN+6, EN+7, EN+9, FBPDIS, 7078*, 7078+1*, AUTH+7*, FBDCHGFBPSA
    FBPSA+2*, FBPSA+14!, SHOW+1*, END!, OUTP+3, OUTP+6*, NBCHK+4
    X1 END+1!
    Y EN+6, EN+7, EN+9, EN+13, EN+15, FBPDISASKPT70787078+1, SET78+2
    AUTH+3, AUTH+5*, AUTH+10, AUTH+22, FBDCHGFBPURFBPSAFBPSA+2, END!, NOGOOD
    OUTP+4
    ZZ END!
    ZZZ END+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