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: 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 Total: 9

Package Total Call Graph
Integrated Billing 9 DX^IBCSC4A  Q^IBCSC4B  SET^IBCSC4D  ($$PD,EN,WRT)^IBCSC5  ^IBCSCP  (,H)^IBCSCU  ^IBCU6  CODMUL^IBCU7  
(OCC,VC)^IBCVA1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCSC5  IBCVA1  

Entry Points

Name Comments DBIA/ICR reference
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) ;
OCC ;I $O(^DGCR(399,IBIFN,"CP",0)) S I=0 F I1=1:1 S I=$O(^DGCR(399,IBIFN,"CP",I)) D:I1>9 MORE Q:'I W !,?17 S Y=$P(^(I,0),"^",2) D:+Y D^DIQ D OCC1
INP
OCC1
EN

External References

Name Field # of Occurrence
DX^IBCSC4A EN+9
Q^IBCSC4B OCC+14
SET^IBCSC4D EN+17
$$PD^IBCSC5 OCC+2
EN^IBCSC5 EN
WRT^IBCSC5 EN+23
^IBCSCP OCC+14
^IBCSCU EN+4
H^IBCSCU EN+6
^IBCU6 EN+2
CODMUL^IBCU7 EN+1
OCC^IBCVA1 EN+9
VC^IBCVA1 OCC+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:IBU)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?4,"Other Diag.: ",$P(Y,U,4)_" - "_$P(Y,U,2)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !?4,"***There are more diagnoses associated with this bill.***"
  • Line Location: EN+20
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+21
Function Call: WRITE
  • Prompt: " Cod. Method: ",$S(DGPCM="":IBUN,DGPCM=9:"ICD-9-CM",DGPCM=4:"CPT-4",1:"HCPCS")
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !?4,"Pro. Code : ",IBUN
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !?4,"CPT Code : ",$P(^ICPT(IBCPT(I),0),U,2)," - ",$P(^(0),U),?55,"Date: "
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !?4,"ICD Code : ",$S($D(^ICD0(IBICD(I),0)):$E($P(^(0),U,4),1,20)_" - "_$P(^(0),U,1),1:IBUC),?55,"Date: "
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !?4,"HCFA Code : ",$P(^ICPT(IBHC(I),0),U,2)," - ",IBHCN(I),?55,"Date: "
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !,?17
  • Line Location: OCC+0
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+2
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: " - ",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: IBUN
  • Line Location: OCC+9
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: OCC+10
Function Call: WRITE
  • Prompt: !,?3," Value Code : "
  • Condition for execution: J>1
  • Line Location: OCC+12
Function Call: WRITE
  • Prompt: ?17,$E($P(IBVC(I),U,2),1,40),?58,$P(IBVC(I),U,3)
  • Line Location: OCC+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+11, EN+15, OCC+4
^DD(399 EN+12
^DGCR(399 - [#399] EN, EN+3, OCC1, INP, INP+2
^DGCR(399.1 - [#399.1] EN+16
^DGPT - [#45] INP+1
^ICD9 - [#80] DX+1

Label References

Name Line Occurrences
$$DX EN+18, EN+19, EN+20
@( EN+6
INP EN+7

Naked Globals

Name Field # of Occurrence
^( INP, INP+1, INP+2
^(0 EN+16, OCC1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGPCM EN+22*
>> DGPT( INP+1*
>> DGPT(0 EN+9, EN+10, EN+11, INP+3
>> DGPT(70 INP+3, INP+4
DGRVRCAL EN+2!
>> I EN+6*, EN+12*, EN+19*, OCC+4*, OCC+8*, OCC+12*, OCC1, INP*, INP+1*, INP+2*
>> IB( INP*, INP+2*
>> IB("U" EN+11, EN+12, EN+13, EN+16, INP+3, INP+4
>> IB(0 EN+8, EN+22, OCC+1, OCC+3, OCC+7, OCC+11, INP+1, INP+3
IBASKCOD EN+1!
>> IBBT EN+8*
>> IBCC OCC+9, OCC+10
>> IBCC( OCC+8
>> IBCCN( OCC+8
>> IBIFN EN, EN+3, EN+17, OCC1, INP, INP+2
>> IBIP EN+11, EN+15, INP+3*, INP+4*
>> IBO OCC+5, OCC+6
>> IBO( OCC+4
>> IBOCD( OCC+4
>> IBOCD2( OCC+4
>> IBOCN( OCC+4
IBPOARR EN+17~, DX+1
IBPOARR( DX+1
>> IBPROC EN+23
>> IBPTF INP+1*, INP+3
>> IBSR EN+4*
>> IBSR1 EN+4*
>> IBU EN+11, EN+13, EN+15, EN+16
>> IBUC EN+4*
>> IBUN EN+18, EN+22, OCC+2, OCC+5, OCC+6, OCC+9, OCC+10, OCC+13
>> IBV EN+5
>> IBV1 EN+4*, EN+5*
IBVC OCC+12, OCC+13!
IBVC( OCC+12
>> IBW EN+18*, EN+22*, OCC+2*
>> IBWW EN+11, EN+14, EN+18, EN+22, OCC+2, OCC+3, OCC+7, OCC+12
IBX DX+1~*, DX+2
IBY DX+1~*
>> J OCC+12*
ORDER DX~, DX+1*
U EN+10, EN+11, EN+12, EN+13, EN+15, EN+16, EN+18, EN+19, EN+22, OCC+1
, OCC+3, OCC+7, OCC+11, OCC+12, OCC1, INP+1
>> Y EN+6*, EN+11*, EN+15*, EN+18*, EN+19*, EN+20*, OCC+2*, OCC+4*, OCC1
>> Z EN+11*, EN+14*, EN+18*, EN+22*, OCC+1*, OCC+3*, OCC+7*, OCC+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All