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: ECSCPT1

Package: Event Capture

Routine: ECSCPT1


Information

ECSCPT1 ;ALB/JAM - Event Code Screens with CPT Codes ;9/18/18 15:12

Source Information

Source file <ECSCPT1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

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 ECSCPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
END
SET ;set var
SETC ;set cats
HEADER ;
CATS ;
PROC ;
SETP ;set procs
CONTD ;Check whether to continue or exit
PAGE ;
MORE
EXPORT ;Section added in patch 119

External References

Name Field # of Occurrence
$$GET1^DIQ SETP+4, SETP+8, SETP+9
^DIR PAGE+4
$$CPT^ICPTCOD SETP+13, SETP+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Nothing Found."
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,?24,"EVENT CODE SCREENS WITH"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: $S(ECCPT="I":" INACTIVE",ECCPT="A":" ACTIVE",1:"")_" CPT CODES"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?70,"Page: ",ECPG,!?25,"Run Date: ",ECRDT,!?25,"LOCATION: "_ECLN
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?25,"DSS UNIT: "_ECDN,!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"Procedure: ",$E(ECPN,1,30)," (",$S(ECFILE=81:"CPT",1:"EC"),")",?48,"Nat'l #: ",NATN,?64,"CPT: ",ECPT
  • Line Location: SETP+28
Function Call: WRITE
  • Prompt: ?70," *I*"
  • Line Location: SETP+29
Function Call: WRITE
  • Prompt: !," Synonym: ",ECPSYN
  • Line Location: SETP+30
Function Call: WRITE
  • Prompt: !," Associated Clinic: ",ECAC,!," Stop Code: ",ECSC,?19,"Credit Stop: ",ECCSC,?38,"CHAR4: ",ECCHAR,?52,"MCA Labor Code: ",ECMCA
  • Line Location: SETP+31
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !!,"Category: "_ECCN
  • Line Location: MORE+0
Routine Call
  • DIR
  • Line Location:
    • PAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^ECX(728.441 - [#728.441] GET1^DIQ
^ECX(728.442 - [#728.442] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] SETP+16
^EC(726 - [#726] SETC+2
^ECD - [#724] SET+1, SET+2, CATS+3
^ECJ - [#720.3] SETP+2, SETP+3
^ECJ("AP" EN+5, CATS+2, PROC+2, SETP+1
^ECX(728.44 - [#728.44] SETP+5
^TMP($J EXPORT+2*

Label References

Name Line Occurrences
CATS EN+6, EN+9
CONTD SETP+26, SETP+32
END EN+4
EXPORT SETP+23
HEADER SETP+24, CONTD+2
MORE CONTD+2
PAGE EN+6, CONTD+1
PROC EN+11, CATS+4
SET EN+6
SETC CATS+4
SETP PROC+2

Naked Globals

Name Field # of Occurrence
^(0 SET+1, SETC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT EXPORT+1*, EXPORT+2
DIR PAGE+4!
DIR(0 PAGE+4*
>> ECAC SETP+4*, SETP+31, EXPORT+2
>> ECACIEN SETP+3*, SETP+4, SETP+5
>> ECALL EN+4
>> ECC EN+9, EN+10*, SETC+1, SETC+2, CATS+1*, CATS+2*, CATS+3, PROC+2, SETP+1, SETP+25
>> ECCHAR SETP+8*, SETP+31, EXPORT+2
>> ECCN EN+10*, SETC+1*, SETC+2*, SETP+26, CONTD+2, MORE, EXPORT+2
ECCO EN+1~, EN+2*, EN+10*, CATS+1*, SETP+25*
>> ECCPT EN+2*, HEADER+3, SETP+21, SETP+22, SETP+29
>> ECCSC SETP+7*, SETP+31, EXPORT+2
>> ECD EN+4*, EN+5*, SET+1, SET+2, CATS+2, CATS+3, PROC+2, SETP+1, SETP+24
>> ECDN SET+1*, SET+2*, HEADER+5, EXPORT+2
ECDO EN+1~, EN+2*, SETP+24*
>> ECFILE SETP+2*, SETP+10*, SETP+11, SETP+13, SETP+15, SETP+28, EXPORT+2
ECINDT EN+1~, SETP+14*, SETP+19*, SETP+21, SETP+22, SETP+29, EXPORT+2
>> ECJLP EN+10
>> ECL EN+5, CATS+2, PROC+2, SETP+1
>> ECLN HEADER+4, EXPORT+2
>> ECMCA SETP+9*, SETP+31, EXPORT+2
>> ECMORE EN+2*, SETC+3*, CATS+5*, PROC+3*, MORE
ECNT EN+1~, EN+2*, END, SETP+27*
>> ECOUT EN+5, EN+6, CATS+2, PROC+2, SETP+25, SETP+32, CONTD+1, PAGE+4*
>> ECP PROC+1*, PROC+2*, SETP+1, SETP+2, SETP+13, SETP+16
ECP0 EN+1~, SETP+16*, SETP+17, SETP+18
>> ECPG EN+2*, END+1*, HEADER+1, HEADER+4, HEADER+5*, CONTD+2, PAGE+2
>> ECPI SETP+1*, SETP+12*, SETP+13*, SETP+14, SETP+18*, SETP+19, SETP+20
>> ECPN SETP+12*, SETP+14*, SETP+16*, SETP+28, EXPORT+2
>> ECPSY SETP+1*, SETP+2, SETP+3
>> ECPSYN SETP+2*, SETP+30, EXPORT+2
>> ECPT SETP+12*, SETP+14*, SETP+16*, SETP+19*, SETP+28, EXPORT+2
>> ECPTYP END, SETP+23
>> ECRDT HEADER+4
>> ECSC SETP+6*, SETP+31, EXPORT+2
>> I HEADER+6*
IOF HEADER+1
IOSL SETP+26, SETP+32
IOST HEADER+1, PAGE+2
JJ PAGE+1~, PAGE+3*
>> NATN SETP+12*, SETP+17*, SETP+28, EXPORT+2
>> NODE SETP+5*, SETP+6, SETP+7, SETP+8, SETP+9
SS PAGE+1~, PAGE+3*
U CATS+3, SETP+3, SETP+6, SETP+7, SETP+8, SETP+9, EXPORT+2
UCNT EN+1~, EN+6, EN+8*, SET+1*, SETP+27*
>> Y PAGE+4
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