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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBJDI5

Package: Integrated Billing

Routine: IBJDI5


Information

IBJDI5 ;ALB/CPM - INSURANCE POLICIES NOT VERIFIED ;18-DEC-96

Source Information

Source file <IBJDI5.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 7 ALL^IBCNS1  DS^IBJD  E^IBJDE  $$TESTP^IBJDI1  OUTPT^IBJDI21  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  CLOSE^IBSDU  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 (,NOW)^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

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 IBJD INTAKE POL NOT VER  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
ENQ
ENQ1
ENC(IBOED) ; - Encounter extract for outpatient loop.
; Input: IBOED = Outpatient encounter in file #409.68
PROC(DFN,IBIPC,IBDTE) ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2
; IBIPC = Inpatient treatment marker
; ("*"=Had inpat. treatment, null=No inpat. treatment)
; IBDTE = Patient's checkout or discharge date
PRCQ
ENCHK(IBOED) ; - Check outpatient's encounter record.
; Input: IBOED = Outpatient encounter in file #409.68
; Output: 1 = OK for processing
; 0 = Not OK for processing
ENCKQ
DET ; - Print the detailed report.
HDET ; - Write the detail report header.
EXCHDR ; Excel format
SUM ; - Print the summary report.
EXCSUM ;excell format
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.
OUT() ; Prompt to allow users to select output format

External References

Name Field # of Occurrence
^%DTC DQ+48
NOW^%DTC DQ+65
^%ZIS DATE+23
HOME^%ZIS DATE+29
^%ZISC ENQ+3
^%ZTLOAD DATE+27
^DIR DATE+9, PAUSE+4, OUT+6
ALL^IBCNS1 DQ+33
DS^IBJD DATE+3
E^IBJDE DQ+2, DQ+62
$$TESTP^IBJDI1 PROC+6
OUTPT^IBJDI21 DQ+22
$$DAT1^IBOUTL HDET+4, EXCHDR+3, SUM+4, EXCSUM+3
$$DAT2^IBOUTL DQ+54, DQ+65, DET+12, DET+13, DET+16, DET+17
$$STOP^IBOUTL DQ+11, DQ+29, HDET+9
DATE^IBOUTL DATE
CLOSE^IBSDU DQ+21, DQ+23
ELIG^VADPT PROC+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a number of the insurance policies which were"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"entered into the system within a given timeframe, but were never verified.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+17
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+19
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+20
Function Call: WRITE
  • Prompt: !,"All policies within the selected date range have been verified."
  • Line Location: DET+1
Function Call: WRITE
  • Prompt: $P(IBX1,"@@"),?33,$$SSN($P(IBX1,"@@",2)),?47,$P(IBX1,"@@",3)
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: ?94,$E($P($G(^VA(200,+$P(IBX3,U,4),0)),U),1,24),?120,$$DAT2^IBOUTL($P(IBX3,U,5)),!
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: "^^^^"_$E($P($G(^VA(200,+$P(IBX3,U,4),0)),U),1,24)_U_$$DAT2^IBOUTL($P(IBX3,U,5)),!
  • Line Location: DET+17
Function Call: WRITE
  • Prompt: !,"All policies within the selected date range have been verified less than a year ago."
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Insurance Policies ",$S(IBX:"Verified Over a Year Ago",1:"Not Verified"),?80,"Run Date: ",IBRUN,?123,"Page: ",IBPAG
  • Line Location: HDET+3
Function Call: WRITE
  • Prompt: !,"For Patients treated for the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)_" ('*' = Had inpatient care)"
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !?94,"Policy Entered By Date Entered"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,"Patient",?33,"SSN",?47,"Date of Death"
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: ?62,"Insurance Company",?94,"Policy ",$S(IBX:"Verified",1:"Entered")," By",?120,"Date ",$S(IBX:"Verif'd",1:"Entered")
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: !,$$DASH(132),!!
  • Line Location: HDET+8
Function Call: WRITE
  • Prompt: !,"Insurance Policies ",$S(IBX:"Verified Over a Year Ago",1:"Not Verified")
  • Line Location: EXCHDR+1
Function Call: WRITE
  • Prompt: !,"For Patients treated for the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)_" ('*' = Had inpatient care)"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"Patient"_U_"SSN"_U_"Date of Death"_U_"Insurance Company"_U_"Policy ",$S(IBX:"Verified",1:"Entered")," By"_U_"Date ",$S(IBX:"Verif'd",1:"Entered"),!
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?$S(IBVER:14,1:24),"INSURANCE POLICIES NOT VERIFIED",$S(IBVER:"/VERIFIED OVER 1 YEAR",1:"")
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?32,"SUMMARY REPORT",!!?17,"For Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?24,$$DASH(31),!!
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: ?24,"Number of Patients Treated:",?53,$J(IB("TOT"),5)
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !?23,"Number of Policies Verified:",?53,$J(IB("VER"),5),?62,"(",IBPER,"%)"
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !!,"INSURANCE POLICIES NOT VERIFIED",$S(IBVER:"/VERIFIED OVER 1 YEAR",1:"")
  • Line Location: EXCSUM+1
Function Call: WRITE
  • Prompt: !,"SUMMARY REPORT"
  • Line Location: EXCSUM+2
Function Call: WRITE
  • Prompt: !,"For Patients treated from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: EXCSUM+3
Function Call: WRITE
  • Prompt: !,"Run Date: ",IBRUN
  • Line Location: EXCSUM+4
Function Call: WRITE
  • Prompt: !,"Number of Patients Treated:"_U_IB("TOT")
  • Line Location: EXCSUM+7
Function Call: WRITE
  • Prompt: !,"Number of Policies Verified:"_U_IB("VER")_U_"(",IBPER,"%)"
  • Line Location: EXCSUM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Routine Call
  • DIR
  • Line Location:
    • DATE+9
    • PAUSE+4
    • OUT+6
Routine Call
  • %ZIS
  • Line Location:
    • DATE+23
Routine Call
  • %ZIS
  • Line Location:
    • DATE+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DQ+12
^DGPM("ATT3" DQ+9, DQ+10
^DIC(36 - [#36] DQ+37
^DIC(37 - [#37] ENCHK+10, ENCHK+11
^DPT - [#2] DQ+54, DQ+55, ENCHK+9
^DPT("ADIS" ENCHK+9
^TMP("IBJDI51" DQ+5!, DQ+16, DQ+28, DQ+32, ENQ!, PROC+10*
^TMP("IBJDI52" DQ+5!, DQ+58*, ENQ!, DET+1, DET+3, DET+5, DET+8, DET+21
^VA(200 - [#200] DET+11, DET+13, DET+16, DET+17

Label References

Name Line Occurrences
$$DASH HDET+8, SUM+5
$$OUT DATE+13
$$SSN DET+7, DET+15
DET DQ+66
ENCKQ ENCHK+5, ENCHK+10, ENCHK+11, ENCHK+13, ENCHK+14
ENQ DATE, DATE+3, DATE+9, DATE+23, DATE+24, DQ+18, DQ+25, DQ+60, DQ+62
ENQ1 ENQ+1
EXCHDR DET+2
EXCSUM DQ+68
HDET DET+1, DET+4, DET+6, DET+9, DET+21
PAUSE DQ+70, DET+1, DET+6, DET+9, DET+19, DET+21
PRCQ PROC+7
PROC DQ+16, ENC+3
SUM DQ+67

Naked Globals

Name Field # of Occurrence
^( DQ+54, DET+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+65, ENQ1!
%ZIS DATE+23*, ENQ1+2!
DFN DQ+13*, DQ+16, ENQ1+2!, PROC~, PROC+6, PROC+10
DIR DATE+9!, PAUSE+2~, OUT+1~
DIR("A" DATE+7*, DATE+8*, OUT+4*
DIR("B" DATE+9*, OUT+5*
DIR(0 DATE+6*, PAUSE+4*, OUT+3*
DIROUT PAUSE+2~, OUT+1~
DIRUT PAUSE+2~, PAUSE+4, OUT+1~, OUT+6
DT DQ+48
DTOUT PAUSE+2~, OUT+1~
DUOUT PAUSE+2~, PAUSE+4, OUT+1~
>> I DATE+26*
IB DQ+5!, ENQ1!
IB("NOT" DQ+6*, DQ+50*, SUM+11, EXCSUM+10
IB("TOT" DQ+6*, DQ+42*, SUM+7, SUM+8, SUM+10, SUM+11, EXCSUM+6, EXCSUM+7, EXCSUM+9, EXCSUM+10
IB("VER" DQ+6*, DQ+47*, SUM+7, SUM+9, EXCSUM+6, EXCSUM+8
IB("VERO" DQ+6*, DQ+49*, SUM+10, EXCSUM+9
IBBDT DATE, DQ+9, DQ+22, ENQ1!, HDET+4, EXCHDR+3, SUM+4, EXCSUM+3
IBC DQ+28*, DQ+29, DQ+32, DQ+33, DQ+54, DQ+55, DQ+58, ENQ1+1!
IBC1 DQ+32*, DQ+33, DQ+58, ENQ1+1!
IBC2 DQ+34*, DQ+37, DQ+40, DQ+58, ENQ1+1!
IBC3 DQ+37*, DQ+38, DQ+58, ENQ1+1!
IBCDFN ENQ1+1!
IBCDFND DQ+40*, DQ+46, DQ+48, DQ+55, DQ+56, DQ+57, DQ+58, ENQ1+2!
IBD DQ+9*, DQ+10, DQ+16, ENQ1!
IBDN ENQ1!
IBDOD DQ+54*, DQ+58, ENQ1+1!
IBDTE PROC~, PROC+10
IBEBY DQ+55*, DQ+58, ENQ1+1!
IBEDT DATE, DQ+9, DQ+22, ENQ1!, HDET+4, EXCHDR+3, SUM+4, EXCSUM+3
IBINS DQ+32!, DQ+33, ENQ1!
IBINS( DQ+34, DQ+37, DQ+40
IBIPC PROC~, PROC+10
IBOED ENC~, ENC+3, ENCHK~, ENCHK+5, ENCHK+8, ENCHK+9, ENCHK+13, ENCHK+14
IBOUT DATE+12~, DATE+13*, DQ+67, DQ+68, DET+2, DET+4, DET+6, DET+7, DET+9, DET+10
, DET+14, DET+19, DET+21
IBPAG DQ+65*, ENQ1!, HDET+1, HDET+2*, HDET+3, SUM+1, SUM+2*
IBPER ENQ1+1!, SUM+7*, SUM+9, SUM+11, EXCSUM+6*, EXCSUM+8, EXCSUM+10
IBPH ENQ1!
IBPM DQ+10*, DQ+11, DQ+12, ENQ1!
IBPMD DQ+12*, DQ+13, ENQ1!
IBQ DQ+6*, DQ+9, DQ+10, DQ+11*, DQ+18, DQ+22, DQ+25, DQ+28, DQ+29*, DQ+60
, DQ+65*, DQ+67, DQ+70, ENQ1!, DET+3, DET+4, DET+5, DET+6, DET+9, DET+19
, HDET+9*, PAUSE+4*
IBQUERY DQ+4~, DQ+21, DQ+22, DQ+23
IBRPT DATE+3, DATE+7, DATE+16, DQ+53, DQ+66, ENQ1!
IBRUN DQ+65*, ENQ1!, HDET+3, EXCHDR+2, SUM+5, EXCSUM+4
IBVBY DQ+57*, DQ+58, ENQ1+1!
IBVDTE DQ+56*, DQ+58, ENQ1+1!
IBVER DATE+9*, DQ+6, DQ+47, ENQ1+1!, DET+21, SUM+3, SUM+10, EXCSUM+1, EXCSUM+9
IBVFLG DQ+45*, DQ+46, DQ+49*, DQ+56, DQ+57, DQ+58, ENQ1+1!
IBX ENQ1+2!, DET+1*, DET+2*, DET+3*, DET+5, DET+8, DET+13, DET+17, DET+21*, HDET+3
, HDET+5, HDET+7, EXCHDR+1, EXCHDR+4, PAUSE+2~, PAUSE+3*
IBX1 ENQ1+2!, DET+5*, DET+7, DET+8, DET+15
IBX2 ENQ1+2!, DET+8*
IBX3 ENQ1+2!, DET+8*, DET+11, DET+12, DET+13, DET+16, DET+17
IBXTRACT DQ+2, DQ+62, ENQ1+2!
IO DATE+31
IO("Q" DATE+24, DATE+29!
IOF HDET+1, SUM+1
IOSL DET+6, DET+9, PAUSE+3
IOST HDET+1, SUM+1, PAUSE+1
POP DATE+23, ENQ1+2!
STOP ENQ1+2!, OUT+6*
U DQ+13, DQ+38, DQ+46, DQ+48, DQ+55, DQ+56, DQ+57, DQ+58, ENC+3, PROC+10
, ENCHK+8, ENCHK+9, ENCHK+13, ENCHK+14, DET+11, DET+12, DET+13, DET+15, DET+16, DET+17
, EXCHDR+4, EXCSUM+7, EXCSUM+8, EXCSUM+9, EXCSUM+10
VA PRCQ!
VAEL PRCQ!
VAEL(4 PROC+7
VAERR PRCQ!
X DQ+49, DQ+55*, DQ+58, ENQ1+2!, ENCHK+5~, ENCHK+8*, ENCHK+9, DASH~, DASH+1, PAUSE+2~
, SSN~, SSN+1, OUT+1~
X1 DQ+48*, ENQ1+2!, ENCHK+5~, ENCHK+9*, ENCHK+10, ENCHK+11
X2 DQ+48*, ENQ1+2!
Y DATE+9, ENQ1+2!, ENCHK+5*, ENCHK+16*, ENCKQ, PAUSE+2~, OUT+1~, OUT+7
ZTDESC DATE+25*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DATE+25*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DATE+26*
ZTSK DATE+28, DATE+29!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All