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

Package: Event Capture

Routine: ECPAT


Information

ECPAT ;BIR/MAM,JPW - Event Capture Patient Summary ;10/12/17 08:47

Source Information

Source file <ECPAT.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set ^TMP($J,"ECPAT")
PAT ; entry point
DATE
SUM ; entry when queued
END
HDR ; print heading
PAGE ; end of page
HDR1 ; print heading without categories
FOOTER ;print page footer
BRO ;ask prt with category or without
EXPORT ;Section added in 119

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?91,"- ",MD," ",$P(ECMOD(MD),U,3),!
  • Line Location: SET+47
Function Call: WRITE
  • Prompt: ?32,ECON,?87,ECUN
  • Line Location: SET+49
Function Call: WRITE
  • Prompt: !,ECPRSN2
  • Line Location: SET+52
Function Call: WRITE
  • Prompt: !,ECPRSN3
  • Line Location: SET+53
Function Call: WRITE
  • Prompt: ?36,"- ",MD," ",$P(ECMOD(MD),U,3),!
  • Line Location: SET+58
Function Call: WRITE
  • Prompt: ?32,ECON,?94,ECUN
  • Line Location: SET+61
Function Call: WRITE
  • Prompt: !,ECPRSN2
  • Line Location: SET+64
Function Call: WRITE
  • Prompt: !,ECPRSN3
  • Line Location: SET+65
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+3
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: !!,"Press <RET> to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,?32,"EVENT CAPTURE PATIENT SUMMARY FOR "_ECPAT,!,?32,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?32,"Run Date : ",ECRDT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"PROCEDURE DATE/TIME",?32,"CATEGORY",?87,"PROCEDURE",!,?87,"PROCEDURE (CPT) MODIFIER",!,"LOCATION",?32,"DSS UNIT NAME (IEN)",!,?32,"SERVICE",?87,"SECTION"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?32,"ORDERING SECTION",?87,"PROVIDER",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
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: @IOF,!!,?32,"EVENT CAPTURE PATIENT SUMMARY FOR "_ECPAT,!,?36,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?36,"Run Date : ",ECRDT
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !!,"PROCEDURE DATE/TIME",?32,"PROCEDURE(VOLUME)",!,?32,"PROCEDURE (CPT) MODIFIER",!,"LOCATION",?32,"DSS UNIT NAME (IEN)"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,?32,"CLINIC",?64,"STOP",?70,"CREDIT",?78,"CHAR4",?85,"MCA",!,?32,"SERVICE",?85,"LABOR",?94,"SECTION"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: ?32,"ORDERING SECTION",?85,"CODE",?94,"PROVIDER",!
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+11
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

FileMan Files Accessed Via FileMan Db Call

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