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

Package: Integrated Billing

Routine: IBCCPT


Information

IBCCPT ;ALB/LDB - MCCR OUTPATIENT VISITS LISTING CONT. ;29 MAY 90

Source Information

Source file <IBCCPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(IBQUERY,IBHLP) ;
EN
OK1
OK
OK2
FILE
FILE1 ; file procedures, if BASC, only for 1 visit date
CPRT
CHDR
ADDMOD(IBIFN,IBY,IBMOD) ; Add modifier(s) from PCE procedure to CPT code mult
DSPPRC(CPTNM,NOD,DX) ; display summary of procedure being added
VST(IBQUERY) ;Procedures for outpatient visits ... If IBQUERY is defined
; on entry, the QUERY OBJECT defined by this value will be used for
; loop to extract procedures for visits, otherwise, a new QUERY will be opened
; If passed by reference, IBQUERY will be ret'd as the new QUERY ref #
VSTQ
WRNO
SCR
HLP
CPT
PROC(IBQUERY) ; -find outpatient procedures, flag if billable
; - ^utility($j,cpt-cnt,count)=code^date^on bill^is BASC^divis^nb^nb mess^provider^clinic^mod,mod^Opt Enc Ptr
; - ^utility($j,cpt-cnt,count,"dx")=assoc dx(1)^assoc dx(2)^assoc dx(3)^assoc dx(4)
EXTPROC(IBIFN,IBOE,IBOE0,IBCNT) ; Extract procedures for an encounter
; IBIFN = the ien of the bill
; IBOE0 = 0-node of the outpatient encounter file entry IBOE
; IBCNT extracted entry counter
TOMANY(DATE) ; - returns 1 if more than 1 visit date on bill (for basc)
TOMANYQ
CHECK(IBPSCD,DGNOD) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"YOU HAVE SELECTED CPT CODE(S) NUMBERED-",$E(Y,1,$L(Y)-1),!,"IS THIS CORRECT"
  • Line Location: OK2+0
Function Call: WRITE
  • Prompt: !,"Respond 'Y'es to include these codes in the bill.",!,"Respond 'N'o to reselect."
  • Line Location: OK2+1
Function Call: WRITE
  • Prompt: !?10,"Can't add Amb. Surg. ",$P(IBCPTNM,U,2)," without visit date!"
  • Line Location: FILE1+6
Function Call: WRITE
  • Prompt: !?10,"Can't add Billable Amb. Surg. ",$P(IBCPTNM,U,2)," when more than one visit date!",*7
  • Line Location: FILE1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FILE1+144
Function Call: WRITE
  • Prompt: !,DGCNT,")",?5,$P(IBCPTNM,U,2),?12,$$RJ^XLFSTR(DGUNIT,4),?18,$E($P(IBCPTNM,U,3),1,24),?44,$E($P($G(^SC(+$P(DGNOD,U,9),0)),U,1),1,15),?61,$$FMTE^XLFDT(DGDAT,2)
  • Line Location: CPRT+5
Function Call: WRITE
  • Prompt: !,?8,$P(IBZ,U,2),?13,$P(IBZ,U,3)
  • Line Location: CPRT+12
Function Call: WRITE
  • Prompt: @IOF,!,?15,"<<CURRENT PROCEDURAL TERMINOLOGY CODES>>",!!,?10,"LISTING FROM VISIT DATES WITH ASSOCIATED CPT CODES",!,?22,"IN OUTPT ENCOUNTERS FILE",!
  • Line Location: CHDR+0
Function Call: WRITE
  • Prompt: !,L,!,"NO.",?5,"CODE",?13,"SHORT NAME",?39,"CLINIC",?56,"DATE",!,L,!
  • Line Location: CHDR+2
Function Call: WRITE
  • Prompt: L,!,"NO.",?5,"CODE",?12,"UNIT",?18,"SHORT NAME",?44,"CLINIC",?61,"DATE",!,L
  • Line Location: CHDR+3
Function Call: WRITE
  • Prompt: !!?4,"Adding CPT Procedure: ",$P(CPTNM,U,2),?34,$P(CPTNM,U,3)
  • Line Location: DSPPRC+6
Function Call: WRITE
  • Prompt: !,?34,$P(IBMOD,U,2)," - ",$E($P(IBMOD,U,3),1,40)
  • Line Location: DSPPRC+8
Function Call: WRITE
  • Prompt: !,?34,"Visit: ",$$FMTE^XLFDT(+$P(NOD,U,2),2),", ",$E($P($G(^SC(+$P(NOD,U,9),0)),U,1),1,29)
  • Line Location: DSPPRC+9
Function Call: WRITE
  • Prompt: !,?44
  • Condition for execution: IBL=""
  • Line Location: DSPPRC+10
Function Call: WRITE
  • Prompt: IBL,IBPRVTYP
  • Line Location: DSPPRC+10
Function Call: WRITE
  • Prompt: !,?34,"Assoc Dx: ",$E($P(IBDXT,"^")_" "_$P(IBDXT,"^",3),1,35)
  • Line Location: DSPPRC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPPRC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+0
Function Call: READ
  • Formatting: !
  • Prompt: "Press return to continue or ""^"" to exit display "
  • Variable: DGU
  • Timeout: DTIME
  • Line Location: SCR+1
Function Call: WRITE
  • Prompt: !!,"Enter a number between 1 and ",DGCNT1," or a range of numbers separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8"
  • Line Location: HLP+0
Function Call: READ
  • Variable: H
  • Timeout: 5
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"The number(s) must appear as a selectable number in the sequential list."
  • Line Location: HLP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls
399.0304 GET1^DIQ
^ICPT - [#81] GET1^DIQ
^AUPNVCPT - [#9000010.18] FIND^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call