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

Package: Integrated Billing

Routine: IBCSC5


Information

IBCSC5 ;ALB/MJB - MCCR SCREEN 5 (OPT. EOC) ;27 MAY 88 10:15

Source Information

Source file <IBCSC5.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 7 (,$$DX,OCC)^IBCSC4  SET^IBCSC4D  $$PIN^IBCSC5B  (,H)^IBCSCU  ^IBCU6  CODMUL^IBCU7  EN4^IBCVA1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 (D,DT)^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCSC4  

Entry Points

Name Comments DBIA/ICR reference
EN
OCC
RX() ;prints RX REFILLS in external form, returns 0 if there are nonE
PD() ;prints prosthetic device in external form, retuns 0 if there are nonE
WRT ; -write out procedures codes on screen
OP
MORE

External References

Name Field # of Occurrence
D^DIQ WRT+4, WRT+5
DT^DIQ EN+8
^IBCSC4 EN
$$DX^IBCSC4 EN+11, EN+12, EN+13
OCC^IBCSC4 OCC, OCC+2
SET^IBCSC4D EN+10
$$PIN^IBCSC5B PD+5
^IBCSCU EN+4
H^IBCSCU EN+5
^IBCU6 EN+2
CODMUL^IBCU7 EN+1
EN4^IBCVA1 EN+7
$$FMTE^XLFDT PD+5, RX+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Event Date : "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: " Prin. Diag.: ",$S('$D(^DGCR(399,IBIFN,"C")):IBU,$P(^DGCR(399,IBIFN,"C"),U,10)'="":$P(^DGCR(399,IBIFN,"C"),U,10),1:IBU)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?4,"Other Diag.: ",$P(Y,U,4)_" - "_$P(Y,U,2)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !?4,"***There are more diagnoses associated with this bill.***"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: " Prin. Diag.: ",$S($D(^ICD9(+$P(IB("C"),U,14),0)):$P(^(0),U,3)_" - "_$P(^(0),U,1),$P(IB(0),U,19)=2:IBU,1:IBUN)
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !?4,"Other Diag.: ",$S($D(^ICD9($P(IB("C"),U,I),0)):$P(^(0),U,3)_" - "_$P(^(0),U,1),1:IBU)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: $X>67
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: Y_", "
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: IBU
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: " Cod. Method: ",$S($P(IB(0),U,9)="":IBUN,$P(IB(0),U,9)=9:"ICD-9-CM",$P(IB(0),U,9)=4:"CPT-4",1:"HCPCS")
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: !?4,"CPT Code : ",$P(^ICPT(IBCPT(I),0),U,2)," - ",$P(^(0),U),?55,"Date: "
  • Line Location: OP+4
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OP+7
Function Call: WRITE
  • Prompt: ?58,$P($G(^ICD9(Y,0)),U,1)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?58,"Date: ",Y
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !,?17,"*** There are more Pros. Items associated with this bill.***"
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: ?17,$E($$PIN^IBCSC5B(+IBN),1,35)," - ",$P(IBN,U,1),?65,$$FMTE^XLFDT(+IBZ)
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: ?17,$E($P(IBN,U,2),1,35)," - ",$P(IBN,U,1),?65,$$FMTE^XLFDT(+IBZ)
  • Line Location: PD+5
Function Call: WRITE
  • Prompt: !,?17,"*** There are more RX. Refills associated with this bill.***"
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: ?17,$P(IBN,U,1),?65,$$FMTE^XLFDT(+$P(IBZ,U,3))
  • Line Location: RX+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OP
^DGCR(399 - [#399] EN, EN+3, EN+4, OP, OP+1
^IBA(362.3 - [#362.3] WRT+4
^IBA(362.4 - [#362.4] RX+1, RX+2
^IBA(362.5 - [#362.5] PD+1, PD+2
^ICD9 - [#80] WRT+4
^PSDRUG - [#50] RX+4

Label References

Name Line Occurrences
$$RX OP+7
MORE WRT+1
WRT OP+3

Naked Globals

Name Field # of Occurrence
^( EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGOPV OP+1*
DGRVRCAL EN+2!
>> I EN+4*, EN+12*, OP*, MORE*, WRT+1*
>> IB( EN+4*
>> IB(0 EN+6, EN+8, EN+11, OP+2, WRT+4
IBASKCOD EN+1!
>> IBBT EN+6*
>> IBIFN EN, EN+3, EN+4, EN+10, OP, OP+1, PD+1, PD+2, RX+1, RX+2
IBN PD+1~, PD+5*, RX+1~, RX+4*
IBPOARR EN+10~
>> IBPROC OP+3
>> IBPROC( WRT+1, WRT+2, WRT+3, WRT+4, WRT+5
>> IBPTF EN+6*
>> IBSR EN+4*
>> IBSR1 EN+4*
>> IBU EN+11, OP+1
>> IBUN EN+11, OP+2, OP+7, OCC+1
>> IBV EN+4
>> IBV1 EN+4*
>> IBW EN+8*, EN+11*, OP*, OP+2*, OP+7*
>> IBWW EN+8, EN+11, OP, OP+2, OP+7
IBX PD+1~*, PD+2, RX+1~*, RX+2
IBY PD+1~, PD+2*, RX+1~, RX+2*
IBZ PD+1~, PD+2*, PD+5, RX+1~, RX+2*, RX+4
>> J WRT+1*, WRT+2, WRT+3, WRT+4, WRT+5
U EN+6, EN+8, EN+11, EN+12, OP+2, WRT+1, WRT+4, PD+5, RX+4
X WRT+1*, WRT+2, WRT+3, PD+1~*, PD+2, PD+3*, PD+5, PD+6, RX+1~*, RX+2
, RX+3*, RX+4, RX+5
>> Y EN+8*, EN+11*, EN+12*, EN+13*, OP*, OP+7*, WRT+4*, WRT+5*
>> Z EN+8*, EN+11*, OP*, OP+2*, OP+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All