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

Package: Integrated Billing

Routine: IBCNSM32


Information

IBCNSM32 ;ALB/AAS - INSURANCE MANAGEMENT - POLICY EDIT ;23-JAN-95

Source Information

Source file <IBCNSM32.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 8 (DBU,DEL)^IBCNSJ  ($$IR,BU)^IBCNSJ21  NEW^IBCNSJ3  ($$LK,FUTURE)^IBCNSM31  EDIT^IBCNSP1  (COMPPT,SAVEPT,UPDATPT)^IBCNSP3  POL^IBCNSU41  LOCKED^IBTRCD1  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Integrated Billing 7 IBCNSJ1  IBCNSJ2  IBCNSM3  IBCNSM31  IBCNSP1  IBCNSP2  IBCNSU1  

Entry Points

Name Comments DBIA/ICR reference
PATPOL(IBCDFN) ; -- edit patient specific policy info
PATPOLQ
CHPL ; Change policy plan if the policy company differs from plan company.
; Required variable input:
; DFN -- pointer to the patient in file #2
; IBCDFN -- pointer to the policy in file #2.312
; IBCNS -- pointer to the plan company in file #36
CHPLQ
PLAN(DFN,IBCDFN,IBCNS) ; Fix policies when identified.
PLANQ
HLP ; -- help text for subscriber id

External References

Name Field # of Occurrence
^DIE CHPL+31, CHPL+34, CHPL+46
DBU^IBCNSJ CHPL+41
DEL^IBCNSJ CHPL+35
$$IR^IBCNSJ21 CHPL+44
BU^IBCNSJ21 CHPL+14
NEW^IBCNSJ3 CHPL+27
$$LK^IBCNSM31 CHPL+26
FUTURE^IBCNSM31 PATPOL+25
EDIT^IBCNSP1 PATPOL+12
COMPPT^IBCNSP3 PATPOL+21
SAVEPT^IBCNSP3 PATPOL+2
UPDATPT^IBCNSP3 PATPOL+22
POL^IBCNSU41 PATPOL+3
LOCKED^IBTRCD1 PATPOL+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING: This appears to be an expired policy!",!
  • Line Location: PATPOL+6
Function Call: WRITE
  • Prompt: !,*7,"WARNING: This insurance company is INACTIVE!",!
  • Line Location: PATPOL+7
Function Call: WRITE
  • Prompt: !!,"Since you have changed the Insurance Company to ",$E($P($G(^DIC(36,IBCNS1,0)),"^"),1,25),","
  • Line Location: CHPL+9
Function Call: WRITE
  • Prompt: !,"you must now change the Insurance Plan to which this veteran"
  • Line Location: CHPL+10
Function Call: WRITE
  • Prompt: !,"is subscribing to one which is offered by this company!",!
  • Line Location: CHPL+11
Function Call: WRITE
  • Prompt: !!,"Changing the policy plan..."
  • Line Location: CHPL+33
Function Call: WRITE
  • Prompt: !!,"Deleting the ",$S(IBIP:"current Individual",1:"previously-added")," plan for ",$E($P($G(^DIC(36,IBCNS,0)),"^"),1,25),"..."
  • Line Location: CHPL+35
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHPL+46
Function Call: WRITE
  • Prompt: !!,*7,"The policy company and plan company are not the same!!"
  • Line Location: PLAN+11
Function Call: WRITE
  • Prompt: !,"This inconsistency probably occurred in the past when changing"
  • Line Location: PLAN+12
Function Call: WRITE
  • Prompt: !,"the policy company through Screen 5 of Registration."
  • Line Location: PLAN+13
Function Call: WRITE
  • Prompt: !!,"You must resolve this inconsistency. If you do not choose a new plan"
  • Line Location: PLAN+14
Function Call: WRITE
  • Prompt: !,"offered by the policy company, the policy company will be changed to"
  • Line Location: PLAN+15
Function Call: WRITE
  • Prompt: !,"the plan company (",$P($G(^DIC(36,IBCNS,0)),"^"),") ...."
  • Line Location: PLAN+16
Function Call: WRITE
  • Prompt: !,?5,"Enter Medicare Claim Number (Subscriber ID) exactly as it"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,?5,"appears on the Medicare Insurance Card including All Characters."
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,?5,"Valid HICN formats are: 1-3 alpha characters followed by 6 or 9 digits, "
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !,?5,"or 9 digits followed by 1 alpha character optionally followed by another "
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !,?5,"alpha character or 1 digit."
  • Line Location: HLP+5
Routine Call
  • DIE
  • Line Location:
    • CHPL+31
    • CHPL+34
    • CHPL+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBT(356.2 - [#356.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] PATPOL+7, CHPL+9, CHPL+30, CHPL+35, CHPL+45, PLAN+16
^DPT - [#2] PATPOL+6, PATPOL+7, PATPOL+10, PATPOL+15, PATPOL+18, PATPOL+23, CHPL+7
^IBA(355.3 - [#355.3] CHPL+8
^IBT(356.2 - [#356.2] CHPL+46

Label References

Name Line Occurrences
CHPL PATPOL+18, PLAN+17
CHPLQ CHPL+28
PATPOLQ PATPOL+1, PATPOL+10, PATPOL+15
PLANQ PLAN+10

Naked Globals

Name Field # of Occurrence
^(0 PATPOL+6, CHPL+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PATPOL+9~, CHPL+31*!, CHPL+34*!, CHPL+46*!
DA(1 CHPL+31*, CHPL+34*
DFN PATPOL+2, PATPOL+3, PATPOL+6, PATPOL+7, PATPOL+10, PATPOL+12, PATPOL+15, PATPOL+18, PATPOL+21, PATPOL+22
, PATPOL+23, CHPL+7, CHPL+31, CHPL+34, CHPL+44, CHPL+46, PLAN~, PLAN+10
DGSENFLG PATPOL+9~*
DIC PATPOL+9~
DIE PATPOL+9~, CHPL+31*!, CHPL+34*!, CHPL+46*!
DR PATPOL+9~, CHPL+31*!, CHPL+34*!, CHPL+46*!
DT PATPOL+6
DUZ CHPL+31, CHPL+34
IBAD PATPOL+9~
IBBU CHPL+6~
IBBU( CHPL+41
IBBU(0 CHPL+14, CHPL+38
IBCDFN PATPOL~, PATPOL+1, PATPOL+2, PATPOL+6, PATPOL+7, PATPOL+10, PATPOL+12, PATPOL+15, PATPOL+18, PATPOL+21
, PATPOL+22, PATPOL+23, CHPL+7, CHPL+31, CHPL+34, CHPL+44, CHPL+46, PLAN~, PLAN+10
IBCNS PATPOL+18, CHPL+30, CHPL+31, CHPL+35, CHPL+48*, PLAN~, PLAN+10, PLAN+16
IBCNS1 CHPL+6~, CHPL+7*, CHPL+9, CHPL+26, CHPL+27, CHPL+45, CHPL+46, CHPL+48
IBCPOL1 CHPL+6~, CHPL+26*, CHPL+27, CHPL+28, CHPL+34
IBDAT CHPL+39~, CHPL+41*
IBDIF PATPOL+9~, PATPOL+22
IBFUTUR PATPOL+20!, PATPOL+25!
IBIP CHPL+6~, CHPL+8*, CHPL+20, CHPL+35
IBNEWP CHPL+35, CHPL+48*, PLAN+9~
IBNEWP1 CHPL+6~, CHPL+27*, CHPL+48
IBPLAN CHPL+6~, CHPL+8*, CHPL+35
>> IBQUIT PATPOL+12
>> IBREG PATPOL+18
IBT CHPL+6~, CHPL+46*
X CHPL+6~, CHPL+7*, CHPL+8
Y PATPOL+25!
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