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

Package: DSS Extracts

Routine: ECXDVSN


Information

ECXDVSN ;ALB/JAP - Division selection utility ; 8/13/07 1:11pm

Source Information

Source file <ECXDVSN.m>

Entry Points

Name Comments DBIA/ICR reference
ADM(ECXDIV,ECXALL,ECXSTART,ECXEND,ECXERR) ;division information for ADM extract audit report
ACTDIV(ECXIEN,ECXSTART,ECXEND,ECXD,ECXACT) ;determine if division active at anytime during date range
MOV(ECXDIV,ECXALL,ECXSTART,ECXEND,ECXERR) ;division information for MOV extract audit report
PAS(ECXDIV,ECXALL,ECXERR) ;setup division/site information for PAS extract audit report
; input
; ECXDIV = passed by reference array variable
; ECXALL = 1
; output
; ECXDIV = data for default division/site;
; ECXDIV(1)=ien in file #4^name^station number
; where the INSTITUTION file pointer is obtained from file #728
TRT(ECXDIV,ECXALL,ECXERR) ;setup division/site information for TRT extract audit report
; input
; ECXDIV = passed by reference array variable
; ECXALL = 1
; output
; ECXDIV = data for default division/site;
; ECXDIV(1)=ien in file #4^name^station number
; where the INSTITUTION file pointer is obtained from file #728
DEFAULT(ECXDIV,ECXALL,ECXERR) ;default division/site information for audit report
; input
; ECXDIV = passed by reference array variable
; ECXALL = 1
; output
; ECXDIV = data for default division/site;
; ECXDIV(1)=ien in file #4^name^station number
; where the INSTITUTION file pointer is obtained from file #728
DEN(ECXDIV,ECXALL,ECXERR) ;setup division/site information for DEN extract audit report
; input
; ECXDIV = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select dental division;
; '1' indicates 'all' dental divisions or only one division
; exists in file #225; default is '1'
; output
; ECXDIV = data for dental division/site;
; ECXDIV(ien in file #225)=ien in file #4^name^station number
; ECXERR = 0/1
; if input problem, then '1' returned
ECS(ECXDIV,ECXALL,ECXERR) ;setup division/location information for ECS extract audit report
; input
; ECXDIV = passed by reference array variable (required)
; ECXALL = 0/1 (optional)
; '0' indicates user to select EC location(s);
; '1' indicates 'all' locations or only one location
; exists in file #4 "LOC" index;
; default is '1'
; output
; ECXDIV = data for EC location;
; ECXDIV(ien in file #4)=ien in file #4^name^station number
; where the INSTITUTION file pointer is obtained from
; "LOC" index in file #4
; ECXERR = 0/1
; if input problem, then '1' returned
NUT() ; Set Divisions into screen array (prompt is one/many/all)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Please note: Division "_ECXNUM_" was not active during",!,?5," selected date range.",!
  • Line Location: ADM+48
Function Call: WRITE
  • Prompt: !,?10,I_" ",NM
  • Line Location: ECS+29
Function Call: WRITE
  • Prompt: !!,"No Location selected...exiting.",!
  • Line Location: ECS+36
Function Call: WRITE
  • Prompt: !,?10,$P(ECXDIV(I),U,2)_" ("_$P(ECXDIV(I),U,3)_")"
  • Line Location: ECS+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DENT(225 - [#225] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls
^DG(40.8 - [#40.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call