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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ECINCPT

Package: Event Capture

Routine: ECINCPT


Information

ECINCPT ;ALB/JAM-Procedure Codes with Inactive CPTs Report ;Jan 04, 2021@17:52

Source Information

Source file <ECINCPT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZISC  ($$FMTE,$$HTE)^XLFDT  EN^XUTMDEVQ  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Event Capture 1 ^ECKILL  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Event Capture 2 ECINCPT  ECRRPT1  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
START ; Routine execution
; Variables passed in -152
; ECPTYP - Where to send output (P)rinter, (D)evice or screen
; or (E)xport
; ECRN - Preferred Report (N-ational, L-ocal or Both)
; ECSM - Sort Method (P-rocedure Name, N-ational Number,C-PT Code,D-Inactive Date)
; ECSORT - Sort Order "A"scending, "D"escending
PRINT(PORD) ; 152 - Added this tag to print report according to the sort order
; PORD to Print: "A"scending or "D"escending
END
HEADER ;
PAGE ;
EXPORT(PORD) ;152 - Created this tag for export format

External References

Name Field # of Occurrence
HOME^%ZIS EN+8
^%ZISC EN+7, END
^DIR PAGE+4
^ECKILL END
$$CPT^ICPTCOD START+19
$$FMTE^XLFDT START+24
$$HTE^XLFDT START+12
EN^XUTMDEVQ EN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $S(ECRN="N":"NATIONAL",ECRN="L":"LOCAL",1:"NATIONAL/LOCAL")_" PROCEDURE CODES WITH INACTIVE CPT CODES"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?68,"Page: ",ECPG,!?(80-(10+$L(ECRDT))\2),"Run Date : ",ECRDT,!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?(80-(9+$L(SORT))\2),"Sorted by ",SORT,!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "Procedure",?60,"CPT",?68,"Inactive",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: "Number",?10,"Procedure Name",?60,"Code",?68,"Date",!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+8
Routine Call
  • DIR
  • Line Location:
    • PAGE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] START+16, START+17
^TMP("ECINCPT" EXPORT+4*, EXPORT+8, EXPORT+9, EXPORT+10, EXPORT+11, EXPORT+14!
^TMP($J START+29*, PRINT+7, PRINT+8, PRINT+9, PRINT+10, EXPORT+3, EXPORT+4, EXPORT+5!, EXPORT+7*, EXPORT+13*

Label References

Name Line Occurrences
END PRINT+4
EXPORT PRINT+4
HEADER PRINT+6, PRINT+12, PRINT+13
PAGE PRINT+14
PRINT START+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H START+12*
CNT START+9~, START+10*, EXPORT+6*, EXPORT+7, EXPORT+12*, EXPORT+13
DATA START+11~
DIR PAGE+4!
DIR(0 PAGE+4*
EC0 START+9~, START+17*, START+18, START+19
ECD START+9~, START+19*, START+29
ECDT START+9~, START+24*, START+29
>> ECGUI END
ECI START+9~, START+10*, START+16*, START+17, START+22, START+23
ECINDX START+11~
ECN START+9~, START+19*, START+29
ECOUT EN+1~, START+9~, START+10*, START+16, PRINT+14, PAGE+4*
ECPG EN+1~, START+9~, START+10*, HEADER+3, HEADER+5, HEADER+9*, PAGE+2
ECPI START+9~, START+19*, START+20, START+24, START+25, START+29
ECPT START+9~, START+17*, START+18, START+19, START+25*
ECPTDT START+11~, START+25*
>> ECPTYP PRINT+4, PRINT+6, PRINT+14, END
ECRDT START+9~, START+12*, HEADER+5
>> ECRN START+22, START+23, HEADER+4
>> ECSM START+15, START+29, HEADER+2
>> ECSORT START+31
ECSRTBY START+11~
ECSRTBY( START+15*, START+29
I START+11~, PRINT+2~, PRINT+5*, PRINT+7*, PRINT+8, PRINT+9, PRINT+10, HEADER+1~, HEADER+10*, EXPORT+2~
, EXPORT+6*, EXPORT+8*, EXPORT+9, EXPORT+10, EXPORT+11
I1 PRINT+2~, PRINT+8*, PRINT+9, PRINT+10, EXPORT+2~, EXPORT+9*, EXPORT+10, EXPORT+11
I2 PRINT+2~, PRINT+9*, PRINT+10, EXPORT+2~, EXPORT+10*, EXPORT+11
IEN START+11~
IO EN+7
>> IO(0 EN+7
IOF ENDHEADER+3
ION EN+2
IOSL PRINT+12, PRINT+13
IOST HEADER+3, PAGE+2
JJ PAGE+1~, PAGE+3*
LINE PRINT+2~, PRINT+10*, PRINT+11, EXPORT+2~, EXPORT+11*, EXPORT+13
NM START+11~
>> POP EN+6
PORD PRINT~, PRINT+3*, PRINT+4, PRINT+7, PRINT+8, PRINT+9, EXPORT~, EXPORT+8, EXPORT+9, EXPORT+10
SORT HEADER+1~, HEADER+2*, HEADER+6
SS PAGE+1~, PAGE+3*
U START+25, START+29, PRINT+11
>> Y PAGE+4
ZTDESC EN+1~, EN+3*, EN+5
ZTIO EN+1~, EN+2*
>> ZTQUEUED END
>> ZTREQ END*
ZTRTN EN+1~, EN+4*, EN+5
>> ZTSAVE EN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All