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

Package: Event Capture

Routine: ECNTPCE


Information

ECNTPCE ;ALB/JAM-Event Capture Records failing transmission to PCE;Sep 24, 2020@14:55:55

Source Information

Source file <ECNTPCE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
START ; entry when queued
GET ; start processing or records
END
PAGE ; end of page
HDR ; print header
PRT
PR2
PROV ;Set provider 1-3 in variables
EXPORT ;Section added in patch 119

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"End date must be after start date",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?5,"Please be patient, this may take a few moments..."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ECRDT,?70,"Page: ",ECPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?17,"ECS RECORDS FAILING TRANSMISSION TO PCE REPORT",!,?24
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "FROM "_$P(ECDATE,U)_" TO "_$P(ECDATE,U,2),!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "DATE/TIME",?16,"PATIENT",?39,"SSN",?44,"PROVIDER(S)",?61,"REASONS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"LOCATION",?16,"PROCEDURE",!,"DSS UNIT",?16,"CATEGORY",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ECDT,?16,$E(ECPAT,1,20),?39,ECSSN,?44,$E(ECUN1,1,16),?61,$E($P(ECRS,";"),1,19),!
  • Line Location: PR2+11
Function Call: WRITE
  • Prompt: $E(ECLN,1,15),?16,$E(ECPS,1,27),?44,$E(ECUN2,1,16)
  • Line Location: PR2+12
Function Call: WRITE
  • Prompt: ?61,$E($P(ECRS,";",2),1,19),!
  • Line Location: PR2+13
Function Call: WRITE
  • Prompt: $E(ECDN,1,15),?16,$E(ECAT,1,27),?44,$E(ECUN3,1,16)
  • Line Location: PR2+14
Function Call: WRITE
  • Prompt: ?61,$E($P(ECRS,";",3),1,198)
  • Line Location: PR2+15
Function Call: WRITE
  • Prompt: ?44,$E($P(ECPRV(ECUN),"^",2),1,16)
  • Line Location: PR2+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: PR2+21
Info |  Source |  Entry Points |  Interaction Calls