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

Package: Integrated Billing

Routine: IBCNSMRA


Information

IBCNSMRA ;ALB/AAS - MEDICARE BILLS ; 02-SEPT-97

Source Information

Source file <IBCNSMRA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 DQ^IBCNSMR  BLD1^IBCNSMRE  
VA FileMan 2 DT^DICRW  ^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: 4

Package Total Caller Graph
Integrated Billing 4 IB MRA BACKBILLING REPORT  IBCNSMR  IBCNSMR0  IBCNSMR1  

Entry Points

Name Comments DBIA/ICR reference
RPRT ; -- Create list of all bills for an insurance company
; by year, by inpatient/outpatient, by w/wo procs and dia,
; by IB Status, by leaving and dead patients.
QUE ; -- que compilation to run
Q
END ; -- end of program
ASKPRNT ; -- should a report be printed, summary, detail, none
ASKRPRT ; -- should a report be sent to the ISC

External References

Name Field # of Occurrence
^%ZIS ASKPRNT+11
HOME^%ZIS RPRT+33
^%ZISC END+5
^%ZTLOAD Q+2
DT^DICRW RPRT+34
^DIR ASKPRNT+7, ASKRPRT+6
DQ^IBCNSMR Q+3
BLD1^IBCNSMRE RPRT+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Build statistics on Insurance Companies that are withholding Medicare",!,"Supplemental Policy Payments.",!!
  • Line Location: RPRT+37
Function Call: WRITE
  • Prompt: !!,"You must enter the list of Insurance Companies Withholding Supplimental Payments first",!!
  • Line Location: RPRT+39
Function Call: WRITE
  • Prompt: !!,"You didn't select anything to do! Try again.",!!
  • Line Location: RPRT+44
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRNT+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKPRNT+11
Routine Call
  • %ZIS
  • Line Location:
    • RPRT+33
Routine Call
  • DIR
  • Line Location:
    • ASKPRNT+7
    • ASKRPRT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.9 - [#350.9] RPRT+39, RPRT+40
^TMP("IB-MRA" END+1!
^TMP("IB-MRA-CNT" END+1!

Label References

Name Line Occurrences
ASKPRNT RPRT+43
ASKRPRT RPRT+42
END RPRT+40, RPRT+42, RPRT+43, RPRT+44, Q+5
Q QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKPRNT+1~, ASKPRNT+11*
C END+4!
DIR ASKPRNT+1~, ASKRPRT+1~
DIR("?" ASKPRNT+4*, ASKRPRT+3*
DIR("A" ASKPRNT+3*, ASKRPRT+2*
DIR("B" ASKPRNT+6*, ASKRPRT+5*
DIR(0 ASKPRNT+5*, ASKRPRT+4*
DIRUT ASKPRNT+1~, ASKPRNT+9, ASKRPRT+1~, ASKRPRT+7
DT RPRT+34
DTOUT ASKPRNT+1~, ASKRPRT+1~
DUOUT ASKPRNT+1~, ASKRPRT+1~
I END+4!
IBPRNT RPRT+44, QUE+1, END+4!, ASKPRNT+8*, ASKPRNT+10
IBQUIT RPRT+35*, RPRT+42, RPRT+43, END+2, END+4!, ASKPRNT+9*, ASKPRNT+11*, ASKRPRT+7*
IBSNDRPT RPRT+44, QUE+1, END+4!, ASKRPRT+8*
IO("Q" QUE+3*, Q, Q+4!
J END+4!
POP END+4!, ASKPRNT+11
X END+4!, ASKPRNT+1~, ASKRPRT+1~
Y END+4!, ASKPRNT+1~, ASKPRNT+8, ASKRPRT+1~, ASKRPRT+8
ZTDESC Q+1*, Q+4!, END+4!
ZTIO QUE+3*, Q+4!
>> ZTQUEUED END+2, END+3
>> ZTREQ END+2*
ZTRTN Q+1*, Q+4!, END+4!
ZTSAVE Q+4!, END+4!
ZTSAVE("IB*" Q+1*
ZTSK Q+3, Q+4!, END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All