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

Package: Integrated Billing

Routine: IBCNGP1


Information

IBCNGP1 ;ALB/CKB - REPORT OF COVERAGE LIMITATIONS (COMPILE/PRINT) ; 07-OCT-2021

Source Information

Source file <IBCNGP1.m>

Entry Points

Name Comments DBIA/ICR reference
COMPILE(IBCNGPRTN,IBCNGP) ; Entry Point called from EN^XUTMDEVQ.
; IBCNGPRTN = Routine name for ^TMP($J,...
; IBCNGP = Array of params
; Input:
; IBCNGP("IBI") 0-Selected, 1-All Insurance Companies
; IBCNGP("IBIA") 0-Active, 1-Both Active and Inactive, 2-Inactive Insurance Companies
; IBCNGP("IBIP") 0-Selected, 1-All Group Plans
; IBCNGP("IBIPA") 0-Active, 1-Both Active and Inactive, 2-Inactive Group Plans
; IBCNGP("IBIGN") 1-Group Name, 2-Group Number, 3-Both Group Name and Group Number
; IBCNGP("IBFIL") A^B^C where"
; A - 1-Begin with, 2-Contains, 3-Range
; B - A=1 Begin with text, A=2 Contains text, A=3 Range start text
; C - only if A=3 Range End text
; IBCNGP("IBICS") 1-Covered, 2-Not Covered, 3-Conditional
; 4-By Default (blank status), 5-All Coverage Statuses
; IBCNGP("IBOUT") E-EXCEL, R-REPORT
GETDATA ; Get Insurance Company and Group Plan data
; Input: IIEN - IEN of the Insurance Company, file 36
; GIEN - IEN of the Group Plan, file 355.3
; Output: ^TMP($J,"PR",INSNAME,ICT,GNAME,GCT,IBCAT,CCT)) - C1^C2^..^C4 Where:
; INSNAME - Insurance Company name
; ICT - Insurance Company counter from ^TMP("IBCNGP")
; GNAME - Group Plan name
; GCT - Group Plans counter from ^TMP("IBCNGP")
; IBCAT - Coverage Category
; CCT - Coverage Category counter
; C1=Coverage Category, C2=Effective Date
; C3=Coverage Status, C4=Limitation Comment
;
CATARR ; Loop thru CATARR, add the Categories that should be displayed to the Print array.
GETINS ; Get Insurance info
GETGRP ; Get Group Plan info
COVOK ; If the Coverage matches what the user selected, flag the Category and set PRINT=1.
; This Coverage, it's Insurance and Group, will be displayed on the report.
; IBCNGP("IBICS") - 1-Covered, 2-Not Covered, 3-Conditional
; 4-By Default (blank status), 5-All Coverage Statuses
PRINT ;
; Input: ^TMP($J,"PR",INSNAME,ICT,GNAME,GCT,IBCAT,CCT)) - C1^C2^..^C4 Where:
; INSNAME - Insurance Company name
; ICT - Insurance Company counter from ^TMP("IBCNGP")
; GNAME - Group Plan name
; GCT - Group Plans counter from ^TMP("IBCNGP")
; IBCAT - Coverage Category
; CCT - Coverage Category counter
; C1=Coverage Category, C2=Effective Date
; C3=Coverage Status, C4=Limitation Comment
EXIT ; PRINT exit
PRT ; Print report
PRTEX ;
HEADER(HDRNAME,HDRDATE) ; Report header
EHDR ; EXCEL header
HDR1 ; Report Header for Page 1 and Excel report
HDR2 ; Column Headers for the Report format, for all pages
INSDATA ; Insurance Company info
GPDATA ; Group Plan info
COVDATA ; Coverage info
LINE(DISPDATA) ; Print data
LINEX ;
CENTER(LINE,XWIDTH) ;return centered line OFFSET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Compiling report data ...",!
  • Line Location: COMPILE+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,NONEMSG
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !,DISPDATA
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !,?40,NONEMSG
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,EORMSG
  • Line Location: PRTEX+2
Function Call: WRITE
  • Prompt: !!,?40,EORMSG
  • Line Location: PRTEX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: HDRNAME
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?OFFSET,HDRDATE,!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: DASHES
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: HDR
  • Line Location: EHDR+3
Function Call: WRITE
  • Prompt: HDR2
  • Line Location: EHDR+8
Function Call: WRITE
  • Prompt: !,"+ =>INDIV. PLAN * => INACTIVE"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,"Filters: ",$S(IBCNGP("IBI")=1:"All",1:"Selected")," Insurances"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: ", ",$S(IBCNGP("IBIP")=1:"All",1:"Selected")," Group Plans"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: ", ",$S(+IBCNGP("IBFIL")=2:"Contains = ",+IBCNGP("IBFIL")=3:"Range = ",+IBCNGP("IBFIL")=4:"BLANK",1:"Begins with = ")
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: $S(+IBCNGP("IBFIL")=3:$P(IBCNGP("IBFIL"),U,2)_"-"_$P(IBCNGP("IBFIL"),U,3),1:$P(IBCNGP("IBFIL"),U,2))
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: ", "
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: "All Coverage Statuses"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: "Coverage Status: "
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: $S(IBCNGP("IBICS")=1:"COVERED",IBCNGP("IBICS")=2:"NOT COVERED",IBCNGP("IBICS")=3:"CONDITIONAL",1:"BY DEFAULT")
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,"COMPANY",?15,"GROUP NAME",?38,"GROUP NUMBER",?58,"CATEGORY",?86,"EFFECTIVE DATE"
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: ?103,"COVERED?",?116,"LIMIT COMMENTS?"
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !,DISPDATA
  • Line Location: LINEX+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ,  GETS^DIQ
^IBE(355.31 - [#355.31] GET1^DIQ
^IBA(355.32 - [#355.32] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call