Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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+17
Function Call: WRITE
  • Prompt: ?17,$E($P(IBVC(I),U,2),1,40),?58,$P(IBVC(I),U,3)
  • Line Location: OCC+17
Function Call: WRITE
  • Prompt: !?4,"***There are more Value Codes associated with this bill.***",!
  • Line Location: OCC+19
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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call