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

Package: Integrated Billing

Routine: IBJDI6


Information

IBJDI6 ;ALB/CPM - SC VETS W/ NSC EPISODES OF INPT CARE ; 18-DEC-96

Source Information

Source file <IBJDI6.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
PAT ; - Write the patient information.
HDET ; - Write the detail report header.
SUM ; - Print the summary report.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.
PTF(IBPTF) ; - Does the PTF record have an NSC-related movement?
; Input: IBPTF = Pointer to the PTF record in file #45
; Output: IBNSC = 1 (NSC movement) or 0 (No NSC movement)
PTFQ
BILL(IBPTF,DFN,IBADM,IBDIS) ; - Has this episode of care been billed?
; Input: IBPTF = Pointer to the PTF record in file #45
; DFN = Pointer to the patient in file #2
; IBADM = Episode admission date
; IBDIS = Episode discharge date
; Output: BILL = 1 (Episode has been billed)
; 0 (Episode has not been billed)
BILLQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a number of the NSC inpatient episodes for SC veterans"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"which have and have not been billed.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !!,"All NSC episodes for SC veterans in the selected date range have been billed."
  • Line Location: DET+3
Function Call: WRITE
  • Prompt: $P(IBX,"@@"),?32,$$SSN(IBX1)
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDET+1
Function Call: WRITE
  • Prompt: !,"Insured SC Vets w/ Unbilled NSC Care",?38,"Run Date: ",IBRUN,?70,"Page: ",IBPAG
  • Line Location: HDET+3
Function Call: WRITE
  • Prompt: !,"For Patients discharged in the period "_$$DAT1^IBOUTL(IBBDT)_" to "_$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDET+4
Function Call: WRITE
  • Prompt: !,"Patient",?32,"SSN",?46,"PTF Status",?59,"Adm Date",?69,"Disc Date"
  • Line Location: HDET+5
Function Call: WRITE
  • Prompt: !,$$DASH(80)
  • Line Location: HDET+6
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?13,"INSURED SC VETERANS W/ UNBILLED NSC INPATIENT EPISODES"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?33,"SUMMARY REPORT"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!?16,"For Patients discharged from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN,!?24,$$DASH(31),!!
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?9,"Number of Discharges of Insured SC Veterans:",?54,$J(IB("TOT"),4)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !?5,"Discharges Which were totally Service-Connected:",?54,$J(IB("SC"),4),?62,"(",IBPER(1),"%)"
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?10,"Number of NSC Discharges Which were Billed:",?54,$J(IB("NSCB"),4),?62,"(",IBPER(2),"%)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !?4,"Number of NSC Discharges Flagged as Non-Billable:",?54,$J(IB("NSCR"),4),?62,"(",IBPER(3),"%)"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !,"Unbilled NSC Discharges w/ PTF Status of"
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls