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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCNSMM1

Package: Integrated Billing

Routine: IBCNSMM1


Information

IBCNSMM1 ;ALB/CMS -MEDICARE INSURANCE INTAKE (CONT) ; 11/8/06 9:32am

Source Information

Source file <IBCNSMM1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 $$ADDSTF^IBCNBES  (,AFTER,BEFORE)^IBCNSEVT  COVERED^IBCNSM31  
VA FileMan 2 ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Integrated Billing 8 IB20P244  IB20P359  IBCEMU3  IBCNSM2  IBCNSMM  IBCNSMM2  IBCNSU1  IBCNSUX  

Entry Points

Name Comments DBIA/ICR reference
SETP(IBP) ; -- Stuff data fields in patient policy
; Required Input:
; IBP =A for Part A, B for Part B
; DFN =pt. ien
; IBCDFN =patient policy ien
; IBNAME =Name of Insured
; IBHICN =Subscriber ID - as of IB*601 could also be a MBI Number
; IBAEFF =Effective Date of Plan A
; IBBEFF =Effective Date of Plan B
; IBCNSP =Medicare (WNR) ien ^Part A ien ^Part B ien
; IBCOBI =Coordination of Benefits (Internal value)
SETEV ; -- Update Insurance event
SETPQ
BUFF(IBP) ; -- Set IBBUF array with policy info for Buffer File
; Return: IBBUF array
; IBBUF(355.33 field #s)=corresponding policy, plan and company data
; i.e. IBBUF(20.01)=Insurance Company Name
; IBBUF(90.01)=Group Name
; IBBUF(60.01)=DFN
OK ; -- ask okay
GETWNR() ; -- Find and return the MEDICARE (WNR) ien
; -- Returns Error message or
; DIC(36 IEN ^"MEDICARE (WNR)"^IBA(355.3 PART A IEN ^"PART A"^ IBA(355.3 PART B IEN ^"PART B"
GETWNRQ

External References

Name Field # of Occurrence
^DIE SETP+28, SETP+46
^DIR OK+9
$$ADDSTF^IBCNBES BUFF+23
^IBCNSEVT SETEV+3
AFTER^IBCNSEVT SETEV+3
BEFORE^IBCNSEVT SETP+32
COVERED^IBCNSM31 SETEV+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," PART "_IBP_" COVERAGE VERIFIED."
  • Line Location: SETP+47
Function Call: WRITE
  • Prompt: !,?3,$P(IBCNSP,U,2)," PART "_IBP_" entry #"_+IBBDA_" added to Insurance Buffer File."
  • Line Location: BUFF+24
Function Call: WRITE
  • Prompt: !,*7,?3,"Warning: Could not add new policy Part "_IBP_" in Buffer File.",!,?13,"("_$P(IBBDA,U,2)_")",!
  • Line Location: BUFF+25
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+6
Routine Call
  • DIE
  • Line Location:
    • SETP+28
    • SETP+46
Routine Call
  • DIR
  • Line Location:
    • OK+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] GETWNR+6, GETWNR+7
^DPT - [#2] SETP+13, SETP+31, SETP+40, SETP+41
^IBA(355.3 - [#355.3] GETWNR+19, GETWNR+20
^IBE(355.2 - [#355.2] GETWNR+13

Label References

Name Line Occurrences
GETWNRQ GETWNR+29, GETWNR+30
OK SETP+37
SETEV SETP+37
SETPQ SETP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D SETP+12~
DA SETP+12~, SETP+22*, SETP+45*
DA(1 SETP+22*, SETP+45*
>> DFN SETP+13, SETP+22, SETP+31, SETP+40, SETP+41, SETP+45, SETEV+2, BUFF+16, BUFF+23
DIE SETP+12~, SETP+22*, SETP+45*
DIR SETP+35!, OK+9!
DIR("?" SETP+36*, OK+8*
DIR("A" SETP+35*, OK+7*
DIR("B" OK+6*
DIR(0 OK+6*
DIROUT OK+1~
DIRUT OK+1~
DR SETP+12~, SETP+23*, SETP+24*, SETP+25*, SETP+26*, SETP+27*, SETP+46*
DTOUT OK+1~, OK+10
DUOUT OK+1~
DUZ SETP+46
IB0 GETWNR+4~, GETWNR+7*, GETWNR+9, GETWNR+10, GETWNR+12, GETWNR+13
>> IBAEFF SETP+25, BUFF+17
IBBDA SETP+12~, BUFF+23*, BUFF+24, BUFF+25
>> IBBEFF SETP+25, BUFF+17
IBBUF BUFF+11!*, BUFF+23
IBBUF( BUFF+12*, BUFF+13*, BUFF+14*, BUFF+15*, BUFF+16*, BUFF+17*, BUFF+18*, BUFF+19*, BUFF+20*, BUFF+21*
, BUFF+22*
>> IBCDFN SETP+13, SETP+22, SETP+45, SETEV+3
>> IBCNSP SETP+23, SETP+27, BUFF+13, BUFF+14, BUFF+24
>> IBCOBI SETP+26, BUFF+22
>> IBCOVP SETP+31*, SETEV+2
>> IBHICN SETP+24, BUFF+18
>> IBNAME SETP+24, SETP+40, SETP+42, BUFF+21
>> IBNEW SETP+32*, SETEV+3
>> IBOK SETP+37*, OK+11*
IBP SETP~, SETP+23, SETP+25, SETP+26, SETP+27, SETP+35, SETP+47, BUFF~, BUFF+14, BUFF+17
, BUFF+24, BUFF+25
IBP0 BUFF+11~, GETWNR+4~, GETWNR+20*, GETWNR+21, GETWNR+22, GETWNR+23, GETWNR+25
IBPGN GETWNR+4~, GETWNR+23*, GETWNR+24
IBPQ GETWNR+4~
IBPX GETWNR+4~, GETWNR+19*, GETWNR+20, GETWNR+25
IBQ GETWNR+4~, GETWNR+5*, GETWNR+6, GETWNR+19, GETWNR+26*
>> IBQUIT OK+6*, OK+10*, OK+11*
>> IBSOUR BUFF+12
IBWNR GETWNR+4~
IBWNR( GETWNR+25*
IBWNR("A" GETWNR+18!, GETWNR+26, GETWNR+28
IBWNR("B" GETWNR+18!, GETWNR+26, GETWNR+28, GETWNR+31
IBWNR("INS" GETWNR+8!, GETWNR+14*, GETWNR+28
IBX GETWNR+4~, GETWNR+6*, GETWNR+7, GETWNR+14, GETWNR+19, GETWNR+28*, GETWNR+29*, GETWNR+30*, GETWNR+31*, GETWNRQ
IBY GETWNR+4~, GETWNR+5*, GETWNR+6, GETWNR+9, GETWNR+14
U SETP+23, SETP+27, SETP+31, SETP+40, SETP+41, BUFF+13, BUFF+14, BUFF+24, BUFF+25, GETWNR+9
, GETWNR+10, GETWNR+12, GETWNR+13, GETWNR+14, GETWNR+21, GETWNR+22, GETWNR+23, GETWNR+25, GETWNR+28, GETWNR+30
X SETP+12~, SETEV+1~, OK+1~
Y SETP+12~, SETEV+1~, OK+1~, OK+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All