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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Entry point from Medicare Intake Standalone option
ENA
ENQ
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
ENRQ
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
ADDPQ
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
VALHIC(X) ; Edits for validating HIC #
; X = the HIC # to be validated
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)
COMQ

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call