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

Package: Integrated Billing

Routine: IBCU74


Information

IBCU74 ;OAK/ELZ - INTERCEPT SCREEN INPUT OF PROCEDURE CODES (CONT) ;6-JAN-04

Source Information

Source file <IBCU74.m>

Entry Points

Name Comments DBIA/ICR reference
DATA(IBP,IBLNPRV) ; this is used to add data when new procedures are added for
; inpatient cases
; Return IBRPROV - renderring providers ;ib*2.0*432
SROMIN(IBIFN,IBPROCP) ; will ask as user to select anesthesia to populate into
; the minutes of a bill
SROMINQ
OBSHOUR(DFN,EVNTDT) ; Get Observation Hours (for Procedures whose charge requires Hours)
; display Observation Discharges 72 hours before date (procedure date)
; allow user to input exact observation date times, using the last observation admission/discharge as default
; based on the date/times entered by the user calculate the total hours
; Input: DFN = Patient ifn, EVNTDT = Procedure Date
; Output: returns total hours with 1 decimal digit selected/input or ""
OBSHOURQ
EXEMPT ; exemption reasons to display

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"Adding associated dx: ",$P(IB9,"^")," ",$P(IB9,"^",3)
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !!?10,"Associating Provider: ",$P($G(^VA(200,$P(IBY,"^",13),0)),"^")
  • Line Location: DATA+20
Function Call: WRITE
  • Prompt: !?10,"Assigning Location: ",$P($G(^SC($P(IBY,"^",14),0)),"^")
  • Line Location: DATA+26
Function Call: WRITE
  • Prompt: !?10,"Adding Modifier: ",$P(IB9,"^",2)," - ",$P(IB9,"^",3)
  • Line Location: DATA+28
Function Call: WRITE
  • Prompt: !!?10,"Duplicating Procedure for Quantity of ",$P(IBY,"^",10)
  • Line Location: DATA+32
Function Call: WRITE
  • Prompt: !!,"The following surgical/anesthesia times were found:",!
  • Line Location: SROMIN+12
Function Call: WRITE
  • Prompt: !,$J(IBC,4)," Case #",IBSRC,?20,$$FMTE^XLFDT(IBSRSDT,2),?35,$$FMTE^XLFDT(IBSREDT,2),?50,$P(IBSRDAT,"^",2),?60
  • Line Location: SROMIN+18
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $X>61
  • Line Location: SROMIN+19
Function Call: WRITE
  • Prompt: $P($T(EXEMPT+(IBP-3)),";",3)
  • Line Location: SROMIN+19
Function Call: WRITE
  • Prompt: !!,?6,"Inpatient Observation Discharges 72 hours before "_$$FMTE^XLFDT(EVNTDT,2),":"
  • Line Location: OBSHOUR+11
Function Call: WRITE
  • Prompt: !,?6,$P(IBDSPLT,U,1),?39,$$FMTE^XLFDT(IBADMDT,2),?55,$$FMTE^XLFDT(IBDSCDT,2),?72,"(",$J(IBDSH,"",1),")"
  • Line Location: OBSHOUR+22
Function Call: WRITE
  • Prompt: " None found"
  • Line Location: OBSHOUR+23
Function Call: WRITE
  • Prompt: !!,?6,"Observation Start/Stop Times are optional, used only to calculate Hours:"
  • Line Location: OBSHOUR+25
Function Call: WRITE
  • Prompt: " (",IBHOURS,")",!
  • Line Location: OBSHOUR+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^IBA(362.3 - [#362.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call