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

Package: DSS Extracts

Routine: ECXTSR


Information

ECXTSR ;MBS/BAH - Pharmacy DSS Extract Treating Specialty Report ;4/5/24 11:53

Source Information

Source file <ECXTSR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
EN1 ;Init variables
EXIT
DATES ;Prompt for start date
HEADER ;Print header
GETDATA ;Get data from Specialty File
STATCH(IEN,EFDT,SDATE,EDATE) ;Check if status changed during report period
DETAIL ;Print report
WAIT ;End of page logic

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column format."
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"Treating Specialty Report",?80,$$RJ^XLFSTR("PAGE: "_PAGE,10)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Start Date: "_$$FMTE^XLFDT(SDATE),?49,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"End Date: "_$$FMTE^XLFDT(EDATE),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"Note: '*' beside the status indicates status was changed during report period."
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"PTF Code Name Status Effective Date"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42.4 - [#42.4] GETS^DIQ
42.41 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call