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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 $$FO^IBCNEUT1  $$PLANOK^IBCNSU21  ($$DAT2,$$DAT3)^IBOUTL  
VA FileMan 3 NOW^%DTC  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$S^%ZTLOAD  

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

External References

Name Field # of Occurrence
NOW^%DTC PRINT+16
$$S^%ZTLOAD HEADER+6
$$GET1^DIQ GETDATA+25, GETDATA+32, GETDATA+33, GETDATA+34, GETINS+1, GETINS+3, GETINS+4, GETINS+5, GETINS+7, GETGRP+1
, GETGRP+2, GETGRP+3, GETGRP+4, GETGRP+8
GETS^DIQ COMPILE+38
^DIR PRINT+28, PRINT+29, HEADER+4
$$FO^IBCNEUT1 INSDATA+2, GPDATA+2, GPDATA+3, COVDATA+2, COVDATA+3, COVDATA+4, COVDATA+5
$$PLANOK^IBCNSU21 COMPILE+39
$$DAT2^IBOUTL PRINT+17
$$DAT3^IBOUTL GETDATA+33

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
Routine Call
  • DIR
  • Line Location:
    • PRINT+28
    • PRINT+29
    • HEADER+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] GETINS+5, GETINS+6
^IBA(355.3 - [#355.3] COMPILE+33, COMPILE+35
^IBA(355.32 - [#355.32] GETDATA+23, GETDATA+29, GETDATA+31, GETDATA+37
^IBE(355.31 - [#355.31] GETDATA+21
^TMP("IBCNGP" COMPILE+31, COMPILE+32, COMPILE+42*, COMPILE+45, COMPILE+46, COMPILE+48, COMPILE+49, COMPILE+54!
^TMP($J COMPILE+24!, CATARR+15*, GETINS+8*, GETGRP+9*, EXIT+1!, PRT+7, PRT+9, PRT+10, PRT+11, PRT+12
, PRT+13, PRT+14, PRT+15, PRT+16, PRT+18, PRT+27, PRT+31, PRT+32, PRT+33, PRT+38
, PRT+39, PRT+40, PRT+44, PRT+45, INSDATA+1, GPDATA+1, COVDATA+1

Label References

Name Line Occurrences
COVDATA PRT+46
COVOK GETDATA+27, GETDATA+41
EHDR PRT+6
GETDATA COMPILE+50
GETGRP CATARR+14
GETINS CATARR+14
GPDATA PRT+43
HDR1 HEADER+13, EHDR+4
HDR2 HEADER+14
HEADER PRT+24, PRTEX+4, LINE+6, LINE+7, LINE+9
INSDATA PRT+37
LINE PRT+36, PRT+37, PRT+42, PRT+43, PRT+46, HDR2+5
LINEX LINE+3
PRINT COMPILE+52
PRT PRINT+25
PRTEX PRT+5, PRT+7, PRT+27, PRT+31, PRT+33, PRT+38, PRT+40, PRT+44, PRT+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+17
BLANK PRT+1~
CAT PRT+1~, PRT+15*, PRT+16, PRT+18, PRT+44*, PRT+45, COVDATA+1
CATARR GETDATA+13~
CATARR( GETDATA+26*, GETDATA+39*, CATARR+1, CATARR+2, CATARR+4, CATARR+5, CATARR+6, COVOK+4*, COVOK+5*, COVOK+6*
, COVOK+7*, COVOK+8*
CCT GETDATA+13~, CATARR+3*, CATARR+11*, CATARR+14, CATARR+15, PRT+1~, PRT+16*, PRT+18, PRT+45*, HDR2+5
, COVDATA+1
CDATA GETDATA+13~, CATARR+6*, CATARR+7, CATARR+8, CATARR+9, CATARR+10, PRT+1~, PRT+18*, PRT+20, COVDATA+1*
, COVDATA+2, COVDATA+3, COVDATA+4, COVDATA+5
COVDATA PRT+34!, PRT+46, COVDATA+2*, COVDATA+3*, COVDATA+4*, COVDATA+5*
CRT PRINT+11~, PRINT+21*, PRINT+22*, PRINT+26, PRINT+29
CTR GETDATA+13~, CATARR+5*, CATARR+6
DASHES PRINT+11~, PRINT+18*, HEADER+11
DIR PRINT+28!, PRINT+29!, HEADER+1~, HEADER+4!
DIR(0 PRINT+28*, PRINT+29*, HEADER+4*
DISPDATA PRT+1~, PRT+17!, PRT+20*, PRT+21, LINE~, LINE+3, LINEX+2
DTOUT HEADER+1~, HEADER+5
DUOUT HEADER+1~, HEADER+5
EORMSG PRINT+11~, PRINT+13*, PRTEX+2, PRTEX+5
FGCT PRT+30~, PRT+39*, PRT+42
FGP PRT+30~, PRT+39*, PRT+42
FICT PRT+30~, PRT+32*, PRT+36
FINS PRT+30~, PRT+32*, PRT+36
FIRST PRINT+11~
GCT COMPILE+23~, COMPILE+34*, COMPILE+41*, COMPILE+42, COMPILE+47*, COMPILE+48*, COMPILE+49, CATARR+15, GETGRP+9, PRT+1~
, PRT+13*, PRT+14, PRT+15, PRT+16, PRT+18, PRT+40*, PRT+42, PRT+44, PRT+45, GPDATA+1
, COVDATA+1
GDATA COMPILE+23~, COMPILE+37!, COMPILE+39, PRT+1~, PRT+14*, PRT+20, GPDATA+1*, GPDATA+2, GPDATA+3, GPDATA+4
GDATALN PRT+2~, INSDATA+5*, GPDATA+5*, LINE+7*
GIEN COMPILE+23~, COMPILE+35*, COMPILE+38, COMPILE+42, COMPILE+49*, GETDATA+23, GETDATA+29, GETDATA+31, GETGRP+1, GETGRP+2
, GETGRP+3, GETGRP+4, GETGRP+8
GINACT GETDATA+13~, GETGRP+2*, GETGRP+7
GIND GETDATA+13~, GETGRP+1*, GETGRP+6
GNAME GETDATA+13~, CATARR+15, GETGRP+3*, GETGRP+6*, GETGRP+9
GNUM GETDATA+13~, GETGRP+4*, GETGRP+7*, GETGRP+9
GPDATA PRT+34!, PRT+43, HDR2+5, GPDATA+2*, GPDATA+3*, GPDATA+4*
GPLAN PRT+1~, PRT+12*, PRT+13, PRT+14, PRT+15, PRT+16, PRT+18, PRT+38*, PRT+40, PRT+42
, PRT+44, PRT+45, HDR2+5, GPDATA+1, COVDATA+1
GTYP GETDATA+13~, GETGRP+8*, GETGRP+9
HDR EHDR+1~, EHDR+2*, EHDR+3
HDR2 EHDR+1~, EHDR+5*, EHDR+6*, EHDR+7*, EHDR+8
HDRDATE PRINT+11~, PRINT+17*, PRT+24, PRTEX+4, HEADER~, HEADER+9*, HEADER+10, EHDR+2, LINE+6, LINE+7
, LINE+9
HDRNAME PRINT+11~, PRINT+15*, PRT+24, PRTEX+4, HEADER~, HEADER+8, LINE+6, LINE+7, LINE+9
I GETDATA+13~, GETDATA+21*, GETDATA+23, GETDATA+25
IBCAT GETDATA+13~, GETDATA+21*, GETDATA+26, GETDATA+29, GETDATA+31, GETDATA+39, CATARR+1*, CATARR+2, CATARR+4, CATARR+5
, CATARR+6, CATARR+15, COVOK+4, COVOK+5, COVOK+6, COVOK+7, COVOK+8
IBCNGP COMPILE~
IBCNGP("IBFIL" COMPILE+39, HDR1+4, HDR1+5
IBCNGP("IBI" HDR1+2
IBCNGP("IBICS" COVOK+4, COVOK+5, COVOK+6, COVOK+7, COVOK+8, HDR1+7, HDR1+8, HDR1+10
IBCNGP("IBIGN" COMPILE+39
IBCNGP("IBIP" COMPILE+29, HDR1+3
IBCNGP("IBIPA" COMPILE+39
IBCNGP("IBOUT" COMPILE+26, PRINT+29, PRT+5, PRTEX+2, PRTEX+3, HEADER+13, HEADER+14, LINE+4
IBCNGPRTN COMPILE~
IBCOV GETDATA+13~, GETDATA+25*, GETDATA+26, GETDATA+32*, GETDATA+39, CATARR+7*, CATARR+15
IBCSTA GETDATA+13~, GETDATA+24*, GETDATA+26, GETDATA+34*, GETDATA+35*, GETDATA+39, CATARR+9*, CATARR+15, COVOK+5, COVOK+6
, COVOK+7, COVOK+8
IBCT COMPILE+23~, COMPILE+30*, COMPILE+31*, COMPILE+32, COMPILE+42
IBDT GETDATA+13~, CATARR+4*, CATARR+5, CATARR+6
IBEFDT GETDATA+13~, GETDATA+33*, GETDATA+39, CATARR+8*, CATARR+15
IBINS GETDATA+13~, GETINS+2*, GETINS+3*, GETINS+4*, GETINS+6*, GETINS+7*, GETINS+8
IBLIMCOM GETDATA+14~, GETDATA+36*, GETDATA+37*, GETDATA+39, CATARR+10*, CATARR+15
IBPGC PRINT+11~, PRINT+20*, PRINT+26, PRTEX+4, HEADER+2, HEADER+7*, HEADER+9, HEADER+13, HDR2+5, LINE+9
IBPGN COMPILE+23~
IBPXT PRINT+11~, PRINT+20*, PRINT+25, PRT+37, PRT+43, PRT+46, PRTEX+1, PRTEX+3, HEADER+2, HEADER+5*
, LINE+4, LINE+9
IBRECDT GETDATA+14~, GETDATA+28*, GETDATA+29*, GETDATA+31, GETDATA+39
IBRECN GETDATA+14~, GETDATA+30*, GETDATA+31*, GETDATA+32, GETDATA+33, GETDATA+34, GETDATA+37, GETDATA+39
ICT COMPILE+23~, COMPILE+44*, COMPILE+45*, COMPILE+46, COMPILE+48, COMPILE+49, CATARR+15, GETINS+8, GETGRP+9, PRT+1~
, PRT+10*, PRT+11, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+18, PRT+33*, PRT+36
, PRT+38, PRT+39, PRT+40, PRT+44, PRT+45, INSDATA+1, GPDATA+1, COVDATA+1
IDATA PRT+1~, PRT+11*, PRT+20, INSDATA+1*, INSDATA+2, INSDATA+3, INSDATA+4
IDATALN PRT+2~, INSDATA+5*, LINE+6*, LINEX+1*
IIEN COMPILE+23~, COMPILE+32*, COMPILE+33, COMPILE+35, COMPILE+46*, GETINS+1, GETINS+3, GETINS+4, GETINS+5, GETINS+7
INS PRT+1~, PRT+9*, PRT+10, PRT+11, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+18
, PRT+31*, PRT+33, PRT+36, PRT+38, PRT+39, PRT+40, PRT+44, PRT+45, INSDATA+1, GPDATA+1
, COVDATA+1
INSDATA PRT+34!, PRT+37, HDR2+5, INSDATA+2*, INSDATA+3*, INSDATA+4*
INSNAME GETDATA+14~, CATARR+15, GETINS+1*, GETINS+2, GETINS+8, GETGRP+9
IOF HEADER+7
IOSL PRINT+21, PRINT+22
IOST COMPILE+26, PRINT+22, PRINT+26, PRINT+29, HEADER+2, HEADER+6, HEADER+7
LENGTH CENTER+1~, CENTER+2*
LIN PRINT+27*, HEADER+1~, HEADER+3*
LINE CENTER~, CENTER+2
MAXCNT PRINT+11~, PRINT+21*, PRINT+22*, PRINT+27, PRTEX+4, HEADER+3, LINE+6, LINE+7, LINE+9
NONEMSG PRINT+11~, PRINT+14*, PRT+8, PRT+28
NWPG LINE+1~, LINE+2*, LINE+6*, LINE+7*, LINE+9*
OFFSET HEADER+1~, HEADER+9*, HEADER+10, CENTER+1~, CENTER+2*, CENTER+3
PLANOK COMPILE+23~, COMPILE+39*, COMPILE+40
PRINT GETDATA+14~, COVOK+4*, COVOK+5*, COVOK+6*, COVOK+7*, COVOK+8*
SPACES PRINT+11~, PRINT+19*, PRT+36, PRT+42, INSDATA+2, GPDATA+2, GPDATA+3, COVDATA+2, COVDATA+3, COVDATA+4
STATE GETDATA+14~
STATECD GETDATA+14~, GETINS+5*, GETINS+6
STOP PRINT+11~, PRINT+12*, PRT+31, PRT+33, PRT+37*, PRT+38, PRT+40, PRT+43*, PRT+44, PRT+45
, PRT+46*
U GETDATA+26, GETDATA+39, CATARR+7, CATARR+8, CATARR+9, CATARR+10, CATARR+15, GETINS+2, GETINS+3, GETINS+4
, GETINS+6, GETINS+7, GETGRP+9, PRT+20, EHDR+2, HDR1+5, INSDATA+2, INSDATA+3, INSDATA+4, GPDATA+2
, GPDATA+3, GPDATA+4, COVDATA+2, COVDATA+3, COVDATA+4, COVDATA+5
X HEADER+1~
XWIDTH CENTER~, CENTER+2
XX GETDATA+14~, GETINS+5*, GETINS+6
Y HEADER+1~
>> ZSTOP PRINT+12*
ZTSTOP PRINT+11~, PRINT+25, PRT+37, PRT+43, PRT+46, PRTEX+1, PRTEX+3, HEADER+2, HEADER+6*, LINE+4
, LINE+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All