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

Package: Integrated Billing

Routine: IBCNSM32


Information

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

Source Information

Source file <IBCNSM32.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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