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

Package: Event Capture

Routine: ECRECER


Information

ECRECER ;ALB/DAN-Event Capture Encounter Report ;Nov 04, 2020@22:42:04

Source Information

Source file <ECRECER.m>

Entry Points

Name Comments DBIA/ICR reference
STRPT ;
GETREC ;Find records to put on report
EXPORT ;Put in delimited format for exporting
PRINT ;Display results
WRTLN ;Write report line
HDR ;Print Header
SUB ;Print totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Data found"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$P(PATN,"~"),?32,$P(DATA,U,5),?38,$P(DATA,U,1),?43,$$FMTE^XLFDT($P(DATA,U,2),2),?59,PROV,?91,ECDSSU($P(DATA,U,3)),?123,$P(DATA,U,4)
  • Line Location: WRTLN+1
Function Call: WRITE
  • Prompt: !,?4,$P(DATA,U,6),?36,$P(DATA,U,7),?47,$P(DATA,U,8),?60,$P(DATA,U,9),?68,$$GET1^DIQ(728.442,$P(DATA,U,10),.01)
  • Line Location: WRTLN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?51,"Event Capture Encounters Report",?123,"Page: ",PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-(12+$L(LOC))\2),$S(LOC="ALL":"For ALL Locations",1:"For Location "_LOC)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?47,"From ",$$FMTE^XLFDT(ECSD)," through ",$$FMTE^XLFDT(ECED)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?(132-(9+$L(SORT))\2),"Sorted by ",SORT,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Patient",?32,"SSN",?38,"I/O",?43,"Date/Time",?59," Primary Provider",?91,"DSS Unit",?123,"Total"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?4,"Clinic",?36,"Stop Code",?47,"Credit Stop",?60,"CHAR4",?68,"MCA Labor Code",?123,"Proc Vol"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",132)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PROTOT(ARR),4)
  • Line Location: SUB+4
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PTOT,4),!
  • Line Location: SUB+6
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PTOT(ARR),4)
  • Line Location: SUB+9
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PROTOT,4),!
  • Line Location: SUB+11
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PTOT(ARR),4)
  • Line Location: SUB+14
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(PROTOT(ARR),4)
  • Line Location: SUB+16
Function Call: WRITE
  • Prompt: !,$J(DISP,128),$J(CLINTOT,4),!
  • Line Location: SUB+18

FileMan Files Accessed Via FileMan Db Call

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