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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBECPTE

Package: Integrated Billing

Routine: IBECPTE


Information

IBECPTE ;ALB/ARH - ENTER/EDIT CPT BILLING TIME SENS DATA (350.4&350.5) ; 11/5/91

Source Information

Source file <IBECPTE.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Integrated Billing 1 ^IBXDIVD  
Kernel 1 HOME^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
EN4 ;entry point - enter/edit procedure and rate group for amb surg billing (350.4)
CPT
CPTQ
EN5 ;entry point - enter/edit division and wage percentage data for amb surg billing (350.5)
DIV
DIVQ
EFFCPT ;enter/edit time sensitve procedure data
EDITC
EFFCPTQ
EFFDIV ;enter/edit time sensitve division data
EDITD
EFFDIVQ
DISCPT ;display data on procedure
DISDIV ;display data on division
LISTCPT ;provide list of effective dates already defined for CPT
LISTDIV ;provide list of effective dates already defined for division

External References

Name Field # of Occurrence
HOME^%ZIS EN4+2, EN5+1
^DIC CPT+1, DIV+1
FILE^DICN EFFCPT+6, EFFDIV+5
^DIE CPT+2, EDITCEDITD
^DIR EFFCPT+3, EFFCPT+5, EFFDIV+2, EFFDIV+4
^IBXDIVD DISDIV+3
$$CPT^ICPTCOD LISTCPT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CPT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITD+1
Function Call: WRITE
  • Prompt: !,?5,Y,?20,$P($$CPT^ICPTCOD(+$P(IBLN,"^",2)),"^",2),?30,$S($P(IBLN,"^",4):"ACTIVE",1:"INACTIVE"),?43,$P($G(^IBE(350.1,+$P(IBLN,"^",3),0)),"^",1)
  • Line Location: LISTCPT+5
Function Call: WRITE
  • Prompt: !,?4,Y,?20,$E($P($G(^DG(40.8,+$P(IBLN,"^",2),0)),"^",1),1,20),?43,$S($P(IBLN,"^",4):"ACTIVE",1:"INACTIVE"),?52,$J($P(IBLN,"^",5),7),?61,$J($P(IBLN,"^",6),7),?70,$J($P(IBLN,"^",7),7)
  • Line Location: LISTDIV+5
Routine Call
  • %ZIS
  • Line Location:
    • EN4+2
    • EN5+1
Routine Call
  • DIC
  • Line Location:
    • CPT+1
    • DIV+1
Routine Call
  • DIE
  • Line Location:
    • CPT+2
    • EDITC
    • EDITD
Routine Call
  • DIR
  • Line Location:
    • EFFCPT+3
    • EFFCPT+5
    • EFFDIV+2
    • EFFDIV+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.4 - [#350.4] Classic Fileman Calls
^IBE(350.5 - [#350.5] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" DISCPT+1, DISDIV+1
^DD("DD" LISTCPT+4, LISTDIV+4
^DG(40.8 - [#40.8] LISTDIV+5
^IBE(350.1 - [#350.1] LISTCPT+5
^IBE(350.4 - [#350.4] EFFCPT+4, LISTCPT+1, LISTCPT+2, LISTCPT+3, LISTCPT+4
^IBE(350.5 - [#350.5] EFFDIV+3, LISTDIV+1, LISTDIV+2, LISTDIV+3, LISTDIV+4

Label References

Name Line Occurrences
CPT CPT+2, CPT+3
CPTQ CPT+1
DISCPT CPT+3
DISDIV DIV+2
DIV DIV+2
DIVQ DIV+1
EDITC EFFCPT+4
EDITD EFFDIV+3
EFFCPT CPT+3, EFFCPT+5, EDITC+1
EFFCPTQ EFFCPT+3, EFFCPT+6
EFFDIV DIV+2, EFFDIV+4, EFFDIV+5, EDITD+1
EFFDIVQ EFFDIV+2

Naked Globals

Name Field # of Occurrence
^( EFFCPT+4, EFFDIV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EFFCPTQ!, EFFDIVQ!
D0 DISDIV+3*!
DA CPT+2*!, CPTQ!, DIVQ!, EDITC*!, EFFCPTQ!, EDITD*!, EFFDIVQ!
DD EFFCPT+6!, EFFDIV+5!
DIC CPT+1*!, CPT+2!, DIV+1*!, EFFCPT+6*!, EDITC!, EFFDIV+5*!, EDITD!
DIC("A" CPT*, DIV*
DIC("DR" EFFCPT+6*, EFFDIV+5*
DIC(0 CPT+1*, DIV+1*, EFFCPT+6*, EFFDIV+5*
DIE CPT+2*!, EDITC*!, EDITD*!
DIE("NO^" EDITC*, EDITD*
DIR EFFCPT+3!, EFFCPT+5!, EFFDIV+2!, EFFDIV+4!
DIR("?" EFFCPT+2*, EFFDIV+1*
DIR("??" EFFCPT+2*, EFFDIV+1*
DIR("A" EFFCPT+3*, EFFCPT+5*, EFFDIV+2*, EFFDIV+4*
DIR(0 EFFCPT+3*, EFFCPT+5*, EFFDIV+2*, EFFDIV+4*
DIROUT EFFCPTQ!, EFFDIVQ!
DIRUT EFFCPT+3, EFFCPTQ!, EFFDIV+2, EFFDIVQ!
DO EFFCPT+6!, EFFDIV+5!
DR CPT+2*!, EDITC*!, EFFCPTQ!, EDITD*!, EFFDIVQ!
DTOUT CPTQ!, DIVQ!, EFFCPTQ!, EFFDIVQ!
DUOUT CPTQ!, DIVQ!, EFFCPTQ!, EFFDIVQ!
DXS DISDIV+3!
IBCPT CPT+1*, CPT+2, CPTQ!, EFFCPT+4, EFFCPT+6, LISTCPT+1, LISTCPT+2, LISTCPT+3
IBDIV DIV+1*, DIVQ!, EFFDIV+3, EFFDIV+5, DISDIV+3, LISTDIV+1, LISTDIV+2, LISTDIV+3
IBEDT CPT+3*, CPTQ!, DIV+2*, DIVQ!, EDITC*, EDITD*
IBEFF EFFCPT+3*, EFFCPT+4, EFFCPT+6, EFFCPTQ!, EFFDIV+2*, EFFDIV+3, EFFDIV+5, EFFDIVQ!
IBLN LISTCPT+1~, LISTCPT+4*, LISTCPT+5, LISTDIV+1~, LISTDIV+4*, LISTDIV+5
IBX LISTCPT+1~, LISTCPT+2*, LISTCPT+3, LISTCPT+4, LISTDIV+1~, LISTDIV+2*, LISTDIV+3, LISTDIV+4
IBY LISTCPT+1~, LISTCPT+3*, LISTCPT+4, LISTDIV+1~, LISTDIV+3*, LISTDIV+4
IOF DISCPT+2, DISDIV+2
X CPTQ!, DIVQ!, EFFCPT+6*, EFFCPTQ!, EFFDIV+5*, EFFDIVQ!, DISCPT+1*, DISDIV+1*, DISDIV+3!
Y CPT+1, CPT+2!, CPTQ!, DIV+1, DIVQ!, EFFCPT+3, EFFCPT+4*, EFFCPT+5, EFFCPT+6, EDITC!
, EFFCPTQ!, EFFDIV+2, EFFDIV+3*, EFFDIV+4, EFFDIV+5, EDITD!, EFFDIVQ!, LISTCPT+1~, LISTCPT+4*, LISTCPT+5
LISTDIV+1~, LISTDIV+4*, LISTDIV+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All