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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call