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

Package: Integrated Billing

Routine: IBOCOSI


Information

IBOCOSI ;ALB/ARH - LIST INACTIVE CODES FROM COS; 5/27/92

Source Information

Source file <IBOCOSI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Integrated Billing 1 $$CPTSTAT^IBEFUNC2  

Entry Points

Name Comments DBIA/ICR reference
EN ;get device then run the report
; ****
EXIT ;clean up and quit
EN1 ;entry pt. for tasked jobs
PRINT ;set up headers and dates then print
END
P1 ;print the report from the temp sort file to the appropriate device
HDR ;print the report header
PAUSE ;pause at end of screen if being displayed on a terminal
STOP() ;determine if user requested task to stop

External References

Name Field # of Occurrence
DD^%DT PRINT+2
NOW^%DTC PRINT+2
^%ZIS EN+4
^%ZISC EN+9
^%ZTLOAD EN+5
$$S^%ZTLOAD STOP+1
^DIR PAUSE+1
$$CPTSTAT^IBEFUNC2 EN1+5
$$CPT^ICPTCOD EN1+9, EN1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?15,$S(IBSTAT=0:"AMA INACTIVE",1:"NATIONALLY, LOCALLY AND BILLING INACTIVE"),!
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,IBCPT,?7,$E(IBCPTP,1,IB1)
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: ?(9+IB1),$E(IBCHECK,1,IB2),?(11+IB1+IB2),$E(IBSUBH,1,IB3)
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: IBHDR,?(IOM-30),IBCDT,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"PROCEDURE",?(9+IB1),"CHECK-OFF SHEET",?(11+IB1+IB2),"SUBHEADER",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: IBDSH
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"***TASK STOPPED BY USER***",!!
  • Line Location: STOP+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.7 - [#350.7] EN1+8
^IBE(350.71 - [#350.71] EN1+3, EN1+4, EN1+5, EN1+7
^TMP("IBINACT" EN1+10*, END!, P1+1, P1+3, P1+4, P1+5

Label References

Name Line Occurrences
$$STOP EN1+3, HDR+1
EN1 EN+9
END EN1+12
EXIT EN+4, EN+5
HDR PRINT+4, P1+7
P1 PRINT+4
PAUSE P1+8, HDR+1

Naked Globals

Name Field # of Occurrence
^( P1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+2
>> %ZIS EN+4*
>> %ZIS("A" EN+4*
DIR PAUSE+2!
DIR(0 PAUSE+1*
DIROUT EXIT+3!, PAUSE+2!
DIRUT EXIT+3!, PAUSE+1, PAUSE+2!
DTOUT EXIT+3!, PAUSE+2!
DUOUT EXIT+3!, PAUSE+1, PAUSE+2!
IB1 PRINT+3*, END!, P1+6, P1+7, HDR+4
IB2 PRINT+3*, END!, P1+7, HDR+4
IB3 PRINT+3*, END!, P1+7
IBCDT PRINT+2*, END!, HDR+3
IBCHECK EN1+6*, EN1+8*, EN1+10, EN1+11!, P1+3*, P1+4*, P1+5, P1+7, P1+9!
IBCPT EN1+3*, EN1+4, EN1+9, EN1+10, EN1+11!, P1+1*, P1+3*, P1+4, P1+5, P1+6
, P1+9!
IBCPTP EN1+6*, EN1+9*, EN1+10, EN1+11!, P1+6*, P1+9!
IBDSH PRINT+3*, END!, HDR+4
IBHDR EN+3*, EN+5, EXIT+3!, PRINT+1*, END!, HDR+3
IBI PRINT+3*, END!, P1+3*, P1+6, P1+7*, P1+9!
IBLN EN1+5*, EN1+7, EN1+11!, PRINT+3*, END!, P1+2*, P1+7*, HDR+1*
IBPGN PRINT+3*, END!, HDR+1*, HDR+2, HDR+3, STOP+1
IBQ EN1+3*, EN1+12, END!, P1+1, P1+3, P1+4, P1+5, P1+8, HDR+1*, PAUSE+1*
IBSTAT EN1+5*, EN1+6, EN1+10, EN1+11!, P1+1*, P1+2, P1+3, P1+4, P1+5, P1+9!
IBSUBH EN1+6*, EN1+7*, EN1+8, EN1+9*, EN1+10, EN1+11!, P1+4*, P1+5*, P1+6, P1+7
, P1+9!
IBX EN1+4*, EN1+5, EN1+11!
IO EN+6
IO("Q" EN+5!
IOF HDR+2
IOM PRINT+3, HDR+3
IOSL P1+7
IOST HDR+2, PAUSE+1
>> POP EN+4
X EXIT+3!, END!, P1+9!
Y EXIT+3!, PRINT+2*, END!, P1+9!
>> ZTDESC EN+5*
>> ZTQUEUED EXIT+3, STOP+1
ZTREQ STOP+1!
>> ZTRTN EN+5*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All