Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BADECTRL

Package: Electronic Dental Record

Routine: BADECTRL


Information

BADECTRL ; IHS/OIT/FJE/VAC - Dentrix HL7 PROCESS INCOMING EIE MESSAGES ;14-Sep-2010 13:27;EDR

Source Information

Source file <BADECTRL.m>

Call Graph

Call Graph Total: 8

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All