Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Integrated Billing 1 $$INSUR^IBBAPI  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 2 DGRP5  DGRPDB  
IHS Electronic Health Record 1 BEHOPTCX  
Order Entry Results Reporting 1 ORCXPND1  

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
    D1(DGVAL) ;
    HDR ; -- print standard header
    HDR1(CHAR,LENG) ; -- print header, specify character

    External References

    Name Field # of Occurrence
    HOME^%ZIS DISP+6
    $$INSUR^IBBAPI DISP+11
    $$FMTE^XLFDT D1+12

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?6,DGRTN("IBBAPI","INSUR","ERROR",DGERR)
    • Line Location: DISP+15
    Function Call: WRITE
    • Prompt: !," No Insurance Information"
    • Line Location: DISP+16
    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
    Routine Call
    • %ZIS
    • Line Location:
      • DISP+6

    Label References

    Name Line Occurrences
    D1 DISP+20
    DISPQ DISP+15, DISP+16
    HDR DISP+14
    HDR1 HDR+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CAT D1+1~
    CHAR HDR1~, HDR1+4
    >> DFN DISP+6, DISP+11
    DGDTIN DISP+5~, HDR+1, HDR1+2, D1+4
    DGERR DISP+8~, DISP+12*, DISP+15
    DGINS DISP+8~, DISP+18*, D1+3
    DGINS( DISP+20, D1+5, D1+6, D1+8, D1+9, D1+10, D1+12, D1+14
    DGRTN DISP+8~, DISP+11
    DGRTN("BUFFER" DISPQ, DISPQ+1
    DGRTN("IBBAPI" DISP+12, DISP+15, DISP+18
    DGSTAT DISP+10*, DISP+11, DISPQ+2!
    DGVAL D1~, D1+5, D1+6, D1+8, D1+9, D1+10, D1+12, D1+14
    DGX DISP+8~, DISP+11*, DISP+12, DISP+16, D1+1~, D1+10*, D1+11
    DGY DISP+8~, DISP+19*, DISP+20*, D1+1~
    DGZ D1+1~
    IOF DISP+6
    IOM HDR+1
    LENG HDR1~, HDR1+4
    OFF HDR1+1~, HDR1+2*, HDR1+3, HDR1+4, D1+1~, D1+4*, D1+5, D1+7, D1+8, D1+9
    , D1+11, D1+12, D1+13
    U D1+5, D1+10, D1+14
    X DISP+8~, HDR1+4*, D1+6*, D1+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All