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

Package: DSS Extracts

Routine: ECXUCBOC


Information

ECXUCBOC ;ALB/TJL-CBOC Activity Report ;8/6/24 12:08

Source Information

Source file <ECXUCBOC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
BEGIN ; display report description
SELECT ; user inputs for start date
LISTHDR ;
PROCESS ; entry point for queued report
ISCBOC ;
INCVIS ;
INCSSN ;
SETOLD ;
SETKEY ;
DETAIL ; print detail line
CLINTOT ;
DIVTOT ;
FKEYTOT ;
GTOTAL ;
CLOSE ;
HEADER ;header and page control
HEADER1 ;header1 and page control
HEADER2 ;display whenever feeder key, division, or clinic changes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 80-column format."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This report prints a listing of all Clinical (CLI) records"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"that have a Community Based Outpatient Clinic (CBOC) status of"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"Y (=Yes). Reports are grouped by Feeder Key, Division, and"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"Clinic; detail lines include Patient Name, SSN, and Date of Visit."
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"Totals for unique SSNs and unique Dates of Visit will be displayed"
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !,"at the Clinic, Division, Feeder Key, and Report levels."
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !!,"Invalid choice. Please try again."
  • Line Location: SELECT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTHDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: LISTHDR+3
Function Call: WRITE
  • Prompt: !,"Selectable Clinic Extracts for CBOC Activity Report",?72,"Page: ",PG
  • Line Location: LISTHDR+3
Function Call: WRITE
  • Prompt: !!,"Extract #",?15,"Run Date",?28,"Rec Count",?42,"Date Range of Extract",?68,"Division",!,LN
  • Line Location: LISTHDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !,"No extract records exist for the selected extract."
  • Line Location: PROCESS+18
Function Call: WRITE
  • Prompt: !,PTNAME,?36,$P(RECDA,ECXD,4),?51,$$FMTE^XLFDT(DISPDT,1)
  • Line Location: DETAIL+15
Function Call: WRITE
  • Prompt: !!,?5,"Total Unique SSNs for Clinic:"
  • Line Location: CLINTOT+3
Function Call: WRITE
  • Prompt: ?35,$J(CSSN,10),?50,$J(CVISIT,10),?61,"Clinic Visits"
  • Line Location: CLINTOT+4
Function Call: WRITE
  • Prompt: !,?3,"Total Unique SSNs for Division:"
  • Line Location: DIVTOT+3
Function Call: WRITE
  • Prompt: ?35,$J(DSSN,10),?50,$J(DVISIT,10),?61,"Division Visits"
  • Line Location: DIVTOT+4
Function Call: WRITE
  • Prompt: !,?1,"Total Unique SSNs for Feeder Key:"
  • Line Location: FKEYTOT+3
Function Call: WRITE
  • Prompt: ?35,$J(FSSN,10),?50,$J(FVISIT,10),?61,"Feeder Key Visits"
  • Line Location: FKEYTOT+4
Function Call: WRITE
  • Prompt: !,"Total Unique SSNs (entire report):"
  • Line Location: GTOTAL+4
Function Call: WRITE
  • Prompt: ?35,$J(TSSN,10),?50,$J(TVISIT,10),?61,"Total Visits"
  • Line Location: GTOTAL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,"CBOC Activity Report"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: ?(73-$L(PG)),"Page: "_PG
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,ECSTART,?50,"Report Run Date: "_ECRUN
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !!,"Feeder Key: ",$P(HEADKEY,ECXD)
  • Line Location: HEADER2+4
Function Call: WRITE
  • Prompt: ?31,"Division: ",$P(HEADKEY,ECXD,2)
  • Line Location: HEADER2+5
Function Call: WRITE
  • Prompt: ?51,"Clinic: ",$E(CLINIC,1,20)
  • Line Location: HEADER2+6
Function Call: WRITE
  • Prompt: !!,"Patient",?39,"SSN",?51,"Visit Date/Time"
  • Line Location: HEADER2+7
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER2+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call