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
Print Page as PDF
Routine: IBCOPP3

Package: Integrated Billing

Routine: IBCOPP3


Information

IBCOPP3 ;ALB/NLR - LIST INS. PLANS BY CO. (PRINT) ; 20-OCT-2015

Source Information

Source file <IBCOPP3.m>

Entry Points

Name Comments DBIA/ICR reference
COMP(COLEP,COLFTF,TRUNCPT) ; Print Company header
; Input: IBC - ^TMP($J,"PR",IBC), see documentation above
; IBPAG - Current Page Counter
; IBHDT - Current date/time (external format)
; IBAIA - 0 - Only select Inactive Insurance Companies
; 1 - Only select Active Insurance Companies
; 2 - Select both Active and Inactive Insurance Companies
; IBAIPA - 0 - Only select Inactive Insurance Company Plans
; 1 - Only select Active Insurance Company Plans
; 2 - Select both Active and Inactive Insurance Company Plans
; IBAPA - 0 - List Insurance Plans by Insurance Company
; 1 - List Insurance Plans by Insurance Company with
; Subscriber information
; Output: COLEP - Starting Column Position of the Electronic Plan Type Col
; COLFTF - Starting Column Position of the FTF Col
; TRUNCPT - # of characters to truncate from the Plan Type field (if any)
; IBPAG - Updated Page Counter
PLAN(COLEP,COLFTF,TRUNCPT) ; Print Group Plan information.
; Input: COLEP - Starting Column Position of the Electronic Plan Type Col
; COLFTF - Starting Column Position of the FTF Col
; TRUNCPT - # of characters to truncate from the Plan Type field (if any)
; IBPD - ^TMP($J,"PR",IBC,IBPTR), see documentation above
; IBAPA - 0 - List Insurance Plans by Insurance Company
; 1 - List Insurance Plans by Insurance Company with
; Subscriber information
; ^TMP($J,"PR",IBI,IBPTR))- B1^B2^..^B6 where
; IBI - Counter of # of Insurance Companies included
; IBPTR- Group Plan IEN
; B1 - Group Number, field 355.3,2.02
; B2 - Group Name, field 355.3,2.01
; B3 - Group Plan Timely Filing Time frame (max len 21)
; B4 - Electronic Plan Type (max length 26)
; B5 - Type of Plan (max length 40)
; B6 - Total # of subscribers for Group Plan
SUBHDR ; Print the Subscriber Header Line
; IB*2.0*549 New Method
SUBS ; Print subscriber information.
; IB*2.0*549 Changed fields displayed
; Input: IBSD - Subscriber detail - ^TMP($J,"PR",IBI,IBP,IBS)
; Subscriber ID to display more characters.
PAUSE ; Pause for screen output.
; Input: None
; Output: IBQUIT - 1 if user timed out or entered '^'
EXCEL ; Output in excel format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?30,"*** End of Report ***"
  • Line Location: IBCOPP3+66
Function Call: WRITE
  • Prompt: !!?90,"Number of Plans Selected = ",$P(IBC,"^",7)
  • Line Location: IBCOPP3+93
Function Call: WRITE
  • Prompt: !?76,"Total Subscribers Under Selected Plans = ",$P(IBC,"^",8)
  • Line Location: IBCOPP3+94
Function Call: WRITE
  • Prompt: !!?30,"*** End of Report ***"
  • Line Location: IBCOPP3+98
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: COMP+20
Function Call: WRITE
  • Prompt: !,"LIST OF PLANS BY INSURANCE COMPANY"
  • Line Location: COMP+22
Function Call: WRITE
  • Prompt: ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAG
  • Line Location: COMP+24
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: COMP+25
Function Call: WRITE
  • Prompt: !,"+ =>INDIV. PLAN * => INACTIVE"
  • Line Location: COMP+28
Function Call: WRITE
  • Prompt: !,"Filters: ",$S(IBAI=1:"All",1:"Selected")," Insurances"
  • Line Location: COMP+29
Function Call: WRITE
  • Prompt: ", ",$S(IBAPL=1:"All",1:"Selected")," Group Plans",!
  • Line Location: COMP+30
Function Call: WRITE
  • Prompt: !?1,$P(IBC,"^",1)
  • Line Location: COMP+33
Function Call: WRITE
  • Prompt: !?1,$P(IBC,"^",2)
  • Line Location: COMP+34
Function Call: WRITE
  • Prompt: ?45,"FTF = ",$P(IBC,"^",4)
  • Line Location: COMP+35
Function Call: WRITE
  • Prompt: ?105,"GROUP PLAN TOTAL= ",$P(IBC,"^",5)
  • Line Location: COMP+36
Function Call: WRITE
  • Prompt: !?1,$P(IBC,"^",3)
  • Line Location: COMP+37
Function Call: WRITE
  • Prompt: ?105,"SUBSCRIBER TOTAL= ",$P(IBC,"^",6)
  • Line Location: COMP+38
Function Call: WRITE
  • Prompt: !?5,"GROUP NUMBER",?32,"GROUP NAME",?62,"TYPE OF PLAN"
  • Line Location: COMP+50
Function Call: WRITE
  • Prompt: ?COLEP,"ELEC PLAN",?COLFTF,"FTF"
  • Line Location: COMP+51
Function Call: WRITE
  • Prompt: !?5,$P(IBPD,"^",1)
  • Line Location: PLAN+20
Function Call: WRITE
  • Prompt: ?32,$P(IBPD,"^",2)
  • Line Location: PLAN+21
Function Call: WRITE
  • Prompt: ?62,XX
  • Line Location: PLAN+24
Function Call: WRITE
  • Prompt: ?COLEP,$P(IBPD,"^",4)
  • Line Location: PLAN+25
Function Call: WRITE
  • Prompt: ?COLFTF,$P(IBPD,"^",3)
  • Line Location: PLAN+26
Function Call: WRITE
  • Prompt: !?10,"SUBSCRIBERS = ",$P(IBPD,"^",6)
  • Line Location: PLAN+27
Function Call: WRITE
  • Prompt: !?10,"SUBSCRIBER NAME",?35,"SSN",?43,"DOB",?53,"SUB ID",?76,"EFF",?86,"EXP"
  • Line Location: SUBHDR+2
Function Call: WRITE
  • Prompt: ?96,"WHO",?102,"PAT ID"
  • Line Location: SUBHDR+3
Function Call: WRITE
  • Prompt: !?10,$P(IBSD,"^",1),?35,$P(IBSD,"^",2),?43,$P(IBSD,"^",3),?53,$P(IBSD,"^",4)
  • Line Location: SUBS+9
Function Call: WRITE
  • Prompt: ?76,$P(IBSD,"^",5),?86,$P(IBSD,"^",6),?96,$P(IBSD,"^",7),?102,$P(IBSD,"^",8)
  • Line Location: SUBS+10
Function Call: WRITE
  • Prompt: !,"LIST OF PLANS BY INSURANCE COMPANY"
  • Line Location: EXCEL+6
Function Call: WRITE
  • Prompt: " Run On: ",IBHDT
  • Line Location: EXCEL+8
Function Call: WRITE
  • Prompt: !,"+ =>INDIV. PLAN * => INACTIVE"
  • Line Location: EXCEL+12
Function Call: WRITE
  • Prompt: !,"Filters: ",$S(IBAI=1:"All",1:"Selected")," Insurances"
  • Line Location: EXCEL+13
Function Call: WRITE
  • Prompt: ", ",$S(IBAPL=1:"All",1:"Selected")," Group Plans",!
  • Line Location: EXCEL+14
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: !,IBC_U_IBPD
  • Line Location: EXCEL+24
Function Call: WRITE
  • Prompt: !,IBC_U_IBPD_U_IBSD
  • Line Location: EXCEL+27
Info |  Source |  Entry Points |  Interaction Calls