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

Package: Integrated Billing

Routine: IBCSC4


Information

IBCSC4 ;ALB/MJB - MCCR SCREEN 4 (INPT. EOC) ;27 MAY 88 10:17

Source Information

Source file <IBCSC4.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 15 ($$BDATE,$$ICD9)^IBACSV  ($$FT,$$INPAT)^IBCEF  $$PRCD^IBCEF1  $$BILLCPT^IBCRU4  DX^IBCSC4A  Q^IBCSC4B  SET^IBCSC4D  ($$PD,EN,WRT)^IBCSC5  
^IBCSCP  (,H)^IBCSCU  ^IBCU6  CODMUL^IBCU7  ASK^IBCU7A  (OCC,VC)^IBCVA1  $$WNRBILL^IBEFUNC  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 $$EXTERNAL^DILFD  

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

Package Total Caller Graph
Integrated Billing 2 IBCSC5  IBCVA1  

Entry Points

Name Comments DBIA/ICR reference
EN
OCC ;
OCC1
INP
SET ;S ^DD(399.0304,0,"ID","WRITE")="N X S X=^(0) W "" "",$E($P($G(@(U_$P($P(X,U),"";"",2)_+X_"",0)"")),U,$S($P(X,U,1)[""CPT"":2,1:4)),1,30)"
DX(ORDER,IBDATE) ; Get next diagnosis data
OT ; print Other Care (SNF) multiple
DXREQ(IBIFN) ; Is the principle diagnosis code required or not?
; Function returns true (1) if DX is required for this bill, otherwise 0
DXREQX ;

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD EN+19
$$BDATE^IBACSV EN+30
$$ICD9^IBACSV DX+4
$$FT^IBCEF EN+3, EN+31, OCC+8, OCC+15, DXREQ+3
$$INPAT^IBCEF EN+31
$$PRCD^IBCEF1 OCC1
$$BILLCPT^IBCRU4 EN+1
DX^IBCSC4A EN+8
Q^IBCSC4B OCC+8, OCC+18
SET^IBCSC4D EN+29
$$PD^IBCSC5 OCC+2
EN^IBCSC5 EN
WRT^IBCSC5 EN+40
^IBCSCP OCC+8, OCC+18
^IBCSCU EN+3
H^IBCSCU EN+5
^IBCU6 EN+2
CODMUL^IBCU7 EN+1
ASK^IBCU7A EN+1
OCC^IBCVA1 EN+8
VC^IBCVA1 OCC+16
$$WNRBILL^IBEFUNC DXREQ+5
$$FMTE^XLFDT EN+12, OT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Admission : "
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?4,"Source : "
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: I
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: ?58,"Type: ",ATEX
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: " Discharge : "
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:IBU)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !?4,"Status : ",$S($P(IB("U"),U,12)]""&($D(^DGCR(399.1,(+$P(IB("U"),"^",12)),0))):$P(^(0),"^",1),1:IBU)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !?4,"***There are more diagnoses associated with this bill.***"
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: " Cod. Method: ",$S(DGPCM="":IBUN,DGPCM=9:"ICD",DGPCM=4:"CPT-4",1:"HCPCS")
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+2
Function Call: WRITE
  • Prompt: " Occ. Code : "
  • Line Location: OCC+4
Function Call: WRITE
  • Prompt: !?4,"Occ. Code : ",$E(IBOCN(I),1,27)
  • Condition for execution: I>1
  • Line Location: OCC+4
Function Call: WRITE
  • Prompt: $E(IBOCN(I),1,27)
  • Condition for execution: I=1
  • Line Location: OCC+4
Function Call: WRITE
  • Prompt: ?55,Y
  • Line Location: OCC+4
Function Call: WRITE
  • Prompt: ?55,Y
  • Line Location: OCC+4
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+5
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+6
Function Call: WRITE
  • Prompt: " Cond. Code : "
  • Line Location: OCC+10
Function Call: WRITE
  • Prompt: !?4,"Cond. Code : ",IBCCN(I)
  • Condition for execution: I>1
  • Line Location: OCC+10
Function Call: WRITE
  • Prompt: IBCCN(I)
  • Condition for execution: I=1
  • Line Location: OCC+10
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+11
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+12
Function Call: WRITE
  • Prompt: " Value Code : "
  • Line Location: OCC+14
Function Call: WRITE
  • Prompt: !,?3," Value Code : "
  • Condition for execution: J>1
  • Line Location: OCC+16
Function Call: WRITE
  • Prompt: ?17,$E($P(IBVC(I),U,2),1,40),?58,$P(IBVC(I),U,3)
  • Line Location: OCC+16
Function Call: WRITE
  • Prompt: $P(^DGCR(399,IBIFN,"CP",I,0),"^",3)_" - "_$P($$PRCD^IBCEF1($P(^DGCR(399,IBIFN,"CP",I,0),U)),U),?55,"Date: ",Y
  • Line Location: OCC1+0
Function Call: WRITE
  • Prompt: !,?4,"SNF Care : UNSPECIFIED [NOT REQUIRED]"
  • Line Location: OT+1
Function Call: WRITE
  • Prompt: !,?4,IBN," : ",$$FMTE^XLFDT(+$P(IBY,U,2))," - ",$$FMTE^XLFDT(+$P(IBY,U,3))
  • Line Location: OT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+26, OCC+4
^DD(399 EN+14
^DGCR(399 - [#399] ENOCC1INPINP+2, OT+1, OT+2, OT+3
^DGCR(399.1 - [#399.1] EN+27, OT+4
^DGPT - [#45] INP+1

Label References

Name Line Occurrences
$$DX EN+32, EN+34, EN+38
$$DXREQ EN+33
@( EN+5
DXREQX DXREQ+4, DXREQ+5
INP EN+6
OT EN+24

Naked Globals

Name Field # of Occurrence
^( INPINP+1, INP+2
^(0 EN+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATEX EN+17~, EN+18*, EN+19*, EN+20*, EN+21*, EN+22
ATIN EN+17~, EN+18*, EN+19, EN+20
>> DGPCM EN+39*
>> DGPT( INP+1*
>> DGPT(0 EN+8, EN+9, EN+11, INP+3
>> DGPT(70 INP+3, INP+4
DGRVRCAL EN+1*, EN+2!
>> I EN+5*, EN+11*, EN+12, EN+14*, EN+34*, OCC+4*, OCC+10*, OCC+16*, OCC1, INP*
INP+1*, INP+2*
>> IB( INP*, INP+2*
>> IB("U" EN+10, EN+13, EN+14, EN+18, EN+27, INP+3, INP+4
>> IB(0 EN+7, EN+39, OCC+1, OCC+3, OCC+9, OCC+13, INP+1, INP+3
IBASKCOD EN+1!
>> IBBT EN+7*
>> IBCC OCC+11, OCC+12
>> IBCC( OCC+10
>> IBCCN( OCC+10
IBDATE EN+28~, EN+30*, EN+32, EN+34, EN+38, DX~, DX+4
IBFT DXREQ+2~, DXREQ+3*, DXREQ+4, DXREQ+5
IBIFN ENEN+1, EN+3, EN+29, EN+30, EN+31, EN+33, OCC+8, OCC+15, OCC1
INPINP+2, OT+1, OT+2, OT+3, DXREQ~, DXREQ+3, DXREQ+5
>> IBIP EN+11, EN+26, INP+3*, INP+4*
IBN OT+1~, OT+4*, OT+5
>> IBO OCC+5, OCC+6
>> IBO( OCC+4
>> IBOCD( OCC+4
>> IBOCD2( OCC+4
>> IBOCN( OCC+4
IBPOARR EN+28~, EN+29
IBPOARR( EN+32, EN+35, DX+3, DX+4
>> IBPROC EN+40
>> IBPTF INP+1*, INP+3
>> IBSR EN+3*
>> IBSR1 EN+3*
>> IBU EN+13, EN+21, EN+26, EN+27, EN+33
>> IBUC EN+3*
>> IBUN EN+33, EN+39, OCC+2, OCC+5, OCC+6, OCC+11, OCC+12, OCC+17
>> IBV EN+4
>> IBV1 EN+3*, EN+4*
IBVC OCC+14*, OCC+16, OCC+17!
IBVC( OCC+16
>> IBW EN+32*, EN+39*, OCC+2*
>> IBWW EN+11, EN+25, EN+32, EN+39, OCC+2, OCC+3, OCC+9, OCC+14
IBX DX+1~, DX+2*, DX+4*, DX+5, OT+1~, OT+2*, OT+3
IBY OT+1~, OT+3*, OT+4, OT+5
>> J EN+10*, EN+11, OCC+16*
NEEDPOA EN+28~, EN+31*, EN+32, EN+35
ORDER DX~, DX+3*, DX+4
POA EN+28~, EN+32*, EN+33, EN+35*, EN+36
REQ DXREQ+2~, DXREQ+3*, DXREQ+4*, DXREQ+5*, DXREQX+1
U EN+9, EN+10, EN+11, EN+13, EN+14, EN+18, EN+26, EN+27, EN+32, EN+33
EN+35, EN+36, EN+39, OCC+1, OCC+3, OCC+9, OCC+13, OCC+16, OCC1INP+1
, DX+4, OT+4, OT+5
>> Y EN+5*, EN+12*, EN+13, EN+26*, EN+32*, EN+33, EN+34*, EN+35, EN+36, EN+38*
OCC+2*, OCC+4*, OCC1
>> Z EN+11*, EN+25*, EN+32*, EN+39*, OCC+1*, OCC+3*, OCC+9*, OCC+13*
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