Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 6 DD^%DT  NOW^%DTC  FILE^DICN  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 5 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$FMTE^XLFDT  EN^XUTMDEVQ  
DSS Extracts 2 AUDIT^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DSS Extracts 1 ECX CBOC REPORT  

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

External References

Name Field # of Occurrence
DD^%DT EN+5, SELECT+26
NOW^%DTC EN+5, SELECT+4
HOME^%ZIS EN+20
^%ZISC EN+19
$$S^%ZTLOAD DETAIL+3
FILE^DICN PROCESS+15
$$GET1^DIQ PROCESS+27, PROCESS+35, PROCESS+52, HEADER2+3
EN^DIQ1 SELECT+16
^DIR BEGIN+8, SELECT+22, SELECT+23, LISTHDR+2, CLOSE+3, HEADER1+4
AUDIT^ECXKILL EN+13, EN+21
$$EXPORT^ECXUTL1 EN+8
EXPDISP^ECXUTL1 EN+12
$$FMTE^XLFDT SELECT+10, SELECT+11, SELECT+12, DETAIL+14, DETAIL+15
EN^XUTMDEVQ EN+17

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
Routine Call
  • DIR
  • Line Location:
    • BEGIN+8
    • SELECT+22
    • SELECT+23
    • LISTHDR+2
    • CLOSE+3
    • HEADER1+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SELECT+4
^DD(728 PROCESS+13
^DPT - [#2] DETAIL+9
^ECX(727 - [#727] SELECT+5, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+10, SELECT+11, SELECT+12, SELECT+13, SELECT+14
, SELECT+26
^ECX(727.827 - [#727.827] PROCESS+17, PROCESS+20, ISCBOC+1, SETKEY+2, SETKEY+3, SETKEY+4, SETKEY+5, SETKEY+6, SETKEY+7
^ECX(728 - [#728] PROCESS+12
^TMP($J EN+11*, PROCESS+6!, PROCESS+22, PROCESS+25, PROCESS+27*, PROCESS+31, PROCESS+35*, PROCESS+39, PROCESS+52*, INCSSN+6*
, INCSSN+7*, INCSSN+8*, INCSSN+9*, SETKEY+9*, DETAIL+14*, CLINTOT+5*, CLINTOT+6!, DIVTOT+5*, DIVTOT+6!, FKEYTOT+5*
, FKEYTOT+6!, GTOTAL+2*

Label References

Name Line Occurrences
CLINTOT PROCESS+43, PROCESS+46, PROCESS+47, PROCESS+61
DETAIL PROCESS+28, PROCESS+36, PROCESS+53
DIVTOT PROCESS+43, PROCESS+46, PROCESS+62
FKEYTOT PROCESS+43, PROCESS+63
GTOTAL PROCESS+64
HEADER PROCESS+28, DETAIL+6, CLINTOT+2, DIVTOT+2, FKEYTOT+2, GTOTAL+3
HEADER1 HEADER+1, HEADER2+1
HEADER2 PROCESS+51, HEADER+2
INCSSN PROCESS+28, PROCESS+39, PROCESS+55
INCVIS PROCESS+28, PROCESS+37, PROCESS+54
ISCBOC PROCESS+20
LISTHDR SELECT+4, SELECT+5, SELECT+17
PROCESS EN+10
SELECT EN+7, SELECT+23
SETKEY ISCBOC+1
SETOLD PROCESS+28, PROCESS+56

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5, SELECT+4
%DT EN+5!
CLIN PROCESS+2~, SETKEY+1~, SETKEY+2*, SETKEY+8
CLINIC HEADER2+2~, HEADER2+3*, HEADER2+6
CNT EN+2~, EN+9*, PROCESS+27, PROCESS+35, PROCESS+52, DETAIL+14*, CLINTOT+5*, DIVTOT+5*, FKEYTOT+5*, GTOTAL+2
COUNT EN+1~, EN+3*, PROCESS+1~, PROCESS+5*, DETAIL+4*, CLINTOT+1*, DIVTOT+1*, FKEYTOT+1*, GTOTAL+1*
CSSN PROCESS+3~, PROCESS+24*, INCSSN+9*, CLINTOT+4, CLINTOT+5, CLINTOT+6*
CVISIT PROCESS+3~, PROCESS+24*, INCVIS+4*, CLINTOT+4, CLINTOT+5, CLINTOT+6*
DA SELECT+15*, SELECT+16!, PROCESS+10!
DA(1 PROCESS+11*, PROCESS+12, PROCESS+14
DATE EN+1~, EN+5*
DD PROCESS+10!
DFN PROCESS+2~, SETKEY+1~, SETKEY+5*, SETKEY+8, DETAIL+1~, DETAIL+8*, DETAIL+9
DIC SELECT+15*, SELECT+16!, PROCESS+10!, PROCESS+14*
DIC("P" PROCESS+13*
DIC(0 PROCESS+13*
DIQ SELECT+15*, SELECT+16!
DIQ(0 SELECT+15*
DIR BEGIN+8!, SELECT+22!, SELECT+23!, LISTHDR+2!, CLOSE+3!, HEADER1+4!
DIR("?" SELECT+21*
DIR("A" SELECT+21*
DIR(0 BEGIN+8*, SELECT+21*, SELECT+23*, LISTHDR+2*, CLOSE+3*, HEADER1+4*
>> DIRUT SELECT+22
DISPDT DETAIL+1~, DETAIL+10*, DETAIL+11, DETAIL+12*, DETAIL+13*, DETAIL+14, DETAIL+15
DISPTM DETAIL+1~, DETAIL+11*, DETAIL+13
DIV PROCESS+2~, SETKEY+1~, SETKEY+3*, SETKEY+8
DLAYGO PROCESS+3~, PROCESS+13*
DO PROCESS+10!
DONE SELECT+1~
DR SELECT+15*, SELECT+16!
DSSN PROCESS+3~, PROCESS+24*, INCSSN+8*, DIVTOT+4, DIVTOT+5, DIVTOT+6*
DVISIT PROCESS+3~, PROCESS+24*, INCVIS+3*, DIVTOT+4, DIVTOT+5, DIVTOT+6*
ECED EN+2~
ECEND EN+2~
ECRUN EN+1~, EN+5*, HEADER1+9
ECSD EN+2~
ECSD1 EN+2~
ECSTART EN+2~, SELECT+27*, HEADER1+9
ECXCNT SELECT+1~, SELECT+13*, SELECT+18
ECXD PROCESS+1~, PROCESS+5*, PROCESS+27, PROCESS+34, PROCESS+35, PROCESS+38, PROCESS+42, PROCESS+45, PROCESS+52, INCSSN+2
, INCSSN+3, INCSSN+4, INCSSN+5, SETOLD+1, SETOLD+2, SETOLD+3, SETOLD+4, SETOLD+5, SETKEY+8, DETAIL+8
, DETAIL+10, DETAIL+14, DETAIL+15, CLINTOT+6, DIVTOT+6, FKEYTOT+6, HEADER2+3, HEADER2+4, HEADER2+5
ECXDESC EN+1~, EN+14*, EN+17
ECXDIC SELECT+16!
ECXDIC(4 SELECT+16
ECXDIV SELECT+1~, SELECT+14*, SELECT+15, SELECT+16*, SELECT+18
ECXEND SELECT+1~, SELECT+11*, SELECT+18
ECXERR EN+2~
ECXFROM SELECT+1~, SELECT+10*, SELECT+18
ECXJOB EN+1~, SELECT+9*, SELECT+18, SELECT+19, SELECT+25*, SELECT+26, PROCESS+12, PROCESS+14, PROCESS+17, PROCESS+20
ECXPORT EN+2~, EN+8*, PROCESS+18, PROCESS+22, PROCESS+27, PROCESS+28, PROCESS+35, PROCESS+51, PROCESS+52, DETAIL+6
, DETAIL+14, CLINTOT+2, CLINTOT+3, CLINTOT+4, CLINTOT+5, DIVTOT+2, DIVTOT+3, DIVTOT+4, DIVTOT+5, FKEYTOT+2
, FKEYTOT+3, FKEYTOT+4, FKEYTOT+5, GTOTAL+2
ECXRUN SELECT+1~, SELECT+12*, SELECT+18
ECXSAVE EN+1~, EN+17
ECXSAVE("EC*" EN+15*
ECXTL EN+1~
FKEY PROCESS+2~, SETKEY+1~, SETKEY+4*, SETKEY+8
FSSN PROCESS+3~, PROCESS+24*, INCSSN+7*, FKEYTOT+4, FKEYTOT+5, FKEYTOT+6*
FVISIT PROCESS+3~, PROCESS+24*, INCVIS+2*, FKEYTOT+4, FKEYTOT+5, FKEYTOT+6*
HDT SELECT+1~, SELECT+4*
HEADKEY PROCESS+4~, PROCESS+26*, PROCESS+32*, PROCESS+50*, PROCESS+60*, HEADER2+3, HEADER2+4, HEADER2+5
IEN SELECT+1~, SELECT+5*, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+10, SELECT+11, SELECT+12, SELECT+13
, SELECT+14
IO EN+19, DETAIL+2
IO(0 EN+19
IOF BEGIN+1, BEGIN+9, SELECT+2, LISTHDR+3, PROCESS+7, HEADER1+6
IOSL SELECT+5, SELECT+17, DETAIL+6, CLINTOT+2, DIVTOT+2, FKEYTOT+2, GTOTAL+3, HEADER2+1
IOST BEGIN+9, LISTHDR+1, LISTHDR+2, LISTHDR+3, CLOSE+1, HEADER1+2, HEADER1+6
JJ LISTHDR+1*, CLOSE+2*, HEADER1+1~, HEADER1+3*
KEY PROCESS+2~, SETKEY+8*, SETKEY+9
LIST SELECT+1~, SELECT+22!
LIST( SELECT+19*
LIST(" " SELECT+21
LIST(0 SELECT+21
LN SELECT+1~, SELECT+3*, LISTHDR+4, PROCESS+1~, PROCESS+5*, HEADER2+8
OLDCLIN PROCESS+4~, PROCESS+39, SETOLD+4*, CLINTOT+6*
OLDDFN PROCESS+4~
OLDDIV PROCESS+4~, PROCESS+45, SETOLD+3*, DIVTOT+6*
OLDFKEY PROCESS+4~, PROCESS+42, SETOLD+2*, FKEYTOT+6*
OLDKEY PROCESS+4~, PROCESS+32, PROCESS+34, PROCESS+60, SETOLD+1*
OLDSSN PROCESS+4~, PROCESS+39*, SETOLD+5*
OLDVDATE PROCESS+4~
OUT SELECT+1~
PG EN+1~, EN+3*, SELECT+3*, LISTHDR+2, LISTHDR+3*, PROCESS+1~, PROCESS+5*, HEADER1+4, HEADER1+6*, HEADER1+8
>> POP EN+18
PTNAME DETAIL+1~, DETAIL+9*, DETAIL+14, DETAIL+15
QFLG EN+2~, EN+3*, EN+7, BEGIN+8*, SELECT+3*, SELECT+5, SELECT+17, SELECT+20*, SELECT+22*, SELECT+23
, SELECT+24*, LISTHDR+2*, PROCESS+1~, PROCESS+5*, PROCESS+22*, PROCESS+28, PROCESS+31, PROCESS+36, PROCESS+42, PROCESS+43
, PROCESS+44, PROCESS+46, PROCESS+47, PROCESS+50, PROCESS+51, PROCESS+53, PROCESS+58, PROCESS+61, PROCESS+62, PROCESS+63
, PROCESS+64, DETAIL+6, CLINTOT+2, DIVTOT+2, FKEYTOT+2, GTOTAL+3, CLOSE+1, HEADER+1, HEADER+2, HEADER1+4*
, HEADER1+5, HEADER2+1
RECDA PROCESS+1~, PROCESS+19*, PROCESS+20*, PROCESS+25*, PROCESS+26, PROCESS+27, PROCESS+31*, PROCESS+34, PROCESS+35, PROCESS+38
, PROCESS+42, PROCESS+45, PROCESS+50, PROCESS+52, ISCBOC+1, INCSSN+2, INCSSN+3, INCSSN+4, INCSSN+5, SETOLD+1
, SETOLD+2, SETOLD+3, SETOLD+4, SETOLD+5, SETKEY+2, SETKEY+3, SETKEY+4, SETKEY+5, SETKEY+6, SETKEY+7
, DETAIL+8, DETAIL+10, DETAIL+14, DETAIL+15, CLINTOT+6, DIVTOT+6, FKEYTOT+6
SS LISTHDR+1*, CLOSE+2*, HEADER1+1~, HEADER1+3*
SSN PROCESS+2~, PROCESS+38*, PROCESS+39, SETKEY+1~, SETKEY+6*, SETKEY+8
TSSN PROCESS+3~, PROCESS+24*, INCSSN+6*, GTOTAL+2, GTOTAL+5
TVISIT PROCESS+3~, PROCESS+24*, INCVIS+1*, GTOTAL+2, GTOTAL+5
U SELECT+8, SELECT+9, SELECT+10, SELECT+11, SELECT+12, SELECT+13, SELECT+14, SELECT+26, PROCESS+13, PROCESS+27
, PROCESS+35, PROCESS+52, ISCBOC+1, SETKEY+2, SETKEY+3, SETKEY+4, SETKEY+5, SETKEY+6, SETKEY+7, DETAIL+9
, DETAIL+14, CLINTOT+5, DIVTOT+5, FKEYTOT+5, GTOTAL+2, HEADER2+3
VDATE PROCESS+2~, SETKEY+1~, SETKEY+7*, SETKEY+8
X EN+1~, EN+5, SELECT+23, SELECT+25, PROCESS+14*
Y EN+1~, EN+5*, BEGIN+8, SELECT+4*, SELECT+24, SELECT+26*, SELECT+27, LISTHDR+2, HEADER1+4
YYYYMM EN+1~
ZC INCSSN+1~, INCSSN+5*, INCSSN+9
ZD INCSSN+1~, INCSSN+4*, INCSSN+8
ZF INCSSN+1~, INCSSN+3*, INCSSN+7
ZSSN INCSSN+1~, INCSSN+2*, INCSSN+6, INCSSN+7, INCSSN+8, INCSSN+9
>> ZTQUEUED DETAIL+3
ZTREQ PROCESS+5*, DETAIL+3!
>> ZTSTOP DETAIL+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All