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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FBAACCB1

Package: Fee Basis

Routine: FBAACCB1


Information

FBAACCB1 ;AISC/GRR-CLERK CLOSE BATCH CONTINUED ; 11/24/10 10:27am

Source Information

Source file <FBAACCB1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Fee Basis 8 (FIN,GO)^FBAACCB  (ASKH,ENV)^FBAACCB0  PMNT^FBAACCB2  ($$DATX,$$SSN)^FBAAUTL  $$ADJLRA^FBCHFA  $$NAME^FBCHREQ2  ($$ICD,$$ICD0,$$ICD9)^FBCSV1  $$ADJLRA^FBRXFA  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Fee Basis 23 FBAACCB  FBAALB  FBAAPAR  FBAAPIN  FBAAPLU  FBAAPPH  FBAARD0  FBAARD2  
FBAARJP  FBAARR0  FBAARR2  FBAASCB  FBAAVR  FBAAVR0  FBAAVR1  FBCHSCB  
FBCHVH  FBCHVP  FBCKDIS  FBPAY3  FBPAY67  FBPHON  FBPHON2  

Entry Points

Name Comments DBIA/ICR reference
PHARM ;ENTRY FOR PHARMACY BATCH CALCULATE TOTAL DOLLARS AND LINE COUNT
; HIPAA 5010 - count line items that have 0.00 amount paid
MOREP
TRAV ;ENTRY FOR TRAVEL BATCH CALCULATE TOTAL DOLLARS AND LINE COUNT
; HIPAA 5010 - count line items that have 0.00 amount paid
MORET
LISTC
PRTC
CMORE
WRITC
WRTSTR(STR,MX) ; Wordwrap string
WRTSTR1
CDAT
HEDC
CHNH ; FB*3.5*116
MORECH ; HIPAA 5010 - count line items that have 0.00 amount paid
WRTDX ; write diagnosis code and present on admission code
WRTPC ; write procedure code (if present)
MORE ;
INVCNT ;set invoice count for cnh batch
FBCKI(FBI) ;set inpatient check variables
  • ICR #5105
    • Status: Active
    • Usage: Controlled Subscription
    FBCKP(J,K) ;set pharmacy check variables
  • ICR #5105
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    ^%ZIS LISTC
    FIN^FBAACCB PHARM+3, TRAV+3, CHNH+3
    GO^FBAACCB MORE+14
    ASKH^FBAACCB0 WRITC
    ENV^FBAACCB0 CMORE+1
    PMNT^FBAACCB2 WRITC+35
    $$DATX^FBAAUTL WRITC+3
    $$SSN^FBAAUTL CMORE+1
    $$ADJLRA^FBCHFA CMORE+7
    $$NAME^FBCHREQ2 CMORE+1
    $$ICD^FBCSV1 WRITC+6
    $$ICD0^FBCSV1 WRTPC+4
    $$ICD9^FBCSV1 WRITC+11, WRTDX+5
    $$ADJLRA^FBRXFA MORE+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WRITC+0
    Function Call: WRITE
    • Prompt: N,?35,S,?60,B(1617)
    • Line Location: WRITC+2
    Function Call: WRITE
    • Prompt: !,?3,V,?45,VID,?58,FBIN,?70,$$DATX^FBAAUTL($E(FBIN(1),1,7))
    • Line Location: WRITC+3
    Function Call: WRITE
    • Prompt: !,?4,"FPPS Claim ID: ",FBFPPSC," FPPS Line: ",FBFPPSL
    • Line Location: WRITC+4
    Function Call: WRITE
    • Prompt: !,$S($D(QQ):QQ_")",1:""),FBVP,$S(FBCAN]"":"+",1:""),?4,FBFD,?13,FBTD,?22,$J(FBAC,6),?32,$J(FBAP,6),?45,$S(FBADJLR]"":FBADJLR,1:FBSC)
    • Line Location: WRITC+5
    Function Call: WRITE
    • Prompt: ?56,"Discharge ",$$ICD^FBCSV1(+$P(Z(0),"^",24),$P(Z(0),"^",6))
    • Condition for execution: $P(Z(0),"^",24)
    • Line Location: WRITC+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: WRITC+6
    Function Call: WRITE
    • Prompt: !,?4,"Admit Dx: ",P8
    • Line Location: WRITC+12
    Function Call: WRITE
    • Prompt: $P(STR," ",1,I-1)
    • Line Location: WRTSTR1+3
    Function Call: WRITE
    • Prompt: $P(STR," ",1,I)
    • Line Location: WRTSTR1+4
    Function Call: WRITE
    • Prompt: "Patient Name",?20,"('*' Reimbursement to Veteran '+' Cancellation Activity)",!,?13,"('#' Voided Payment '&' Additional Payment)",?60,"Batch Number"
    • Line Location: HEDC+0
    Function Call: WRITE
    • Prompt: !,?3,"Vendor Name",?45,"Vendor ID",?57,"Invoice #",?68,"Dt Inv Rec'd",!,?3,"FR DATE",?14,"TO DATE CLAIMED PAID",?41,"ADJ CODE",!,Q,!
    • Line Location: HEDC+1
    Function Call: WRITE
    • Prompt: !,?4,"DX/POA: "
    • Line Location: WRTDX+7
    Function Call: WRITE
    • Prompt: P4," "
    • Line Location: WRTDX+8
    Function Call: WRITE
    • Prompt: !,?4,"PROC: "
    • Line Location: WRTPC+5
    Function Call: WRITE
    • Prompt: P6," "
    • Line Location: WRTPC+6
    Routine Call
    • %ZIS
    • Line Location:
      • LISTC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] MORE+2
    ^FB(161.94 - [#161.94] WRTDX+6
    ^FBAA(161.27 - [#161.27] CMORE+3, MORE+3
    ^FBAA(161.7 - [#161.7] CMORE+10
    ^FBAA(162.1 - [#162.1] PHARM+2, MORE+5, MORE+6, MORE+13, FBCKP+3
    ^FBAAC - [#162] TRAV+2
    ^FBAAC("AD" TRAV+2
    ^FBAAI - [#162.5] PRTC+1, CMORE+4, WRITC+9, WRITC+15, WRITC+16, WRITC+20, WRITC+23, WRITC+26, WRITC+27, WRITC+29
    , CHNH+1, FBCKI+3
    ^FBAAI("AC" PRTC+1, CHNH+1
    ^IBE(353.3 - [#353.3] WRITC+30, WRITC+32

    Label References

    Name Line Occurrences
    CDAT CMORE+3
    CMORE PRTC+1
    FBCKI CMORE+9
    FBCKP MORE+12
    HEDC PRTC, WRITC
    INVCNT CHNH+1
    MORECH CHNH+1
    MOREP PHARM+2
    MORET TRAV+2
    WRITC CMORE+12
    WRTDX WRITC+17
    WRTPC WRITC+21
    WRTSTR WRITC+33, WRITC+34
    WRTSTR1 WRTSTR1+5

    Naked Globals

    Name Field # of Occurrence
    ^(0 PHARM+2, TRAV+2, PRTC+1, CMORE+3, CMORE+10, CHNH+1, MORE+2, MORE+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> A PHARM+2*, MORE+2, MORE+5, MORE+6, MORE+7, MORE+12, MORE+13
    A2 WRITC+35*!
    AI WRITC+24~, WRITC+25*, WRITC+26*, WRITC+27, WRITC+29
    AID WRITC+24~, WRITC+27*, WRITC+28
    AITI WRITC+24~, WRITC+29*, WRITC+30, WRITC+32
    >> B PHARM+2, TRAV+2, PRTC+1, CMORE+10, CHNH+1
    >> B(1617 CMORE+10*, WRITC+2
    >> B2 PHARM+2*, MORE+6, MORE+7, MORE+12
    >> C MOREP*, MORET*, MORECH+1*
    >> CPTDESC MORE+2*
    >> D MORE+2*
    >> FBAACPT MORE+2*
    >> FBAAOUT LISTC*, PRTC+1, WRITC
    >> FBAC CMORE+1*, CMORE+2*, WRITC+5
    FBADJLA MORE+1~, MORE+9*
    FBADJLR CMORE~, CMORE+8*, WRITC+5, MORE+1~, MORE+8*
    FBADMTDX CMORE~, WRITC+10*, WRITC+11
    >> FBAP CMORE+1*, CMORE+2*, WRITC+5, WRITC+35
    >> FBARY( MORECH+5*
    >> FBCAN WRITC+5, FBCKI+2*, FBCKI+4*, FBCKP+4*
    >> FBCANDT FBCKI+2*, FBCKI+4*, FBCKP+4*
    >> FBCANR FBCKI+2*, FBCKI+4*, FBCKP+4*
    >> FBCK FBCKI+2*, FBCKI+4*, FBCKP+4*
    >> FBCKDT FBCKI+2*, FBCKI+4*, FBCKP+4*
    FBCKIN FBCKI+3*, FBCKI+4!, FBCKP+3*, FBCKP+4!
    >> FBCKINT FBCKI+2*, FBCKI+4*, FBCKP+4*
    >> FBDIS FBCKI+2*, FBCKI+4*, FBCKP+4*
    FBDX CMORE~, WRTDX+2*, WRTDX+4, WRTDX+5
    >> FBFD CMORE+3*, WRITC+5
    FBFPPSC CMORE~, CMORE+5*, WRITC+4, MORE+1~, MORE+5*
    FBFPPSL CMORE~, CMORE+6*, WRITC+4, MORE+1~, MORE+6*
    FBI FBCKI~, FBCKI+2, FBCKI+3
    >> FBIN CMORE+1*, WRITC+3, MORE+2*
    >> FBIN(1 CMORE+11*, WRITC+3, MORE+13*
    >> FBK WRITC+17*, WRTDX+2, WRTDX+3, WRTDX+7
    >> FBL WRITC+21*, WRTPC+2, WRTPC+5
    >> FBLISTC LISTC*
    >> FBPDT CMORE+3*, CDAT*
    FBPOA CMORE~, WRTDX+3*, WRTDX+6
    >> FBPROC WRTPC+2*, WRTPC+3, WRTPC+4
    >> FBPV MORE+3*
    >> FBSC CMORE+3*, WRITC+5
    >> FBTD CMORE+3*, WRITC+5
    >> FBVP CMORE+1*, WRITC+5
    FBX CMORE~, CMORE+7*, CMORE+8, MORE+1~, MORE+7*, MORE+8, MORE+9
    FBY3 CMORE~, CMORE+4*, CMORE+5, CMORE+6
    >> FZ CHNH+1, CHNH+2*, MORECH+4
    >> FZ("CNT" CHNH+1*, CHNH+2!, INVCNT+1*
    I PRTC+1*, CMORE+1, CMORE+4, CMORE+7, CMORE+9, WRITC+9, WRITC+15, WRITC+16, WRITC+20, WRITC+23
    , WRITC+26, WRITC+27, WRITC+29, WRTSTR+1~, WRTSTR1+1*, WRTSTR1+3, WRTSTR1+4
    IOF WRITC
    IOM WRITC+33, WRITC+34, WRTDX+7, WRTPC+5
    ION LISTC
    IOP LISTC*!
    IOSL WRITC
    IOST WRITC
    J TRAV+2*, CMORE+1*, CHNH+1*, MORE+2*, FBCKP~, FBCKP+2, FBCKP+3
    K TRAV+2*, CMORE+1*, FBCKP~, FBCKP+2, FBCKP+3
    MX WRTSTR~, WRTSTR1, WRTSTR1+5
    >> N CMORE+1*, WRITC+2, MORE+2*
    P1 WRITC+14~, WRITC+15*, WRTDX+2
    P2 WRITC+14~, WRITC+16*, WRTDX+3
    P3 WRTDX+1~, WRTDX+5*, WRTDX+6
    P4 WRTDX+1~, WRTDX+6*, WRTDX+7, WRTDX+8
    P5 WRITC+19~, WRITC+20*, WRTPC+2
    P6 WRTPC+1~, WRTPC+4*, WRTPC+5, WRTPC+6
    P7 WRITC+8~, WRITC+9*, WRITC+10
    P8 WRITC+8~, WRITC+11*, WRITC+12
    >> Q LISTC*, HEDC+1
    >> QQ WRITC+5
    RM WRTSTR+1~, WRTSTR1*, WRTSTR1+1, WRTSTR1+3
    >> S CMORE+1*, WRITC+2, MORE+2*
    STR WRTSTR~, WRTSTR1, WRTSTR1+1, WRTSTR1+2, WRTSTR1+3*, WRTSTR1+4*, WRTSTR1+5
    >> T MOREP*, MORET*, MORECH+1*, MORE+3*
    TAMT MORE+1~, MORE+10*
    U CMORE+5, CMORE+6, CMORE+8, CHNH+1, CHNH+2, MORE+5, MORE+6, MORE+8, MORE+9, FBCKI+4*
    , FBCKP+4*
    >> V WRITC+3
    >> VID WRITC+3
    WRTPC WRITC+24~, WRITC+25*, WRITC+27*, WRITC+28*, WRITC+30*, WRITC+31*, WRITC+32*, WRITC+33, WRITC+34
    >> Y MORE+3*
    >> Z(0 PHARM+2*, MOREP, TRAV+2*, MORET, PRTC+1*, CMORE+1, CMORE+3, CMORE+11, WRITC+6, WRITC+11
    , CHNH+1*, MORECH+1, MORECH+5, WRTDX+5, WRTPC+4, MORE+2, MORE+3, MORE+10
    >> ZS CMORE+1*, WRITC+1, MORE+3*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All