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

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCOMA  

Entry Points

Name Comments DBIA/ICR reference
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
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)
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
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
; IBRF - "A" - First Patient Name, otherwise start of range filter
; IBRL - End of range filter
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
WRT ; Write data lines
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

External References

Name Field # of Occurrence
^%ZISC QUEQ+2
$$ZND^IBCNS1 BEG+71
ASK^IBCOMC2 BEG+113, WRT+4, WRT+17
$$TERMDG^IBCONS2 BEG+56
$$SDAPI^SDAMA301 BEG+63
DEM^VADPT BEG+41
$$FMTE^XLFDT BEG+92, BEG+93, BEG+97, PGHD+15, PGHD+28, PGHD+29, PGHD+31, PGHD+32
$$NOW^XLFDT PGHD+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** NO RECORDS FOUND **"
  • Line Location: BEG+112
Function Call: WRITE
  • Prompt: !!,"** END OF REPORT **",!
  • Line Location: BEG+115
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: !!,"Patient Name^SSN^Insurance Co.^Group No.^Last VC^VC By^Last Apt^DoD"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !!,"Patient Name",?CSSN(IBA),"SSN",?CINS(IBA),"Insurance Co.",?CGRP(IBA),"Group No."
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: ?CLVDAT(IBA),"Last VC",?CLVBY(IBA),"VC By"
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: ?CAPPT(IBA),"Last Apt",?CDOD(IBA),"DoD"
  • Line Location: HD+24
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: "Active Policies with no Effective Date Report "
  • Line Location: PGHD+18
Function Call: WRITE
  • Prompt: " Run On: ",IBHDT
  • Line Location: PGHD+20
Function Call: WRITE
  • Prompt: ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAGE
  • Line Location: PGHD+22
Function Call: WRITE
  • Prompt: !,?5,"Sorted by: "
  • Line Location: PGHD+23
Function Call: WRITE
  • Prompt: !,?6,"Contains: "
  • Line Location: PGHD+24
Function Call: WRITE
  • Prompt: $S(IBAIB=1:"Patient Name",1:"Terminal Digit")
  • Line Location: PGHD+25
Function Call: WRITE
  • Prompt: " Range: "_$S(IBRF="A":"FIRST",1:IBRF)_" to "_$S(IBRL="zzzzzz":"LAST",1:IBRL)
  • Line Location: PGHD+26
Function Call: WRITE
  • Prompt: !,?7,"Include: Verification Date Range: "_$$FMTE^XLFDT(IBBDT,"Z")
  • Line Location: PGHD+28
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBEDT,"Z")
  • Line Location: PGHD+29
Function Call: WRITE
  • Prompt: !,?7,"Include: Last Appointment Date Range: "_$$FMTE^XLFDT(IBAPPTS,"Z")
  • Line Location: PGHD+31
Function Call: WRITE
  • Prompt: " to "_$$FMTE^XLFDT(IBAPPTE,"Z")
  • Line Location: PGHD+32
Function Call: WRITE
  • Prompt: !,?8,"Filter: "_$S(IBPTYPE=1:"Living Patients",IBPTYPE=2:"Deceased Patients",1:"Both Living & Deceased Patients")
  • Line Location: PGHD+33
Function Call: WRITE
  • Prompt: ", "_$S(IBSIN=1:"Verified Policies",IBSIN=2:"Non-Verified Policies",1:"Both Verified & Non-Verified Policies")
  • Line Location: PGHD+34
Function Call: WRITE
  • Prompt: !,$S(IBA=1:"Verified",1:"Non-Verified"),!
  • Line Location: WRT+11
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+26
Function Call: WRITE
  • Prompt: $P(IBPOL,U,1)
  • Line Location: WRT+27
Function Call: WRITE
  • Prompt: U_$P(IBPOL,U,2)_U
  • Line Location: WRT+28
Function Call: WRITE
  • Prompt: $P(IBPT,U,4),U,$P(IBPT,U,3)
  • Line Location: WRT+29
Function Call: WRITE
  • Prompt: !,$E($P(IBPT,U,1),1,MAXPT(IBA)),?CSSN(IBA),$P(IBPT,U,2),?CINS(IBA)
  • Line Location: WRT+31
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+32
Function Call: WRITE
  • Prompt: ?CLVDAT(IBA),$P(IBPOL,U,1),?CLVBY(IBA),$E($P(IBPOL,U,2),1,MAXVERBY(IBA))
  • Line Location: WRT+33
Function Call: WRITE
  • Prompt: ?CAPPT(IBA),$P(IBPT,U,4),?CDOD(IBA),$P(IBPT,U,3)
  • Line Location: WRT+34

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] BEG+34
^DPT - [#2] BEG+80
^DPT("AB" BEG+33, BEG+39, BEG+68
^TMP("IBCOMA" BEG+24!, BEG+106*, BEG+107*, BEG+108*, BEG+110, QUEQ+3!, WRT+3, WRT+12, WRT+13, WRT+14
, WRT+20, WRT+21, WRT+23, WRT+24
^TMP($J BEG+31!, BEG+64, BEG+65!
^VA(200 - [#200] BEG+96

Label References

Name Line Occurrences
CALCCOLS BEG+109
HD BEG+111, WRT+6, WRT+10, WRT+18
PGHD HD+17, HD+21
QUEQ BEG+110
SETCOLS CALCCOLS+25
SETMAX BEG+102, BEG+103
WRT BEG+114

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APPTDATA BEG+18~, BEG+63
APPTDATA("FLDS" BEG+29*
APPTDATA("MAX" BEG+30*
APPTDATA(1 BEG+28*
APPTDATA(4 BEG+62*
CAPPT BEG+18~
CAPPT( HD+24, WRT+34, SETCOLS+31*, SETCOLS+32*, SETCOLS+33
CDOD BEG+18~
CDOD( HD+24, WRT+34, SETCOLS+33*, SETCOLS+34
CGRP BEG+18~
CGRP( HD+22, WRT+32, SETCOLS+27*, SETCOLS+29, SETCOLS+32
CINS BEG+18~
CINS( HD+22, WRT+31, SETCOLS+26*, SETCOLS+27
CLVBY BEG+18~
CLVBY( HD+23, WRT+33, SETCOLS+30*, SETCOLS+31
CLVDAT BEG+18~
CLVDAT( HD+23, WRT+33, SETCOLS+29*, SETCOLS+30
CSSN BEG+18~
CSSN( HD+22, WRT+31, SETCOLS+25*, SETCOLS+26
DFN BEG+18~, BEG+39*, BEG+56, BEG+62, BEG+68, BEG+71, BEG+80, BEG+106, BEG+107, BEG+108
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+77
IBA HD~, HD+22, HD+23, HD+24, HD+26, WRT+1~, WRT+3*, WRT+6, WRT+10, WRT+11
, WRT+12, WRT+13, WRT+14, WRT+18, WRT+20, WRT+21, WRT+23, WRT+24, WRT+31, WRT+32
, WRT+33, WRT+34
IBAIB BEG+52, BEG+53, BEG+56, BEG+59, BEG+106, BEG+107, BEG+108, QUEQ+3!, PGHD+25
IBAPPTE BEG+28, QUEQ+3!, PGHD+32
IBAPPTS BEG+28, BEG+66, QUEQ+3!, PGHD+30, PGHD+31
>> IBBDT BEG+83, BEG+85, PGHD+27, PGHD+28
IBC BEG+18~, BEG+33*, BEG+34, BEG+39, BEG+68, BEG+107, BEG+108
IBC0 BEG+18~, BEG+34*, BEG+37, BEG+38, BEG+94, BEG+102
IBCDA BEG+18~, BEG+68*, BEG+71, BEG+80, BEG+108, WRT+1~, WRT+23*, WRT+24
IBCDA0 BEG+19~, BEG+71*, BEG+74, BEG+77, BEG+97, BEG+103
IBCDA1 BEG+19~, BEG+80*, BEG+81, BEG+95, BEG+100
IBDA WRT+1~, WRT+20*, WRT+21, WRT+23, WRT+24
IBDFN WRT+1~, WRT+13*, WRT+14, WRT+20, WRT+21, WRT+23, WRT+24
>> IBEDT BEG+83, BEG+85, PGHD+29
IBEXCEL BEG+101, BEG+109, QUEQ+3!, HD+16, WRT+5, WRT+9, WRT+16, WRT+25
IBFIRST WRT+1~, WRT+2*, WRT+5, WRT+7*
IBHDT PGHD+14~, PGHD+15*, PGHD+20, PGHD+22
IBI BEG+19~, BEG+100*, BEG+102, BEG+103, BEG+106, BEG+107, BEG+108, SETMAX~, SETMAX+7
IBINS WRT+1~, WRT+21*, WRT+26, WRT+32
IBNA WRT+1~, WRT+12*, WRT+13, WRT+14, WRT+20, WRT+21, WRT+23, WRT+24
IBPAGE BEG+19~, BEG+25*, HD+20*, HD+21, PGHD~, PGHD+16, PGHD+17, PGHD+19, PGHD+22, PGHD+23
, WRT+4
IBPOL WRT+1~, WRT+24*, WRT+26, WRT+27, WRT+28, WRT+32, WRT+33
IBPT WRT+1~, WRT+14*, WRT+26, WRT+29, WRT+31, WRT+34
IBPTYPE BEG+44, BEG+47, QUEQ+3!, PGHD+33
IBQUIT BEG+19~, BEG+25*, WRT+2*, WRT+3, WRT+4, WRT+12, WRT+13, WRT+16, WRT+17, WRT+20
, WRT+23
IBRF BEG+53, BEG+56, QUEQ+3!, PGHD+26
IBRL BEG+52, BEG+56, QUEQ+3!, PGHD+26
IBSIN BEG+82, BEG+83, BEG+84, BEG+85, QUEQ+3!, PGHD+34
IBTD BEG+19~, BEG+56*, BEG+59*, BEG+106, BEG+107, BEG+108
IBTMP BEG+19~, QUEQ+3!
IBTMP(1 BEG+92*, BEG+93*, BEG+106
IBTMP(2 BEG+94*, BEG+107
IBTMP(3 BEG+97*, BEG+108
IBX BEG+19~, HD+26*
IDX BEG+19~, BEG+23*, 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+16
IOM PGHD+22
IOSL WRT+16
LASTAPPT BEG+19~, BEG+64*, BEG+66*, BEG+93
LASTVER BEG+19~, BEG+95*, BEG+96*, BEG+97, BEG+103
LEN SETMAX+5~, SETMAX+6*, SETMAX+7
LVDATE BEG+20~, BEG+81*, BEG+82, BEG+83, BEG+84, BEG+85, BEG+97
MAX SETMAX~, CALCCOLS+14~
MAX( SETMAX+7*, CALCCOLS+18
MAX(1 CALCCOLS+15*
MAX(2 CALCCOLS+16*
MAXGRP BEG+20~, BEG+103
MAXGRP( BEG+23*, WRT+32, CALCCOLS+18, SETCOLS+29, SETCOLS+32
MAXINS BEG+20~, BEG+102
MAXINS( BEG+23*, WRT+32, CALCCOLS+18, CALCCOLS+24*, SETCOLS+27
MAXPT BEG+20~, BEG+102
MAXPT( BEG+23*, WRT+31, CALCCOLS+18, CALCCOLS+23*, SETCOLS+25
MAXRPT BEG+20~
MAXRPT( HD+26, SETCOLS+34*
MAXVERBY BEG+20~, BEG+103
MAXVERBY( BEG+23*, WRT+33, CALCCOLS+19, SETCOLS+31
NAME SETMAX~, SETMAX+6
U BEG+37, BEG+38, BEG+48, BEG+74, BEG+77, BEG+81, BEG+92, BEG+93, BEG+94, BEG+95
, BEG+96, BEG+97, BEG+100, BEG+102, BEG+103, WRT+26, WRT+27, WRT+28, WRT+29, WRT+31
, WRT+32, WRT+33, WRT+34
VA BEG+20~, BEG+40!, QUEQ+3!
VADM BEG+20~, BEG+40!, QUEQ+3!
VADM(1 BEG+48*, BEG+51, BEG+52, BEG+53, BEG+92, BEG+102, BEG+106, BEG+107, BEG+108
VADM(2 BEG+92
VADM(6 BEG+44, BEG+47, BEG+92
VAERR BEG+20~, BEG+40!, 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