Routine: BDWSRP5

Package	Total	Call Graph
Data Warehouse Export System	1	HEAD^BDWSRP
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Data Warehouse Export System	1	BDWSRP

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;
VD	;
PROC	;
PRNTDATE	;
TEXT	;
PROC1	;
PROVDISC	;
PRNTPTR	;
ERRS	;
CLINIC	;
EOJ	;
SC	;
TYPE	;
INPT	;
PRNT	;

External References

Name	Field # of Occurrence
DD^%DT	PRNTDATE+1
HEAD^BDWSRP	BDWSRP5+2, INPT+3, ERRS+1, ERRS+3, ERRS+5, ERRS+7, ERRS+9, ERRS+11, ERRS+13, ERRS+15 , ERRS+17, TEXT+1, TEXT+4, TEXT+7, PROC+1, PRNT+1
$$VAL^XBDIQ1	ERRS+2, ERRS+4, ERRS+6, ERRS+8, ERRS+10, ERRS+12, ERRS+14, ERRS+16, ERRS+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"DATA WAREHOUSE RECORDS EXPORTED" Line Location: BDWSRP5+3
Function Call: WRITE	Prompt: !,"There were NO DATA WAREHOUSE VISIT transactions generated.",!! Line Location: BDWSRP5+4
Function Call: WRITE	Prompt: !,"Following is a breakdown of all encounters that generated DATA WAREHOUSE",!,"transactions by Visit Date, Type, Location, Service Category, Clinic and",!,"Primary Provider Discipline." Line Location: BDWSRP5+5
Function Call: WRITE	Prompt: !!,"Total # of Hospitalization Encounters to this Facility that were exported: ",BDWSR("INPT CNT"),! Line Location: INPT+4
Function Call: WRITE	Prompt: !!?18,"Number of encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),.05) Line Location: ERRS+2
Function Call: WRITE	Prompt: !?20,"Deleted encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3103) Line Location: ERRS+4
Function Call: WRITE	Prompt: !?17,"Zero dep entry visits skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3102) Line Location: ERRS+6
Function Call: WRITE	Prompt: !?28,"MFI visits skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3111) Line Location: ERRS+8
Function Call: WRITE	Prompt: !?17,"NO PATIENT encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3104) Line Location: ERRS+10
Function Call: WRITE	Prompt: !?13,"NO LOCATION of encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3105) Line Location: ERRS+12
Function Call: WRITE	Prompt: !?11,"NO TYPE OF VISIT encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3106) Line Location: ERRS+14
Function Call: WRITE	Prompt: !?8,"NO SERVICE CATEGORY encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3107) Line Location: ERRS+16
Function Call: WRITE	Prompt: !?15,"DEMO PATIENT encounters skipped:",?50,$$VAL^XBDIQ1(90213,BDWSR("LOG"),3101) Line Location: ERRS+18
Function Call: WRITE	Prompt: !!,"To list the encounters that were skipped, use option DWER." Line Location: TEXT+2
Function Call: WRITE	Prompt: !!,"The following 'trailer report' was included with the export ",!,"to the Data Warehouse:",! Line Location: TEXT+5
Function Call: WRITE	Prompt: !!?10,BDWSR("T") Line Location: PROC+2
Function Call: WRITE	Prompt: !?13,Y,?45,$J(^XTMP("BDWSR",BDWJOB,BDWBTH,"GEN",BDWSR("2"),BDWSR("N")),7) Line Location: PRNTDATE+1
Function Call: WRITE	Prompt: !!?10,BDWSR("T") Line Location: PRNT+1
Function Call: WRITE	Prompt: " (cont.)" Condition for execution: BDWSR("WC")>0 Line Location: PRNT+1
Function Call: WRITE	Prompt: !?13,BDWSR("D"),?45,$J(X,7) Line Location: PRNT+5
Function Call: WRITE	Prompt: ! Line Location: PRNTPTR+2
Function Call: WRITE	Prompt: ?13,$P(@G@(0),U,BDWSR("PIECE")) Line Location: PRNTPTR+3
Function Call: WRITE	Prompt: ?45,$J(X,7) Line Location: PRNTPTR+4
Function Call: WRITE	Prompt: ?55,"(IHS CODE: ",$P(^AUTTLOC(BDWSR("D"),0),U,10),")" Line Location: PRNTPTR+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	INPT+2
^AUTTLOC - [#9999999.06]	PRNTPTR+6
^BDWXLOG - [#90213]	BDWSRP5+4, INPT+2, ERRS+4, ERRS+6, ERRS+8, ERRS+10, ERRS+12, ERRS+14, ERRS+16, ERRS+18 , TEXT+6, TEXT+8
^XTMP("BDWSR"	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3

Label References

Name	Line Occurrences
EOJ	BDWSRP5+4
PRNT	PROC1+1, PROC1+2
PRNTDATE	PRNT+2
PRNTPTR	PRNT+4
PROC	VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2
PROC1	PROC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDWBTH	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> BDWJOB	PROC+3, PROC1+2, PRNTDATE+1, PRNT+3
>> BDWSR("1"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNT+2, PRNTPTR+6
>> BDWSR("2"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PROC+3, PROC1+1, PROC1+2, PRNTDATE+1 , PRNT+3
>> BDWSR("D"	PROC1+2*, PRNT+3, PRNT+5, PRNTPTR+1, PRNTPTR+6
>> BDWSR("GLOBAL"	LOC+1*, PRNTPTR+1
>> BDWSR("INPT C	NT" , INPT+1, INPT+2, INPT+4
>> BDWSR("LOG"	BDWSRP5+4, INPT+2, ERRS+2, ERRS+4, ERRS+6, ERRS+8, ERRS+10, ERRS+12, ERRS+14, ERRS+16 , ERRS+18, TEXT+6, TEXT+8
>> BDWSR("N"	PROC+3*, PROC1+2, PRNTDATE+1, PRNT+3
>> BDWSR("PIECE"	LOC+1*, PRNTPTR+3
>> BDWSR("PTR"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNT+4
>> BDWSR("QUIT"	BDWSRP5+2, INPT+3, VD+3, TYPE+2, LOC+2, SC+2, CLINIC+2, PROVDISC+2, ERRS+1, ERRS+3 , ERRS+5, ERRS+7, ERRS+9, ERRS+11, ERRS+13, ERRS+15, ERRS+17, TEXT+1, TEXT+4, TEXT+6 , TEXT+7, PROC+1, PROC+3, PRNT+1
>> BDWSR("T"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PROC+2, PRNT+1
>> BDWSR("WC"	VD+2, TYPE+1, LOC+1, SC+1, CLINIC+1, PROVDISC+1, PRNTDATE+1, PRNT+1, PRNT+5, PRNTPTR+5*
>> BDWX	TEXT+6*, TEXT+8
DUZ(2	INPT+2
G	PRNTPTR+1*, PRNTPTR+3, PRNTPTR+7!
IOSL	BDWSRP5+2, INPT+3, ERRS+1, ERRS+3, ERRS+5, ERRS+7, ERRS+9, ERRS+11, ERRS+13, ERRS+15 , ERRS+17, TEXT+1, TEXT+4, TEXT+7, PROC+1, PRNT+1
U	BDWSRP5+4, INPT+2, ERRS+4, ERRS+6, ERRS+8, ERRS+10, ERRS+12, ERRS+14, ERRS+16, ERRS+18 , PRNTPTR+3, PRNTPTR+6
>> V	INPT+2*
>> X	INPT+2, PRNT+3, PRNT+5, PRNTPTR+4
>> Y	PRNTDATE+1*

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWSRP5

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: