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

Package: Data Warehouse Export System

Routine: BDW1BLR


Information

BDW1BLR ; IHS/CMI/LAB - DW EXPORT REG DATA BACKLOAD VIA HL7 ;

Source Information

Source file <BDW1BLR.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 4 FILE^DICN  ^DIE  ^DIK  ^DIR  
IHS Support HL7 Interfaces 2 $$CHK^BHLBCK  ($$DW1HDR,$$DW1REG,$$DW1TRLR)^BHLEVENT  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
Kernel 2 HOME^%ZIS  $$NOW^XLFDT  
Data Warehouse Export System 1 $$FULLEP^BDWDWPX  

Entry Points

Name Comments DBIA/ICR reference
GIS ;-- check background jobs for gis
HDR ;;^Export Data for ALL Registration Records to Data Warehouse via HL7
G
EXIT ;
ORF(P) ;patient has ORF?
CONT ;do you want to continue?
LOOP ;LOOP PATS

External References

Name Field # of Occurrence
HOME^%ZIS BDW1BLR+10
$$FULLEP^BDWDWPX CONT+8
$$CHK^BHLBCK GIS+6
$$DW1HDR^BHLEVENT G+10
$$DW1REG^BHLEVENT LOOP+19
$$DW1TRLR^BHLEVENT G+21
FILE^DICN G+4
^DIE G+12, G+24, G+26, LOOP+26
^DIK LOOP+6
^DIR BDW1BLR+6, CONT+2, CONT+11, G+29
^XBFMK G+13, G+25, G+27, EXIT+2
EN^XBVK EXIT+2
$$NOW^XLFDT BDW1BLR+9, G+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"previous DW export not written to host file"
  • Line Location: BDW1BLR+6
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"*",?(IOM\2-($L($P($T(HDR),U,2))\2)),$P($T(HDR),U,2),?(IOM-3),"*",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?10,"Exporting all Registration info for ",$P(^DIC(4,BDWATXST,0),U)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?10,"** Merge'd or Deleted Pts are not exported."
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?10,"** Data checks are -not- performed, as in the Reg export."
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!?10,"Creation of audit file unsuccessful.",!!
  • Line Location: CONT+10
Function Call: WRITE
  • Prompt: !!?10,"NOW PROCESSING ALL REGISTRATION RECORDS...",!
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !!,"Creating log entry failed....notify programmer."
  • Line Location: G+5
Function Call: WRITE
  • Prompt: !?10,"NUMBER OF PATIENT ENTRIES PROCESSED = ",$J(BDWA("TOT"),5)
  • Line Location: G+17
Function Call: WRITE
  • Prompt: !?10,"NUMBER OF REGISTRATION RECORDS (HL7 MESSAGES) TO SEND = ",$J(BDWAIN03,6)
  • Line Location: G+18
Function Call: WRITE
  • Prompt: !!?17,"DW EXPORT HAS BEEN COMPLETED."
  • Line Location: G+28
Function Call: WRITE
  • Prompt: !!,"Checking GIS Background Jobs..."
  • Line Location: GIS+2
Function Call: WRITE
  • Prompt: !,"resetting DW AUDIT file"
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: "On IEN ",DFN," of ",BDWAP3," in ^AUPNPAT(..."
  • Line Location: LOOP+7
Routine Call
  • %ZIS
  • Line Location:
    • BDW1BLR+10
Routine Call
  • DIE
  • Line Location:
    • G+12
    • G+24
    • G+26
    • LOOP+26
Routine Call
  • DIR
  • Line Location:
    • BDW1BLR+6
    • CONT+2
    • CONT+11
    • G+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNDWAF - [#9000003.3] Classic Fileman Calls
^BDWSITE - [#90212.1] Classic Fileman Calls
^BDWRBLOG - [#90215] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC - [#9009061] ORF+7
^AUPNDWAF - [#9000003.3] LOOP+6
^AUPNMCD("B" LOOP+25
^AUPNMCR - [#9000003] LOOP+25
^AUPNPAT - [#9000001] LOOP+4*, LOOP+7, LOOP+13, LOOP+14, LOOP+17, ORF+6
^AUPNPAT(0 LOOP+2
^AUPNPRVT - [#9000006] LOOP+25
^AUTTSITE(1 BDW1BLR+9
^BDWTMP( BDW1BLR+6, G+11*, G+22*, LOOP+20*
^DIC(4 - [#4] HDR+5
^DPT - [#2] LOOP+8, LOOP+9, LOOP+17, LOOP+24
^INRHD("B" BDW1BLR+5, GIS+1

Label References

Name Line Occurrences
$$ORF LOOP+11
EXIT BDW1BLR+8, CONT+3, CONT+4, CONT+12, CONT+13, G+5
GIS G
HDR HDR+3
LOOP G+16

Naked Globals

Name Field # of Occurrence
^(0 LOOP+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGEXPF CONT+8*, CONT+9
AGPEXF BDW1BLR+7~
>> BDWA("TOT" BDW1BLR+9*, G+17, G+24, LOOP+10*
BDWADONE LOOP+1~, LOOP+12*, LOOP+13, LOOP+21*
BDWADPT0 LOOP+1~, LOOP+17*
>> BDWAFDAT LOOP+2*
>> BDWAIN01 BDW1BLR+9*
>> BDWAIN03 BDW1BLR+9*, G+18, G+24, LOOP+22*
>> BDWAIN06 BDW1BLR+9*
>> BDWALDAT LOOP+2*
BDWAN11 LOOP+1~, LOOP+17*
BDWAP3 LOOP+1~, LOOP+2*, LOOP+7
BDWAPAT0 LOOP+1~, LOOP+17*
>> BDWAROUT BDW1BLR+9*
BDWASITE LOOP+1~, LOOP+12*, LOOP+13*, LOOP+14
>> BDWATXST BDW1BLR+9*, HDR+5, G+4
>> BDWDA LOOP+6*
BDWGISI GIS+3~, GIS+4*, GIS+6
BDWGISS GIS+5~, GIS+6*
>> BDWIEDST G+11, G+22, GIS+1*, LOOP+20
>> BDWIEN G+7*, G+10, G+12, G+21, G+24
>> BDWUSER CONT+6*
D ORF+2~, ORF+5*, ORF+6*, ORF+7
D0 G+3!, G+6!
DA BDW1BLR+6!, CONT+2!, CONT+11!, G+3!, G+6!, G+12*!, G+24*!, G+26*, G+29!, LOOP+6*
, LOOP+23*, LOOP+26!
DD G+3!, G+6!
DFN LOOP+1~, LOOP+2*, LOOP+7*, LOOP+8, LOOP+9, LOOP+11, LOOP+13, LOOP+14, LOOP+17, LOOP+19
, LOOP+23, LOOP+24, LOOP+25
DIADD G+3!, G+4*, G+6!, EXIT+1!
DIC G+4*, G+6!
DIC("DR" G+4*
DIC(0 G+4*
DIE G+12*!, G+24*!, G+26*, LOOP+23*, LOOP+26!
>> DIK LOOP+6*
DIR BDW1BLR+6!, CONT+2!, CONT+11!, G+29!
DIR("A" BDW1BLR+6*, CONT+2*, CONT+11*, G+29*
DIR("B" CONT+2*, CONT+11*
DIR(0 BDW1BLR+6*, CONT+2*, CONT+11*, G+29*
>> DIRUT CONT+3, CONT+12
DIU LOOP+26!
DIV LOOP+26!
DIW LOOP+26!
DIX LOOP+26!
DLAYGO G+3!, G+4*, G+6!, EXIT+1!
DO G+3!, G+6!
DR G+12*!, G+24*!, G+26*, LOOP+23*, LOOP+24*, LOOP+25*, LOOP+26!
DT G+26, LOOP+23, LOOP+24, LOOP+25
DUZ CONT+6, G+4
DX LOOP+1~, LOOP+3*
DY LOOP+1~, LOOP+3*
FLAG ORF+2~, ORF+3*, ORF+8*, ORF+10
>> I HDR+2*, HDR+4*
IOF HDR+1
IOM HDR+2, HDR+3, HDR+4
>> IOXY LOOP+7
P ORF~, ORF+1, ORF+6
T LOOP+1~, LOOP+16!
U BDW1BLR+9, HDR+3, HDR+5, LOOP+2, LOOP+4, LOOP+9, LOOP+14
>> X BDW1BLR+5*, BDW1BLR+6, G+4*, G+9*, G+10*, G+11, G+12, G+20*, G+21*, G+22
, G+24, LOOP+4*, LOOP+18*, LOOP+19*, LOOP+20
>> Y CONT+4, CONT+13, G+5, G+7, LOOP+4*
>> ZTQUEUED LOOP+7

Marked Items

Name Field # of Occurrence
$T(HDR HDR+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All