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

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

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
Info |  Source |  Entry Points |  Interaction Calls