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

Package: DSS Extracts

Routine: ECXBSC


Information

ECXBSC ;ALB/DAN - Validate stop codes in extracts ;6/14/18 10:53

Source Information

Source file <ECXBSC.m>

Entry Points

Name Comments DBIA/ICR reference
EN
PROCESS ;
GETFLDS(ARR) ;Get data
HEADER ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"This option will identify extract records with an invalid or inactive",!,"stop code."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,?5,"Extract: ",ECXARR(727,ECXDA,2,"E")," #",ECXDA
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,?5,"Start date: ",ECXARR(727,ECXDA,3,"E")
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,?5,"End date: ",ECXARR(727,ECXDA,4,"E")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,?5,"# of Records: ",ECXARR(727,ECXDA,5,"E")
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,"This report requires 132 characters to display correctly.",!
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,"No data to report."
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,ECXTYPE," Extract Stop Code Audit"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXDA
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN,?120,"Page: ",$G(PG)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!,"SEQUENCE",?10,"FACILITY",?20,"SSN",?25,"NAME",?31,"DAY",?41,"FEEDER KEY",$S(ECXTYPE="Radiology":" (IEN from file 71)",1:""),?72,"FEEDER",?80,"ENCOUNTER",?98,"STOP",?104,"CLINIC",?118,"CLINIC"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,?10,"NUMBER",?72,"LOC",?80,"NUMBER",?98,"CODE",?104,"IEN",?118,"STOP CODE"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^RAMIS(71 - [#71] GET1^DIQ
^ECX(727 - [#727] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call