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

Package: Event Capture

Routine: ECPCER


Information

ECPCER ;BIR/JPW - Event Capture PCE Data Summary ;10/11/17 11:07

Source Information

Source file <ECPCER.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
DATE
SUM ; entry when queued
END
PAGE ; end of page
HDR1 ; print heading without categories
FOOTER ;print page footer
SET ; set data
PRT
EXPORT ;Produce exportable version, added in patch 119

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"End date must be after start date",!
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!,"No Data for "_ECPAT_" during the time selected."
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !!,"If you want to continue with this report, press <RET>. Entering an ^ will",!,"exit you from this option."
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,?31,"ECS/PCE PATIENT SUMMARY FOR "_ECPAT,!,?36,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!!,"PROCEDURE DATE/TIME",?25,"PROCEDURE NAME SENT (VOLUME)",?78,"PROVIDER"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"LOCATION",?25,"CLINIC (STOP CODE/CREDIT STOP/CHAR4/MCA LABOR CODE)",?78,"CPT CODE"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?25,"DIAGNOSIS",?78,"PROCEDURE (CPT) MODIFIER",!
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !!?4,"Volume totals may represent days, minutes, numbers of procedures"
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: !?4,"and/or a combination of these."
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: !,ECDT,?25,ECPN_" ("_ECV_")",?78,ECUN,!
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: $E(ECLN,1,22),?25,ECDN_" ("_ECID_"/"_ECCSC_"/"_ECCHAR_"/"_ECMCA_")",?78,ECCPT,!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?25,"Primary DX: ",ECDXN
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?25,$S(I>1:$G(ECDXS(I)),1:""),?79,"- ",MOD," ",$P(MODESC,"^",2),!
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?25,ECDXS(DXS),!
  • Line Location: PRT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECH - [#721] GET1^DIQ
^ECX(728.44 - [#728.44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call