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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 (,$$FIND1)^DIC  EN^DIQ1  ^DIR  

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

Package Total Caller Graph
DSS Extracts 2 ECX DSSDEPT DECODE  ECXWRD  

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

External References

Name Field # of Occurrence
^DIC GETDIV+10, GETSVC+10, GETPUNIT+8
$$FIND1^DIC REVERSE+10, REVERSE+12, REVERSE+14
EN^DIQ1 GETDIV+13, GETSVC+13, GETPUNIT+11
^DIR GETDIV+22, GETSVC+21, SUF2+5, SUF2+9, SUF2+23, DECODE+7, DECODE+16

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
Routine Call
  • DIC
  • Line Location:
    • GETDIV+10
    • GETSVC+10
    • GETPUNIT+8
Routine Call
  • DIC
  • Line Location:
    • REVERSE+10
    • REVERSE+12
    • REVERSE+14
Routine Call
  • DIR
  • Line Location:
    • GETDIV+22
    • GETSVC+21
    • SUF2+5
    • SUF2+9
    • SUF2+23
    • DECODE+7
    • DECODE+16

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] REVERSE+15
^ECC(730 - [#730] REVERSE+11
^ECX(729 - [#729] REVERSE+13

Label References

Name Line Occurrences
GETDIV DERIVE+16
GETPUNIT DERIVE+20
GETSUF DERIVE+27
GETSVC DERIVE+18
REVERSE DECODE+9
SUF2 GETSUF+11, SUF2+43

Naked Globals

Name Field # of Occurrence
^(0 REVERSE+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGAIN GETSUF+6~, GETSUF+9*, SUF2+2, SUF2+7*, SUF2+13*, SUF2+18*, SUF2+24*, SUF2+25, SUF2+27, SUF2+29
, SUF2+32*, SUF2+33, SUF2+36*, SUF2+38, SUF2+42*, SUF2+43
CODE DECODE+1~, DECODE+9*, DECODE+11, DECODE+12, DECODE+13
DA GETDIV+5~, GETDIV+12*, GETSVC+5~, GETSVC+12*, GETPUNIT+5~, GETPUNIT+10*
DESC DECODE+1~, DECODE+9, DECODE+11, DECODE+12, DECODE+13
DIC GETDIV+5~, GETDIV+10*, GETDIV+12*, GETSVC+5~, GETSVC+10*, GETSVC+12*, GETPUNIT+5~, GETPUNIT+8*, GETPUNIT+10*
DIC(0 GETDIV+10*, GETSVC+10*, GETPUNIT+8*
DIQ GETDIV+5~, GETDIV+12*, GETSVC+5~, GETSVC+12*, GETPUNIT+5~, GETPUNIT+10*
DIQ(0 GETDIV+12*, GETSVC+12*, GETPUNIT+10*
DIR GETDIV+22!, GETSVC+21!, GETSUF+6~, SUF2+5!, SUF2+9!, SUF2+23!, DECODE+1~, DECODE+7!, DECODE+16!
DIR("A" SUF2+4*, SUF2+8*, SUF2+22*, DECODE+6*, DECODE+15*
DIR("B" SUF2+4*, SUF2+22*, DECODE+15*
DIR(0 GETDIV+22*, GETSVC+21*, SUF2+4*, SUF2+8*, SUF2+22*, DECODE+6*, DECODE+15*
DIRUT GETSUF+6~, SUF2+2, SUF2+10, SUF2+24, DECODE+1~, DECODE+5, DECODE+8
DIV REVERSE+7~, REVERSE+9*, REVERSE+14, REVERSE+15*, REVERSE+16
DR GETDIV+5~, GETDIV+12*, GETSVC+5~, GETSVC+12*, GETPUNIT+5~, GETPUNIT+10*
DSSDEPT DERIVE+13~, DERIVE+14*, DERIVE+15, DERIVE+17, DERIVE+19, DERIVE+21, DERIVE+22*, DERIVE+28*, DERIVE+29
DTOUT GETDIV+5~, GETDIV+7, GETSVC+5~, GETSVC+7, GETPUNIT+5~, GETPUNIT+6, GETSUF+6~, DECODE+1~
DUOUT GETDIV+5~, GETDIV+7, GETSVC+5~, GETSVC+7, GETPUNIT+5~, GETPUNIT+6, GETSUF+6~, DECODE+1~
ECX GETDIV+5~, GETSVC+5~, GETPUNIT+5~
ECX( GETDIV+14
ECX(729 GETPUNIT+12
ECX(730 GETSVC+14
ECXDEPT REVERSE~, REVERSE+8, REVERSE+9
ECXDESC REVERSE~, REVERSE+16*
ECXDIV DERIVE~, DERIVE+15, DERIVE+16, DERIVE+17, DERIVE+22, GETDIV~, GETDIV+7, GETDIV+11*, GETDIV+12, GETDIV+14*
, GETDIV+15
ECXERR REVERSE+10!, REVERSE+12!, REVERSE+14!
ECXPUNIT DERIVE~, DERIVE+15, DERIVE+20, DERIVE+21, DERIVE+22, GETPUNIT~, GETPUNIT+6, GETPUNIT+9*, GETPUNIT+10, GETPUNIT+12*
ECXSUF DERIVE~, DERIVE+26, DERIVE+27, DERIVE+28, GETSUF~, GETSUF+9, SUF2+11*, SUF2+12, SUF2+13*, SUF2+14
, SUF2+18*, SUF2+24*, SUF2+27, SUF2+32*, SUF2+36*, SUF2+42*, SUF2+45, SUF2+47*, SUF2+48, SUF2+49*
, SUF2+50*, SUF2+51*, SUF2+53*
ECXSVC DERIVE~, DERIVE+15, DERIVE+18, DERIVE+19, DERIVE+22, GETSVC~, GETSVC+7, GETSVC+11*, GETSVC+12, GETSVC+14*
, GETSVC+15
>> I SUF2+27*, SUF2+28, SUF2+48*, SUF2+49
IOST GETDIV+20, GETSVC+19
JJ GETDIV+5~, GETDIV+21*, GETSVC+5~, GETSVC+20*
LEN GETSUF+6~, SUF2+11*, SUF2+27, SUF2+47*, SUF2+48
OUT GETSUF+6~, SUF2+46*, SUF2+48, SUF2+49*, SUF2+50*, SUF2+51*, DECODE+1~, DECODE+4*, DECODE+5, DECODE+17*
PUNIT REVERSE+7~, REVERSE+9*, REVERSE+12, REVERSE+13*, REVERSE+16
SS GETDIV+5~, GETDIV+21*, GETSVC+5~, GETSVC+20*
SVC REVERSE+7~, REVERSE+9*, REVERSE+10, REVERSE+11*, REVERSE+16
U DECODE+11, DECODE+12, DECODE+13, REVERSE+11, REVERSE+13, REVERSE+15, REVERSE+16
USER GETDIV+5~, GETDIV+6*, GETDIV+9*, GETDIV+15, GETSVC+5~, GETSVC+6*, GETSVC+9*, GETSVC+15, GETSUF+6~, GETSUF+9*
, SUF2+1, SUF2+43, SUF2+45
X GETDIV+5~, GETSVC+5~, GETPUNIT+5~, GETSUF+6~, SUF2+4!, SUF2+8!, SUF2+10, SUF2+22!, SUF2+27*, SUF2+28
, SUF2+29, SUF2+30, SUF2+33, SUF2+34, SUF2+37, SUF2+48*, SUF2+49, SUF2+50, SUF2+51, SUF2+52
, DECODE+1~, DECODE+6!, DECODE+8, DECODE+15!, REVERSE+10!*, REVERSE+11, REVERSE+12!*, REVERSE+13, REVERSE+14!*, REVERSE+15
Y GETDIV+5~, GETDIV+7, GETDIV+11, GETSVC+5~, GETSVC+7, GETSVC+11, GETPUNIT+5~, GETPUNIT+6, GETPUNIT+9, GETSUF+6~
, SUF2+2, SUF2+4!, SUF2+8!, SUF2+10, SUF2+11, SUF2+22!, SUF2+24, DECODE+1~, DECODE+6!, DECODE+8
, DECODE+9, DECODE+15!, DECODE+17
ZERO GETSUF+6~, SUF2+26*, SUF2+37*, SUF2+39, SUF2+46*, SUF2+52*, SUF2+53
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 |  Naked Globals |  Local Variables  | All