Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 3 NREC^IBCA  EN4^IBCA3  SC1^IBCSC6  
VA FileMan 2 ^%DT  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCA  

Entry Points

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

External References

Name Field # of Occurrence
^%DT IP1, DISPAD+10
YN^DICN CEOC1, IP
NREC^IBCA CEOC1
EN4^IBCA3 CEOC1+2
SC1^IBCSC6 ENDDIS+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DISPAD+7, DISPAD+8
^DGCR(399.1 - [#399.1] IP+2, IP1+1
^DGPM - [#405] DISPAD+13
^DGPM("ATID1" DISPAD+2, DISPAD+12
^DGPT - [#45] DISPAD+14, ENDDIS+1, ENDDIS+2, NOPTF
^DGPT("AFEE" DISPAD+3, DISPAD+14

Label References

Name Line Occurrences
CEOC1 CEOC1+1, CEOC1+2
CHKINQ CEOC1
DISPAD DISPAD+10, DISPAD+13, DISPAD+14, DISPAD+15
ENDDIS DISPAD+9, DISPAD+11, DISPAD+13, DISPAD+14
HELPAD DISPAD+10, DISPAD+15
IP IP+1, DISPAD+11
IP1 IP1
NOPTF DISPAD+13, DISPAD+14

Naked Globals

Name Field # of Occurrence
^(0 DISPAD+13
^(70 DISPAD+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CEOC1*, CEOC1+1, IP*, IP+1, IP+2, ENDDIS+7!
%DT IP1*!, DISPAD+10*, ENDDIS+7!
%DT("A" IP1*
%DT(0 IP1*, DISPAD+10*
>> DFN DISPAD+2, DISPAD+3, DISPAD+12, DISPAD+14
DGPERCNT IP+2*, IP1, DISPAD+11, ENDDIS+7!
DT IP1
DTIME DISPAD+9
>> I DISPAD+2*, DISPAD+7*
IBCNT DISPAD+1*, DISPAD+2*, DISPAD+3*, DISPAD+4, DISPAD+9, DISPAD+10, ENDDIS+7!, HELPAD, HELPAD+1
IBDSDT DISPAD+1!, DISPAD+11*, DISPAD+13*, DISPAD+14*
IBI DISPAD+1!*, DISPAD+2*, ENDDIS+7!
IBI( DISPAD+2*, DISPAD+7, DISPAD+12
IBI(0 DISPAD+6
>> IBI1 DISPAD+2*
>> IBIDS( CEOC1+2, IP1+1*, DISPAD+1!, DISPAD+11*, DISPAD+12*, DISPAD+13*, DISPAD+14*, ENDDIS, ENDDIS+1, ENDDIS+2*
, ENDDIS+3, NOPTF!
>> IBIDS(158 DISPAD+11*
>> IBIDS(159 DISPAD+11*
>> IBIDS(162 IP+2*, IP1+1*
IBJ DISPAD+1!*, DISPAD+3*, ENDDIS+7!
IBJ( DISPAD+3*, DISPAD+8, DISPAD+14
IBJ(0 DISPAD+8
>> IBM ENDDIS+4, ENDDIS+5
>> IBSCM ENDDIS+4, ENDDIS+5
IBX IP1, DISPAD+9*, DISPAD+10*, DISPAD+11, DISPAD+12, DISPAD+14, ENDDIS+7!
>> J DISPAD+3*, DISPAD+8*
PTF ENDDIS+1~, ENDDIS+3*
U ENDDIS+2
>> X IP1, DISPAD+10*
>> Y IP1, IP1+1, DISPAD+7*, DISPAD+8*, DISPAD+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All