Routine: BADECTRL

Package	Total	Call Graph
Health Level Seven	2	PROCNOW^HLOAPI3 $$GETIEN^HLOAPP
VA Fileman	2	^%DT ^DIR
Electronic Dental Record	1	PROC^BADEHL3
IHS VA Utilities	1	^XBKVAR
Kernel	1	($$FMADD,$$NOW)^XLFDT
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
SCAN	;EP scan HLB global for new incoming messages
TSK	;EP
CTRL	;EP create control array
TSK1	;This is the code to process DFT/P03 message
INIT	;EP initialize variables
SINGLE	;
EXIT	;EP clean up
PROC(MSGIEN)	;EP

External References

Name	Field # of Occurrence
^%DT	TSK1+6, SINGLE+29
PROC^BADEHL3	TSK1+5, SINGLE+28
^DIR	SINGLE+1
PROCNOW^HLOAPI3	PROC+6
$$GETIEN^HLOAPP	TSK+3
^XBKVAR	INIT+1, EXIT+1
$$FMADD^XLFDT	PROC+6
$$NOW^XLFDT	PROC+6
$$GET^XPAR	PROC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PDAYS=",PDAYS Line Location: PROC+3
Function Call: WRITE	Prompt: !,"ERROR=",ER Line Location: PROC+7
Function Call: WRITE	Prompt: !,BADETMP(BADECRF,BADECSF,BADECSA,BADECTYP,BADECTRG,X) Line Location: CTRL+17
Function Call: WRITE	Prompt: !,"Inbound Message: ",BADEIEN Line Location: SCAN+7
Function Call: WRITE	Prompt: !,BADERF_U1_BADESF_U1_BADESA_U1_BADETYP_U1_BADETRG_U1_BADEY_U1_BADERUN Line Location: SCAN+21
Routine Call	DIR Line Location: SINGLE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BADECTRL - [#90641.99]	CTRL+1, CTRL+2, CTRL+3, CTRL+4, CTRL+5, CTRL+6, CTRL+7, CTRL+8, CTRL+9, CTRL+10 , CTRL+11
^BADECTRL("TASK RUNNING"	EXIT+4!
^HLB - [#778]	TSK1+2, TSK1+3, TSK1+7, TSK1+8, TSK1+9, SINGLE+3, SINGLE+4, SINGLE+5, SINGLE+9, SINGLE+12 , SINGLE+24, SINGLE+25, SINGLE+30, SINGLE+31, SINGLE+32, SCAN+3, SCAN+4, SCAN+8, SCAN+22, SCAN+23
^HLB("QUEUE"	TSK+5, TSK+7, TSK+9, TSK+11, PROC+8!, TSK1+10!, SINGLE+33!

Label References

Name	Line Occurrences
@(	SCAN+26
EXIT	SINGLE+34
INIT	SINGLE+6
PROC	TSK+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BADECACT	CTRL+2*, CTRL+12
>> BADECLNK	CTRL+10*, CTRL+14, SCAN+22
>> BADECQUE	CTRL+11*, CTRL+14, SCAN+23
BADECRF	CTRL+3*, CTRL+13, CTRL+15, CTRL+16, CTRL+17, EXIT+3!
>> BADECRTN	CTRL+9*, CTRL+14, CTRL+16
BADECSA	CTRL+4*, CTRL+13, CTRL+15, CTRL+16, CTRL+17, EXIT+3!
BADECSF	CTRL+5*, CTRL+13, CTRL+15, CTRL+16, CTRL+17, EXIT+3!
>> BADECTAG	CTRL+8*, CTRL+14, CTRL+16
BADECTRG	CTRL+7*, CTRL+13, CTRL+15, CTRL+16, CTRL+17, EXIT+3!
BADECTYP	CTRL+6*, CTRL+13, CTRL+15, CTRL+16, CTRL+17, EXIT+3!
>> BADEIEN	TSK1+2, TSK1+3, TSK1+4, TSK1+7, TSK1+8, TSK1+9, TSK1+10, SINGLE+2, SINGLE+3, SINGLE+4 , SINGLE+5, SINGLE+9, SINGLE+12, SINGLE+24, SINGLE+25, SINGLE+27, SINGLE+30, SINGLE+31, SINGLE+32, SINGLE+33 , SCAN+3, SCAN+4, SCAN+7, SCAN+8, SCAN+22, SCAN+23
>> BADEMSH	SINGLE+12, SINGLE+13, SINGLE+14, SINGLE+15, SINGLE+18, SCAN+8, SCAN+9, SCAN+10, SCAN+11, SCAN+12 , SCAN+13
>> BADEQUET	CTRL+17, SCAN+7, SCAN+21
BADERF	SCAN+10*, SCAN+11, SCAN+12, SCAN+15, SCAN+16, SCAN+17, SCAN+18, SCAN+21, EXIT+2!
BADERUN	SCAN+18*, SCAN+19, SCAN+20, SCAN+21, SCAN+26, EXIT+2!
BADESA	SINGLE+15, SINGLE+17, SCAN+12, SCAN+15, SCAN+16, SCAN+17, SCAN+18, SCAN+21, EXIT+2!
BADESF	SINGLE+14, SINGLE+16, SCAN+11, SCAN+12, SCAN+15, SCAN+16, SCAN+17, SCAN+18, SCAN+21, EXIT+2!
>> BADETDT	TSK1+9, TSK1+10, SINGLE+32, SINGLE+33
BADETMP	EXIT+2!
BADETMP(	CTRL+15, CTRL+16*, CTRL+17, SCAN+10, SCAN+11, SCAN+12, SCAN+15, SCAN+16, SCAN+17, SCAN+18
BADETRG	TSK1+10, SINGLE+19, SINGLE+21, SINGLE+23, SINGLE+33, SCAN+14, SCAN+16, SCAN+17, SCAN+18, SCAN+21 , EXIT+2!
BADETYP	TSK1+10, SINGLE+18, SINGLE+19, SINGLE+20, SINGLE+22, SINGLE+33, SCAN+13, SCAN+14, SCAN+15, SCAN+16 , SCAN+17, SCAN+18, SCAN+21, EXIT+2!
BADEX	SINGLE+9, SINGLE+10, SINGLE+11, SCAN+4, SCAN+5, SCAN+6, EXIT+2!
BADEY	SCAN+17*, SCAN+18, SCAN+21, EXIT+2!
DIR	SINGLE+1!
DIR("A"	SINGLE+1*
DIR(0	SINGLE+1*
>> ER	PROC+5*, PROC+6, PROC+7
>> HLMSGIEN	TSK1+4, SINGLE+27
MSGDT	TSK+1~, TSK+4, TSK+5, TSK+7, TSK+9, TSK+11, PROC+8
MSGEVT	TSK+1~, TSK+8, TSK+9, TSK+11, PROC+8
MSGIEN	TSK+1~, TSK+10, TSK+11, TSK+12, PROC~, PROC+6, PROC+8
MSGTYP	TSK+1~, TSK+6, TSK+7, TSK+9, TSK+11, PROC+8
PDAYS	TSK+1~, PROC+1~, PROC+2, PROC+3, PROC+4, PROC+6
QIEN	TSK+1~
QNM	TSK+1~, TSK+2*, TSK+3, TSK+7, TSK+9, TSK+11, PROC+8
U	TSK1+2, TSK1+3, TSK1+7, TSK1+8, TSK1+9, SINGLE+7, SINGLE+10, SINGLE+11, SINGLE+19, SINGLE+24 , SINGLE+25, SINGLE+30, SINGLE+31, SINGLE+32, CTRL+2, CTRL+3, CTRL+4, CTRL+5, CTRL+6, CTRL+7 , CTRL+8, CTRL+9, CTRL+10, CTRL+11, SCAN+1, SCAN+5, SCAN+6, SCAN+14, SCAN+19, SCAN+20 , SCAN+22, SCAN+23
>> U1	SINGLE+13, SINGLE+14, SINGLE+15, SINGLE+18, SCAN+9, SCAN+10, SCAN+11, SCAN+12, SCAN+13, SCAN+21
>> X	TSK1+6, SINGLE+29, CTRL+1*, CTRL+2, CTRL+3, CTRL+4, CTRL+5, CTRL+6, CTRL+7, CTRL+8 , CTRL+9, CTRL+10, CTRL+11, CTRL+15, CTRL+16, CTRL+17
>> Y	TSK1+7, SINGLE+2, SINGLE+30

Customize PDF page

Package: Electronic Dental Record

Routine: BADECTRL

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: