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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 FILE^DICN  (,FILE)^DIE  ($$GET1,GETS)^DIQ  
Integrated Billing 1 ($$SUBS,DEL)^IBCNSJ  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Integrated Billing 1 IBCNSUX  

Entry Points

Name Comments DBIA/ICR reference
SETA ; -- Change policy to point to Part A
WRTQ
ADDBQ
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"
WRT ; -- write report
ADDB ; -- Create a New MEDICARE PART B patient policy
DUP ; -- Check for duplicate
BEGQ

External References

Name Field # of Occurrence
FILE^DICN ADDB+11
^DIE BEG+26, SETA+7
FILE^DIE ADDB+27
$$GET1^DIQ BEG+12
GETS^DIQ ADDB+16
$$SUBS^IBCNSJ BEG+13, BEG+33
DEL^IBCNSJ BEG+33
DEM^VADPT WRT+13
$$FMTE^XLFDT WRT+3
$$NOW^XLFDT BEG+12, WRT+3

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
Routine Call
  • DIE
  • Line Location:
    • BEG+26
    • SETA+7
Routine Call
  • DIE
  • Line Location:
    • ADDB+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 GETS^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] WRT+5
^DPT - [#2] BEG+16, SETA+6, DUP+2, DUP+3
^IBA(355.3 - [#355.3] WRT+6
^TMP($J BEG+9!, BEG+14, BEG+15, BEG+24, BEG+29, BEG+30, BEGQ!, ADDB+8, ADDB+12*, ADDB+17*
, DUP+4*, DUP+5*, WRT+9, WRT+12, WRT+15, WRT+16
^VA(200 - [#200] WRT+4

Label References

Name Line Occurrences
ADDB BEG+29
ADDBQ ADDB+12, ADDB+17
DUP BEG+20
SETA BEG+30
WRT BEG+35
WRTQ WRT+9

Naked Globals

Name Field # of Occurrence
^(1 BEG+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 ADDB+2!
DA BEG+7~, BEG+25~, BEG+26*, ADDB+1~, SETA+1~, SETA+2*
DA(1 BEG+26*, ADDB+10*, SETA+2*
DD BEG+7~, ADDB+2!
DFN BEG+7~, BEG+14*, BEG+15, BEG+16, BEG+24, BEG+26, BEG+29, BEG+30, ADDB+8, ADDB+10
, ADDB+12, ADDB+15, ADDB+17, ADDB+20, SETA+2, SETA+6, DUP+2, DUP+3, DUP+4, DUP+5
, WRT+12*, WRT+15, WRT+16
DIC BEG+7~, ADDB+1~, ADDB+10*, ADDB+11!
DIC("DR" ADDB+4*, ADDB+8*
DIC(0 ADDB+10*
DIE BEG+7~, BEG+25~, BEG+26*, ADDB+1~, SETA+1~, SETA+2*
DIK BEG+7~
DIR BEG+7~
DIRUT BEG+7~
>> DLAYGO ADDB+10*
DO BEG+7~
DR BEG+7~, BEG+25~, BEG+26*, ADDB+1~, SETA+1~, SETA+3*, SETA+6*
DUZ ADDB+4, WRT+4
IB0 BEG+8~, BEG+16*, BEG+17, BEG+24, ADDB+8, DUP+1~, DUP+3*, DUP+4, DUP+5
IBBDFN ADDB+1~, ADDB+11*, ADDB+12, ADDB+20
IBC ADDB+1~
IBC( ADDB+21, ADDB+26
IBC("IBERR" ADDB+17
IBCDA ADDB+1~, ADDB+15*, ADDB+16, ADDB+21, ADDB+26
IBCDFN BEG+8~, BEG+15*, BEG+16, BEG+26, ADDB+15, SETA+2, SETA+6
IBERR BEG+8~
>> IBINS BEG+13, BEG+33, WRT+5
IBN ADDB+1~
IBN( ADDB+26*
IBN(0 ADDB+27
IBNDA ADDB+1~, ADDB+20*, ADDB+26
>> IBPLAN BEG+12, BEG+13, BEG+17, BEG+33, WRT+6
IBPLANAM BEG+8~, BEG+12*, WRT+6
IBST BEG+8~, BEG+12*, WRT+3
IBSUB1 BEG+8~, BEG+13*
>> IBWNR ADDB+4, ADDB+10, SETA+3, DUP+2, DUP+4, DUP+5
IBX ADDB+1~, ADDB+21*, ADDB+24, ADDB+26, DUP+1~, DUP+2*, DUP+3, WRT+1~, WRT+7*, WRT+15*
, WRT+16
IOF WRT+2
U BEG+17, ADDB+4, SETA+3, DUP+4, DUP+5, WRT+4, WRT+5, WRT+14
VA WRT+1~
VADM WRT+1~, WRT+13!
VADM(1 WRT+14
VADM(2 WRT+14
VADM(3 WRT+14
VAERR WRT+1~
X BEG+7~, BEG+25~, ADDB+1~, ADDB+10*, SETA+1~, DUP+1~, WRT+1~
Y BEG+7~, BEG+25~, ADDB+1~, ADDB+11, SETA+1~, DUP+1~, WRT+1~
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 |  Naked Globals |  Local Variables |  All