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

Package: Integrated Billing

Routine: IBJDI1


Information

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

Source Information

Source file <IBJDI1.m>

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.

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