Routine: BDWRXP

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
INTER	;-- interactive run
EOJ	;-- end of job
LOOK(BDWBEG,BDWEND)	;-- look through all visits for the fiscal year until today and mark for export
PAUSE	;
ED	;
ASK	;-- ask the dates for the run
MAIN	;-- this is the main routine driver
FY(BDWDT)	;-- lets find out the fiscal year based on DT passed in

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching" Line Location: LOOK+3
Function Call: WRITE	Prompt: "." Line Location: LOOK+8
Function Call: WRITE	Prompt: !!,"This option can be used to flag visits for export " Line Location: ASK+5
Function Call: WRITE	Prompt: !,"that have not previously been exported to the National Data Warehouse.",! Line Location: ASK+6
Function Call: WRITE	Prompt: !,"You will be asked to enter a beginning and ending date. The system will" Line Location: ASK+7
Function Call: WRITE	Prompt: !,"review all visits in that date range and if the visit has never been" Line Location: ASK+8
Function Call: WRITE	Prompt: !,"exported to the NDW it will flag it for export on the next export." Line Location: ASK+9
Function Call: WRITE	Prompt: !!,"The earliest date you can enter for this option is ",$$FMTE^XLFDT(BDWFD),".",!! Line Location: ASK+10
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,"Beginning and ending dates not selected.",! Line Location: INTER+3
Routine Call	DIE Line Location: LOOK+28
Routine Call	DIR Line Location: BD+3 ED+1 PAUSE+1

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	LOOK+11, LOOK+14
^AUPNVSIT("ADWO"	LOOK+21, LOOK+22
^AUPNVSIT("B"	LOOK+4, LOOK+5

Name	Field # of Occurrence
BDW3FY	ASK+1~, ASK+3*, ASK+4
BDWBEG	LOOK~, LOOK+4
>> BDWBG	BD+1, BD+5, ED+1, ED+3, INTER+3, INTER+4
BDWCNT	LOOK+1~, LOOK+2, LOOK+6, LOOK+7, LOOK+9*
BDWDA	LOOK+1~, LOOK+4*, LOOK+5
BDWDT	FY~, FY+2, FY+3
>> BDWED	BD+1, ED+4, INTER+3, INTER+4
BDWEND	LOOK~, LOOK+4
>> BDWFD	ASK+4*, ASK+10, BD+2
BDWFY	MAIN+1, MAIN+2, FY+1~, FY+4, FY+5, FY+6, FY+7, FY+8, FY+9, FY+10 , FY+11, FY+12, FY+13, FY+14, ASK+1~, ASK+2, ASK+3
>> BDWIEN	LOOK+5*, LOOK+11, LOOK+14, LOOK+21, LOOK+22, LOOK+28
>> BDWINT	LOOK+3, LOOK+7, INTER+1*
BDWMO	FY+1~, FY+3*, FY+5, FY+6, FY+7, FY+8, FY+9, FY+10, FY+11, FY+12 , FY+13
BDWREC	LOOK+10~, LOOK+11*, LOOK+12, LOOK+15, LOOK+16, LOOK+19
BDWREC1	LOOK+10~, LOOK+14*, LOOK+20
BDWRXP	LOOK+26*, LOOK+29!
BDWUSER	LOOK+10~, LOOK+12*, LOOK+13
BDWVCDT	LOOK+10~, LOOK+15*, LOOK+17, LOOK+21
BDWVEDT	LOOK+10~, LOOK+16*, LOOK+18, LOOK+22
BDWYR	FY+1~, FY+2*, FY+4, FY+5, FY+6, FY+7, FY+8, FY+9, FY+10, FY+11 , FY+12, FY+13
DA	LOOK+28*!, ED+1!
DIE	LOOK+28*!
DIR	EOJ+2!, BD+3!, ED+1!, PAUSE+1!
DIR("?"	BD+2*
DIR("A"	BD+2, ED+1, PAUSE+1*
DIR(0	BD+2, ED+1, PAUSE+1*
>> DIRUT	BD+3, BD+4, ED+1, ED+2
DR	LOOK+28*!
DT	MAIN+1, MAIN+2, LOOK+28, ASK+2, BD+2, ED+1
>> DUOUT	BD+3, ED+1
U	LOOK+12, LOOK+15, LOOK+16, LOOK+19, LOOK+20
>> Y	BD+5, ED+3, ED+4