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

Package: Integrated Billing

Routine: IBCNSMM


Information

IBCNSMM ;ALB/CMS -MEDICARE INSURANCE INTAKE ; 18-OCT-98

Source Information

Source file <IBCNSMM.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 4 DISP^IBCNS  $$ZND^IBCNS1  ($$GETWNR,BUFF,SETP)^IBCNSMM1  MII^IBCNSMM2  
VA FileMan 4 ^DIC  FILE^DICN  FIELD^DID  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 5 IB20P244  IBCBB8  IBCEOB01  IBCNBME  IBCNSU1  

Entry Points

Name Comments DBIA/ICR reference
ENA
EN ; -- Entry point from Medicare Intake Standalone option
ENRQ
COMQ
GETWNR ;
; -- Get Medicare (WNR) insurance company and plan data
; Returns IBCNSP or IBQUIT
; IBCNSP="Error: Medicare (WNR) ... not setup properly"
; if Medicare WNR entry or plans not setup properly
ENR(DFN,IBSOUR,IBOPT) ; -- Entry point from IBCNBME Patient Registration or Pre-Registration
; Input Variable DFN Required and IBSOUR =Source of Information
; IBOPT =1 if coming from MII Standalone Option
ADDP(IBP) ; -- Create a new patient policy
; Input: DFN
; IBCNSP=MED WNR INS IEN^MEDICARE (WNR)
; ^PART A IEN^PART A
; ^PART B IEN^PART A
; IBP = "A" or "B" for medicare part
; IBSOUR = Source of Information
; Return: IBCDFN=-1 could not add OR Policy ien
; IBCOVP= Covered by Health Insurance
VALHIC(X) ; Edits for validating HIC #
; X = the HIC # to be validated
ENQ
COM(X,Y) ; Compare X with the intake variables.
; Input: X => 0th node of policy in file #2.312
; Y => A (Part A) or B (part B)
; Output: IBHIT=1 (no changes made)
ADDPQ

External References

Name Field # of Occurrence
^DIC ENA
FILE^DICN ADDP+17
FIELD^DID ADDP+14
^DIR EN+11
DISP^IBCNS ENA+4
$$ZND^IBCNS1 ENR+20
$$GETWNR^IBCNSMM1 GETWNR+10
BUFF^IBCNSMM1 ENR+55, ENR+56
SETP^IBCNSMM1 ADDP+22
MII^IBCNSMM2 ENR+41
$$FMTE^XLFDT ENA+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You may enter the 'Source of Information' that will be filed with all"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Medicare insurance coverage policies that are created.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: *7,!!,?10,"Patient Expired on ",$$FMTE^XLFDT($P(^DPT(DFN,.35),U))
  • Line Location: ENA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENA+4
Function Call: WRITE
  • Prompt: !,?3
  • Line Location: ENA+4
Function Call: WRITE
  • Prompt: !,?3
  • Line Location: ENA+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENA+5
Function Call: WRITE
  • Prompt: !," * No Part A changes made..."
  • Line Location: ENR+45
Function Call: WRITE
  • Prompt: !," * No Part B changes made..."
  • Line Location: ENR+48
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRQ+0
Function Call: WRITE
  • Prompt: !!,*7," <Could not create new policy at this time. Try Later!>",!
  • Line Location: ADDP+19
Function Call: WRITE
  • Prompt: !!,*7,?3,IBCNSP
  • Line Location: GETWNR+11
Routine Call
  • DIC
  • Line Location:
    • ENA
Routine Call
  • DIR
  • Line Location:
    • EN+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ENA+3, ENR+17, ADDP+12

Label References

Name Line Occurrences
ADDPQ ADDP+19
COM ENR+44, ENR+47
COMQ COM+5, COM+6, COM+7, COM+8
ENA ENA+5
ENQ EN+2, EN+12, ENA+1
ENR ENA+5
ENRQ ENR+13, ENR+37, ENR+41, ENR+50, ENR+51, ENR+52
GETWNR EN+2, ENR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%A EN+1~
D ENR+4~
DA EN+1~, ENR+4~, ADDP+10~
DA(1 ADDP+16*
DD ADDP+10~, ADDP+16!, ADDP+17!
DFN EN+1~, ENA+2*, ENA+3, ENA+5, ENR~, ENR+17, ENR+20, ADDP+12, ADDP+16
DIC EN+1~, ENA*, ENA+5!, ENR+4~, ADDP+10~, ADDP+16*, ADDP+17!
DIC("DR" ADDP+15*
DIC("P" ADDP+15*
DIC(0 ENA*, ADDP+16*
DIE ENR+4~, ADDP+10~
DIK ADDP+10~
DIR EN+1~, EN+11!, ENR+4~, ADDP+10~
DIR("A" EN+9*
DIR("B" EN+10*
DIR(0 EN+8*
DIROUT EN+11!
DIRUT EN+11!, ADDP+10~
DLAYGO ADDP+16*, ADDP+17!
DO ADDP+10~, ADDP+16!, ADDP+17!
DR ADDP+10~
DTOUT EN+11!
DUOUT EN+11!
DUZ ADDP+15
E ENR+4~
IBAD ENR+4~
IBADPOL ENR+4~, ENR+9*
IBAEFF ENR+5~, ENR+9*, ENR+52, ENR+55, COM+7
IBARR ENR+6~, ENR+37
IBARR("A" ENR+24*, ENR+31!, ENR+44
IBARR("B" ENR+28*, ENR+34!, ENR+47
IBBEFF ENR+5~, ENR+9*, ENR+51, ENR+56, COM+7
IBBUF ENR+5~
IBC0 ENR+4~
IBCDFN ENR+4~, ENR+9*, ENR+17*, ENR+20, ENR+24, ENR+28, ADDP+18*, ADDP+19
IBCNSP EN+1~, EN+2*, ENR+4~, ENR+9*, ENR+17, ENR+23, ENR+27, ADDP+16, GETWNR+10*, GETWNR+11
IBCOB ENR+6~
IBCOBI ENR+6~, COM+8
IBCOVP ENR+5~, ADDP+12*
IBCPOL ENR+4~, ENR+20*, ENR+23, ENR+24, ENR+27, ENR+28
IBGNA ENR+5~
IBGNU ENR+5~
IBGRP ENR+4~
IBHICN ENR+5~, ENR+10*, COM+6
IBHIT ENR+6~, ENR+44, ENR+47, COM+4*, COM+10*
IBHITA ENR+6~, ENR+45*, ENR+50, ENR+51, ENR+55
IBHITB ENR+6~, ENR+48*, ENR+50, ENR+52, ENR+56
IBNAME ENR+5~, ENR+10*, COM+5
IBNEW ENR+5~, ENR+9*
IBOK ENR+4~
IBOPT ENR~
IBP ENR+5~, ADDP~, ADDP+22
IBPOLA ENR+6~, ENR+16*, ENR+24*, ENR+37
IBPOLB ENR+6~, ENR+16*, ENR+28*, ENR+37
IBQUIT EN+1~, EN+2*, ENR+4~, ENR+9*, ENR+13, ENR+41, GETWNR+11*
IBSOUR ENR~, ADDP+15
IBSOURCE EN+1~, EN+12*, ENA+5
IBSPEC ADDP+10~
IBSPEC("SPECIFIER" ADDP+15
U ENA+3, ENR+23, ENR+27, ADDP+12
VAL VALHIC+8~, VALHIC+9*, VALHIC+10*, VALHIC+11
X EN+1~, ENA+4*, ENR+5~, ADDP+10~, ADDP+16*, VALHIC~, VALHIC+10, COM~, COM+5, COM+6
, COM+7, COM+8
Y EN+1~, EN+12, ENA+1, ENA+2, ENR+5~, ADDP+10~, ADDP+18, COM~, COM+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All