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

Package: Integrated Billing

Routine: IBCA0


Information

IBCA0 ;ALB/AAS - ADD NEW BILLING RECORD-CONT. ;01 JUN 88 12:00

Source Information

Source file <IBCA0.m>

Entry Points

Name Comments DBIA/ICR reference
CEOC1
CHKINQ
IP
IP1
DISPAD ;display admissions
ENDDIS
NOPTF
HELPAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ARE YOU BILLING FOR A CONTINUING EPISODE OF CARE"
  • Line Location: CEOC1+0
Function Call: WRITE
  • Prompt: !!?4,"YES - If this bill is for continuing care which has already been partially",!?9,"billed for on another bill.",!?4,"NO - If this is the initial bill for an episode of care."
  • Line Location: CEOC1+1
Function Call: WRITE
  • Prompt: !!?4,"ARE YOU BILLING FOR AN UNDISPLAYED EPISODE OF CARE"
  • Line Location: IP+0
Function Call: WRITE
  • Prompt: !!?4,"YES - If this bill is for an episode of care at a Non-VA facility",!?4," for which no PTF record exists.",!?4,"NO - If for VA care or you just made a mistake."
  • Line Location: IP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: IP+2
Function Call: WRITE
  • Prompt: !!,"Enter a DISCHARGE DATE after the admission date and not greater than today!",!
  • Line Location: IP1+0
Function Call: WRITE
  • Prompt: !!,"Patient has no admissions on file."
  • Line Location: DISPAD+4
Function Call: WRITE
  • Prompt: !?4,$S($O(IBI(0))="":"THERE ARE NO INPATIENT EVENT (ADMISSION) DATES.",1:"Select INPATIENT EVENT (ADMISSION) DATE:")
  • Line Location: DISPAD+6
Function Call: WRITE
  • Prompt: !?8,I_" ",Y
  • Line Location: DISPAD+7
Function Call: WRITE
  • Prompt: ?40,I+1," ",Y
  • Line Location: DISPAD+7
Function Call: WRITE
  • Prompt: !?8,J_" ",Y
  • Line Location: DISPAD+8
Function Call: WRITE
  • Prompt: ?40,J+1," ",Y
  • Line Location: DISPAD+8
Function Call: READ
  • Variable: IBX
  • Timeout: DTIME
  • Line Location: DISPAD+9
Function Call: WRITE
  • Prompt: !?4,*7,"Warning, PTF record indicates all movements are for Service Connected Care.",*7
  • Line Location: ENDDIS+5
Function Call: WRITE
  • Prompt: !!?4,*7,"PTF Record for this Admission is Missing",!
  • Line Location: NOPTF+0
Function Call: WRITE
  • Prompt: !!?4,"Enter a number from 1 to ",IBCNT," to select the EVENT DATE. Inpatient",!?4,"admission dates are admissions for this VA Facility. Non-VA admissions",!?4,"are for Fee Basis admissions with associated PTF records."
  • Line Location: HELPAD+1
Function Call: WRITE
  • Prompt: !!?4,"Or you may enter a DATE in the past for which there is a Non-VA Admission",!?4,"without an associated PTF record",!
  • Line Location: HELPAD+2
Function Call: WRITE
  • Prompt: !!?4,"Enter a DATE in the past for which there is a Non-VA Admission",!?4,"without an associated PTF record",!
  • Line Location: HELPAD+4
Info |  Source |  Entry Points |  Interaction Calls