Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls