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

Package: Integrated Billing

Routine: IBJDI1


Information

IBJDI1 ;ALB/CPM - PERCENTAGE OF COMPLETED REGISTRATIONS ;16-DEC-96

Source Information

Source file <IBJDI1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 5 DS^IBJD  E^IBJDE  EN^IBJDI11  PSDR^IBODIV  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 2 NOW^%DTC  ^DIR  
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: 8

Package Total Caller Graph
Integrated Billing 8 IBJD INTAKE COMP REG  IBJDI21  IBJDI3  IBJDI41  IBJDI5  IBJDI6  IBJDI7  IBJDIPR  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
ENQ
ENQ1
DET ; - Print the detailed report.
DETQ
DETP(X) ; - Print detailed line with a primary elig. or inconsistency.
HDET ; - Write the detail report header.
SUM ; - Print the summary report.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
TESTP(DFN) ; - Check if this is a test patient.
; Input: DFN = Pointer to the patient in file #2
; Output: 1 = Test patient
; 0 = Actual patient
TSTPQ
SSN(X) ; - Format the SSN.
DHLP ; - 'Sort by division' prompt.

External References

Name Field # of Occurrence
NOW^%DTC DQ+26
^%ZIS DATE+19
HOME^%ZIS DATE+24
^%ZISC ENQ+3
^%ZTLOAD DATE+23
^DIR DATE+5, PAUSE+4
DS^IBJD DATE+11
E^IBJDE DQ+2, DQ+23
EN^IBJDI11 DQ+18
PSDR^IBODIV DATE+8
$$DAT1^IBOUTL DETP+6, HDET+7, SUM+6
$$DAT2^IBOUTL DQ+26
$$STOP^IBOUTL DQ+15, HDET+12
DATE^IBOUTL DATE
$$SDAPI^SDAMA301 DET+10
$$NOW^XLFDT DET+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report measures the number of registrations which are being entered"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"without inconsistencies. Please enter a date range representing the dates"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"that patients were first entered into the system.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+14
Function Call: WRITE
  • Prompt: !!,"Note: This report requires a search through the entire Patient file."
  • Line Location: DATE+15
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: DATE+23
Function Call: WRITE
  • Prompt: !!,"There were no registrations with inconsistencies found in this date range."
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: !,$P(IBX1,"@@"),?27,$P(IBX,U),?39,$P(IBX,U,2),?56,$P(IBX,U,3)
  • Line Location: DETP+1
Function Call: WRITE
  • Prompt: ?70,$E($P($G(^DIC(8,X,0)),U),1,20),"*"
  • Line Location: DETP+2
Function Call: WRITE
  • Prompt: ?70,$E($P($G(^DGIN(38.6,X,0)),U),1,20)
  • Line Location: DETP+3
Function Call: WRITE
  • Prompt: ?92,$P(IBX,U,5)
  • Line Location: DETP+4
Function Call: WRITE
  • Prompt: ?114,$$DAT1^IBOUTL(IBNEXT),?124,$P(IBX,U,7)
  • Line Location: DETP+6
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Percentage of Completed Registrations",$S(IBDIV:" for "_$P($G(^DG(40.8,IBDIV,0)),U),1:"")
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: ?85,"Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: !,"Detailed Report of Incomplete ",IBNVET,"Registrations for the Period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)," (*=Had inpat. care, +=Had no treatment)",!!
  • Line Location: HDET+7
Function Call: WRITE
  • Prompt: ?70,"Primary Eligibility*"
  • Condition for execution: IBX0
  • Line Location: HDET+8
Function Call: WRITE
  • Prompt: ?116,"Next Date of"
  • Line Location: HDET+8
Function Call: WRITE
  • Prompt: !,"Patient",?27,"SSN",?39,"Phone Number",?56,"Type of Care"
  • Line Location: HDET+9
Function Call: WRITE
  • Prompt: ?70,"Inconsistencies",?92,"Registered By",?114,"Appt/Adm Death"
  • Line Location: HDET+10
Function Call: WRITE
  • Prompt: !,$$DASH(IOM)
  • Line Location: HDET+11
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?21,"PERCENTAGE OF COMPLETED REGISTRATIONS",!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: ?(61-$L(X))\2,"SUMMARY REPORT for ",X
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: ?33,"SUMMARY REPORT"
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?23,"For the Period ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?8,$$DASH(64)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !?29,"Number of Registrations:",?54,$J(IB(IBDIV,"TOT"),6)
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !?14,"Number of Regs with Treatment Rendered:",?54,$J(IB(IBDIV,"TR"),6),?61,"(",IBPER(1),"%)"
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: !?11,"Number of Regs with No Treatment Rendered:",?54,$J(IB(IBDIV,"NOTR"),6),?61,"(",IBPER(2),"%)",!?8,$$DASH(64)
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !?20,"Number of Complete Registrations:",?54,$J(IB(IBDIV,"COM"),6),?61,"(",IBPER(3),"%)"
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: !?21,"Number of Complete Veteran Regs:",?54,$J(IB(IBDIV,"VETC"),6),?61,"(",IBPER(4),"%)"
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !?17,"Number of Complete Non-Veteran Regs:",?54,$J(IB(IBDIV,"NVETC"),6),?61,"(",IBPER(5),"%)",!?8,$$DASH(64)
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !?18,"Number of Incomplete Registrations:",?54,$J(IB(IBDIV,"INC"),6),?61,"(",IBPER(6),"%)"
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !?19,"Number of Incomplete Veteran Regs:",?54,$J(IB(IBDIV,"VETI"),6),?61,"(",IBPER(7),"%)"
  • Line Location: SUM+25
Function Call: WRITE
  • Prompt: !?15,"Number of Incomplete Non-Veteran Regs:",?54,$J(IB(IBDIV,"NVETI"),6),?61,"(",IBPER(8),"%)",!?8,$$DASH(64)
  • Line Location: SUM+26
Function Call: WRITE
  • Prompt: !?25,"Number of Deceased Patients:",?54,$J(IB(IBDIV,"DEC"),6),?61,"(",IBPER(9),"%)"
  • Line Location: SUM+27
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !!,"Select: '<CR>' to print the trend report without regard to"
  • Line Location: DHLP+1
Function Call: WRITE
  • Prompt: !?15,"division"
  • Line Location: DHLP+2
Function Call: WRITE
  • Prompt: !?11,"'Y' to select those divisions for which a separate"
  • Line Location: DHLP+3
Function Call: WRITE
  • Prompt: !?15,"trend report should be created",!?11,"'^' to quit"
  • Line Location: DHLP+4
Routine Call
  • DIR
  • Line Location:
    • DATE+5
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • DATE+19
Routine Call
  • %ZIS
  • Line Location:
    • DATE+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DQ+9, HDET+5, SUM+4
^DGIN(38.6 - [#38.6] DET+24, DETP+3
^DIC(8 - [#8] DETP+2
^DPT - [#2] DQ+14, DQ+17, TESTP+5
^TMP("IBDFN" DQ+4!, ENQ!
^TMP("IBJDI1" DQ+4!, ENQ!, DET+1, DET+12, DET+14, HDET+3
^TMP($J DQ+4!, ENQ!, DETP+5

Label References

Name Line Occurrences
$$DASH HDET+11, SUM+7, SUM+20, SUM+23, SUM+26
$$TESTP DQ+16
DET DQ+28
DETP DET+18, DET+23
DETQ DET+1
ENQ DATE, DATE+5, DATE+8, DATE+11, DATE+19, DATE+20, DQ+20, DQ+23
ENQ1 ENQ+1
HDET DET+2, DET+13, DET+15, DET+23
PAUSE DQ+28, DET+15, DET+23, DETQ
SUM DQ+28
TSTPQ TESTP+6, TESTP+7

Naked Globals

Name Field # of Occurrence
^( DQ+14, DET+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+26, ENQ1+2!
%ZIS DATE+19*, ENQ1+2!
DFN DQ+14*, DQ+15, DQ+16, DQ+17, ENQ1+2!, TESTP~, TESTP+5
DIR DATE+6!, ENQ1+3!, PAUSE+2~
DIR("?" DATE+3*
DIR("A" DATE+4*
DIR("B" DATE+3*
DIR(0 DATE+3*, PAUSE+4*
DIROUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~
DIRUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~, PAUSE+4
DTOUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~
DUOUT DATE+5, DATE+6!, ENQ1+3!, PAUSE+2~, PAUSE+4
I DATE+22*, DQ+9*, DQ+10, DQ+11*, ENQ1+2!, DET+22*
IB DQ+4!, ENQ1!
IB( DQ+10*, DQ+27, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16
, SUM+17, SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24, SUM+25, SUM+26
, SUM+27
IB(0 DQ+11*
IBARRAY ENQ1+3!, DET+10
IBARRAY("FLDS" DET+9*
IBARRAY("SORT" DET+8*
IBARRAY(1 DET+5*
IBARRAY(3 DET+6*
IBARRAY(4 DET+7*
IBBDT DATE, DQ+17, ENQ1!, HDET+7, SUM+6
IBC DQ+7*, DQ+10, DQ+11, ENQ1!
IBCOUNT ENQ1+3!, DET+10*
IBD DQ+17*, ENQ1!
IBDIV DQ+27*, ENQ1+1!, DET+1, DET+12, DET+14, HDET+3, HDET+5, SUM+3, SUM+4, SUM+9
, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, SUM+18, SUM+19
, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24, SUM+25, SUM+26, SUM+27
IBDN DQ+14*, DQ+17, ENQ1!
IBDOD ENQ1!
IBEDT DATE, DQ+17, ENQ1!, HDET+7, SUM+6
IBFL ENQ1+2!, DET+18*, DETP+2*
IBIN ENQ1!, DET+18*, DET+21, DET+22
IBINPT ENQ1+1!
IBNEXT ENQ1+1!, DETP+5*, DETP+6
IBNOTR ENQ1+1!
IBNVET ENQ1+1!, HDET+3*, HDET+4*, HDET+7
IBPAG DQ+28*, ENQ1!, HDET+1, HDET+2*, HDET+6, SUM+1
IBPER ENQ1+1!
IBPER(1 SUM+9*, SUM+19
IBPER(2 SUM+10*, SUM+20
IBPER(3 SUM+11*, SUM+21
IBPER(4 SUM+12*, SUM+22
IBPER(5 SUM+13*, SUM+23
IBPER(6 SUM+14*, SUM+24
IBPER(7 SUM+15*, SUM+25
IBPER(8 SUM+16*, SUM+26
IBPER(9 SUM+17*, SUM+27
IBQ DQ+7*, DQ+14, DQ+15*, DQ+20, DQ+26*, DQ+27, DQ+28, ENQ1!, DET+12, DET+13
, DET+14, DET+15, DET+22, DET+23, DETQ, HDET+12*, PAUSE+4*
IBQUERY DQ+4~
IBREG ENQ1+1!
IBRPT DATE+11, DATE+13, DQ+28, ENQ1!
IBRUN DQ+26*, ENQ1!, HDET+6, SUM+7
IBSORT DATE+5*, DATE+8, DQ+8, ENQ1+1!
IBTOC ENQ1!
IBX ENQ1+1!, DET+14*, DET+18, DETP+1, DETP+4, DETP+5, DETP+6, PAUSE+2~, PAUSE+3*
IBX0 ENQ1+1!, DET+12*, DET+14, DETP+2, HDET+3*, HDET+4, HDET+8
IBX1 ENQ1+1!, DET+14*, DETP+1, DETP+5
>> IBXTRACT DQ+2, DQ+23
IO DATE+26
IO("Q" DATE+20, DATE+24!
IOF HDET+1, SUM+1
IOM HDET+11
IOSL DET+15, DET+23, PAUSE+3
IOST HDET+1, SUM+1, PAUSE+1
J DQ+10*, ENQ1+2!
POP DATE+19, ENQ1+2!
U DQ+10, DQ+11, DQ+17, DET+18, DET+24, DETP+1, DETP+2, DETP+3, DETP+4, DETP+5
, DETP+6, HDET+5, SUM+4, TESTP+6, TESTP+7
VAUTD DQ+9, ENQ1+2!
VAUTD( DQ+9
X ENQ1+2!, DETP~, DETP+2, DETP+3, SUM+4*, DASH~, DASH+1, PAUSE+2~, TESTP+4~, TESTP+5*
, TESTP+6, TESTP+7, SSN~, SSN+1
X1 ENQ1+2!
X2 ENQ1+2!
Y DATE+5, DATE+8, ENQ1+2!, DET+22*, DET+23, DET+24, PAUSE+2~, TESTP+9*, TSTPQ*
ZTDESC DATE+21*, ENQ1+2!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN DATE+21*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DATE+22*
ZTSK DATE+23, DATE+24!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All