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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCOPV1

Package: Integrated Billing

Routine: IBCOPV1


Information

IBCOPV1 ;ALB/LDB - CPT LISTING IN MCCR ;30 APR 90

Source Information

Source file <IBCOPV1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (FILE,YN)^DICN  DT^DIQ  ^DIR  
Integrated Billing 2 ($$DUPCHK,$$OPV1,$$OPV2)^IBCU41  $$DAT2^IBOUTL  

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

Package Total Caller Graph
Integrated Billing 3 IBCCPT  IBCOPV  IBCU7  

Entry Points

Name Comments DBIA/ICR reference
PRT ;
PICK
OK
OK1
VFILE
VFILE1
VFILEQ
Q2
Q1
Q
HDR1
HDR
VT
VT1
SCR
HLP ;W !!,"Enter a number between 1 and ",DGCNT," or a list or range separated with commas",!,"or dashes, e.g., 1,3,5 or 2-4,8"
CHG
NOVT

External References

Name Field # of Occurrence
FILE^DICN VFILE1+8
YN^DICN OK1
DT^DIQ PRT+3
^DIR OK
$$DUPCHK^IBCU41 VFILE1+5
$$OPV1^IBCU41 OK+3, VFILE1+3
$$OPV2^IBCU41 VFILE1+3
$$DAT2^IBOUTL VFILE1+4, VFILE1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?1,I_")",?5
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"Maximum of 30 visits allowed per bill!",!,"The visits already on the bill along with those selected total more than 30."
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,*7,"THIS INSURANCE COMPANY WILL ONLY ACCEPT ONE VISIT PER BILL.",!
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: !,"YOU HAVE SELECTED VISIT(S) NUMBERED- ",$E(Y,1,$L(Y)-1),!,"IS THIS CORRECT"
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !,"Enter 'Y'es to include these visits.",!,"Enter 'N'o to reselect."
  • Line Location: OK1+1
Function Call: WRITE
  • Prompt: !,?10,"Can't add OP Visit Date of ",$$DAT2^IBOUTL(X)
  • Line Location: VFILE1+4
Function Call: WRITE
  • Prompt: !?4,"Only 1 visit date allowed on bills with Amb. Surg. Codes!"
  • Line Location: VFILE1+6
Function Call: WRITE
  • Prompt: !?4,"Adding OP Visit Date of ",$$DAT2^IBOUTL(X)
  • Line Location: VFILE1+7
Function Call: WRITE
  • Prompt: @IOF,?25,"<<<OUTPATIENT VISITS>>>",!!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: X
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !,"NO.",?6,"VISIT DATE",?19,"ELIG/MT",?28,"PROVIDER",?45,"BILL# - TYPE",?65,"STOP CD/CLINIC"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"===",?6,"==========",?19,"=======",?28,"========",?45,"============",?65,"==============="
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VT1+0
Function Call: WRITE
  • Prompt: ?5,$G(IBDATE)
  • Line Location: VT1+0
Function Call: WRITE
  • Prompt: ?19,$P(IBOPV3,"^")
  • Line Location: VT1+1
Function Call: WRITE
  • Prompt: "/"_$P(IBOPV3,"^",2)
  • Condition for execution: $P(IBOPV3,"^",2)]""
  • Line Location: VT1+1
Function Call: WRITE
  • Prompt: ?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",4),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",5)
  • Line Location: VT1+3
Function Call: WRITE
  • Prompt: ?65,$E($P(^UTILITY($J,"OPV",I1,I2,I3),"^",6),1,15)
  • Line Location: VT1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VT1+5
Function Call: WRITE
  • Prompt: ?7,$E("**RNB: "_$P($G(^IBE(356.8,+$P(^(0),"^",19),0)),"^"),1,30)
  • Line Location: VT1+6
Function Call: WRITE
  • Prompt: ?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",6),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",7)
  • Line Location: VT1+7
Function Call: WRITE
  • Prompt: ?65,$E($P(^UTILITY($J,"OPV",I1,I2,I3),"^",7),1,15)
  • Line Location: VT1+8
Function Call: WRITE
  • Prompt: !,?45,$J($P(^UTILITY($J,"OPV","AP",I),"^",P),7),"-",$P(^UTILITY($J,"OPV","AP",I),"^",P+1)
  • Line Location: VT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+1
Function Call: READ
  • Variable: H
  • Timeout: 5
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT VISITS FOUND DURING THE PERIOD COVERED BY THIS STATEMENT"
  • Line Location: NOVT+0
Routine Call
  • DIR
  • Line Location:
    • OK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] VFILE1+1, VFILE1+2, VFILE1+8
^IBE(356.8 - [#356.8] VT1+6
^IBT(356 - [#356] VT1+6
^UTILITY($J PRT+3, VFILE, VT, VT1+3, VT1+4, VT1+6, VT1+7, VT1+8, VT1+9, CHG
^VA(200 - [#200] VT1+2

Label References

Name Line Occurrences
HDR PRT+3, SCR+1
HDR1 PRT+3, SCR+1, NOVT
OK OK+3, OK1+2
OK1 OK1+1
PICK PRT+6, SCR+1
Q Q2, NOVT
Q1 OK1+3
Q2 PRT+7, OK1, OK1+6
SCR PRT+3, VT1
VFILE OK1+5
VFILEQ VFILE1+2, VFILE1+3
VT PRT+3
VT1 VT

Naked Globals

Name Field # of Occurrence
^(0 VFILE1+1*, VT1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK1*, OK1+1, OK1+2
>> C PRT+5*
DA Q!
DA(1 VFILE1*, VFILE1+1, VFILE1+2
DD VFILE1+8!
DGAP OK1+5*, VFILE, Q+1!
DGASC Q+1!
DGBIL Q!
DGBIL1 Q+1!
DGCNT Q!, NOVT
DGCNT1 Q!
DGCNT2 Q!
DGCOD Q!
DGCPT Q!
DGCPT0 Q+1!
DGCPT1 Q!
DGCPT2 Q+1!
DGCPT3 Q+1!
DGCPTS Q+1!
DGCT1 Q!
DGDAT Q+1!
DGDIV Q+1!
DGDT Q!
DGDT1 Q!
DGFIL Q!
DGLP Q+1!
DGMT Q!
DGMT1 Q!
DGNO Q!
DGNOADD VFILE1+3*, Q+1!
DGNOD Q!
DGTE Q+1!
DGTYP Q!
DGTYPE Q!
DGUNIT Q+1!
DIC VFILE1*, Q!
DIC(0 VFILE1*
DIE Q!
DINUM VFILE*, VFILE1+2, VFILE1+3, VFILE1+5, Q!
DIR Q2!, Q1!
DIR("A" PICK*
DIR(0 OK*
DIRUT Q2!, Q1!
DO VFILE1+8!
DR Q!
>> DTOUT OK+1, Q1
>> DUOUT OK+1, Q1
>> I PRT+3*, OK1+5*, VT1+3, VT1+7, VT1+9, CHG
>> I1 PRT+3*, VT, VT1+4, VT1+6, VT1+8
>> I2 VT*, VT1+4, VT1+6, VT1+8
>> I3 VT*, VT1+4, VT1+6, VT1+8
I4 Q+1!, VT*, VT1, VT1+3, VT1+7, VT1+9, CHG
I7 Q+1!
I9 Q+1!
IBCD Q!
IBCHG1 Q!
IBCHG2 Q!
IBCODCL Q+1!
IBCOPV1 Q!
IBDATE PRT+1~, PRT+3*, VT1
IBFT Q+1!
>> IBIFN OK+3, VFILE1, VFILE1+3, VFILE1+5, VFILE1+8
IBNUM PRT+1~, PRT+3*, PICK, OK
IBOPV Q!
IBOPV2 Q!
IBOPV3 Q!, VT*, VT1+1, VT1+2
IBOPV4 Q!
>> IBOUT OK1*, Q1*
IBQUIT PRT+1~*, PRT+3, PRT+6, OK+1*, Q2*, VT, VT1, SCR, SCR+1
IBRVCE Q!
IBVDT Q!
IBVT OK1+4*, OK1+5, Q+1!
IOF HDR1, SCR+1
IOSL PRT+5, SCR
IOST SCR
L Q!
P Q+1!, VT1+9*
U OK+3, VT1+2
V Q!
X OK+2, VFILE*, VFILE1+4, VFILE1+7, Q!, HDR1*
Y PRT+3*!, PICK!, OK+3, OK1, OK1+1, OK1+2, OK1+3, OK1+4, VFILE1+5*, Q!
, SCR*
Z Q+1!
Z1 PRT+1~, VT*, VT1, VT1+3, VT1+7, VT1+9, CHG
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All