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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$CODE2TXT,$$GET,$$IEN2CODE)^XUA4A72  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IBCROR  

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

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS EN+1
^%ZISC EXIT+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD STOP+1
^DIR EN+3, EN+6, PAUSE+2
$$FMTE^XLFDT HDR+3, HDR2+3
$$NOW^XLFDT HDR+3, HDR2+3
$$CODE2TXT^XUA4A72 PRINT+19
$$GET^XUA4A72 SORT2+5
$$IEN2CODE^XUA4A72 SORT+10

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • EN+6
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.32 - [#363.32] SORT+5, PRINT+5, HDR2+7
^IBE(363.34 - [#363.34] SORT+3, SORT+4, SORT+9, PRINT+13, SORT2+7, SORT2+8, PRINT2+9
^TMP($J RPT+3!, EXIT+1!, SORT+6*, SORT+7*, SORT+11*, PRINT+4, PRINT+5, PRINT+11, PRINT+12, PRINT+17
, PRINT+18, SORT2+11*, SORT2+13*, SORT2+14*, PRINT2+4, PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+8
^VA(200 - [#200] SORT2+3, SORT2+4

Label References

Name Line Occurrences
$$LNCHK PRINT+4, PRINT+12, PRINT+17, PRINT2+5, PRINT2+6
$$STOP HDR+2, HDR2+2
EXIT EN+3, EN+6, DEV+2, DEV+3
HDR PRINT+2, LNCHK+1
HDR2 PRINT2+4
PAUSE PRINT+23, LNCHK+1, PRINT2+4
PRINT RPT+5
PRINT2 RPT+6
SORT RPT+5
SORT2 RPT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+2*
>> %ZIS("A" DEV+2*
DIR EN+1~, EN+3!, EN+6!, PAUSE+1~, PAUSE+2!
DIR("?" EN+2*
DIR("A" EN+3*, EN+6*
DIR("B" EN+3*
DIR(0 EN+3*, EN+6*, PAUSE+2*
DIRUT EN+3, EN+6, PAUSE+1~, PAUSE+3
DTOUT PAUSE+1~
DUOUT PAUSE+1~, PAUSE+3
IBCNT SORT2+1~*, SORT2+9*, SORT2+11, SORT2+13, SORT2+14
IBI PRINT+1~, PRINT+9*, HDR+1~, HDR+8*, HDR2+1~, HDR2+11*
IBL PRINT+1~, PRINT+7*, PRINT+9
IBLN PRINT+1~, PRINT+8*, PRINT+15*, PRINT+21*, LNCHK+1, HDR+2*, PRINT2+1~, PRINT2+11*, HDR2+2*
IBLNI PRINT2+1~, PRINT2+8*, PRINT2+9, PRINT2+12
IBNM SORT2+1~, SORT2+4*, SORT2+11, SORT2+13, SORT2+14
IBNOW HDR+1~, HDR+3*, HDR+6, HDR2+1~, HDR2+3*, HDR2+6
IBPC SORT2+1~, SORT2+5*, SORT2+7, SORT2+11
IBPC0 PRINT+1~, PRINT+19*, PRINT+21
IBPCFN SORT+1~, SORT+9*, SORT+10, SORT+11, PRINT+1~, PRINT+18*, PRINT+19
IBPCVA SORT+1~, SORT+10*, SORT+11, PRINT+1~, PRINT+17*, PRINT+18, PRINT+21
IBPD0 SORT+1~, SORT+4*, SORT+5, PRINT+1~, PRINT+13*, PRINT+15, SORT2+1~, SORT2+8*
IBPDFN SORT+1~, SORT+3*, SORT+4, SORT+7, SORT+9, SORT+11, PRINT+1~, PRINT+12*, PRINT+13, PRINT+17
, PRINT+18, SORT2+1~, SORT2+7*, SORT2+8, SORT2+11
IBPDN SORT+1~, SORT+4*, SORT+7, SORT+11, PRINT+1~, PRINT+11*, PRINT+12, PRINT+17, PRINT+18
IBPDNM SORT2+1~, SORT2+8*, SORT2+13, SORT2+14
IBPDP PRINT2+1~, PRINT2+9*, PRINT2+11
IBPDSG SORT2+1~, SORT2+8*, SORT2+13, SORT2+14, PRINT2+1~, PRINT2+4*, PRINT2+5, PRINT2+6, PRINT2+7, HDR2+7
IBPGN PRINT+1~, PRINT+2*, HDR+2*, HDR+4, HDR+6, STOP+1, PRINT2+1~, PRINT2+2*, HDR2+2*, HDR2+4
, HDR2+6
IBPRV SORT2+1~, SORT2+3*, SORT2+4, SORT2+5
IBQUIT PRINT+1~, PRINT+2*, PRINT+11, PRINT+23, LNCHK+1, LNCHK+2, HDR+2*, PAUSE+3*, PRINT2+1~, PRINT2+2*
, PRINT2+4, HDR2+2*
IBRPT EN+1~, EN+4*, EN+6, RPT+5, RPT+6
IBS1 PRINT2+1~, PRINT2+5*, PRINT2+6, PRINT2+7, PRINT2+11
IBS2 PRINT2+1~, PRINT2+6*, PRINT2+7, PRINT2+11
IBSG0 PRINT+1~, PRINT+5*, PRINT+7, PRINT+8
IBSGFN SORT+1~, SORT+5*, SORT+6
IBSGN SORT+1~, SORT+5*, SORT+6, SORT+7, SORT+11, PRINT+1~, PRINT+4*, PRINT+5, PRINT+11, PRINT+12
, PRINT+17, PRINT+18
IBSRT EN+1~, EN+7*, RPT+6, SORT2+13, SORT2+14, HDR2+8, HDR2+9
IBT PRINT+1~, PRINT+7*, PRINT+8
IBTMP PRINT2+1~, PRINT2+7*, PRINT2+8
IO DEV+4
IO("Q" DEV+3!
IOF HDR+4, HDR2+4
IOM PRINT+7, HDR+6, HDR+8, HDR2+6, HDR2+11
IOSL LNCHK+1
IOST HDR+4, PAUSE+1, HDR2+4
LNS LNCHK~, LNCHK+1
>> POP DEV+2
U SORT+4, SORT+5, PRINT+7, PRINT+8, PRINT+15, PRINT+21, SORT2+4, SORT2+8, SORT2+11, PRINT2+9
, PRINT2+12, HDR2+7
X EN+1~, PRINT+1~, PRINT2+1~
Y EN+1~, EN+4, EN+7, PRINT+1~, PRINT2+1~
>> ZTDESC DEV+3*
>> ZTQUEUED EXIT+1, STOP+1
ZTREQ STOP+1!
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All