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

Package: Integrated Billing

Routine: IBCNSMR6


Information

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

Source Information

Source file <IBCNSMR6.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls