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

Package: Integrated Billing

Routine: IBCNSUX1


Information

IBCNSUX1 ;ALB/CMS - SPLIT COMBINATION PLANS CONT. ; 04-NOV-98

Source Information

Source file <IBCNSUX1.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; -- Start to process policy separation from IBCNSUX
; Input: IBINS=Selected Medicare Company
; IBPLAN=Selected Combination Plan
; IBWNR=MED WNR INS IEN^"MEDICARE (WNR)"
; ^PART A IEN^"PART A"
; ^PART B IEN^"PART A"
BEGQ
ADDB ; -- Create a New MEDICARE PART B patient policy
ADDBQ
SETA ; -- Change policy to point to Part A
DUP ; -- Check for duplicate
WRT ; -- write report
WRTQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Separate Medicare Combination policies Part A and Part B"
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !!,"Process started ",$$FMTE^XLFDT(IBST)," ended ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,?10,"Run by: ",$P($G(^VA(200,+$G(DUZ),0)),U,1)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !!,?5,"Combination Company: ",$P($G(^DIC(36,IBINS,0)),U,1)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: "="
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !!,"SUCCESSFULLY COMPLETED, COMBINATION PLAN DELETED."
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !,"Exception Report:"
  • Line Location: WRT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 GETS^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call