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

Package: Integrated Billing

Routine: IBCRON


Information

IBCRON ;ALB/ARH - RATES: REPORTS PROVIDER DISCOUNT ; 10-OCT-98

Source Information

Source file <IBCRON.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
DEV ;get the device
RPT ;find, save, and print the data that satisfies the search parameters
EXIT ;clean up and quit
SORT ;save the data in sorted order in a temporary file, sort by Special Group Name then Provider Type Name
PRINT ;print the report from the temp sort file to the appropriate device
LNCHK(LNS) ; check if new page is needed
HDR ;print the report header
PAUSE ;pause at end of screen if beeing displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
SORT2 ;save the data in sorted order in a temporary file, sort by Special Group Name then Provider Type Name
PRINT2 ;print the report from the temp sort file to the appropriate device
HDR2 ;print the report header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Report requires 132 columns."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,?IBT,"GROUP: ",$P(IBSG0,U,1),!,?IBT
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: IBI
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?5,IBPCVA,?16,$E($P(IBPC0,U,1),1,38),?56,$E($P(IBPC0,U,2),1,37),?95,$E($P(IBPC0,U,3),1,36)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"BILLING PROVIDER DISCOUNT LIST",?(IOM-30),IBNOW,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"PROVIDER TYPE",?36,"PERCENT",!,?5,"VA Code",?16,"Occupation",?56,"Specialty",?95,"Subspecialty",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: IBI
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !,$E(IBS1,1,21),?25,$E(IBS2,1,21),?47,$J(IBPDP,4)
  • Line Location: PRINT2+11
Function Call: WRITE
  • Prompt: ?53,$P(IBLNI,U,9),?62,$E($P(IBLNI,U,4),1,22),?85,$E($P(IBLNI,U,5),1,22),?110,$E($P(IBLNI,U,6),1,22)
  • Line Location: PRINT2+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !,"BILLING PROVIDER DISCOUNT LIST FOR PROVIDERS",?(IOM-30),IBNOW,?(IOM-8),"PAGE ",IBPGN
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !,"SPECIAL GROUP: ",$P($G(^IBE(363.32,+$G(IBPDSG),0)),U,1),?53,"PERSON CLASS:"
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !,"PROVIDER TYPE",?25,"PROVIDER"
  • Line Location: HDR2+8
Function Call: WRITE
  • Prompt: !,"PROVIDER",?25,"PROVIDER TYPE"
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: ?49,"%",?53,"VA Code",?66,"Occupation",?88,"Specialty",?110,"Subspecialty",!
  • Line Location: HDR2+10
Function Call: WRITE
  • Prompt: IBI
  • Line Location: HDR2+11
Info |  Source |  Entry Points |  Interaction Calls