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

Package: Integrated Billing

Routine: IBCB


Information

IBCB ;ALB/MRL - BILLING BEGINNING POINT/SELECT BILL OR PATIENT ;01 JUN 88 12:00

Source Information

Source file <IBCB.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Integrated Billing 5 ^IBCA  ^IBCB1  (NOPTF,NOPTF1)^IBCB2  ^IBCSC1  ^IBCSCU  
VA Fileman 2 ^DIC  YN^DICN  
HINQ 1 EN^DVBHQZ4  
Kernel 1 HOME^%ZIS  
Registration 1 DIS^DGMTU  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IB EDIT BILLING INFO  IBCF13  IBCMENU  

Entry Points

Name Comments DBIA/ICR reference
DATE1
HINQ
EN ;
SET2
HINQ1
DATE
WRLINE
REV ;S IBAC=2,IBV=0 D EN G Q:'IBAC1,REV
AUT
ST
Q ;
MT ;I $D(DFN) D ^DGMT1 K DGMTLL
SET
ST1
WDATE
ASK
ST2
EDI
GEN
CT

External References

Name Field # of Occurrence
HOME^%ZIS EN+1
DIS^DGMTU MT+1
^DIC EN+8, EN+12
YN^DICN ASK+1
EN^DVBHQZ4 HINQ1
^IBCA ASK+4
^IBCB1 ST2
NOPTF^IBCB2 ST+2
NOPTF1^IBCB2 ST+2
^IBCSC1 ST1
^IBCSCU ST1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Enter BILL NUMBER or PATIENT NAME: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: IBX
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?17,"*** ELIGIBILITY NOT VERIFIED ***"
  • Line Location: HINQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HINQ1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HINQ1+1
Function Call: WRITE
  • Prompt: !!?4,"YES - To establish a new billing record in the billing file.",!?4,"NO - To discontinue this process immediately."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"No ",$S($D(^DGCR(399,"C",DFN)):"UNCANCELLED ",1:""),"billing records on file for this patient."
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: Y,?25,$P(^DGCR(399,+$P(IBDATA,"^",2),0),"^",1),?34,$P(IBDATA,"^",3),?49,$P(IBDATA,"^",4),?71,$P(IBDATA,"^",5)
  • Line Location: WRLINE+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "PRESS <RETURN> TO CONTINUE, OR",!
  • Condition for execution: K<CT
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": "
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: "CHOOSE 1",$S(CT=1:"",1:"-"_K),": "
  • Line Location: WDATE+0
Function Call: WRITE
  • Prompt: !!,"NOT A VALID CHOICE!!",*7
  • Line Location: WDATE+1
Function Call: WRITE
  • Prompt: !,"No further processing of this record permitted at this time.",!,"Record locked by another user. Try again later."
  • Line Location: ST+0
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIC
  • Line Location:
    • EN+8
    • EN+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" HINQ1
^DD("DD" WRLINE
^DD(399 SET2+1
^DGCR(399 - [#399] EN+8, DATE, DATE+1, WRLINE, DATE1, SET, SET2, ST
^DGCR(399.3 - [#399.3] SET2+1
^DISV( ST+1*
^DPT - [#2] HINQ, ASK+1
^IBE(350.9 - [#350.9] HINQ1, SET2+2
^IBE(353 - [#353] SET2+2
^UTILITY($J EN+6!, DATE+1, DATE+2, CT, CT+1, CT+2!, WRLINE, DATE1*, WDATE+1, WDATE+2
, SET2+1*, SET2+2*, ST1!

Label References

Name Line Occurrences
ASK EN+9, EN+10, ASK+2
AUT AUT
CT CT+1
DATE EN+10
DATE1 DATE
EDI EDI
EN EN+8, EN+9, EN+10, EN+12, EN+13, EDI, AUT, GEN
GEN GEN
HINQ EN+8, EN+12
HINQ1 HINQ
Q ST1, EDI, AUT, GEN
SET DATE+2
SET2 SET
ST EN+10, EN+12
ST2 ST+3
WDATE CT+1, WDATE, WDATE+1
WRLINE CT

Naked Globals

Name Field # of Occurrence
^( HINQ
^("S" DATE1
^(0 DATE1, SET2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, ASK+3
CT DATE+2*, CT, CT+2!, WDATE, SET*, SET2+1, SET2+2
CT1 DATE+2*, CT, CT+1*, CT+2!
CT2 CT*, CT+2!
DA ASK+4!, DATE*, DATE1
DFN EN+6!, EN+8*, EN+9, EN+10, EN+12*, HINQ, MT+1, ASK+1, DATE, DATE+1
, DATE1
DIC EN+6!, EN+8*, EN+11*
DIC("S" EN+11*
DIC(0 EN+6*
DINUM ASK+4!
DTIME EN+6, WDATE
DUZ ST+1
>> G CT*
>> I DATE*
>> IB CT+1, WDATE+2*
IBAC EN+1, EN+9, EN+11, ASK, DATE+1, DATE1, ST+3, Q+1!, EDI*, AUT*
, GEN*
>> IBAC1 EN+6*, EN+7*, ST+2, EDI, AUT, GEN
>> IBDATA WRLINE*
IBIFN EN+6!, EN+9, EN+10, EN+12*, ASK!, ASK+3!, ASK+4!, WDATE+2*, ST, ST+1
, Q+1!
>> IBND0 SET2*, SET2+1, SET2+2
>> IBNEW ASK+4*
>> IBT DATE+2*, DATE1*, SET2+1
IBV EN+6*, SET, Q+1!, EDI*, AUT*, GEN*
>> IBX EN+6*, EN+8, EN+11
>> IBYN ASK+4*
>> J DATE+2*
>> J1 DATE+2*
K CT*, CT+1, CT+2!, WRLINE, WDATE, WDATE+1
U DATE1, SET2+2
X EN+8*, EN+9, EN+11*, HINQ1*!, DATE+2*, CT+1*, WDATE*, WDATE+1, WDATE+2, SET
, SET2, SET2+1
Y EN+8, EN+12, HINQ1+2!, ASK+4!, WRLINE*
Y(0 EN+12
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