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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Integrated Billing 2 $$ICD9^IBACSV  $$GETNPI^IBCEF73A  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
Surgery 1 $$ANESTIME^SROANEST  

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

Package Total Caller Graph
Integrated Billing 1 IBCU7  

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

External References

Name Field # of Occurrence
^DIC DATA+24
FILE^DICN DATA+14, DATA+29, DATA+33, DATA+34
^DIE DATA+27, SROMIN+24
^DIR SROMIN+21, OBSHOUR+27, OBSHOUR+30
$$ICD9^IBACSV DATA+10
$$GETNPI^IBCEF73A DATA+19
$$MOD^ICPTMOD DATA+28, DATA+34
$$ANESTIME^SROANEST SROMIN+10
$$FMADD^XLFDT OBSHOUR+9
$$FMDIFF^XLFDT OBSHOUR+20, OBSHOUR+32
$$FMTE^XLFDT SROMIN+18, OBSHOUR+11, OBSHOUR+22, OBSHOUR+26, OBSHOUR+29

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
Routine Call
  • DIC
  • Line Location:
    • DATA+24
Routine Call
  • DIE
  • Line Location:
    • DATA+27
    • SROMIN+24
Routine Call
  • DIR
  • Line Location:
    • SROMIN+21
    • OBSHOUR+27
    • OBSHOUR+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^IBA(362.3 - [#362.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SROMIN+6, SROMIN+7
^DGPT - [#45] OBSHOUR+14
^DGPT("ADS" OBSHOUR+12, OBSHOUR+13
^DIC(42.4 - [#42.4] OBSHOUR+18
^IBA(362.3 - [#362.3] DATA+8, DATA+9, DATA+13
^SC - [#44] DATA+26
^TMP("IBSRDAT" SROMIN+4!, SROMIN+17*, SROMIN+23, SROMINQ!
^TMP("SRANES" SROMIN+4!, SROMIN+13, SROMIN+16, SROMINQ!
^UTILITY($J DATA+5, DATA+6
^VA(200 - [#200] DATA+20

Label References

Name Line Occurrences
OBSHOURQ OBSHOUR+8, OBSHOUR+27, OBSHOUR+30
SROMINQ SROMIN+8, SROMIN+10, SROMIN+21

Naked Globals

Name Field # of Occurrence
^("U" SROMIN+7
^(0 DATA+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DATA+3~, DATA+27*, SROMIN+2~, SROMIN+24*
DA(1 DATA+27*, DATA+29*, DATA+33*, DATA+34*, SROMIN+24*
DA(2 DATA+29*, DATA+34*
DFN SROMIN+2~, SROMIN+6*, SROMIN+8, SROMIN+10, OBSHOUR~, OBSHOUR+8, OBSHOUR+14
>> DGPROCDT DATA+4, DATA+5, DATA+10, DATA+33
DIC DATA+3~, DATA+14*, DATA+23~*, DATA+29*, DATA+33*, DATA+34*
DIC("DR" DATA+14*, DATA+29*, DATA+33*, DATA+34*
DIC(0 DATA+14*, DATA+23*, DATA+29*, DATA+33*, DATA+34*
DIE DATA+3~, DATA+27*, SROMIN+3~, SROMIN+24*
DIR SROMIN+3~, OBSHOUR+7~
DIR("A" OBSHOUR+26*, OBSHOUR+29*
DIR("B" OBSHOUR+26*, OBSHOUR+29*
DIR(0 SROMIN+21*, OBSHOUR+27*, OBSHOUR+30*
DIRUT OBSHOUR+7~, OBSHOUR+27, OBSHOUR+30
DO DATA+3~, DATA+33!
DR DATA+3~, DATA+4*, DATA+5, DATA+6, DATA+16, DATA+17*, DATA+20*, DATA+23~, DATA+26*, DATA+27
, SROMIN+2~, SROMIN+24*
DT OBSHOUR+9
DTOUT OBSHOUR+7~
DUOUT OBSHOUR+7~
EVNTDT OBSHOUR~, OBSHOUR+9*, OBSHOUR+11
IB1 DATA+3~, DATA+5*, DATA+6
IB2 DATA+3~, DATA+6*
IB9 DATA+3~, DATA+10*, DATA+11, DATA+28*, DATA+34*
IBADMDT OBSHOUR+7~, OBSHOUR+8*, OBSHOUR+18*, OBSHOUR+20, OBSHOUR+22, OBSHOUR+26, OBSHOUR+27*, OBSHOUR+29, OBSHOUR+30, OBSHOUR+32
IBBEG OBSHOUR+7~, OBSHOUR+9*, OBSHOUR+12
IBC DATA+3~, DATA+8*, DATA+9, DATA+28*, DATA+29*, DATA+34*, SROMIN+2~, SROMIN+13*, SROMIN+15*, SROMIN+17
, SROMIN+18, SROMIN+21
>> IBCP DATA+33*, DATA+34
IBDATE OBSHOUR+7~, OBSHOUR+12*, OBSHOUR+13
IBDR DATA+3~, DATA+27*, DATA+33, DATA+35!
IBDSCDT OBSHOUR+7~, OBSHOUR+8*, OBSHOUR+18*, OBSHOUR+20, OBSHOUR+22, OBSHOUR+29, OBSHOUR+30*, OBSHOUR+32
IBDSH OBSHOUR+7~, OBSHOUR+8*, OBSHOUR+20*, OBSHOUR+22, OBSHOUR+23
IBDSPLT OBSHOUR+7~, OBSHOUR+16*, OBSHOUR+18*, OBSHOUR+22
IBEND OBSHOUR+7~, OBSHOUR+9*, OBSHOUR+12
IBFDT SROMIN+2~, SROMIN+7*, SROMIN+8, SROMIN+10
IBHOURS OBSHOUR+7~, OBSHOUR+8*, OBSHOUR+32*, OBSHOURQ
IBIFN DATA+8, DATA+9, DATA+13, DATA+27, DATA+29, DATA+33, DATA+34, SROMIN~, SROMIN+6, SROMIN+7
, SROMIN+24
IBLNPRV DATA~
IBLNPRV("IBCCPT" DATA+20*
IBP DATA~, DATA+4, DATA+6, DATA+27, DATA+29, SROMIN+3~, SROMIN+19*, SROMIN+23*
IBPROCP SROMIN~, SROMIN+24
IBPTF OBSHOUR+7~, OBSHOUR+13*, OBSHOUR+14
IBPTF0 OBSHOUR+7~, OBSHOUR+14*, OBSHOUR+18
IBPTF70 OBSHOUR+7~, OBSHOUR+14*, OBSHOUR+16, OBSHOUR+18
IBQ DATA+3~, DATA+32*
IBS DATA+3~, DATA+16*
IBSR SROMIN+2~, SROMIN+10*
IBSRC SROMIN+2~, SROMIN+13*, SROMIN+16, SROMIN+18
IBSRDAT SROMIN+2~, SROMIN+16*, SROMIN+17, SROMIN+18, SROMIN+19
IBSREDT SROMIN+2~, SROMIN+13*, SROMIN+16, SROMIN+18
IBSRMIN SROMIN+2~, SROMIN+23*, SROMIN+24
IBSRSDT SROMIN+2~, SROMIN+13*, SROMIN+16, SROMIN+18
IBTDT SROMIN+2~, SROMIN+7*, SROMIN+8, SROMIN+10
IBX DATA+3~, DATA+7*, DATA+10, DATA+13, DATA+14, DATA+28*, DATA+29, DATA+34*
IBY DATA+3~, DATA+6*, DATA+7, DATA+10, DATA+13, DATA+14, DATA+18, DATA+19, DATA+20, DATA+23
, DATA+26, DATA+28, DATA+29, DATA+32, DATA+33, DATA+34
IBZ DATA+3~, DATA+16*, DATA+17
U DATA+20, OBSHOUR+16, OBSHOUR+18, OBSHOUR+22
X DATA+3~, DATA+14*, DATA+23~*, DATA+29*, DATA+33*, DATA+34*, SROMIN+3~, OBSHOUR+7~
Y DATA+3~, DATA+13*, DATA+14, DATA+17, DATA+23~, DATA+33, SROMIN+3~, SROMIN+21, SROMIN+23, OBSHOUR+7~
, OBSHOUR+27, OBSHOUR+30

Marked Items

Name Field # of Occurrence
$T(EXEMPT+(3) SROMIN+19
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 |  Marked Items  | All