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

Package: Integrated Billing

Routine: IBCNSUR2


Information

IBCNSUR2 ;ALB/CPM/CMS - MOVE SUBSCRIBERS TO DIFFERENT PLAN (CON'T) ; 09-SEP-96

Source Information

Source file <IBCNSUR2.m>

Entry Points

Name Comments DBIA/ICR reference
PL ; Display old plan attributes; allow new plan to be edited
YN(X) ; Resolve the 'Yes/No' value.
LIM ; Display/Edit Coverage Limitations.
LIMQ
LIMDSP(IBC,IBP,IBPNUM) ; Display coverage limitations for a company/plan.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Now you may edit specific Plan attributes and Coverage Limitations."
  • Line Location: PL+2
Function Call: WRITE
  • Prompt: !,"(Plan 1 is the plan subscribers moved from.)"
  • Line Location: PL+3
Function Call: WRITE
  • Prompt: !,"(Plan 2 is the plan subscribers moved to.)"
  • Line Location: PL+4
Function Call: WRITE
  • Prompt: !,$TR($J("",71)," ","=")
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: !,"'Plan 1' Attributes for: ",IBC1N
  • Line Location: PL+6
Function Call: WRITE
  • Prompt: !?9,"Plan Name: ",IBP1N,?43,"Plan Number: ",IBP1X
  • Line Location: PL+8
Function Call: WRITE
  • Prompt: !,$TR($J("",71)," ","-")
  • Line Location: PL+9
Function Call: WRITE
  • Prompt: !,?19,"TYPE OF PLAN: ",$S($P(IBP0,"^",9):$P($G(^IBE(355.1,+$P(IBP0,"^",9),0)),"^"),1:"<Not Specified>")
  • Line Location: PL+15
Function Call: WRITE
  • Prompt: !,?11,"ELECTRONIC PLAN TYPE: ",$$EXPAND^IBTRE(355.3,.15,$P(IBP0,U,15))
  • Line Location: PL+16
Function Call: WRITE
  • Prompt: !,?18,"PLAN CATEGORY: ",$$EXPAND^IBTRE(355.3,.14,$P(IBP0,U,14))
  • Line Location: PL+17
Function Call: WRITE
  • Prompt: !,?9,"PLAN FILING TIME FRAME: ",$P(IBP0,U,13)
  • Line Location: PL+18
Function Call: WRITE
  • Prompt: " (",$$FTFN^IBCNSU31(IBP1),")"
  • Line Location: PL+18
Function Call: WRITE
  • Prompt: !," IS UTILIZATION REVIEW REQUIRED: ",$$YN($P(IBP0,"^",5))
  • Line Location: PL+19
Function Call: WRITE
  • Prompt: !," AMBULATORY CARE CERTIFICATION: ",$$EXPAND^IBTRE(355.3,.12,$P(IBP0,U,12))
  • Line Location: PL+20
Function Call: WRITE
  • Prompt: !," IS PRE-CERTIFICATION REQUIRED: ",$$YN($P(IBP0,"^",6))
  • Line Location: PL+21
Function Call: WRITE
  • Prompt: !,"EXCLUDE PRE-EXISTING CONDITIONS: ",$$YN($P(IBP0,"^",7))
  • Line Location: PL+22
Function Call: WRITE
  • Prompt: !?12,"BENEFITS ASSIGNABLE: ",$$YN($P(IBP0,"^",8))
  • Line Location: PL+23
Function Call: WRITE
  • Prompt: !,$TR($J("",71)," ","=")
  • Line Location: PL+24
Function Call: WRITE
  • Prompt: !!,"Editing 'Plan 2' Attributes for: ",IBC2N
  • Line Location: PL+26
Function Call: WRITE
  • Prompt: !?9,"Plan Name: ",IBP2N,?43,"Plan Number: ",IBP2X,!
  • Line Location: PL+28
Function Call: WRITE
  • Prompt: @IOF,!,$TR($J("",71)," ","=")
  • Line Location: LIM+1
Function Call: WRITE
  • Prompt: !,$TR($J("",71)," ","-")
  • Line Location: LIM+3
Function Call: WRITE
  • Prompt: !,$TR($J("",71)," ","=")
  • Line Location: LIM+5
Function Call: WRITE
  • Prompt: !!,"Editing 'Plan 2' Coverage Limitations for: ",IBC2N
  • Line Location: LIM+13
Function Call: WRITE
  • Prompt: !?9,"Plan Name: ",IBP2N,?43,"Plan Number: ",IBP2X
  • Line Location: LIM+15
Function Call: WRITE
  • Prompt: !!," 'Plan ",IBPNUM,"' Coverage Limitations for ",$S(IBPNUM=1:IBC1N,1:IBC2N)
  • Line Location: LIMDSP+2
Function Call: WRITE
  • Prompt: !?9,"Plan Name: ",$S($P(IBP0,U,3)]"":$P(IBP0,U,3),1:"<Not Specified>")
  • Line Location: LIMDSP+4
Function Call: WRITE
  • Prompt: ?43,"Plan Number: ",$S($P(IBP0,U,4)]"":$P(IBP0,U,4),1:"<Not Specified>")
  • Line Location: LIMDSP+5
Function Call: WRITE
  • Prompt: !!," Coverage Effective Date Covered? Limit Comments"
  • Line Location: LIMDSP+6
Function Call: WRITE
  • Prompt: !," -------- -------------- -------- --------------"
  • Line Location: LIMDSP+7
Function Call: WRITE
  • Prompt: !,IBW
  • Line Location: LIMDSP+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IBS
  • Line Location: LIMDSP+19
Function Call: WRITE
  • Prompt: ?54,$G(^(IB0,0))
  • Line Location: LIMDSP+19

FileMan Files Accessed Via FileMan Db Call

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