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

Package: Fee Basis

Routine: FBAARR


Information

FBAARR ;AISC/GRR - REINITIATE REJECTED LINE ITEMS ; 4/6/2012

Source Information

Source file <FBAARR.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Fee Basis 7 (HED,SET)^FBAACCB  (CMORE,MORE,PMORE,TMORE)^FBAARJP  (CHKOB,DELC,HELP,NEWBT)^FBAARR0  (,BATCNT,KILL,REJM)^FBAARR1  (DELP,DELT)^FBAARR2  GETNXI^FBAAUTL  $$ASKVET^FBAAUTL1  
VA FileMan 6 MSG^DIALOG  ^DIC  DT^DICRW  FILE^DIE  ($$GET1,EN)^DIQ  ^DIR  
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: 3

Package Total Caller Graph
Fee Basis 3 FBAA REINITIATE REJECTS  FBAARR0  FBAARR1  

Entry Points

Name Comments DBIA/ICR reference
BT
BTN
ASKLL
RD0
RD1
RDD ;
Q ; clean up
UNLK ; unlock batch
DELM ; specify line items to re-initiate for batch type B3
; select patient
RL
ASKSU
ASKRI
WRITM
END ;
; Assign new invoice number to moved lines if invoice was split
CKSPLIT(B,FBILM) ; Check for/Update split invoice
; Input
; B - ien of original batch before item moved
; FBILM( - array of invoice lines that were moved to a new batch
; passed by reference
; format FBILM(invoice number,iens)=""
; where
; invoice number = invoice number
; iens = iens of subfile 162.03 (a line item)
; Result (0 or 1)
; =0 if no lines were assigned a new invoice number
; =1 if some lines assigned a new invoice number
; May change invoice number of line items in subfile 162.03
; and inform user
  • ICR #5089
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    ^%ZIS FBAARR+4
    MSG^DIALOG CKSPLIT+43
    ^DIC BT+1, BTN
    DT^DICRW FBAARR+6
    FILE^DIE CKSPLIT+43
    $$GET1^DIQ BT+9
    EN^DIQ RDD+1
    ^DIR ASKLLRD0+1, RD1RLASKSUASKRIEND+2
    HED^FBAACCB DELM+5
    SET^FBAACCB WRITM
    CMORE^FBAARJP ASKLL
    MORE^FBAARJP ASKLL
    PMORE^FBAARJP ASKLL
    TMORE^FBAARJP ASKLL
    CHKOB^FBAARR0 BTN+2
    DELC^FBAARR0 RD1
    HELP^FBAARR0 BTN
    NEWBT^FBAARR0 BT+13
    ^FBAARR1 RD0+1
    BATCNT^FBAARR1 BTN+1
    KILL^FBAARR1 Q+2
    REJM^FBAARR1 ASKSU+3
    DELP^FBAARR2 RD1
    DELT^FBAARR2 RD1
    GETNXI^FBAAUTL CKSPLIT+35
    $$ASKVET^FBAAUTL1 DELM+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: BT+0
    Function Call: WRITE
    • Prompt: !,"Another user is editing this batch. Try again later."
    • Line Location: BT+3
    Function Call: WRITE
    • Prompt: !!,*7,"No items rejected in this batch!"
    • Line Location: BT+6
    Function Call: WRITE
    • Prompt: !,"This batch cannot be re-initiated yet. The Voucher Batch"
    • Line Location: BT+10
    Function Call: WRITE
    • Prompt: !,"Message must first be successfully acknowledged by Central Fee."
    • Line Location: BT+11
    Function Call: WRITE
    • Prompt: !!
    • Line Location: BTN+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: RDD+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DELM+5
    Function Call: WRITE
    • Prompt: !,*7,"You already did that one!!"
    • Line Location: RL+1
    Function Call: WRITE
    • Prompt: !!,"FYI: Invoice ",FBIN," was split since entire invoice did not move to the new batch."
    • Line Location: CKSPLIT+40
    Function Call: WRITE
    • Prompt: !,"Re-initiated lines are being assigned a new invoice number of ",FBAAIN,"."
    • Line Location: CKSPLIT+41
    Routine Call
    • %ZIS
    • Line Location:
      • FBAARR+4
    Routine Call
    • DIALOG
    • Line Location:
      • CKSPLIT+43
    Routine Call
    • DIC
    • Line Location:
      • BT+1
      • BTN
    Routine Call
    • DIE
    • Line Location:
      • CKSPLIT+43
    Routine Call
    • DIR
    • Line Location:
      • ASKLL
      • RD0+1
      • RD1
      • RL
      • ASKSU
      • ASKRI
      • END+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.7 - [#161.7] Classic Fileman Calls,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.7 - [#161.7] BT+2, BT+4, BT+7*, BTN+2, UNLK+1
    ^FBAA(162.1 - [#162.1] BT+6
    ^FBAAC - [#162] CKSPLIT+29
    ^FBAAC("AG" BT+6
    ^FBAAC("AH" BT+6, DELM+6, CKSPLIT+22, CKSPLIT+24, CKSPLIT+26, CKSPLIT+28
    ^FBAAC("AJ" CKSPLIT+20
    ^FBAAI("AH" BT+6

    Label References

    Name Line Occurrences
    $$CKSPLIT END+2
    ASKLL BT+13
    ASKRI ASKRI
    BT BT+1, BT+3, BT+6, BT+9, BTN+1, RDD+3
    BTN BTN
    DELM RD1ASKRI
    END RLASKRI
    Q BT+1, BTN
    RL RL+1, ASKSU
    UNLK BT+6, BT+9, BTN+1, RDD+2, Q+1
    WRITM DELM+6

    Naked Globals

    Name Field # of Occurrence
    ^(0 BTN+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    B BT+4*, BT+6, BT+7, BTN+2, ASKLL*, DELM+6, END+2, CKSPLIT~, CKSPLIT+20, CKSPLIT+22
    , CKSPLIT+24, CKSPLIT+26, CKSPLIT+28
    >> CNT FBAARR+5*
    >> DA RDD+1*
    >> DIC BT+1*, RDD+1*
    DIC("A" BT+1*!, BTN*!
    DIC("S" BT+1*!, BTN*!
    >> DIC(0 BT+1*
    DILOCKTM BT+2
    DIR ASKLL!, RD0+1!, RD1!, RL!, ASKSU!, ASKRI!, END+2!
    DIR("?" RD0*
    DIR("A" ASKLL*, RD0*, RD1*, RL*, ASKSU*, ASKRI*
    DIR("B" ASKLL*, RD0*, RD1*, ASKSU*, ASKRI*
    DIR(0 ASKLL*, RD0*, RD1*, RL*, ASKSU*, ASKRI*, END+2*
    >> DIRUT RD1RLASKSUASKRI
    >> DR RDD+1*
    >> ERR RL*
    FBAAIN CKSPLIT+14~, CKSPLIT+39, CKSPLIT+41
    >> FBAAOUT FBAARR+5*
    FBERR ASKSU+2!, ASKRI
    >> FBEXMPT BT+5*
    FBFDA CKSPLIT+14~, CKSPLIT+37!, CKSPLIT+43
    FBFDA( CKSPLIT+39*
    FBIENS CKSPLIT+14~, CKSPLIT+38*, CKSPLIT+39
    FBILM FBAARR+3~, END+2, CKSPLIT~
    FBILM( CKSPLIT+17, CKSPLIT+38
    FBIN CKSPLIT+14~, CKSPLIT+17*, CKSPLIT+20, CKSPLIT+30, CKSPLIT+38, CKSPLIT+40
    FBINL CKSPLIT+14~, CKSPLIT+29*, CKSPLIT+30
    >> FBINTOT FBAARR+5*
    FBJ CKSPLIT+14~, CKSPLIT+22*, CKSPLIT+24, CKSPLIT+26, CKSPLIT+28, CKSPLIT+29
    FBK CKSPLIT+14~, CKSPLIT+23*, CKSPLIT+24*, CKSPLIT+26, CKSPLIT+28, CKSPLIT+29
    FBL CKSPLIT+14~, CKSPLIT+25*, CKSPLIT+26*, CKSPLIT+28, CKSPLIT+29
    FBM CKSPLIT+14~, CKSPLIT+27*, CKSPLIT+28*, CKSPLIT+29
    >> FBN BT+4*, BT+9, ASKLLRDD+1, UNLK+1
    >> FBNB BTN*, BTN+1, BTN+2
    FBNNP ASKLL*!
    >> FBNOB BTN+2*
    >> FBNUM BTN+2*
    >> FBOB BT+5*, BTN+2
    FBRET CKSPLIT+14~, CKSPLIT+15*, CKSPLIT+32*, CKSPLIT+44
    FBSPLT CKSPLIT+14~, CKSPLIT+18*, CKSPLIT+20*, CKSPLIT+22, CKSPLIT+24, CKSPLIT+26, CKSPLIT+28, CKSPLIT+30*, CKSPLIT+31
    >> FBTYPE BT+4*, BT+6, BT+13, ASKLLRD1
    >> FBVD BTN+2*
    >> FBVDUZ BTN+2*
    >> FZ BT+4*, BT+5, BT+13
    >> HX RL*, RL+1, ASKSUASKSU+1
    IOF ASKLLDELM+5
    ION FBAARR+4
    IOP FBAARR+4*!
    >> J DELM+2*, DELM+3, DELM+6, ASKSU+1*, WRITM
    >> K DELM+6*, ASKSU+1*, WRITM
    >> L DELM+6*, ASKSU+1*, WRITM
    >> M DELM+6*, ASKSU+1*, WRITM
    >> Q FBAARR+5*
    QQ BT!, DELM+4!, DELM+5*, RL, WRITM*
    QQ( RL+1, ASKSU+1, WRITM*
    U BT+7, BT+9, CKSPLIT+29
    >> UL FBAARR+5*
    >> X BT+1, BTNRL
    >> Y BT+1, BT+2, BT+4, BTNASKLLRD0+1, RD1ASKSUASKRI
    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