Routine: BCHDL

Package	Total	Call Graph
IHS RPMS CHR System	5	^BCHDL1 DEL^BCHRL SELECT^BCHRL0 ADD1^BCHRL01 SHOW^BCHRLS
VA Fileman	5	^%DTC ^DIC WAIT^DICD ^DIE ^DIR
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
XIT1	;
CONT	;
ZIS	;call to xbdbque
CONFIRM	;
FACHRN	;
SCREEN	;EP
ADD	;
QUEUE	;EP
START	;EP
CHR	;
XIT	;clean up and exit
QUEUE1	;
SMENU	;EP

External References

Name	Field # of Occurrence
^%DTC	SCREEN+1
^BCHDL1	QUEUE+5
DEL^BCHRL	ADD+4
SELECT^BCHRL0	SCREEN+8
ADD1^BCHRL01	ADD+1
SHOW^BCHRLS	SCREEN+9
^DIC	FACHRN+3
WAIT^DICD	QUEUE+5
^DIE	CONFIRM+8
^DIR	CONT+1, CHR+2, CONFIRM+6, QUEUE+2, SCREEN+4, SCREEN+10
^XBDBQUE	QUEUE1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?9,"** DOWNLOAD PATIENT DEMOGRAPHIC DATA TO REMOTE **",!! Line Location: START+2
Function Call: WRITE	Prompt: "This routine is to be run whenever a CHR wants to download the patient",!,"demographic data to their remote device. The set of patients that is" Line Location: START+3
Function Call: WRITE	Prompt: !,"downloaded can be selected based on items such as community of" Line Location: START+4
Function Call: WRITE	Prompt: !,"residence or where the patient is registered.",! Line Location: START+5
Function Call: WRITE	Prompt: !,"These file(s) will be placed in the same directory that all export" Line Location: START+7
Function Call: WRITE	Prompt: !,"files are placed. In most cases, that will be /usr/spool/uucppublic." Line Location: START+8
Function Call: WRITE	Prompt: !,"See your site manager for assistance in finding the file once it has" Line Location: START+9
Function Call: WRITE	Prompt: !,"been created.",!! Line Location: START+10
Function Call: WRITE	Prompt: !! Line Location: FACHRN+1
Function Call: WRITE	Prompt: !,"Only patients who have an HRN at the facility you select below will",!,"be downloaded.",! Line Location: FACHRN+2
Function Call: WRITE	Prompt: !!,"The file(s) created will be placed in the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory." Line Location: CONFIRM+1
Function Call: WRITE	Prompt: !,"The file will be called: ",BCHFILE,! Line Location: CONFIRM+2
Function Call: WRITE	Prompt: !!,"It may be several hours (or overnight) before your flat file is finished.",! Line Location: CONFIRM+3
Function Call: WRITE	Prompt: !,"As a reminder, the records that are generated and placed in the file(s)" Line Location: CONFIRM+4
Function Call: WRITE	Prompt: !,"are in a standard, pre-defined record format. For a definition of the format",!,"please see your user manual.",! Line Location: CONFIRM+5
Function Call: WRITE	Prompt: !,"Okay .. you '^'ed or timed out ..Goodbye" Line Location: QUEUE+4
Function Call: WRITE	Prompt: !! Line Location: SCREEN+10
Function Call: WRITE	Prompt: !!,"The Patients downloaded can be selected based on any of the following criteria:",! Line Location: SMENU+3
Function Call: WRITE	Prompt: ?40,J,") ",$E($P(^BCHSORT(BCHSEL(J),0),U),1,30) Line Location: SMENU+8
Function Call: WRITE	Prompt: !!?9,"<Enter a list or a range. E.g. 1-4,5,20 or 10,12,20,30>" Line Location: SMENU+9
Function Call: WRITE	Prompt: !?9,"<<HIT RETURN to conclude selections or bypass screens>>" Line Location: SMENU+10
Routine Call	DIE Line Location: CONFIRM+8
Routine Call	DIC Line Location: FACHRN+3
Routine Call	DIR Line Location: CONT+1 CHR+2 CONFIRM+6 QUEUE+2 SCREEN+4 SCREEN+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BCHTRPT - [#90002.42]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	CONFIRM+1
^BCHSORT - [#90002.41]	SMENU+7, SMENU+8
^BCHSORT("AD"	SMENU+4
^DIC(4 - [#4]	FACHRN+3

Label References

Name	Line Occurrences
QUEUE1	QUEUE+3
SCREEN	ADD+3, SCREEN+14
SMENU	SCREEN+3
START	FACHRN+4
XIT	CONT+2, CONT+3, CHR+3, CHR+4, ADD+2, ADD+4, CONFIRM+7, ZIS+1, QUEUE+3, QUEUE+4 , QUEUE+5, QUEUE1+3, SCREEN+5, SCREEN+6
XIT1	QUEUE+3, QUEUE+4, QUEUE+5, QUEUE1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMQQTAX	XIT+2!
BCHANS	XIT+1!
BCHCHR	CHR+1, CHR+5, SCREEN+2, XIT1+1!
BCHCNT	XIT+1!
BCHCRIT	XIT+1!
BCHCUT	SMENU+5*, SMENU+8, XIT+1!
BCHDISP	SMENU+1!, XIT+1!
BCHDISP(	SMENU+6, SMENU+7, SMENU+8
>> BCHFAC	FACHRN+5*
BCHFILE	CONFIRM+2, CONFIRM+8, SCREEN+2*, XIT1+1!
BCHFOUN	XIT+3!
BCHGBD	XIT+1!
BCHGDE	XIT+1!
BCHGDS	XIT+1!
BCHHIGH	SCREEN+4, SMENU+1!, SMENU+4*, SMENU+5, XIT+1!
BCHI	XIT+1!
BCHJD	SCREEN+1*, SCREEN+2, XIT+3!
BCHPCNT	XIT+3!
BCHPROC	XIT+3!
BCHPTVS	SCREEN+2*, SCREEN+10, XIT1+1!
BCHQUIT	ADD+2, ADD+4, CONFIRM+7, SCREEN+12, XIT+1!
BCHR	XIT+3!
BCHRAR	XIT+1!
BCHRPT	CONFIRM+8, XIT1+1!
BCHSEL	SMENU+1!, XIT+1!
BCHSEL(	SMENU+4*, SMENU+6, SMENU+7, SMENU+8
BCHSKIP	XIT+3!
BCHTEXT	XIT+1!
BCHTYPE	SCREEN+2*, XIT1+1!
BCHX	XIT+3!
BCHY	XIT+1!
D	XIT+4!
D0	XIT+4!
DA	CONT+1!, FACHRN+3!, CHR+2!, CONFIRM+6!, CONFIRM+8*, CONFIRM+9!
DFN	XIT+4!
DI	XIT+4!
DIC	FACHRN+3*!, XIT+4!
DIC("A"	FACHRN+3*
DIC("B"	FACHRN+3*
DIC(0	FACHRN+3*
DIE	CONFIRM+8*, CONFIRM+9!
DIR	CONT+1!, CHR+2!, CONFIRM+6!, QUEUE+2!, SCREEN+4!, SCREEN+10!
DIR("A"	CONT+1, CHR+2, CONFIRM+6, QUEUE+2, SCREEN+4, SCREEN+10
DIR("B"	CONT+1, CONFIRM+6, QUEUE+2, SCREEN+10
DIR(0	CONT+1, CHR+2, CONFIRM+6, QUEUE+2, SCREEN+4, SCREEN+10
>> DIRUT	CONT+2, CHR+3, CONFIRM+7, QUEUE+2, QUEUE+4, SCREEN+4, SCREEN+6, SCREEN+11*, SCREEN+12
DQ	XIT+4!
DR	FACHRN+3!, CONFIRM+8*, CONFIRM+9!
DT	SCREEN+1
>> DUOUT	QUEUE+2, SCREEN+4, SCREEN+11
DUZ(2	FACHRN+3
>> I	SMENU+6*, SMENU+7, SMENU+8
IOF	START+1, SMENU+2
IOSL	SMENU+2
J	SMENU+6, SMENU+8, XIT+4!
U	FACHRN+3, CONFIRM+1, SMENU+7, SMENU+8
>> X	SCREEN+1, SMENU+4*
>> X1	SCREEN+1*
>> X2	SCREEN+1*
XBFLG	XIT+4!
>> XBFQ	QUEUE1+1*
>> XBIOP	QUEUE1+1*
>> XBNS	QUEUE1+1*
>> XBRC	QUEUE1+1*
>> XBRX	QUEUE1+1*
Y	CONT+3, FACHRN+4, FACHRN+5, CHR+4, CHR+5, CONFIRM+7, QUEUE+3, SCREEN+5, SCREEN+13, XIT+4!
ZTSK	QUEUE+1!

Customize PDF page

Package: IHS RPMS CHR System

Routine: BCHDL

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: