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

Package: Integrated Billing

Routine: IBCNQ


Information

IBCNQ ;ALB/MJB - MCCR PATIENT BILLING INQUIRY ;13 JUN 88 13:52

Source Information

Source file <IBCNQ.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 5 (NOPTF,NOPTF1)^IBCB2  EN^IBCCR  $$INPAT^IBCEF  $$PT^IBEFUNC  ^IBOLK1  
VA FileMan 4 (COMMA,NOW)^%DTC  ^DIC  D^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Accounts Receivable 1 ($$BN,$$STA,$$TPR)^PRCAFN  

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 IBCB2  IBCMENU  IBCNQ1  IBOLK  

Entry Points

Name Comments DBIA/ICR reference
ASKPAT
VIEW ;
DISP ; The variable IBAC must be defined as input to this sub-routine.
DISPQ
DISP1
Q
RETN
HDR
HDR1
OPDATE ; List Outpatient Visit Dates.
PAUSE

External References

Name Field # of Occurrence
COMMA^%DTC VIEW+14, VIEW+15, VIEW+16
NOW^%DTC VIEW+5
HOME^%ZIS IBCNQ+6
^DIC ASKPAT
D^DIQ VIEW+5, VIEW+12, VIEW+18, DISP1, RETN, OPDATE+5
^DIR PAUSE+2
NOPTF^IBCB2 VIEW+21
NOPTF1^IBCB2 VIEW+21
EN^IBCCR DISP+10
$$INPAT^IBCEF VIEW+12
$$PT^IBEFUNC VIEW+5
^IBOLK1 VIEW+22
$$BN^PRCAFN VIEW+3
$$STA^PRCAFN VIEW+17
$$TPR^PRCAFN VIEW+16
$$FMTE^XLFDT DISP+18, DISP+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKPAT+0
Function Call: WRITE
  • Prompt: !,"Bill Status",?15,": ",$S(IBSTAT=1:"ENTERED/NOT REVIEWED",IBSTAT=2:"MRA REQUESTED",IBSTAT=3:"AUTHORIZED",IBSTAT=4:"PRINTED/TRANSMITTED",IBSTAT=7:"CANCELLED",1:IBUN)," - RECORD IS ",$S(IBSTAT=1:"",1:"UN"),"EDITABLE"
  • Line Location: VIEW+8
Function Call: WRITE
  • Prompt: !!,"Admission Date : ",Y
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!,"Charges",?15,": "
  • Line Location: VIEW+14
Function Call: WRITE
  • Prompt: $S(X]"":X,1:IBUN)
  • Line Location: VIEW+14
Function Call: WRITE
  • Prompt: !,"LESS Offset",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: X," [",$P(IB("U1"),U,3),"]",!,"Bill Total",?15,": "
  • Line Location: VIEW+15
Function Call: WRITE
  • Prompt: !,"Amount Paid",?15,": ",X
  • Line Location: VIEW+16
Function Call: WRITE
  • Prompt: !,"AR Status",?15,": ",$P(X,"^",2)
  • Line Location: VIEW+17
Function Call: WRITE
  • Prompt: !!,"Statement From",?15,": ",Y
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !,"Statement To",?15,": ",Y,!
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !!,"Statement From",?15,": ",IBUN,!,"Statement To",?15,": ",IBUN,!
  • Line Location: VIEW+19
Function Call: WRITE
  • Prompt: !,"Past actions of this billing record unspecified."
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"Copied"
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: ?15,": ",$$FMTE^XLFDT($P(IBX,U,1),"1Z")_" by "_$P(IBX,U,3)
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"Copied To",?15,": ",$P(IBX,U,2)
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !?TS1,"Copied",?TS2,": "
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(IBX,U,1),"1Z")_" by "_$P(IBX,U,3)
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !?TS1,"Copied From",?TS2,": ",$P(IBX,U,2)
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !?TS1,"Reason Copied",?TS2,": ",$P(IBX,U,4)
  • Line Location: DISP+32
Function Call: WRITE
  • Prompt: !,"Returned to AR : "
  • Line Location: DISP+36
Function Call: WRITE
  • Prompt: Y,?28," by "
  • Line Location: RETN+0
Function Call: WRITE
  • Prompt: $P(^VA(200,IBN,0),"^")
  • Line Location: RETN+0
Function Call: WRITE
  • Prompt: $E($P(IBPT,"^"),1,20)," ",$P(IBPT,"^",2),?36,IBBNO,?51,IBNOW,?72,"PAGE: ",IBPAGE,!,L
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !!,"OP Visit Dates :"
  • Line Location: OPDATE+2
Function Call: WRITE
  • Prompt: ?($S(I#4:I#4,1:4)*14+3),Y
  • Line Location: OPDATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIC
  • Line Location:
    • ASKPAT
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • IBCNQ+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] VIEW+2, DISP+36, RETN, OPDATE+1, OPDATE+3
^DGCR(399.3 - [#399.3] VIEW+9
^IBE(350.9 - [#350.9] VIEW+10
^IBE(353 - [#353] VIEW+10
^VA(200 - [#200] DISP1, RETN

Label References

Name Line Occurrences
ASKPAT VIEW+23
DISP VIEW+20
DISP1 DISP+5
DISPQ DISP+1, DISP+3
HDR VIEW+21, DISP+5, DISP+36
HDR1 VIEW+5
OPDATE VIEW+13
PAUSE VIEW+22, HDR
Q ASKPAT, VIEW+20, VIEW+21, VIEW+23
RETN DISP+36

Naked Globals

Name Field # of Occurrence
^(0 VIEW+10, DISP1, RETN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VIEW+5
DFN VIEW+3*, VIEW+5, Q!
DIC ASKPAT*, Q!
DIC("A" ASKPAT*
DIC(0 ASKPAT*
DIR PAUSE+2!
DIR(0 PAUSE+2*
DIRUT PAUSE+2!
DTOUT PAUSE+2!
DUOUT PAUSE+2!
>> I VIEW+2*, DISP+5*, DISP+36*, DISP1, OPDATE+3*, OPDATE+4, OPDATE+5, PAUSE+1*
IB DISP+36*, Q!, RETN
IB( VIEW+2*
IB("S" VIEW+11, DISP+3, DISP+5, DISP+13, DISP1
IB("U" VIEW+18, VIEW+19
IB("U1" VIEW+14, VIEW+15
IB(0 VIEW+3, VIEW+9, VIEW+10, VIEW+12
IBAC ASKPAT+2*, VIEW+20, VIEW+21, VIEW+22, DISP+1, DISP+5, DISP+36, Q!
IBAC1 VIEW+21, Q!
IBBCH DISP+8~, DISP+24*, DISP+25*, DISP+26
IBBNO VIEW+3*, Q!, HDR1+3
IBCCR DISP+8~, DISP+10
IBCURR DISP+8~, DISP+13*, DISP+14, DISP+24
>> IBFULL VIEW+22
IBIFN ASKPAT+2*, VIEW+2, VIEW+3, VIEW+12, VIEW+16, VIEW+17, DISP+10, DISP+13, DISP+36, Q!
, RETN, OPDATE+1, OPDATE+3
>> IBIL VIEW+3
IBINDENT DISP+8~, DISP+9*, DISP+20*, DISP+27, DISP+33*
IBN DISP1*, Q!, RETN*
IBNEXT DISP+8~, DISP+14*, DISP+15, DISP+16
IBNOW VIEW+5*, Q!, HDR1+3
IBOPD Q!, OPDATE+2*, OPDATE+3*, OPDATE+5
IBPAGE VIEW+3*, Q!, HDR1*, HDR1+1, HDR1+3
IBPT VIEW+5*, Q!, HDR1+3
IBQUIT ASKPAT+2*, VIEW+20, VIEW+21, VIEW+22, VIEW+23, DISP+5, DISP+36, Q!, HDR, PAUSE+2*
IBSTAT VIEW+3*, VIEW+8, VIEW+11, VIEW+21, Q!
IBU Q!
IBUK VIEW+7*, DISP+2*, DISP1, Q!
IBUN VIEW+7*, VIEW+8, VIEW+9, VIEW+10, VIEW+11, VIEW+14, VIEW+19, DISP+2*, Q!
IBX DISP+4*, DISP+16~*, DISP+18, DISP+19, DISP+26~*, DISP+30, DISP+31, DISP+32, DISP1, Q!
IOF HDR1+1
IOSL VIEW+21, DISP+5, DISP+36, PAUSE+1
IOST HDR1+1, PAUSE
L HDR1*, HDR1+3, HDR1+4!
TS1 DISP+26~, DISP+27*, DISP+28*, DISP+29, DISP+31, DISP+32
TS2 DISP+26~, DISP+27*, DISP+28*, DISP+29, DISP+31, DISP+32
U VIEW+14, VIEW+15, VIEW+18, VIEW+19, DISP+5, DISP+13, DISP+18, DISP+19, DISP+30, DISP+31
, DISP+32, DISP1
X ASKPAT, VIEW+14*, VIEW+15*, VIEW+16*, VIEW+17*, Q!
X2 VIEW+14*, VIEW+15*, VIEW+16*, Q!
Y ASKPAT+2, VIEW+5*, VIEW+12*, VIEW+18*, DISP1*, Q!, RETN*, OPDATE+5*
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