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

Package: Integrated Billing

Routine: IBCNSMR6


Information

IBCNSMR6 ;ALB/TJK - MRA EXTRACT ; 02-SEPT-97

Source Information

Source file <IBCNSMR6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZISC  ($$PWD,CLOSE,OPEN)^%ZISH  ^%ZTLOAD  
VA FileMan 2 DT^DICRW  ^DIR  
Integrated Billing 1 BLD1^IBCNSMRE  
Registration 1 $$SITE^VASITE  

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 IB MRA EXTRACT  

Entry Points

Name Comments DBIA/ICR reference
DIR
QUE ; -- que compilation to run
END ; -- end of program
POSTINIT ;Purges old data in 350.9, node 99

External References

Name Field # of Occurrence
^%ZISC END+2
$$PWD^%ZISH DIR+9
CLOSE^%ZISH DIR+17
OPEN^%ZISH DIR+15
^%ZTLOAD QUE+4
DT^DICRW IBCNSMR6+4
^DIR DIR+4, DIR+21, DIR+23
BLD1^IBCNSMRE DIR+18
$$SITE^VASITE DIR+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Build MRA Extract"
  • Line Location: IBCNSMR6+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: IBCNSMR6+8
Function Call: WRITE
  • Prompt: !,"This program extracts data from the AR and IB packages and"
  • Line Location: IBCNSMR6+9
Function Call: WRITE
  • Prompt: !,"sends it to the VA CFO office for analysis. A background job"
  • Line Location: IBCNSMR6+10
Function Call: WRITE
  • Prompt: !,"called 'IB-Compile MRA statistics' will be queued to run at a time"
  • Line Location: IBCNSMR6+11
Function Call: WRITE
  • Prompt: !,"you choose. A file will be created with the extracted info"
  • Line Location: IBCNSMR6+12
Function Call: WRITE
  • Prompt: !,"will have to be FTPed to a designated IP address. The file will"
  • Line Location: IBCNSMR6+13
Function Call: WRITE
  • Prompt: !,"have a format: MRA_SITE #_MMDDYYYY.DAT."
  • Line Location: IBCNSMR6+14
Function Call: WRITE
  • Prompt: !!,"This extract must be run on the Legacy sites as well as "
  • Line Location: IBCNSMR6+15
Function Call: WRITE
  • Prompt: !,"the Primary site if you are an integrated database facility."
  • Line Location: IBCNSMR6+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: IBCNSMR6+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+3
Function Call: WRITE
  • Prompt: !,*7,"Unable to determine default directory. Please enter one."
  • Line Location: DIR+9
Function Call: WRITE
  • Prompt: !,*7,"Unable to create file in specified volume/directory"
  • Line Location: DIR+16
Function Call: WRITE
  • Prompt: !!,"You must enter the list of Insurance Companies to be included in this extract first",!!
  • Line Location: DIR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+22
Function Call: WRITE
  • Prompt: !!,"This will automatically be tasked to run. Upon completion of the extract A mail message will be sent to you.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $S($G(ZTSK):"Job queued ("_ZTSK_")",1:"Task not queued!")
  • Line Location: QUE+5
Routine Call
  • DIR
  • Line Location:
    • DIR+4
    • DIR+21
    • DIR+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.9 - [#350.9] DIR+18, DIR+19, POSTINIT+2!, POSTINIT+3*

Label References

Name Line Occurrences
DIR DIR+9, DIR+16
END IBCNSMR6+6, DIR+6, DIR+19, DIR+21, DIR+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C END+1!
DIR IBCNSMR6+3~, DIR+5!
DIR("?" DIR+2*, DIR+20*, DIR+22*
DIR("A" DIR+1*, DIR+20*, DIR+22*
DIR("B" DIR+20*, DIR+22*
DIR(0 DIR*, DIR+20*, DIR+22*
DT IBCNSMR6+4, DIR+13
DTOUT IBCNSMR6+3~, DIR+6
DUOUT IBCNSMR6+3~, DIR+6
DUZ IBCNSMR6+6
EXDATE IBCNSMR6+3~, DIR+13*, DIR+14
FILENM IBCNSMR6+3~, DIR+14*, DIR+15
I END+1!
IBABEG IBCNSMR6+3~, DIR+21*
IBAEND IBCNSMR6+3~, DIR+23*
IBPRNT END+1!
IBQUIT END+1!
IBSNDRPT END+1!
IO("Q" QUE+2*, QUE+6!
J END+1!
PATH IBCNSMR6+3~, DIR+7!, DIR+8*, DIR+9*, DIR+15
POP DIR+16, END+1!
SITE IBCNSMR6+3~, DIR+12*, DIR+14
X END+1!
Y DIR+8, DIR+21, DIR+23, END+1!
ZTDESC QUE+3*, QUE+6!, END+1!
ZTIO QUE+2*, QUE+6!
ZTRTN QUE+3*, QUE+6!, END+1!
ZTSAVE QUE+6!, END+1!
ZTSAVE("DUZ" QUE+3*
ZTSAVE("FILENM" QUE+3*
ZTSAVE("IBABEG" QUE+3*
ZTSAVE("IBAEND" QUE+3*
ZTSAVE("PATH" QUE+3*
ZTSAVE("SITE" QUE+3*
ZTSK QUE+5, QUE+6!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All