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

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

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
Info |  Source |  Entry Points |  Interaction Calls