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

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 9 ^IBCA  ^IBCB1  (NOPTF,NOPTF1,VIEW)^IBCB2  ($$COBN,$$FT)^IBCEF  $$LAST364^IBCEF4  ^IBCSC1  ^IBCSCU  $$BCHGTYPE^IBCU  
$$EXPAND^IBTRE  
VA FileMan 4 ^DIC  YN^DICN  RECALL^DILFD  ^DIR  
HINQ 1 EN^DVBHQZ4  
Kernel 1 HOME^%ZIS  
Registration 1 DIS^DGMTU  

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

Package Total Caller Graph
Integrated Billing 6 IB EDIT BILLING INFO  IBCCCB  IBCE VIEW PENDING BILL  IBCEM3  IBCF13  IBCMENU  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HINQ
MT ;I $D(DFN) D ^DGMT1 K DGMTLL
HINQ1
ASK
DATE
CT
WRLINE
DATE1
WDATE
KEYOK(IBIFN,DUZ) ; Check if COB bill, does user have key
; IBIFN = ien of bill (file 399)
SET
SET2
ST ; Do not use the variable IBH when calling this entry point
ST1
ST2
Q ;
EDI
REV
AUT
GEN
VIEW

External References

Name Field # of Occurrence
HOME^%ZIS EN+1
DIS^DGMTU MT+1
^DIC EN+10, EN+17
YN^DICN ASK+1
RECALL^DILFD ST+2
^DIR KEYOK+7
EN^DVBHQZ4 HINQ1
^IBCA ASK+4
^IBCB1 ST2+1
NOPTF^IBCB2 ST+3
NOPTF1^IBCB2 ST+3
VIEW^IBCB2 ST1+4, ST1+11
$$COBN^IBCEF KEYOK+4
$$FT^IBCEF SET2+3
$$LAST364^IBCEF4 ST1+8
^IBCSC1 ST1+12
^IBCSCU ST1+12
$$BCHGTYPE^IBCU SET2+4
$$EXPAND^IBTRE ST1+10

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter BILL NUMBER or PATIENT NAME: "
  • Variable: IBX
  • Timeout: DTIME
  • 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: !!,"DO YOU WANT TO ESTABLISH A NEW BILLING RECORD FOR '",$P(^DPT(DFN,0),"^",1),"'"
  • Line Location: ASK+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: !
  • Line Location: CT+0
Function Call: WRITE
  • Prompt: !?2,K,?6
  • Line Location: WRLINE+1
Function Call: WRITE
  • Prompt: Y,?27,$P(IBX,"^",1),?35,$S($P(IBX,U,21)="S":"s",$P(IBX,U,21)="T":"t",1:""),?38,$P(IBDATA,"^",3),?59,$E($P(IBDATA,"^",4),1,10),?70,$E($P(IBDATA,"^",5),1,10)
  • Line Location: WRLINE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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: !
  • Line Location: KEYOK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYOK+7
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+1
Function Call: WRITE
  • Prompt: !,"This bill is requesting an MRA - can only view bill data"
  • Line Location: ST1+3
Function Call: WRITE
  • Prompt: !,"This bill has a transmit status of ",$$EXPAND^IBTRE(364,.03,Z)," - can only view bill data"
  • Line Location: ST1+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIC
  • Line Location:
    • EN+10
    • EN+17
Routine Call
  • DIR
  • Line Location:
    • KEYOK+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK EN+11, EN+13, ASK+2
AUT AUT
CT CT+1
DATE EN+13
DATE1 DATE
EDI EDI
EN EN+10, EN+11, EN+12, EN+17, EN+19, EN+20, EDI, AUT, GEN, VIEW
GEN GEN
HINQ EN+10, EN+19
HINQ1 HINQ
Q ST1+2, ST1+5, ST1+12, EDI, REV, AUT, GEN, VIEW
SET DATE+2
SET2 SET
ST EN+14, EN+19
ST1 ST2+2
ST2 ST+4
VIEW VIEW
WDATE CT+1, WDATE, WDATE+1
WRLINE CT

Naked Globals

Name Field # of Occurrence
^( HINQ
^("S" DATE1
^(0 DATE1

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+4, SET2+5
CT1 DATE+2*, CT, CT+1*, CT+2!
CT2 CT*, CT+2!
DA ASK+4!, DATE*, DATE1
DFN EN+6!, EN+10*, EN+11, EN+12, EN+17*, HINQ, MT+1, ASK+1, DATE, DATE+1
, DATE1
DIC EN+6!, EN+10*, EN+16*
DIC("S" EN+15*
DIC(0 EN+6*
DINUM ASK+4!
DIR KEYOK+3~, KEYOK+7!
DIR("A" KEYOK+7*
DIR("B" KEYOK+7*
DIR(0 KEYOK+7*
DPTNOFZY EN+9~*
DTIME EN+6, WDATE
DUZ KEYOK~, ST+2
>> G CT*
>> I DATE*
>> IB CT+1, WDATE+2*
IBAC EN+1, EN+11, EN+15, ASK, DATE+1, DATE1, ST+4, ST1+5, Q+1!, EDI*
, AUT*, GEN*, VIEW*
>> IBAC1 EN+6*, EN+8*, ST+3, EDI, AUT, GEN, VIEW
IBCIREDT ST2+2, ST2+3!
IBCOB KEYOK+3~, KEYOK+4*, KEYOK+5, KEYOK+6*, KEYOK+7
>> IBDATA WRLINE*, WRLINE+1
IBFTP SET2+1~, SET2+3*, SET2+5
IBIFN EN+6!, EN+11, EN+13, EN+14, EN+17*, ASK!, ASK+3!, ASK+4!, WDATE+2*, KEYOK~
, KEYOK+4, ST+1, ST+2, ST1+2, ST1+6, ST1+8, Q+1!
>> IBND0 SET2*, SET2+4, SET2+5
>> IBNEW ASK+4*
IBOK KEYOK+3~, KEYOK+4*, KEYOK+8*, KEYOK+9
IBPOPOUT EN+6!, ST1*, ST1+12, ST2!
>> IBT DATE+2*, DATE1*, SET2+4
IBTXPRT ST2!
IBV EN+6*, SET, ST1+4*, ST1+11*, Q+1!, EDI*, AUT*, GEN*, VIEW*
IBX EN+6*, EN+10, EN+16, WRLINE~*, WRLINE+1
>> IBYN ASK+4*
>> J DATE+2*
>> J1 DATE+2*
K CT*, CT+1, CT+2!, WRLINE, WRLINE+1, WDATE, WDATE+1
U WRLINE+1, DATE1, KEYOK+6, SET2+5, ST1+2, ST1+6, ST1+8
X EN+10*, EN+11, EN+16*, HINQ1*!, DATE+2*, CT+1*, WDATE*, WDATE+1, WDATE+2, KEYOK+3~
, SET, SET2, SET2+3, SET2+4
Y EN+10, EN+17, HINQ1+2!, ASK+4!, WRLINE+1*, KEYOK+3~, KEYOK+8
Y(0 EN+17
Z ST1+7~, ST1+8*, ST1+9, ST1+10
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