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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECSCRN

Package: Event Capture

Routine: ECSCRN


Information

ECSCRN ;BIR/MAM,JPW,RKH,TTH-Enter Event Code Screens ;1 May 96

Source Information

Source file <ECSCRN.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  IX^DIK  ^DIR  
Event Capture 4 ADREAS^ECDSUTIL  ^ECKILL  CLIN^ECPCEU  (,$$NAM,ASK2)^ECSCR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Event Capture 1 ECSCREEN  

Entry Points

Name Comments DBIA/ICR reference
UNIT
PRO
RESEL
STUFF ; stuff entries
MORE
END ;Kill variables.
END1
END2
BRO ; check for category use in data entry
INACT ; check to determine if inactive
ASK ;Ask user to verify update.
CLIN ;check for active associated clinic

External References

Name Field # of Occurrence
^DIC UNIT, STUFF+18, BRO+4
FILE^DICN STUFF+3
^DIE STUFF+15, INACT+5
IX^DIK STUFF+8
^DIR PRO, ASK+2
ADREAS^ECDSUTIL STUFF+21
^ECKILL END1
CLIN^ECPCEU CLIN+3
^ECSCR PRO+10
$$NAM^ECSCR STUFF+5
ASK2^ECSCR PRO+9
$$CPT^ICPTCOD PRO+7
$$FMTE^XLFDT INACT+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: !!,"You have no locations flagged for event capture.",!,"See your program coordinator.",!!
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: "Press <RET> to continue "
  • Line Location: ECSCRN+2
Function Call: WRITE
  • Prompt: @IOF,!,"Event Code Screens (Create)",!
  • Line Location: ECSCRN+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ECSCRN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: UNIT+0
Function Call: WRITE
  • Prompt: !,"Selected procedure is inactive at this time.",!
  • Line Location: PRO+5
Function Call: WRITE
  • Prompt: !,"Selected procedure is inactive at this time.",!
  • Line Location: PRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO+9
Function Call: WRITE
  • Prompt: !!,"Entering screen for "_ECLN_" with procedure ",$$NAM^ECSCR,"..."
  • Line Location: STUFF+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: @IOF,!,"Event Code Screen Information:"
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !,"----------------------------",!
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !,"DSS Unit: "_ECDN,!,"Category: "_ECCN,!!
  • Line Location: MORE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"Category: "_ECCN,!!
  • Line Location: BRO+1
Function Call: WRITE
  • Prompt: !!,"This screen has already been created for "_ECLN_"."
  • Line Location: INACT+1
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: INACT+3
Function Call: WRITE
  • Prompt: !!,"Enter YES if this code should be reactivated for event code",!,"procedures, or <RET> to continue with another procedure."
  • Line Location: INACT+4
Function Call: WRITE
  • Prompt: !!,"Reactivating Event Code Screen... "
  • Line Location: INACT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Routine Call
  • DIC
  • Line Location:
    • UNIT
    • STUFF+18
    • BRO+4
Routine Call
  • DIE
  • Line Location:
    • STUFF+15
    • INACT+5
Routine Call
  • DIR
  • Line Location:
    • PRO
    • ASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^ECJ - [#720.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] ECSCRN+2
^DIC(49 - [#49] UNIT+1
^ECC(723 - [#723] UNIT+1
^ECD - [#724] UNIT+1, BRO+1, BRO+2
^ECJ - [#720.3] STUFF+6*, STUFF+7*, STUFF+17, STUFF+21, INACT+1, INACT+2, CLIN+2
^ECJ("AP" STUFF+9*, INACT+5*
^ECJ("APP" STUFF+10*, INACT+5*
^ECJ("B" STUFF+2, INACT+1

Label References

Name Line Occurrences
ASK PRO+11
BRO UNIT+3
CLIN STUFF+25
END UNIT, UNIT+3, PRO, PRO+1, PRO+9, PRO+10, PRO+12, PRO+13, RESEL
END1 PRO+9
END2 PRO+11, RESEL
INACT STUFF+2, INACT+4
MORE RESEL
PRO UNIT+4, PRO+4, PRO+6, RESEL
RESEL PRO+11
STUFF PRO+12, PRO+13
UNIT PRO+9

Naked Globals

Name Field # of Occurrence
^(0 UNIT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C END2!
CNT END2!
DA STUFF+8*, STUFF+13*, STUFF+15!, INACT+5*!
DD STUFF+3!
DEFASCLN STUFF+18*, END1!
DIC UNIT!*, PRO!, STUFF+3*!, STUFF+17*, STUFF+18!, BRO+3*, BRO+4!
DIC("A" UNIT*, BRO+3*
DIC("S" UNIT*, BRO+3*
DIC(0 UNIT*, STUFF+3*, STUFF+17*, BRO+3*
DIE STUFF+13*, STUFF+15!, INACT+5!*
>> DIK STUFF+8*
DIR PRO!, END2!
DIR("A" PRO*, ASK+1*
DIR("B" ASK+1*
DIR(0 PRO*, ASK+1*
>> DIRUT PRO+9, PRO+11, ASK+2
>> DLAYGO STUFF+3*
DO STUFF+3!
DR STUFF+14*, STUFF+15!, INACT+5!*
DSERR PRO+3*, PRO+4*, PRO+5*, PRO+6*, PRO+7*, END2!
DT STUFF+6
DTIME ECSCRN+2, MORE, INACT+3
>> DTOUT PRO
DUOUT PRO!
>> EC4 CLIN+2*
ECANS PRO+9*, END2!, ASK+2*
>> ECC STUFF+1, STUFF+9, BRO+1*, BRO+5*, INACT+5
ECCH STUFF+1*, STUFF+2, STUFF+3, MORE+1!, INACT+1
>> ECCN MORE+4, BRO+1*, BRO+5*
>> ECD UNIT*, UNIT+1, STUFF+1, STUFF+9, STUFF+10, BRO+1, BRO+2, INACT+5
>> ECDN UNIT*, PRO, MORE+4
>> ECERR UNIT+3, BRO+4*
ECFIL PRO+2*, PRO+3, PRO+4, PRO+6, END2!
>> ECFN STUFF+4*, STUFF+6, STUFF+7, STUFF+8, STUFF+9, STUFF+10, STUFF+13, STUFF+17, STUFF+21, CLIN+2
ECL UNIT+2!, PRO+10, PRO+12*, PRO+13*, STUFF+1, STUFF+9, STUFF+10, END2!, INACT+5
>> ECLALL PRO+12*, PRO+13*
ECLASS END2!
ECLN PRO+12*, PRO+13*, STUFF+5, END2!, INACT+1, INACT+3
>> ECLOC PRO+12, PRO+13
>> ECM UNIT+1*
>> ECMN UNIT+1*
ECN UNIT+2!, PRO
ECNOPE UNIT*, END1!
>> ECOUT PRO+12, PRO+13, STUFF+15*
ECP PRO+8*, STUFF+1, STUFF+7, STUFF+9, STUFF+10, MORE+1!, END2!, INACT+5
>> ECPCE UNIT+1*, STUFF+14, STUFF+16, STUFF+25
>> ECPCL CLIN+4
ECPN PRO+8*, END2!
ECS UNIT+1*, END2!
>> ECSN UNIT+1*
ECWORK END2!
>> ECX INACT+1*, INACT+2, INACT+5
>> ECYN INACT+3*, INACT+4*, INACT+5
ECZERO PRO+3*, PRO+5, END1!, END2+1!
>> I PRO+12*, PRO+13*
IOF ECSCRN+3, PRO+9, MORE+2, END+1
>> LOC( PRO+13
LOC1 END2+1!
LOC1( PRO+12
>> MSG1 ECSCRN+4*, CLIN+1*, CLIN+5, CLIN+8*
>> MSG2 ECSCRN+4*, CLIN+1*, CLIN+2*, CLIN+5, CLIN+6, CLIN+8*
NUM END2+1!
U PRO+5, STUFF+7, STUFF+17, STUFF+18, BRO+1, BRO+2
X ECSCRN+2*!, PRO+1, RESEL, STUFF+3*, STUFF+17*, MORE*, END2+1!
>> XX ECSCRN+3*
Y UNIT, PRO+2, PRO+3, PRO+7, PRO+8, PRO+11, STUFF+4, STUFF+15, STUFF+18, MORE+1!
, END2+1!, BRO+4, BRO+5, INACT+2*, INACT+3, ASK+2
Y(0 BRO+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All