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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCA

Package: Integrated Billing

Routine: IBCA


Information

IBCA ;ALB/MRL - ADD NEW BILLING RECORD ;01 JUN 88 12:00

Source Information

Source file <IBCA.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 9 $$SWSTAT^IBBAPI  (CEOC1,DISPAD)^IBCA0  ^IBCA1  EN3^IBCA3  DISPDT^IBCNS  $$BILLRATE^IBCRU3  $$APPT^IBCU3  $$ICD10S^IBCU4  
$$ADM^IBCU64  
VA FileMan 4 ^%DT  C^%DTC  ^DIC  ^DIR  
Kernel 2 ^%ZIS  ($$FMADD,$$FMTE)^XLFDT  
Registration 2 DEM^VADPT  $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 4 IBCA0  IBCA1  IBCA2  IBCB  

Entry Points

Name Comments DBIA/ICR reference
CHKID
OP
IP
CEOC
CEOC1
CHKINQ
READ
NREC
Q1
Q
SET
LASTDAY ;find last day of last month
; -set x to default last date
LDQ

External References

Name Field # of Occurrence
^%DT OP
C^%DTC LASTDAY+2
^%ZIS IBCA+8
^DIC CHKID+3
^DIR READ
$$SWSTAT^IBBAPI IBCA+6
CEOC1^IBCA0 CEOC1
DISPAD^IBCA0 IP
^IBCA1 CEOC+8, CHKINQ
EN3^IBCA3 CEOC+3
DISPDT^IBCNS CEOC+2
$$BILLRATE^IBCRU3 CEOC
$$APPT^IBCU3 OP+5
$$ICD10S^IBCU4 LASTDAY+11
$$ADM^IBCU64 CEOC+4
DEM^VADPT CHKID
$$SITE^VASITE IBCA+11
$$FMADD^XLFDT LASTDAY+11
$$FMTE^XLFDT CEOC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CEOC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CEOC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CEOC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CEOC+3
Function Call: WRITE
  • Prompt: !,"Warning: Patient is an Inpatient on ",$$FMTE^XLFDT(IBIDS(.03),2),": ",$$FMTE^XLFDT(+X,2)," - "
  • Line Location: CEOC+4
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(+$P(X,U,2),2)
  • Condition for execution: +$P(X,U,2)
  • Line Location: CEOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CEOC+4
Function Call: WRITE
  • Prompt: !!,"Discharge bedsection of this PTF record is NOT billable!",!!!
  • Line Location: CEOC+5
Function Call: WRITE
  • Prompt: !?6,*7,"Sorry '^' not allowed!"
  • Line Location: READ+0
Routine Call
  • DIC
  • Line Location:
    • CHKID+3
Routine Call
  • DIR
  • Line Location:
    • READ
Routine Call
  • %ZIS
  • Line Location:
    • IBCA+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399.3 - [#399.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OP+6, IP+5, CEOC+6
^DGCR(399 - [#399] CEOC+8, CEOC+9
^DGCR(399.3 - [#399.3] CHKID+3
^DGPT - [#45] CEOC+5
^DIC(399 IBCA+13
^DIC(42.4 - [#42.4] CEOC+5
^DPT - [#2] IBCA+8
^IBE(350.9 - [#350.9] IBCA+9, IBCA+10, CEOC+1

Label References

Name Line Occurrences
CEOC OP+6
CHKINQ CEOC+10, CEOC+11
IP OP
LASTDAY CEOC+6
LDQ LASTDAY+4
NREC IBCA+8, IBCA+9, IBCA+11, IBCA+12, CHKID+2, CHKID+3, OP, OP+3, IP, IP+2
, CEOC+6, CEOC+7
Q1 IBCA+8
READ CHKID+2, CEOC+6, CEOC+7, READ
SET NREC

Naked Globals

Name Field # of Occurrence
^("S" CEOC+9
^(0 CEOC+5, CEOC+9
^(1 IBCA+9
^(70 CEOC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT OP*, CEOC+8!, Q!
%DT("A" OP*
%DT(0 OP*
D Q!
>> DFN IBCA+8, OP+5, CEOC+4, CEOC+8, CEOC+9
DGDIR0 CHKID*, CHKID+2, READ+2, Q!
DGDIRA CHKID*, CHKID+2, Q!
DGDIRB CHKID+1*, CHKID+2, Q!
DGX CEOC+6*, Q!, LASTDAY+9, LASTDAY+11
DIC CHKID+3*!, Q!
DIC("A" CHKID+3*
DIC("S" CHKID+3*
DIC(0 CHKID+3*
DIR CHKID+2!, CEOC+8!, Q!
DIR("A" CHKID+2*, CEOC+6*, CEOC+7*
DIR("B" CHKID+2*, OP+6*, IP+5*, CEOC+6*
DIR(0 CHKID+2*, CEOC+6*, CEOC+7*
DIROUT Q!
DIRUT READ+1, Q!
DLAYGO IBCA+13*, Q!
DT LASTDAY+2, LASTDAY+9
DTOUT Q!
DUOUT Q!
DUZ(0 IBCA+12, IBCA+13
I CEOC+9*, Q!
IB Q1!
IBCABRT IBCA+8*, IBCA+9*, IBCA+11*, IBCA+12*, OP+3*, IP+2*, NREC, Q!
IBCABRT(1 NREC, SET*, SET+1*, SET+2*, SET+3*, SET+4*, SET+5*
IBCOVEXT CEOC+2~*
IBDFN Q!
IBDSDT IP+4!*, Q!, LASTDAY+4, LASTDAY+7
IBDTIN CEOC+2~*
IBI CHKID+2*, CEOC+6*, CEOC+7*, READ+2, Q!
IBID0 Q!
IBIDS CEOC1, Q1!
IBIDS( CHKID+3*, OP, OP+6*, IP, IP+2, IP+5, CEOC*, CEOC+1*, CEOC+2, CEOC+3
, CEOC+4, CEOC+5, CEOC+8, CEOC+9*, CEOC+10, CEOC+11, READ+2*, LASTDAY+11
IBIDS(151 CEOC+6
IBIFN NREC!
IBJ Q!
IBNWBL IBCA+12*, Q!
IBQUIT IBCA+12*, CHKID+2, CEOC+3*, CEOC+6, CEOC+7, READ+1*, Q!
IBSET Q!
IBSWINFO IBCA+6~*, OP+3, IP+2
IBX Q!
IBYN NREC*, Q!
IOP IBCA+8*!
PRCASV Q!
PRCASV("SER" IBCA+10*
PRCASV("SITE" IBCA+11*
U IBCA+9, IBCA+10, CEOC+4, NREC
X OP+5*, CEOC+3*, CEOC+4*, CEOC+8*, CEOC+9, READ, Q!, LASTDAY+2, LASTDAY+9*, LASTDAY+11*
, LASTDAY+15
X1 Q!, LASTDAY+2*
X2 Q!, LASTDAY+2*
Y CHKID+3, OP, OP+3, OP+5, OP+6, IP+5*, CEOC+6, READ+2, Q!, LASTDAY+2*
, LASTDAY+3!, LASTDAY+4, LASTDAY+7*, LASTDAY+15*
Z LASTDAY+11~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All