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

Package: Integrated Billing

Routine: IBJTU31


Information

IBJTU31 ;ALB/ARH - TPI UTILITIES - INS ; 2/14/95

Source Information

Source file <IBJTU31.m>

Entry Points

Name Comments DBIA/ICR reference
BPP(IBIFN,ARRAY) ; returns array of patient policy info on all of a bill's carriers
; returns PPIFN ^ p/s/t ^ policy node from patient insurance record (2,.312), also adds correct group #/name
BPPQ
PST(IBIFN) ; called by insurance screens ACTION PROTOCOL ENTRY ACTION code, allow user to choose which policy
; to display ins screens for default will be either the primary or last viewed
; IBPOLICY used by this procedure to define last viewed, must be killed when exiting primary screen (CI)
PSTQ
DBPOL(IBINS) ; display patient policy info for all carriers of a bill, input array from BPP
DBPOLQ
MINS(IBIFN) ;Called by IBJT LIST TEMPLATE screens and RCRC LIST TEMPLATES
; Return true if Bill has multiple Insurance Policies
  • ICR #2327
    • Status: Active
    • Usage: Private
    MINSQ
    REF(IBIFN) ;Called by IBJT LIST TEMPLATE screens
    REFQ

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: PST+9
    Function Call: WRITE
    • Prompt: !,?12,"Carrier",?39,"Subscriber ID",?62,"Group #",!,?12,"--------------------------------------------------------------------"
    • Line Location: DBPOL+3
    Function Call: WRITE
    • Prompt: !,$S(IBI=2:"Secondary",IBI=3:"Tertiary",1:"Primary")_": ",?12,$E($P(IBCNS0,U,1),1,25),?39,$P(IBCDFN,U,2),?62,$P(IBCDFN,U,3)
    • Line Location: DBPOL+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: DBPOL+8
    Info |  Source |  Entry Points |  Interaction Calls