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

Package: Registration

Routine: DGIBDSP


Information

DGIBDSP ;ALB/SCK - FORMATTED INSURANCE DISPLAY ; 16-JUNE-04

Source Information

Source file <DGIBDSP.m>

Entry Points

Name Comments DBIA/ICR reference
DISP ;-Display all insurance company information
; -input DFN
; -input DGSTAT [optional] Defaults to "RAB" if not defined.
  • ICR #4408
    • Status: Active
    • Usage: Controlled Subscription
    DISPQ
    HDR ; -- print standard header
    HDR1(CHAR,LENG) ; -- print header, specify character
    D1(DGVAL) ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?6,DGRTN("IBBAPI","INSUR","ERROR",DGERR)
    • Line Location: DISP+14
    Function Call: WRITE
    • Prompt: !," No Insurance Information"
    • Line Location: DISP+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: DISPQ+0
    Function Call: WRITE
    • Prompt: !?17,"*** Patient has Insurance Buffer entries ***"
    • Line Location: DISPQ+1
    Function Call: WRITE
    • Prompt: !?(1+OFF),X
    • Line Location: HDR1+4
    Function Call: WRITE
    • Prompt: !?(1+OFF),$S($D(DGINS(DGVAL,1)):$E($P(DGINS(DGVAL,1),U,2),1,10),1:"UNKNOWN")
    • Line Location: D1+5
    Function Call: WRITE
    • Prompt: ?(14+OFF),X
    • Line Location: D1+7
    Function Call: WRITE
    • Prompt: ?(17+OFF),$E(DGINS(DGVAL,14),1,16)
    • Line Location: D1+8
    Function Call: WRITE
    • Prompt: ?(35+OFF),$E(DGINS(DGVAL,18),1,10)
    • Line Location: D1+9
    Function Call: WRITE
    • Prompt: ?(47+OFF),$S(DGX="P":"SELF",DGX="S":"SPOUSE",1:"OTHER")
    • Line Location: D1+11
    Function Call: WRITE
    • Prompt: ?(55+OFF),$TR($$FMTE^XLFDT(DGINS(DGVAL,10),"2DF")," ","0"),?(65+OFF+$S(OFF:1,1:0)),$TR($$FMTE^XLFDT(DGINS(DGVAL,11),"2DF")," ","0")
    • Line Location: D1+12
    Function Call: WRITE
    • Prompt: ?75,"*WNR*"
    • Line Location: D1+14
    Info |  Source |  Entry Points |  Interaction Calls