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 |  Local Variables |  All
Print Page as PDF
Routine: BDW1VBLL

Package: Data Warehouse Export System

Routine: BDW1VBLL


Information

BDW1VBLL ;IHS/CMI/LAB - Display log of dw visit backload;

Source Information

Source file <BDW1VBLL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  VIEWR^XBLM  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 FULL^VALM1  

Entry Points

Name Comments DBIA/ICR reference
BROWSE ;
TEXT ;
EN1 ;
XIT ;EP
FF ;
PRINT ;
PROC ;

External References

Name Field # of Occurrence
^DIC EN1+4
^DIR EN1+6, TEXT+4, FF+1
FULL^VALM1 XIT+1
^XBDBQUE EN1+10
$$VAL^XBDIQ1 PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21
, PRINT+23, PRINT+25, PRINT+27, PRINT+29, PRINT+31
VIEWR^XBLM BROWSE+1
$$FMTE^XLFDT PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Display DATA WAREHOUSE EXPORT Log Entry",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"Goodbye"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?19,"DATA WAREHOUSE ENCOUNTER BACKLOAD LOG REPORT"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?7,"Information for Log Entry ",BDWLOG," Beginning Date: ",$$FMTE^XLFDT($P(^BDWBLOG(BDWLOG,0),U))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?30,"Number:",?40,BDWLOG
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?22,"Beginning Date:",?40,$$FMTE^XLFDT($P(BDWREC,U))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?25,"Ending Date:",?40,$$FMTE^XLFDT($P(BDWREC,U,2))
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?17,"Run Start Date/Time:",?40,$$FMTE^XLFDT($P(BDWREC,U,3))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?18,"Run Stop Date/Time:",?40,$$FMTE^XLFDT($P(BDWREC,U,4))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?22,"Total Run Time:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.13)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !?24,"Run Location:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.09)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !?15,"Message Header Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.12)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?14,"Message Trailer Record:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.14)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?17,"Transmission Status:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.15)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!?4,"Total Number of Visits Processed:",?40,$$VAL^XBDIQ1(90214,BDWLOG,.08)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !?5,"Total Number of Visits Exported: ",?40,$$VAL^XBDIQ1(90214,BDWLOG,.18)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !?14,"Deleted visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3103)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?7,"Zero dep entry visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3102)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !?18,"MFI visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3108)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !?11,"NO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3104)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !?10,"NO LOCATION visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3105)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !?5,"NO TYPE OF VISIT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3106)
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !?1,"NO SERVICE CATEGORY visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3107)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !?9,"DEMO PATIENT visits skipped:",?40,$$VAL^XBDIQ1(90214,BDWLOG,3101)
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !?40,"Data Warehouse Transmission Log - Page 2",!!
  • Line Location: FF+3
Routine Call
  • DIC
  • Line Location:
    • EN1+4
Routine Call
  • DIR
  • Line Location:
    • EN1+6
    • TEXT+4
    • FF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDWBLOG( PRINT+2, PRINT+3, PRINT+17, PRINT+19, PRINT+21, PRINT+23, PRINT+25, PRINT+27, PRINT+29, PRINT+31

Label References

Name Line Occurrences
BROWSE EN1+8
FF PRINT+16, PRINT+18, PRINT+20, PRINT+22, PRINT+24, PRINT+26, PRINT+28, PRINT+30, TEXT+1
XIT EN1+4, EN1+7, EN1+8, EN1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDWLOG EN1+5*, XIT+2!, PRINT+2, PRINT+3, PRINT+4, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13
, PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21, PRINT+23, PRINT+25, PRINT+27, PRINT+29, PRINT+31
BDWQUIT EN1+2!, PRINT+16, PRINT+18, PRINT+20, PRINT+22, PRINT+24, PRINT+26, PRINT+28, PRINT+30, TEXT+1
, FF+1*
BDWREC XIT+2!, PRINT+3*, PRINT+5, PRINT+6, PRINT+7, PRINT+8
DA EN1+6!
DIC EN1+4*!
DIC("A" EN1+4*
DIC(0 EN1+4*
DIR EN1+6!, TEXT+4!, FF+1!
DIR("A" EN1+6*, TEXT+4*, FF+1*
DIR("B" EN1+6*
DIR(0 EN1+6*, TEXT+4*, FF+1*
>> DIRUT EN1+7, TEXT+4*, FF+1
>> DUOUT TEXT+4
IOF EN1+1, XIT+1, PRINT+1, FF+2
IOSL PRINT+16, PRINT+18, PRINT+20, PRINT+22, PRINT+24, PRINT+26, PRINT+28, PRINT+30, TEXT+1
IOST TEXT+2, FF+1
U PRINT+2, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+17, PRINT+19, PRINT+21, PRINT+23, PRINT+25
, PRINT+27, PRINT+29, PRINT+31
>> XBNS EN1+9*
>> XBRC EN1+9*
>> XBRP EN1+9*
>> XBRX EN1+9*
>> Y EN1+4, EN1+5, EN1+8
>> ZTQUEUED TEXT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All