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

Package: DSS Extracts

Routine: ECXDSSD


Information

ECXDSSD ;ALB/JAP - Derive DSS Department code ;July 16, 1998

Source Information

Source file <ECXDSSD.m>

Entry Points

Name Comments DBIA/ICR reference
DERIVE(ECXSVC,ECXPUNIT,ECXDIV,ECXSUF) ;entry point for extrinsic function
; input
; ECXSVC = null or pointer to file #730; required
; ECXPUNIT = null or pointer to file #729; required
; ECXDIV = null or pointer to file #727.3; required
; ECXSUF = null or character string; optional
; output
; DSSDEPT = dss department code as ABBCxxx or null
; A=DSS CODE from file (#730)
; BB=DSS PRODUCTION UNIT CODE from file (#729)
; C=DSS DIVISION IDENTIFIER from file (#727.3)
; xxx=suffix of not more than three characters (optional)
GETDIV(ECXDIV) ;get division portion of dss dept code
; input
; ECXDIV = pointer to file #40.8 or null; required; passed by reference
; output
; ECXDIV = dss division identifier or null
GETSVC(ECXSVC) ;get service portion of dss dept code
; input
; ECXSVC = pointer to file #730 or null; required; passed by reference
; output
; ECXSVC = dss service code or null
GETPUNIT(ECXPUNIT) ;get production unit portion of dss dept code
; input
; ECXPUNIT = pointer to file #729 or null; required; passed by reference
; output
; ECXPUNIT = dss production unit code or null
GETSUF(ECXSUF) ;get suffix portion of dss dept code
; input
; ECXSUF = character string or null; required; passed by reference
; output
; ECXSUF = character string or null;
; input character string will be returned as null
SUF2 ;ask user for input if necessary, then validate variable ecxsuf
DECODE ;allow user to decode a dss department code
REVERSE(ECXDEPT,ECXDESC) ;get dss dept code description
; input
; ECXDEPT = dss dept code as ABBCxxx; required
; output
; ECXDESC = code description; passed by reference
; service_name^prod_unit_long_desc^division_name/station number
; note: if suffix (xxx) is present, it is ignored because free text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDIV+21
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDIV+22
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDIV+22
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSVC+20
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSVC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSVC+21
Function Call: WRITE
  • Prompt: !!,"Invalid ...try again."
  • Line Location: SUF2+13
Function Call: WRITE
  • Prompt: !!,"You may enter a DSS Department as 'ABBC' (no suffix)."
  • Line Location: DECODE+2
Function Call: WRITE
  • Prompt: !,"The code will be 'translated' into a description and displayed.",!!
  • Line Location: DECODE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECX(727.3 - [#727.3] Classic Fileman Calls,  FIND1^DIC
^ECX(729 - [#729] Classic Fileman Calls,  FIND1^DIC
^ECC(730 - [#730] Classic Fileman Calls,  FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call