Routine: BDWSRP

Package	Total	Call Graph
VA Fileman	3	DD^%DT EN^DIQ1 ^DIR
Data Warehouse Export System	1	^BDWSRP5

Package

Total

Call Graph

VA Fileman

DD^%DT EN^DIQ1 ^DIR

Data Warehouse Export System

^BDWSRP5

Package	Total	Caller Graph
Data Warehouse Export System	2	BDWSR BDWSRP5

Package

Total

Caller Graph

Data Warehouse Export System

BDWSR BDWSRP5

Name	Comments	DBIA/ICR reference
HEAD	;EP
HEAD1	;
STATDB	;
OVERVIEW	;
START	;
TAPE	;
EOJ	;
PRINT	;
GEN	;

Name	Field # of Occurrence
DD^%DT	START+3
^BDWSRP5	STATDB+1
EN^DIQ1	TAPE+3
^DIR	START+8, HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !! Line Location: OVERVIEW+2
Function Call: WRITE	Prompt: !!,"This Data Warehouse Export was processed on ",BDWSR("RUN DATE")," for Posting ",!,"Dates ",BDWSR("PRINT BEGIN")," to ",BDWSR("PRINT END"),". The following transactions were exported:" Line Location: OVERVIEW+3
Function Call: WRITE	Prompt: !!?5,"Patient Registration updates: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,11) Line Location: OVERVIEW+4
Function Call: WRITE	Prompt: !?5," PCC Encounters: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,18) Line Location: OVERVIEW+5
Function Call: WRITE	Prompt: !?5," Total transactions exported: ",$P(^BDWXLOG(BDWSR("LOG"),0),U,6) Line Location: OVERVIEW+6
Function Call: WRITE	Prompt: !!,"The Transmission Status for this Export is: " Line Location: TAPE+1
Function Call: WRITE	Prompt: ^UTILITY("DIQ1",$J,90213,BDWSR("LOG"),.15,"E"),! Line Location: TAPE+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HEAD+4
Function Call: WRITE	Prompt: !?31,"Data Warehouse Transmission Summary Page ",BDWSR("PG") Line Location: HEAD+4
Function Call: WRITE	Prompt: !,"Report Run Date: ",BDWSR("DTP"),?72,"Page ",BDWSR("PG") Line Location: HEAD1+3
Function Call: WRITE	Prompt: !!?((80-BDWSR("LENG"))/2),"DATA WAREHOUSE TRANSMISSION SUMMARY FOR ",BDWSR("FAC PRINT") Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?20,"Date Export Run: ",BDWSR("RUN DATE") Line Location: HEAD1+5
Routine Call	DIR Line Location: START+8 HEAD+2

FileNo	Call Tags
^BDWXLOG - [#90213]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BDWXLOG - [#90213]	START+3, OVERVIEW+4, OVERVIEW+5, OVERVIEW+6
^DIC(4 - [#4]	START+2
^UTILITY("DIQ1"	TAPE+4

Name	Line Occurrences
HEAD	START+5, OVERVIEW+1
HEAD1	HEAD+1
PRINT	START+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDW1	EOJ+1!
BDW2	EOJ+1!
BDW3	EOJ+1!, EOJ+2!
BDWLC	EOJ+1!
BDWPTR	EOJ+2!
>> BDWSR("DTP"	HEAD1+3
>> BDWSR("FAC PR	INT" , START+2*, HEAD1+2, HEAD1+4
>> BDWSR("LENG"	HEAD1+2*, HEAD1+4
>> BDWSR("LOG"	START+3, OVERVIEW+4, OVERVIEW+5, OVERVIEW+6, TAPE+3, TAPE+4
>> BDWSR("PG"	START+4, HEAD+1, HEAD+3, HEAD+4, HEAD1+1*, HEAD1+3
>> BDWSR("PRINT	BEGIN" , OVERVIEW+3, END" , OVERVIEW+3
>> BDWSR("QUIT"	START+6!, OVERVIEW+1, STATDB+2, HEAD+2*
>> BDWSR("RUN DA	TE" , START+3*, OVERVIEW+3, HEAD1+5
BDWT	EOJ+1!, EOJ+2!
BDWTOTC	EOJ+1!, EOJ+2!
BDWTOTO	EOJ+1!, EOJ+2!
BDWWC	EOJ+2!
BDWX	EOJ+1!
DA	TAPE+2!, TAPE+3*!
DIC	TAPE+2!, TAPE+3*!
DIQ	TAPE+2!, TAPE+3!
DIQ(0	TAPE+3*
DIR	START+8!, HEAD+2!
DIR("A"	START+8*
DIR(0	START+8, HEAD+2
DR	TAPE+2!, TAPE+3*!
>> DTOUT	HEAD+2
DUZ(2	START+2
G	EOJ+3!
IO	START+8, HEAD+2
IO(0	START+8, HEAD+2
IOF	HEAD+4, HEAD1+1
IOSL	OVERVIEW+1
IOST	START+8, HEAD+2
U	START+2, START+3, OVERVIEW+4, OVERVIEW+5, OVERVIEW+6
X	EOJ+3!
Y	START+3*, EOJ+3!, HEAD+2
Z	EOJ+3!

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWSRP

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: