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

Package: Fee Basis

Routine: FBAARR


Information

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

Source Information

Source file <FBAARR.m>

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: Retired
    • Usage: Controlled Subscription

    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

    FileMan Files Accessed Via FileMan Db Call

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