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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBCNSU

Package: Integrated Billing

Routine: IBCNSU


Information

IBCNSU ;ALB/AAS - INSURANCE UTILITY ROUTINE ;19-MAY-93

Source Information

Source file <IBCNSU.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 5 FILE^DICN  ^DIE  CLEAN^DILF  $$GET1^DIQ  ^DIR  
Kernel 1 ($$TRIM,$$UP)^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Integrated Billing 7 IB20PT1  IB20PT6  IBCNSA  IBCNSJ3  IBCNSM1  IBCNSOK  IBCNSP11  

Entry Points

Name Comments DBIA/ICR reference
ODELPQ
DELPQ
ADDH(IBCNS,IBGRP,IBGNA,IBGNU) ; -- add entries to health insurance policy file (355.3)
; Input: IBCNS = pointer to ins co file
; IBGRP = 1 if group policy, 0 if no
ADDHQ
ZIPCHK9(ZIP) ;AITC/JRA - IB*2.0*576 Check if ZIP is in proper 9-digit format
ADDBQ
HIP(IBCNS,IBGRP,IBGRNA,IBGRNU) ; -- find internal entry number in policy file
; Input: IBCNS = pointer to ins co file
; IBGRP = 1 if group policy, 0 if not
; IBGRNA = group name
; IBGRNU = group number
  • ICR #944
    • Status: Active
    • Usage: Private
    CHIP(IBCDFND) ; -- convert node with no hip pointer to one with hip pointer
    ; Input: IBCDFND = zeroth node of insurance type multiple
    ; = ^dpt(dfn,.312,ibcdfn,0)
    STRIP(X,X1) ; -- strip characters from string
    ; input: x = string
    ; x1 = character to strip (default is ";"
    ABQ
    DELP(DFN,INS,IBC) ; -- can an insurance policy be deleted
    ; -- called by ^dd(2.312,0,"del",.01) and by ibcnsm
    ; -- input dfn: ien of patient in file 2.
    ; ins: ien of ins. co in file 36
    ; ibc: ien of policy in file 2.312 to do a match
    ODELP(DFN,INS) ; -- can an insurance policy be deleted
    ; -- called by ^dd(2.312,0,"del",.01) and by ibcnsm
    ; -- input dfn: ien of patient in file 2.
    ; ins: ien of ins. co in file 36
    DUPADDRL(DATA,IBCNS,FLD1,FLD2) ; Insurance address lines can not be duplicated
    ; DATA - Value being compared
    ; FLD1 - First field to check against
    ; FLD2 - Second field to check against (OPTIONAL)
    AB(IBCPOL,IBYR,IBASK) ; -- Return entry in Annual Benefits file
    ; Input: IBCPOL = pointer to health insurance policy file
    ; IBYR = fileman internal date, Default = dt
    ; IBASK = 1 if want to ask okay to add new entry
    HIPQ
    ADDB(IBCPOL,IBYR) ; -- add entries to Annual Benefits file
    ; Input: IBCPOL = pointer to health insurance policy file
    ; IBYR = fileman internal date, Default = dt
    CHIPQ

    External References

    Name Field # of Occurrence
    FILE^DICN ADDB+13, ADDH+11
    ^DIE ADDB+15, HIP+26, ADDH+16
    CLEAN^DILF DUPADDRL+15, DUPADDRL+16, DUPADDRL+17
    $$GET1^DIQ DUPADDRL+11, DUPADDRL+13
    ^DIR AB+18
    $$TRIM^XLFSTR DUPADDRL+10, DUPADDRL+12, DUPADDRL+14
    $$UP^XLFSTR DUPADDRL+10, DUPADDRL+12, DUPADDRL+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBA(355.3 - [#355.3] Classic Fileman Calls
    ^IBA(355.4 - [#355.4] Classic Fileman Calls
    ^DIC(36 - [#36] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] ODELP+10, DELP+23, DELP+26
    ^DIC(36 - [#36] HIP+10
    ^DPT - [#2] DELP+17
    ^DPT("AB" DELP+17
    ^IBA(355.3 - [#355.3] HIP+15, HIP+16, HIP+19, HIP+20
    ^IBA(355.4 - [#355.4] AB+14

    Label References

    Name Line Occurrences
    $$ADDB AB+19
    $$ADDH HIP+12, HIP+22
    $$HIP CHIP+9
    $$STRIP HIP+25
    ABQ AB+9
    ADDBQ ADDB+8, ADDB+13
    ADDHQ ADDH+8, ADDH+11
    DELPQ DELP+12
    HIPQ HIP+10, HIP+12, HIP+16, HIP+20

    Naked Globals

    Name Field # of Occurrence
    ^("M" DELP+26
    ^("MP" DELP+26
    ^("S" DELP+26

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT ADDB+6~, HIP+8~, ADDH+6~
    ARR DELP+9~
    ARR( DELP+17*, DELP+18, DELP+38, DELP+45
    ARRP DELP+25~
    ARRP( DELP+41*
    ARRP(0 DELP+45
    DA ADDB+6~, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+12*, ADDH+16!
    DATA DUPADDRL~, DUPADDRL+8, DUPADDRL+10*, DUPADDRL+15, DUPADDRL+16
    DD ADDB+6~, ADDB+10!, ADDH+6~, ADDH+9!
    DFN ADDH+13, ODELP~, ODELP+10, DELP~, DELP+12, DELP+17, DELP+23
    DIC ADDB+6~, ADDB+10!*, ADDB+15!, HIP+26!, ADDH+6~, ADDH+9!*, ADDH+16!
    DIC(0 ADDB+10*, ADDH+9*
    DIE ADDB+6~, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+12*, ADDH+16!
    DIR AB+7~
    DIR("A" AB+18*
    DIR("B" AB+18*
    DIR(0 AB+18*
    >> DIRUT AB+18
    DLAYGO ADDB+6~, ADDB+10*, ADDH+6~, ADDH+9*
    DO ADDB+6~, ADDB+10!, ADDH+6~, ADDH+9!
    DR ADDB+6~, ADDB+10!, ADDB+14*, ADDB+15!, HIP+25*, HIP+26!, ADDH+6~, ADDH+9!, ADDH+12*, ADDH+13*
    , ADDH+14*, ADDH+15*, ADDH+16!
    DT AB+10, ADDB+9
    FLD1 DUPADDRL~, DUPADDRL+11
    FLD2 DUPADDRL~, DUPADDRL+13
    I ODELP+7~, STRIP+3~, STRIP+6*
    IBASK AB~, AB+18
    IBC DELP~, DELP+16, DELP+17, DELP+49, DELP+53, DELP+54
    IBCAB AB+7~, AB+8*, AB+14*, AB+17, AB+19*, ABQ, ADDB+6~, ADDB+7*, ADDB+14*, ADDBQ
    , ADDH+6~
    IBCDFND CHIP~, CHIP+7
    IBCNS CHIP+6~, CHIP+7*, CHIP+9, HIP~, HIP+10, HIP+12, HIP+15, HIP+19, HIP+22, ADDH~
    , ADDH+8, ADDH+11, DUPADDRL~, DUPADDRL+9, DUPADDRL+11, DUPADDRL+13
    >> IBCNTP ADDH+17*
    IBCPOL AB~, AB+9, AB+14, AB+19, ADDB~, ADDB+8, ADDB+14, CHIP+9*, CHIPQ, HIP+9*
    , HIP+12*, HIP+15*, HIP+16, HIP+19*, HIP+20, HIP+22*, HIP+25, HIPQ, ADDH+7*, ADDH+12*
    , ADDHQ
    IBGNA ADDH~, ADDH+15
    IBGNU ADDH~, ADDH+14
    IBGRNA CHIP+6~, CHIP+7*, CHIP+8, CHIP+9, HIP~, HIP+16, HIP+18*, HIP+19, HIP+23, HIP+24*
    , HIP+25
    IBGRNU CHIP+6~, CHIP+7*, CHIP+8, CHIP+9, HIP~, HIP+14*, HIP+15, HIP+20, HIP+23, HIP+24*
    , HIP+25
    IBGRP CHIP+6~, CHIP+7*, CHIP+8*, CHIP+9, HIP~, HIP+11*, HIP+12, HIP+22, ADDH~, ADDH+12
    , ADDH+13
    IBN1 ADDB+6~, ADDH+6~
    IBYR AB~, AB+10*, AB+14, AB+19, ADDB~, ADDB+9*, ADDB+13
    INS ODELP~, ODELP+10, DELP~, DELP+12, DELP+23
    J ODELP+10*, DELP+9~, DELP+17*, DELP+18*, DELP+23*, DELP+26
    K DELP+25~, DELP+38*, DELP+41
    L DELP+25~, DELP+45*, DELP+49
    M DELP+25~, DELP+26*, DELP+35, DELP+54
    MP DELP+25~, DELP+26*, DELP+35, DELP+53
    ONEPOL DELP+9~, DELP+18*, DELP+19*, DELP+32
    POL DELP+25~, DELP+38*, DELP+39, DELP+40
    S DELP+25~, DELP+26*, DELP+29
    >> VALMQUIT AB+18*
    X ADDB+13*, ADDH+11*, ODELP+7~*, ODELP+10*, ODELPQ, STRIP~, STRIP+6, DELP+9~, DELP+12*, DELP+23*
    , DELP+32*, DELP+49*, DELP+53*, DELP+54*, DELPQ
    X1 STRIP~, STRIP+4*, STRIP+5*, STRIP+6
    X2 STRIP+3~, STRIP+4*, STRIP+6*, STRIP+7
    Y AB+18, ADDB+13, ADDB+14, ADDH+11, ADDH+12, ODELP+7~
    Z DELP+25~, DELP+26*, DELP+39, DELP+40
    Z1 DUPADDRL+7~, DUPADDRL+11*, DUPADDRL+12*, DUPADDRL+15
    Z2 DUPADDRL+7~, DUPADDRL+13*, DUPADDRL+14*, DUPADDRL+16
    ZIP ZIPCHK9~, ZIPCHK9+4, ZIPCHK9+5, ZIPCHK9+6
    ZIP4 ZIPCHK9+3~, ZIPCHK9+5*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All