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

Package: Integrated Billing

Routine: IBCNSU41


Information

IBCNSU41 ;ALB/CPM - SPONSOR UTILITIES (CON'T) ; 5/9/03 1:25pm

Source Information

Source file <IBCNSU41.m>

Entry Points

Name Comments DBIA/ICR reference
SPON(DFN) ; Add/edit sponsor/sponsor relationships for a patient.
; Input: DFN -- Pointer to the patient in file #2
  • ICR #2037
    • Status: Active
    • Usage: Private
    SPONQ
    LSP ; Main loop to collect sponsor and relation data.
    LSPC ; - allow edit of non-patient sponsor name/dob/ssn
    ; Start of Sponsor changes for IB*2.0*654
    LSPQ
    LSPCX ; - allow edit of non-patient sponsor name/dob/ssn
    LSPQX
    POL(DFN) ; Update TRICARE policies with Sponsor information.
    ; Input: DFN -- Pointer to the patient in file #2
    POLQ
    HELP ; Sponsor Delete Help
    SPTXT(IBTXT2,IBTXT3) ;
    ; Function to split IBTXT2 into 2 lines each <=80 chars.

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"New sponsors must be in the format LAST,FIRST.",!
    • Line Location: LSP+8
    Function Call: WRITE
    • Prompt: !,"Unable to add a new sponsor!"
    • Line Location: LSP+18
    Function Call: WRITE
    • Prompt: !,"Unable to add a new sponsor!"
    • Line Location: LSP+23
    Function Call: WRITE
    • Prompt: !,IBTXT3
    • Line Location: LSPC+23
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPC+55
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPC+62
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPCX+17
    Function Call: WRITE
    • Prompt: !
    • Line Location: LSPCX+24
    Function Call: WRITE
    • Prompt: !!,"Answering Yes will only remove this Sponsor from this Patient."
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !,"The Sponsor will remain in the Sponsor file and will be"
    • Line Location: HELP+2
    Function Call: WRITE
    • Prompt: !,"available for selection for other Patients."
    • Line Location: HELP+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
    ^IBA(355.8 - [#355.8] Classic Fileman Calls,  GET1^DIQ
    ^IBA(355.81 - [#355.81] Classic Fileman Calls
    ^IBA(355.82 - [#355.82] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call