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

Package: Data Warehouse Export System

Routine: BDWCVAR


Information

BDWCVAR ; IHS/CMI/LAB - visit audit report ;

Source Information

Source file <BDWCVAR.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 3 ^%DTC  DT^DICRW  ^DIR  
Data Warehouse Export System 2 VA^BDW1VBL2  (CHKOLD,CHKVISIT,CONFIRM,CURRUN,GETLOG)^BDWRDRI2  
IHS VA Utilities 2 ^XBGSAVE  EN^XBVK  
Kernel 2 HOME^%ZIS  $$NOW^XLFDT  
IHS Generic Interface System 1 $$DATE^INHUT  
IHS Patient 1 (,KILL)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BASICS ;EP - BASIC INITS
PROCESS ;
PROCTX ; process and generate appropriate hl7 message
WRITE() ; use XBGSAVE to save the temp global (BDWDATA) to a delimited
; file that is exported to the DW system at 127.0.0.1
VISIT ;EP
START ;
GENREC ;
EXIT ;
PROCESS3 ;
PROCESS2 ;

External References

Name Field # of Occurrence
^%DTC WRITE+10
HOME^%ZIS BASICS+3
^AUPNPAT VISIT+14
KILL^AUPNPAT PROCESS3+2
VA^BDW1VBL2 PROCTX+1
CHKOLD^BDWRDRI2 START+9
CHKVISIT^BDWRDRI2 START+13
CONFIRM^BDWRDRI2 START+15
CURRUN^BDWRDRI2 START+11
GETLOG^BDWRDRI2 START+7
DT^DICRW WRITE+8
^DIR START+19
$$DATE^INHUT WRITE+5
^XBGSAVE WRITE+18
EN^XBVK EXIT+1
$$NOW^XLFDT WRITE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Audit already running or not completed successfully, cannot continue."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"This option is used to create a visit audit report to accompany a data",!,"warehouse export.",!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"You need to be logged in as ",$P(^DIC(4,BDW("RUN LOCATION"),0),U)," in order to do this audit report.",!
  • Line Location: BASICS+6
Routine Call
  • %ZIS
  • Line Location:
    • BASICS+3
Routine Call
  • DIR
  • Line Location:
    • START+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] PROCESS3+3, GENREC+1, VISIT+4
^AUPNVSIT("ADWO" PROCESS+3, PROCESS2+1, PROCESS3+3!
^AUTTLOC - [#9999999.06] VISIT+11, WRITE+12
^BDWDATA START+1, BASICS+1!, WRITE+22!, WRITE+25!, WRITE+5*
^BDWSITE(1 BASICS+5, BASICS+10
^DIC(4 - [#4] BASICS+6
^DPT - [#2] VISIT+13, VISIT+15
^INRHD("B" BASICS+11

Label References

Name Line Occurrences
$$WRITE START+18
BASICS START+4
EXIT START+8, START+10, START+12, START+14, START+16, START+20
GENREC PROCESS3+4
PROCESS START+17
PROCESS2 PROCESS+3
PROCESS3 PROCESS2+1
PROCTX GENREC+5
VISIT GENREC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDOVRR BASICS+7*
BDW BASICS+4!
BDW("ADDS" BASICS+9*
BDW("CONTROL DATE" , PROCESS+2*, PROCESS+3*, PROCESS2+1, PROCESS3+3
BDW("COUNT" BASICS+8*
BDW("DEL" BASICS+8*
BDW("DELS" BASICS+9*
BDW("DEMO" BASICS+8*
BDW("MFI" BASICS+8*
BDW("MODS" BASICS+9*
BDW("NO CAT" BASICS+8*
BDW("NO LOC" BASICS+8*
BDW("NO PAT" BASICS+8*
BDW("NO TYPE" , BASICS+8*
BDW("QFLG" START+3*, START+5, START+6*, START+8, START+10, START+12, START+14, START+16, PROCESS+3, PROCESS2+1
, BASICS+5*, BASICS+6*
BDW("REG" BASICS+8*
BDW("RUN BEGI N" , PROCESS+2
BDW("RUN END" , PROCESS+3
BDW("RUN LOCA TION" , BASICS+5*, BASICS+6
BDW("SKIP" BASICS+8*
BDW("TXS" BASICS+8*
BDW("V DFN" PROCESS2+1*, PROCESS3+3, GENREC+1, VISIT+4
BDW("VISITS" BASICS+8*
BDW("VPROC" BASICS+8*
BDW("ZERO" BASICS+8*
BDWASU WRITE+4~, WRITE+12*, WRITE+13
>> BDWBS BASICS+3*
>> BDWCNTR PROCESS+2*, PROCESS3+5*
BDWE PROCESS3+1!, BASICS+4!, GENREC+2!, GENREC+4, GENREC+6!, VISIT+1!, VISIT+17*
BDWERRC BASICS+4!, BASICS+8*
BDWH GENREC+6!
>> BDWIEDST BASICS+11*
BDWJUL WRITE+4~, WRITE+11*, WRITE+13
BDWS BASICS+4!
BDWT PROCESS3+1!, BASICS+4!, GENREC+6!
BDWV PROCESS3+1!, BASICS+4!
BDWV("IHS LOC ATION CODE" , VISIT+11*
BDWV("LOC DFN " , VISIT+9*, VISIT+10, VISIT+11
BDWV("PATIENT DFN" , VISIT+12*, VISIT+13, VISIT+14, VISIT+15,  NAME" , VISIT+15*, VISIT+16
BDWV("SRV CAT " , VISIT+7*, VISIT+8
BDWV("TYPE" VISIT+5*, VISIT+6
BDWV("V REC" GENREC+1*, VISIT+2, VISIT+3, VISIT+4, VISIT+5, VISIT+7, VISIT+9, VISIT+12
>> BDWVA BASICS+10*
>> BDWVA("COUNT" BASICS+2*, BASICS+8*, WRITE+5*
DA START+19!
DIR START+19!
DIR("A" START+19*
DIR(0 START+19*
DT WRITE+4~, WRITE+8, WRITE+9
DUZ(2 BASICS+6, WRITE+12
>> IOBS BASICS+3
U BASICS+5, BASICS+6, BASICS+10, VISIT+2, VISIT+3, VISIT+4, VISIT+5, VISIT+7, VISIT+9, VISIT+11
, VISIT+12, VISIT+15, WRITE+12
X START+18*, WRITE+4~, WRITE+11
X1 WRITE+4~, WRITE+9*
X2 WRITE+4~, WRITE+9*
>> XBFLG WRITE+20, WRITE+24, WRITE+30
>> XBFLG(1 WRITE+25, WRITE+26, WRITE+28
XBFLT WRITE+3~, WRITE+6*
XBFN WRITE+3~, WRITE+13*
XBGL WRITE+3~, WRITE+6*
XBMED WRITE+3~, WRITE+6*
XBNAR WRITE+3~, WRITE+7*
XBQ WRITE+3~, WRITE+6*
XBQTO WRITE+3~
>> XBS1 WRITE+16*
XBUF WRITE+3~
>> Y VISIT+14*
>> ZTQUEUED START+19, PROCESS+1, BASICS+3, WRITE+21, WRITE+25, WRITE+26, WRITE+27, WRITE+28
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All