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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BCHEXDI2

Package: IHS RPMS CHR System

Routine: BCHEXDI2


Information

BCHEXDI2 ; IHS/CMI/LAB - Export initialization ;

Source Information

Source file <BCHEXDI2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
IHS RPMS CHR System 1 (CURRUN,INFORM)^BCHEXDI3  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS RPMS CHR System 3 BCHEXC  BCHEXDI  BCHEXRE1  

Entry Points

Name Comments DBIA/ICR reference
DELCR ;
GENLOG ; GENERATE NEW LOG ENTRY
QERR ;
PERR ;
RERR ;
GETLOG ;EP GET LAST LOG ENTRY
DISPLOG ; DISPLAY LAST LOG DATA
CONFIRM ; SEE IF THEY REALLY WANT TO DO THIS
CHKCR ;
START ;
EERR ;
FERR ;
CFLP ;
ERROR ;
CHKOLD ;EP - CHECK FOR DATA LEFT BY OLD RUN
CHKCR1 ;
CHKCHR ; CHECK CHR RECORD "AEX" XREF

External References

Name Field # of Occurrence
CURRUN^BCHEXDI3 START+6
INFORM^BCHEXDI3 START+1
^DIC GENLOG+4
^DIR CFLP+1, CHKCR1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"*****ERROR ENCOUNTERED*****",!,"The last CHR Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",!
  • Line Location: EERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"*****ERROR ENCOUNTERED*****",!,"Whoa! The Transaction global from the previous run was NEVER successfully",!,"written to an output device (unix uucppublic file, cartridge, diskette).",!
  • Line Location: PERR+4
Function Call: WRITE
  • Prompt: !,"You must execute the menu option called 'OUTP' before any further processing.",!,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",BCH("LAST LOG")," was ever received by your Area Office.",!
  • Line Location: PERR+5
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"CHR Data Transmission is currently running!!"
  • Line Location: RERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"CHR Data Transmission is already queued to run!!"
  • Line Location: QERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The last CHR Export failed and has never been reset.",!,"See your site manager for assistence",!
  • Line Location: FERR+4
Function Call: WRITE
  • Prompt: !!,"Last run was for ",BCH("LAST BEGIN")," through ",BCH("LAST END"),"."
  • Line Location: DISPLOG+3
Function Call: WRITE
  • Prompt: !,"The location for this run is ",$P(^DIC(4,DUZ(2),0),U),"."
  • Line Location: CONFIRM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CFLP+1
Function Call: WRITE
  • Prompt: !!,"There are cross references entries for visits prior to the date of ",Z,".",!
  • Line Location: CHKCR1+1
Function Call: WRITE
  • Prompt: !,"BYE.."
  • Line Location: CHKCR1+4
Function Call: WRITE
  • Prompt: !!,"I will now clean up that cross reference.... Please be patient..."
  • Line Location: DELCR+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELCR+2
Function Call: WRITE
  • Prompt: !,"OK ALL DONE",!
  • Line Location: DELCR+3
Routine Call
  • DIC
  • Line Location:
    • GENLOG+4
Routine Call
  • DIR
  • Line Location:
    • CFLP+1
    • CHKCR1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BCHXLOG - [#90002.91] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHR("AEX" CHKCHR+2, CHKCHR+4, CHKCHR+8, DELCR+2!
^BCHRDATA( CHKOLD+1, GENLOG+7!
^BCHSITE - [#90002.31] GENLOG+2
^BCHXLOG - [#90002.91] GETLOG+1, GETLOG+2, GETLOG+5, ERROR+2, DISPLOG+1
^BCHXLOG(0 GETLOG+1
^DD("DD" DISPLOG+1, GENLOG+3, CHKCR+2
^DIC(4 - [#4] CONFIRM+2
^TMP("BCHDR" CHKOLD+2
^TMP("BCHREDO" CHKOLD+3

Label References

Name Line Occurrences
@( ERROR+4
CHKCHR START+8
CHKCR CHKCHR+3
CHKCR1 CHKCR+3
CHKOLD START+4
CONFIRM START+10
DELCR CHKCR1+5
DISPLOG GETLOG+4
EERR ERROR+3
ERROR GETLOG+6
GENLOG START+12
GETLOG START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCH("BATCH" GENLOG+2*, GENLOG+3
>> BCH("DATE" DELCR+2*
>> BCH("FIRST RU N" , CHKCHR+3
>> BCH("LAST BEG IN" , DISPLOG+1*, DISPLOG+3
>> BCH("LAST END " , DISPLOG+1*, DISPLOG+3
>> BCH("LAST LOG " , GETLOG+1*, GETLOG+2*, GETLOG+3, GETLOG+5, ERROR+2, PERR+5, DISPLOG+1
>> BCH("PREV STA TUS" , ERROR+2*, ERROR+3, ERROR+4
>> BCH("QFLG" START+3, START+5, START+7, START+9, START+11, CHKOLD+1*, CHKOLD+2*, CHKOLD+3*, ERROR+1*, EERR+1*
, PERR+1*, RERR+1*, QERR+1*, FERR+1*, CHKCHR+3, CHKCHR+5*, CHKCHR+9*, CFLP+2*, CFLP+3*, GENLOG+5*
, CHKCR1+3*, CHKCR1+4*
>> BCH("RUN BEGI N" , CHKCHR+5, CHKCHR+7, GENLOG+3, CHKCR+2, CHKCR+3, DELCR+2
>> BCH("RUN END" , CHKCHR+9, GENLOG+3
>> BCH("RUN LOG" , GENLOG+6*
>> BCHR("R DATE" , CHKCHR+1*, CHKCHR+2*, CHKCHR+4*, CHKCHR+5, CHKCHR+7*, CHKCHR+8*, CHKCHR+9, CHKCR+3
DA CFLP+1!, CHKCR1+2!
DIC GENLOG+3*, GENLOG+4!
DIC("DR" GENLOG+3*
DIC(0 GENLOG+3*
DIR CFLP+1!, CHKCR1+2!
DIR("A" CFLP+1*, CHKCR1+2*
DIR("B" CFLP+1*
DIR(0 CFLP+1*, CHKCR1+2*
>> DIRUT CFLP+2, CHKCR1+3
DLAYGO GENLOG+3*, GENLOG+4!
DR GENLOG+4!
DUZ(2 CONFIRM+2, GENLOG+2, GENLOG+3
U GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2, GENLOG+2
>> X GETLOG+1*, GETLOG+2*, GENLOG+3*, DELCR+2*
>> Y DISPLOG+1*, CFLP+3, GENLOG+3*, GENLOG+5, GENLOG+6, CHKCR+2*, CHKCR1+4
>> Z CHKCR+2*, CHKCR1+1, CHKCR1+2
>> ZTQUEUED CHKOLD+1, CHKOLD+2, CHKOLD+3, EERR+3, PERR+3, RERR+3, QERR+3, FERR+3, DISPLOG+2, CHKCHR+5
, CHKCHR+9, CONFIRM+1, GENLOG+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All