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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCOMA1

Package: Integrated Billing

Routine: IBCOMA1


Information

IBCOMA1 ;ALB/CMS/JNM - IDENTIFY ACTIVE POLICIES W/NO EFFECTIVE DATE (CON'T) ; 09-29-2015

Source Information

Source file <IBCOMA1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 3 $$ZND^IBCNS1  ASK^IBCOMC2  $$TERMDG^IBCONS2  
Kernel 3 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
Registration 1 DEM^VADPT  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCOMA  

Entry Points

Name Comments DBIA/ICR reference
BEG ; Entry to run Active Policies w/no Effective Date Report
; Input variables:
; IBAIB - Required. How to sort
; 1= Patient Name Range 2= Terminal Digit Range
; IBSIN - Required. Include Active Policies with
; 1= Verification Date 2= No Verification Date 3= Both
QUEQ ; Exit clean-UP
EOR ; end of report
HD(IBA) ; Write Heading
; Input: IBA - 1 - Header for non-verified policies
; 2 - Header for verified policies
; CAPPT(IBA) - Starting Column Position for the 'Last Apt' Column
; CDOD(IBA) - Starting Column Position for the 'DoD' Column
; CGRP(IBA) - Starting Column Position for the 'Group No.' Column
; CINS(IBA) - Starting Column Position for the 'Insurance Co.' Column
; CSSN(IBA) - Starting Column Position for the 'SSN' Column
; CLVDAT(IBA) - Starting Column Position for the 'Last VC' Column
; CLVBY(IBA) - Starting Column Position for the 'VC By' Column
; IBPAGE - Current Page Number
; MAXRPT(IBA) - Maximum number of characters in column header line
; Output: IBPAGE - Updated Page Number
PGHD(IBPAGE) ; Print Report Page Header
; Input: IBPAGE - Current Page Number, 0 if exporting to Excel
; IBAIB - 1 Sorting by Patient Name, 2 - Sorting by Terminal Digit
; IBAPPTE - Internal Appointment Date Range End
; 0 if no Appointment Date Range filter
; IBAPPTS - Internal Appointment Date Range Start
; 0 if no Appointment Date Range filter
; IBBDT - Internal Verification Start date for Verification filter
; Null if no Verification filter
; IBEDT - Internal Verification End date for Verification filter
; Null if no Verification filter
; IB*743/TAZ - Modified IBRF to note NULL starts with the beginning of the list.
; IBRF - "" - First Patient Name, otherwise start of range filter
; IBRL - End of range filter
WRT ; Write data lines
SETMAX(NAME,MAX,IBI) ; Get max length of data
; Input: NAME - Data to get maximum length for
; MAX(IBI)- Current Max length array
; IBI - Verified or Non-Verified section of the array
; Output MAX(IBI)- Updated Max length array (potentially)
CALCCOLS ; Truncates the patient and insurance name field lengths if the total
; field lengths will not fit on the report (132 columns)
; Input: MAXGRP(IBA) - Maximum width of the 'Group No' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXINS(IBA) - Current Maximum width of the 'Insurance Co' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXPT(IBA) - Current Maximum width of the 'Patient Name' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXVERBY(IBA) - Maximum width of the 'VC By' column for
; verified (IBA=1) policies
; Output: MAXINS(IBA) - Updated Maximum width of the 'Insurance Co' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXPT(IBA) - Updated Maximum width of the 'Patient Name' column for
; verified (IBA=1) and non-verified (IBA=2) policies
SETCOLS(IDX) ; Sets the column positions based on maximum data sizes
; Input: IDX - 1 - Verified policies section of the report
; 2 - Non-Verified policies section of the report
; MAXGRP(IBA) - Maximum width of the 'Group No' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXINS(IBA) - Maximum width of the 'Insurance Co' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXPT(IBA) - Maximum width of the 'Patient Name' column for
; verified (IBA=1) and non-verified (IBA=2) policies
; MAXVERBY(IBA) - Maximum width of the 'VC By' column for
; verified (IBA=1) policies
; Output: CAPPT(IDX) - Starting Column position for the 'Last Apt'
; Column for Verified and Non-Verified policies
; CDOD(IDX) - Starting Column position for the 'DoD'
; Column for Verified and Non-Verified policies
; CGRP(IDX) - Starting Column position for the 'Group No'
; Column for Verified and Non-Verified policies
; CINS(IDX) - Starting Column position for the 'Insurance Co.'
; Column for Verified and Non-Verified policies
; CLVBY(IDX) - Starting Column position for the 'VC By'
; Column for Verified and Non-Verified policies
; CLVDAT(IDX) - Starting Column position for the 'Last VC'
; Column for Verified and Non-Verified policies
; CSSN(IDX) - Starting Column position for the 'SSN'
; Column for Verified and Non-Verified policies

External References

Name Field # of Occurrence
^%ZISC QUEQ+2
$$ZND^IBCNS1 BEG+76
ASK^IBCOMC2 BEG+118, BEG+122, WRT+4, WRT+22
$$TERMDG^IBCONS2 BEG+61
$$SDAPI^SDAMA301 BEG+68
DEM^VADPT BEG+42
$$FMTE^XLFDT BEG+97, BEG+98, BEG+102, PGHD+16, PGHD+26, PGHD+27, PGHD+29, PGHD+30, PGHD+45, PGHD+46
, PGHD+48, PGHD+49
$$NOW^XLFDT PGHD+16
$$UP^XLFSTR BEG+54

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** NO RECORDS FOUND **"
  • Line Location: BEG+117
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: !!,"** END OF REPORT **",!
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: !,"Patient Name^SSN^Insurance Co.^Group No.^Last VC^VC By^Last Apt^DoD"
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !!,"Patient Name",?CSSN(IBA),"SSN",?CINS(IBA),"Insurance Co.",?CGRP(IBA),"Group No."
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: ?CLVDAT(IBA),"Last VC",?CLVBY(IBA),"VC By"
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: ?CAPPT(IBA),"Last Apt",?CDOD(IBA),"DoD"
  • Line Location: HD+27
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+28
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+29
Function Call: WRITE
  • Prompt: "Active Policies with no Effective Date Report "
  • Line Location: PGHD+19
Function Call: WRITE
  • Prompt: " Run On: ",IBHDT
  • Line Location: PGHD+22
Function Call: WRITE
  • Prompt: !,"Filtered by: "
  • Line Location: PGHD+23
Function Call: WRITE
  • Prompt: " Range: "_$S(IBRF="":"FIRST",1:IBRF)_" to "_$S(IBRL="zzzzzz":"LAST",1:IBRL)
  • Line Location: PGHD+24
Function Call: WRITE
  • Prompt: !,"Include: Verification Date Range: "_$$FMTE^XLFDT(IBBDT,"Z")
  • Line Location: PGHD+26
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBEDT,"Z")
  • Line Location: PGHD+27
Function Call: WRITE
  • Prompt: !,"Include: Last Appointment Date Range: "_$$FMTE^XLFDT(IBAPPTS,"Z")
  • Line Location: PGHD+29
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBAPPTE,"Z")
  • Line Location: PGHD+30
Function Call: WRITE
  • Prompt: !,"Filter: "
  • Line Location: PGHD+31
Function Call: WRITE
  • Prompt: $S(IBPTYPE=1:"Living Patients",IBPTYPE=2:"Deceased Patients",1:"Both Living & Deceased Patients")
  • Line Location: PGHD+32
Function Call: WRITE
  • Prompt: ", "_$S(IBSIN=1:"Verified Policies",IBSIN=2:"Non-Verified Policies",1:"Both Verified & Non-Verified Policies")
  • Line Location: PGHD+33
Function Call: WRITE
  • Prompt: ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAGE
  • Line Location: PGHD+35
Function Call: WRITE
  • Prompt: ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAGE
  • Line Location: PGHD+36
Function Call: WRITE
  • Prompt: !,?5,"Filtered by: "
  • Line Location: PGHD+37
Function Call: WRITE
  • Prompt: !,?5,"Filtered by: "
  • Line Location: PGHD+38
Function Call: WRITE
  • Prompt: !,?6,"Contains: "
  • Line Location: PGHD+39
Function Call: WRITE
  • Prompt: $S(IBAIB=1:"Patient Name",1:"Terminal Digit")
  • Line Location: PGHD+40
Function Call: WRITE
  • Prompt: " Range: "_$S(IBRF="":"FIRST",1:IBRF)_" to "_$S(IBRL="zzzzzz":"LAST",1:IBRL)
  • Line Location: PGHD+43
Function Call: WRITE
  • Prompt: !,?7,"Include: Verification Date Range: "_$$FMTE^XLFDT(IBBDT,"Z")
  • Line Location: PGHD+45
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBEDT,"Z")
  • Line Location: PGHD+46
Function Call: WRITE
  • Prompt: !,?7,"Include: Last Appointment Date Range: "_$$FMTE^XLFDT(IBAPPTS,"Z")
  • Line Location: PGHD+48
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBAPPTE,"Z")
  • Line Location: PGHD+49
Function Call: WRITE
  • Prompt: !,?8,"Filter: "_$S(IBPTYPE=1:"Living Patients",IBPTYPE=2:"Deceased Patients",1:"Both Living & Deceased Patients")
  • Line Location: PGHD+50
Function Call: WRITE
  • Prompt: ", "_$S(IBSIN=1:"Verified Policies",IBSIN=2:"Non-Verified Policies",1:"Both Verified & Non-Verified Policies")
  • Line Location: PGHD+51
Function Call: WRITE
  • Prompt: !,$S(IBA=1:"Verified",1:"Non-Verified"),!
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !,$P(IBPT,U,1),U,$P(IBPT,U,2),U,$P(IBINS,U,1),U,$P(IBPOL,U,3),U
  • Line Location: WRT+33
Function Call: WRITE
  • Prompt: $P(IBPOL,U,1)
  • Line Location: WRT+34
Function Call: WRITE
  • Prompt: U_$P(IBPOL,U,2)_U
  • Line Location: WRT+35
Function Call: WRITE
  • Prompt: $P(IBPT,U,4),U,$P(IBPT,U,3)
  • Line Location: WRT+36
Function Call: WRITE
  • Prompt: !,$E($P(IBPT,U,1),1,MAXPT(IBA)),?CSSN(IBA),$P(IBPT,U,2),?CINS(IBA)
  • Line Location: WRT+39
Function Call: WRITE
  • Prompt: $E($P(IBINS,U,1),1,MAXINS(IBA)),?CGRP(IBA),$E($P(IBPOL,U,3),1,MAXGRP(IBA))
  • Line Location: WRT+40
Function Call: WRITE
  • Prompt: ?CLVDAT(IBA),$P(IBPOL,U,1),?CLVBY(IBA),$E($P(IBPOL,U,2),1,MAXVERBY(IBA))
  • Line Location: WRT+41
Function Call: WRITE
  • Prompt: ?CAPPT(IBA),$P(IBPT,U,4),?CDOD(IBA),$P(IBPT,U,3)
  • Line Location: WRT+42

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] BEG+35
^DPT - [#2] BEG+85
^DPT("AB" BEG+34, BEG+40, BEG+73
^TMP("IBCOMA" BEG+25!, BEG+111*, BEG+112*, BEG+113*, BEG+115, QUEQ+3!, WRT+3, WRT+17, WRT+18, WRT+19
, WRT+25, WRT+26, WRT+28, WRT+29
^TMP($J BEG+32!, BEG+69, BEG+70!
^VA(200 - [#200] BEG+101

Label References

Name Line Occurrences
CALCCOLS BEG+114
EOR BEG+118, BEG+122
HD BEG+116, WRT+11, WRT+15, WRT+23
PGHD HD+18, HD+24
QUEQ BEG+115
SETCOLS CALCCOLS+25
SETMAX BEG+107, BEG+108
WRT BEG+119

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPTDATA BEG+18~, BEG+68
APPTDATA("FLDS" BEG+30*
APPTDATA("MAX" BEG+31*
APPTDATA(1 BEG+29*
APPTDATA(4 BEG+67*
CAPPT BEG+18~
CAPPT( HD+27, WRT+42, SETCOLS+31*, SETCOLS+32*, SETCOLS+33
CDOD BEG+18~
CDOD( HD+27, WRT+42, SETCOLS+33*, SETCOLS+34
CGRP BEG+18~
CGRP( HD+25, WRT+40, SETCOLS+27*, SETCOLS+29, SETCOLS+32
CINS BEG+18~
CINS( HD+25, WRT+39, SETCOLS+26*, SETCOLS+27
CLVBY BEG+18~
CLVBY( HD+26, WRT+41, SETCOLS+30*, SETCOLS+31
CLVDAT BEG+18~
CLVDAT( HD+26, WRT+41, SETCOLS+29*, SETCOLS+30
CSSN BEG+18~
CSSN( HD+25, WRT+39, SETCOLS+25*, SETCOLS+26
DFN BEG+18~, BEG+40*, BEG+61, BEG+67, BEG+73, BEG+76, BEG+85, BEG+111, BEG+112, BEG+113
DIFF CALCCOLS+14~, CALCCOLS+18*, CALCCOLS+19*, CALCCOLS+20, CALCCOLS+21, CALCCOLS+22
DIFF2 CALCCOLS+14~, CALCCOLS+21*, CALCCOLS+22, CALCCOLS+23
DIFF3 CALCCOLS+14~, CALCCOLS+22*, CALCCOLS+24
DT BEG+82
IBA HD~, HD+25, HD+26, HD+27, HD+29, WRT+1~, WRT+3*, WRT+11, WRT+15, WRT+16
, WRT+17, WRT+18, WRT+19, WRT+23, WRT+25, WRT+26, WRT+28, WRT+29, WRT+39, WRT+40
, WRT+41, WRT+42
IBAIB BEG+57, BEG+58, BEG+61, BEG+64, BEG+111, BEG+112, BEG+113, QUEQ+3!, PGHD+40
IBAPPTE BEG+29, QUEQ+3!, PGHD+30, PGHD+49
IBAPPTS BEG+29, BEG+71, QUEQ+3!, PGHD+28, PGHD+29, PGHD+47, PGHD+48
>> IBBDT BEG+88, BEG+90, PGHD+25, PGHD+26, PGHD+44, PGHD+45
IBC BEG+18~, BEG+34*, BEG+35, BEG+40, BEG+73, BEG+112, BEG+113
IBC0 BEG+18~, BEG+35*, BEG+38, BEG+39, BEG+99, BEG+107
IBCDA BEG+18~, BEG+73*, BEG+76, BEG+85, BEG+113, WRT+1~, WRT+28*, WRT+29
IBCDA0 BEG+19~, BEG+76*, BEG+79, BEG+82, BEG+102, BEG+108
IBCDA1 BEG+19~, BEG+85*, BEG+86, BEG+100, BEG+105
IBDA WRT+1~, WRT+25*, WRT+26, WRT+28, WRT+29
IBDFN WRT+1~, WRT+18*, WRT+19, WRT+25, WRT+26, WRT+28, WRT+29
>> IBEDT BEG+88, BEG+90, PGHD+27, PGHD+46
IBEXCEL BEG+106, BEG+114, QUEQ+3!, HD+16, HD+22, PGHD+21, WRT+9, WRT+14, WRT+21, WRT+32
, WRT+38
IBFIRST WRT+1~, WRT+2*, WRT+10, WRT+12*
IBHDT PGHD+15~, PGHD+16*, PGHD+22, PGHD+36
IBI BEG+19~, BEG+105*, BEG+107, BEG+108, BEG+111, BEG+112, BEG+113, SETMAX~, SETMAX+7
IBINS WRT+1~, WRT+26*, WRT+33, WRT+40
IBLS WRT+1~, WRT+2*
IBNA WRT+1~, WRT+17*, WRT+18, WRT+19, WRT+25, WRT+26, WRT+28, WRT+29
IBPAGE BEG+19~, BEG+26*, HD+17, HD+23*, HD+24, PGHD~, PGHD+17, PGHD+18, PGHD+36, WRT+4
IBPOL WRT+1~, WRT+29*, WRT+33, WRT+34, WRT+35, WRT+40, WRT+41
IBPT WRT+1~, WRT+19*, WRT+33, WRT+36, WRT+39, WRT+42
IBPTYPE BEG+45, BEG+48, QUEQ+3!, PGHD+32, PGHD+50
IBQUIT BEG+19~, BEG+26*, BEG+122, WRT+2*, WRT+3, WRT+4, WRT+17, WRT+18, WRT+21, WRT+22
, WRT+25, WRT+28
IBRF BEG+61, QUEQ+3!, PGHD+24, PGHD+43
>> IBRFU BEG+58
IBRL BEG+61, QUEQ+3!, PGHD+24, PGHD+43
>> IBRLU BEG+57
IBSIN BEG+87, BEG+88, BEG+89, BEG+90, QUEQ+3!, PGHD+33, PGHD+51
IBTD BEG+19~, BEG+61*, BEG+64*, BEG+111, BEG+112, BEG+113
IBTMP BEG+19~, QUEQ+3!
IBTMP(1 BEG+97*, BEG+98*, BEG+111
IBTMP(2 BEG+99*, BEG+112
IBTMP(3 BEG+102*, BEG+113
IBVANM BEG+21~*, BEG+54*, BEG+57, BEG+58, QUEQ+4!
IBX BEG+19~, HD+29*
IDX BEG+19~, BEG+24*, CALCCOLS+14~, CALCCOLS+17*, CALCCOLS+18, CALCCOLS+19, CALCCOLS+23, CALCCOLS+24, CALCCOLS+25, SETCOLS~
, SETCOLS+25, SETCOLS+26, SETCOLS+27, SETCOLS+28, SETCOLS+29, SETCOLS+30, SETCOLS+31, SETCOLS+32, SETCOLS+33, SETCOLS+34
IOF PGHD+17
IOM PGHD+36
IOSL WRT+21
LASTAPPT BEG+19~, BEG+69*, BEG+71*, BEG+98
LASTVER BEG+19~, BEG+100*, BEG+101*, BEG+102, BEG+108
LEN SETMAX+5~, SETMAX+6*, SETMAX+7
LVDATE BEG+20~, BEG+86*, BEG+87, BEG+88, BEG+89, BEG+90, BEG+102
MAX SETMAX~, CALCCOLS+14~
MAX( SETMAX+7*, CALCCOLS+18
MAX(1 CALCCOLS+15*
MAX(2 CALCCOLS+16*
MAXGRP BEG+20~, BEG+108
MAXGRP( BEG+24*, WRT+40, CALCCOLS+18, SETCOLS+29, SETCOLS+32
MAXINS BEG+20~, BEG+107
MAXINS( BEG+24*, WRT+40, CALCCOLS+18, CALCCOLS+24*, SETCOLS+27
MAXPT BEG+20~, BEG+107
MAXPT( BEG+24*, WRT+39, CALCCOLS+18, CALCCOLS+23*, SETCOLS+25
MAXRPT BEG+20~
MAXRPT( HD+29, SETCOLS+34*
MAXVERBY BEG+20~, BEG+108
MAXVERBY( BEG+24*, WRT+41, CALCCOLS+19, SETCOLS+31
NAME SETMAX~, SETMAX+6
U BEG+38, BEG+39, BEG+49, BEG+79, BEG+82, BEG+86, BEG+97, BEG+98, BEG+99, BEG+100
, BEG+101, BEG+102, BEG+105, BEG+107, BEG+108, WRT+33, WRT+34, WRT+35, WRT+36, WRT+39
, WRT+40, WRT+41, WRT+42
VA BEG+20~, BEG+41!, QUEQ+3!
VADM BEG+20~, BEG+41!, QUEQ+3!
VADM(1 BEG+49*, BEG+52, BEG+54, BEG+97, BEG+107, BEG+111, BEG+112, BEG+113
VADM(2 BEG+97
VADM(6 BEG+45, BEG+48, BEG+97
VAERR BEG+20~, BEG+41!, QUEQ+3!
X BEG+20~, WRT+1~
Y BEG+20~, WRT+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All