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

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: Retired
    • Usage: Controlled Subscription
    FBCKP(J,K) ;set pharmacy check variables
  • ICR #5105
    • Status: Retired
    • Usage: Controlled Subscription

    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
    Info |  Source |  Entry Points |  Interaction Calls