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 |  Local Variables  | All
Print Page as PDF
Routine: IBCSCH1

Package: Integrated Billing

Routine: IBCSCH1


Information

IBCSCH1 ;ALB/MRL - BILLING HELPS (CONTINUED) ;01 JUN 88 12:00

Source Information

Source file <IBCSCH1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 8 $$BDATE^IBACSV  ^IBCC1  $$PRCD^IBCEF1  $$RXSITE^IBCEF73A  PRCDT^IBCU71  $$GETMOD^IBEFUNC  $$MODLST^IBEFUNC2  $$RXAPI1^IBNCPUT1  
VA FileMan 3 YN^DICN  $$EXTERNAL^DILFD  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$NPI^XUSNPI  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Integrated Billing 10 IBCSC4C  IBCSC4D  IBCSCH  IBCSCH2  IBCU7  IBCU71  IBXS3  IBXSC3  
PROCEDURES  REVENUE CODE  

Entry Points

Name Comments DBIA/ICR reference
1
2
3
4
DISPPRC(IBIFN) ; display procedures
PRCNM(PRC,EFDT) ; return procedure name, input first piece of CP node -
; (in variable pointer format)
; output: code ^ name
PAUSE(CNT) ;
DISPRX(IBIFN) ; display prescriptions
EDITRNB(IBIFN) ; add/edit RNB and Comments for CT entries associated with bill, ?RNB Help function
; sets IBNOCANC indicating bill not cancelled, function sets it to number of associated CT entries

External References

Name Field # of Occurrence
YN^DICN 1
$$EXTERNAL^DILFD DISPRX+17, DISPRX+24
^DIR PAUSE+2
$$BDATE^IBACSV DISPPRC+6
^IBCC1 EDITRNB+6
$$PRCD^IBCEF1 PRCNM+4
$$RXSITE^IBCEF73A DISPRX+7
PRCDT^IBCU71 DISPPRC+10
$$GETMOD^IBEFUNC DISPPRC+25
$$MODLST^IBEFUNC2 DISPPRC+25
$$RXAPI1^IBNCPUT1 DISPRX+26
PAUSE^VALM1 DISPPRC+4, DISPRX+4, DISPRX+28
$$FMTE^XLFDT DISPRX+16
$$NPI^XUSNPI DISPRX+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DO YOU WISH TO ADD/EDIT INSURANCE COMPANY DATA FOR THIS PATIENT"
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!?4,"YES - And I'll prompt you so that you may add insurance data to the PATIENT",!?9,"file for this patient.",!?4,"NO - To bypass this editing of the PATIENT file."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"If you updated insurance information for any policy which is already specified",!,"as either a PRIMARY, SECONDARY or TERIARY for this billing episode, you will"
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !,"need to press the <RETURN> key through the following prompts in order to insure",!,"that these new values are properly stored. If you fail to do so, i.e.,"
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !,"enter an up-arrow, the new values will not be stored as part of this billing",!,"record."
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !,"If a procedure is linked as a prescription to a rev code, it cannot be deleted",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!?4," - Enter the name or code number of an ",$S($D(IBPY):"ICD DIAGNOSIS ",1:DGCODMET_" PROCEDURE "),"CODE",!?7,"not displayed above to input a ",$S($D(IBPY):"DIAGNOSIS",1:"PROCEDURE")," code"
  • Line Location: 3+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: " not found",!?7,"in the PTF record into this billing record, or '??' for ",!?7,"a list of all ",$S($D(IBPY):"ICD DIAGNOSIS ",1:DGCODMET_" PROCEDURE "),"CODES."
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !!?4," - Enter <RETURN> to accept the default ",$S($D(IBPY):"DIAGNOSIS ",1:"PROCEDURE "),"code, or",!?7,"'^' to abort.",!!
  • Line Location: 4+0
Function Call: WRITE
  • Prompt: !!?5,"No Codes Entered!",!
  • Line Location: DISPPRC+4
Function Call: WRITE
  • Prompt: !,$E(IBPR,1,7),?8,$E(IBPRD,1,19),?29,IBSUS,?35,$P(IBLN,U,4),?38,IBDT,?48,IBDV,?55,$E(IBCL,1,11),?68,$E(IBPV,1,12)
  • Line Location: DISPPRC+24
Function Call: WRITE
  • Prompt: !,?10,$P(IBX,",",IBMOD),?15,$P($G(IBX(1)),",",IBMOD)
  • Line Location: DISPPRC+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!?5,"No Prescriptions Entered!",!
  • Line Location: DISPRX+4
Function Call: WRITE
  • Prompt: !?5,"RX #: ",$P(IBZ,"^")
  • Line Location: DISPRX+15
Function Call: WRITE
  • Prompt: ?50,"DATE: ",$$FMTE^XLFDT($P(IBZ,"^",3))
  • Line Location: DISPRX+16
Function Call: WRITE
  • Prompt: !?5,"DRUG: ",$$EXTERNAL^DILFD(362.4,.04,"",$P(IBZ,"^",4))
  • Line Location: DISPRX+17
Function Call: WRITE
  • Prompt: ?50,"NDC: ",$P(IBZ,"^",8)
  • Line Location: DISPRX+18
Function Call: WRITE
  • Prompt: !?5,"DAYS SUPPLY: ",$P(IBZ,"^",6)
  • Line Location: DISPRX+19
Function Call: WRITE
  • Prompt: ?50,"QUANTITY: ",$P(IBZ,"^",7)
  • Line Location: DISPRX+20
Function Call: WRITE
  • Prompt: !?5,"NPI INSTITUTION: ",$S(IBORG:$$EXTERNAL^DILFD(350.9,.02,"",IBORG),1:"")
  • Line Location: DISPRX+24
Function Call: WRITE
  • Prompt: ?50,"RX NPI: ",$S(IBNPI>0:IBNPI,1:"")
  • Line Location: DISPRX+25
Function Call: WRITE
  • Prompt: !?5,"PROVIDER: ",$S($P(IBZ,"^",5):$$RXAPI1^IBNCPUT1($P(IBZ,"^",5),4),1:""),!
  • Line Location: DISPRX+26
Function Call: WRITE
  • Prompt: @IOF,!,"Reason Not Billable for Claims Tracking Entries associated with this Bill:",!,$TR($J(" ",74)," ","-")
  • Line Location: EDITRNB+3
Function Call: WRITE
  • Prompt: !!,"Episodes not fully billed may have a Reason Not Billable entered on the Claims",!,"Tracking entry. Only enter an RNB if the episode is not fully billed.",!
  • Line Location: EDITRNB+4
Function Call: WRITE
  • Prompt: !!,"No associated Claims Tracking entries found.",!!
  • Line Location: EDITRNB+6
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] EXTERNAL^DILFD
^IBA(362.4 - [#362.4] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DISPPRC+17
^DGCR(399 - [#399] 3+2, 3+4, 3+6, DISPPRC+4
^IBA(362.4 - [#362.4] DISPRX+4, DISPRX+13, DISPRX+14
^IBE(350.9 - [#350.9] 3+3
^SC - [#44] DISPPRC+18
^VA(200 - [#200] DISPPRC+19

Label References

Name Line Occurrences
$$PAUSE DISPPRC+13, DISPPRC+27, DISPRX+27
$$PRCNM DISPPRC+15
1 1+1
4 3+3, 3+6
PAUSE EDITRNB+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 1*, 1+1
CNT PAUSE~, PAUSE+1
>> DA 3
DGCODMET 3+4*, 3+5, 3+7, 4+1!
DIR PAUSE+2~!
DIR(0 PAUSE+2*
DIRUT PAUSE+2~
DTOUT PAUSE+2~
DUOUT PAUSE+2~
EFDT PRCNM~, PRCNM+4
>> IBADI 1*
IBCL DISPPRC+1~, DISPPRC+14*, DISPPRC+18*, DISPPRC+24
IBD DISPPRC+1~, DISPPRC+11*, DISPPRC+12, DISPPRC+13, DISPPRC+14, DISPPRC+15, DISPPRC+25
IBDATE DISPPRC+1~, DISPPRC+6*
IBDT DISPPRC+1~, DISPPRC+14*, DISPPRC+16*, DISPPRC+24
IBDV DISPPRC+1~, DISPPRC+14*, DISPPRC+17*, DISPPRC+24
IBHDR DISPPRC+1~, DISPPRC+7*, DISPPRC+10, DISPPRC+13, DISPRX+1~, DISPRX+9*, DISPRX+12
IBHDR1 DISPPRC+1~, DISPPRC+8*, DISPRX+1~, DISPRX+10*
IBI DISPPRC+1~, DISPPRC+13*, DISPPRC+14, DISPPRC+25, DISPPRC+27, PAUSE+1~*
IBIFN 3*, 3+2, 3+4, 3+6, DISPPRC~, DISPPRC+4, DISPPRC+6, DISPPRC+10, DISPPRC+25, DISPRX~
, DISPRX+4, DISPRX+7, DISPRX+13, EDITRNB~, EDITRNB+2
IBLC DISPPRC+1~, DISPPRC+13, DISPPRC+14*, DISPPRC+26*, DISPPRC+27
IBLN DISPPRC+1~, DISPPRC+14*, DISPPRC+15, DISPPRC+16, DISPPRC+17, DISPPRC+18, DISPPRC+19, DISPPRC+20, DISPPRC+21, DISPPRC+22
, DISPPRC+24
IBMOD DISPPRC+1~, DISPPRC+26*
IBN DISPPRC+1~, DISPPRC+12*, DISPPRC+13, DISPPRC+14
IBNM PRCNM+3~, PRCNM+4*, PRCNM+5, PRCNM+6*, PRCNM+8*, PRCNM+9
IBNOCANC EDITRNB+2~*, EDITRNB+6
IBNPI DISPRX+1~, DISPRX+23*, DISPRX+25
IBORG DISPRX+1~, DISPRX+21*, DISPRX+23, DISPRX+24
IBPR DISPPRC+1~, DISPPRC+14*, DISPPRC+15*, DISPPRC+24
IBPRD DISPPRC+1~, DISPPRC+14*, DISPPRC+15*, DISPPRC+24
IBPV DISPPRC+1~, DISPPRC+14*, DISPPRC+19*, DISPPRC+24
>> IBPY 3+5, 3+7, 4
IBQ DISPPRC+1~, DISPPRC+2*, DISPPRC+11, DISPPRC+12, DISPPRC+13*, DISPPRC+27*, DISPRX+1~, DISPRX+2*, DISPRX+13, DISPRX+27*
IBRX DISPRX+1~, DISPRX+13*
IBRXL DISPRX+1~, DISPRX+7
IBRXL( DISPRX+21
IBSUS DISPPRC+1~, DISPPRC+14*, DISPPRC+20*, DISPPRC+21*, DISPPRC+22*, DISPPRC+24
IBX DISPPRC+1~, DISPPRC+15*, DISPPRC+25*, DISPPRC+26, PAUSE+2~*, PAUSE+3, DISPRX+1~, DISPRX+7*, DISPRX+13*, DISPRX+14
IBX(1 DISPPRC+26
IBZ DISPRX+1~, DISPRX+14*, DISPRX+15, DISPRX+16, DISPRX+17, DISPRX+18, DISPRX+19, DISPRX+20, DISPRX+21, DISPRX+26
IOF EDITRNB+3
IOSL DISPRX+27
PRC PRCNM~, PRCNM+4
PRCARR DISPPRC+1~, DISPPRC+10
PRCARR( DISPPRC+11, DISPPRC+12, DISPPRC+13, DISPPRC+14
U 3+3, DISPPRC+15, DISPPRC+16, DISPPRC+17, DISPPRC+18, DISPPRC+19, DISPPRC+20, DISPPRC+21, DISPPRC+22, DISPPRC+24
, PRCNM+5, PRCNM+8, DISPRX+23
X PAUSE+2~
Y PAUSE+2~
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 |  Local Variables  | All