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

Package: Integrated Billing

Routine: IBJDI7


Information

IBJDI7 ;ALB/CPM - OUTPATIENT WORKLOAD REPORT ; 19-DEC-96

Source Information

Source file <IBJDI7.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
ENQ
ENQ1
ENC(IBOE,IBOED) ; - Extract encounter - must be called from DQ above.
ENCQ
SUM ; - Print the summary report.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
INS(IBOE,IBOED) ; - Is this an insured encounter?
; Input: IBOE = IEN of outpatient encounter in file #409.68
; IBOED = Outpatient encounter in file #409.68
; Output: 1 = Insured encounter
; 0 = Not an insured encounter
INSQ
SC(OE) ; - Is the encounter related to the veteran's SC condition?
; Input: OE = IEN of outpatient encounter in file #409.68
; Output: SC = 1 (Encounter related to SC condition)
; 0 (Encounter NOT related to SC condition)
DHLP ; - Display 'Sort by division' help.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a measure of the number and types of"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Outpatient Services that are provided in the Medical Center.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+12
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+14
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+15
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?IBC,IBH
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?+IBC,$$DASH($P(IBC,U,2)),!!
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"Enter RETURN to summarize all outpt. encounters without regard to"
  • Line Location: DHLP+1
Function Call: WRITE
  • Prompt: !,"division, or 'Yes' to select those divisions for which a separate"
  • Line Location: DHLP+2
Function Call: WRITE
  • Prompt: !,"summary report should be created."
  • Line Location: DHLP+3
Info |  Source |  Entry Points |  Interaction Calls