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

Package: Integrated Billing

Routine: IBJDI4


Information

IBJDI4 ;ALB/CPM - PATIENTS WITH UNIDENTIFIED INSURANCE ;17-DEC-96

Source Information

Source file <IBJDI4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
SEL
RPTS ; - Select line item report(s).
RMK ; - Select print/not print remarks.
FMT ; - Select output format.
DEV ; - Select a device.
DQ ; - Tasked entry point.
PROC
ENQ
ENQ1
HLP1 ; - 'Sort by division' prompt.
HLP2 ; - 'Print 1-MAIN REPORT'... prompt.
TITLE(X) ; - Print report title.
TITLE1 ;;Patients with Unidentified Insurance
TYPE(INS) ; - Find type of insurance.
; Input: INS=Patient's insurance info in file #2 (.3121)
; Output: Y=1-HMO, 2-Medicare, 3-Medigap, 4-Indemnity, or
; 0-None of the above
TYP1
TYPQ
OUT() ; Prompt to allow users to select output format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides the number of patients who have been treated,"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"but not identified as having or not having insurance.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+12
Function Call: WRITE
  • Prompt: !!,"Print 1-MAIN REPORT or 2-LINE ITEM REPORTS: 1// "
  • Line Location: SEL+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: " ",$S(X=2:"LINE ITEM REPORTS",1:"MAIN REPORT")
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RMK+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report."
  • Line Location: FMT+4
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now. To avoid undesired wrapping of the data saved to the file, please enter '0;256;99999' at the DEVICE: prompt"
  • Line Location: FMT+6
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,"Select: '<CR>' to print the trend report without regard to"
  • Line Location: HLP1+1
Function Call: WRITE
  • Prompt: !?15,"division"
  • Line Location: HLP1+2
Function Call: WRITE
  • Prompt: !?11,"'Y' to select those divisions for which a separate"
  • Line Location: HLP1+3
Function Call: WRITE
  • Prompt: !?15,"trend report should be created",!?11,"'^' to quit"
  • Line Location: HLP1+4
Function Call: WRITE
  • Prompt: !!,"Select: '1' to print the Patients w/Unidentified Insurance Report"
  • Line Location: HLP2+1
Function Call: WRITE
  • Prompt: !?8,"'2' to print up to nine specific reports based on the line items"
  • Line Location: HLP2+2
Function Call: WRITE
  • Prompt: !?12,"of the summary report",!?8,"'^' to quit"
  • Line Location: HLP2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Info |  Source |  Entry Points |  Interaction Calls