| Title: | *OLD* ALL-IN-1 (tm) Support Conference |
| Notice: | Closed - See Note 4331.l to move to IOSG::ALL-IN-1 |
| Moderator: | IOSG::PYE |
| Created: | Thu Jan 30 1992 |
| Last Modified: | Tue Jan 23 1996 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 4343 |
| Total number of notes: | 18308 |
Is there no link between the Corporate phone directory and Profile
in ALL-IN-1?
I.e. is it necessary to manually enter everyone in Corp. phone,
even though all the information is already entered in User profile?
If so, could this not have been automated somehow?
(ALL-IN-1 V2.4)
Thanks,
Hans Westerback
TSC, Stockholm
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 709.1 | Code for simple access to local phone numbers.... | FAILTE::LAAHS | An accumulation of Celts | Tue May 19 1992 11:22 | 54 |
There is no link out of the box.
However, it would be very easy to do a FOR loop on the PROFIL with a
WRITE ADD to the Corporate Phone Book.
Also, accessing the local profile is available from the same
place as accessing the corporate phone book (ie from the DIR menu).
And lastly here is a piece of named data that will take the contents of the
CHOICE and do a lookup in the users personal address book when the user
presses GOLD KEY3. If no entries are found it will do a look up in the
profile. If an entry is found in the personal address book the user can
press GOLD KEY3 again to advance the serach to the profile.
So, for example, to lookup my phone number locl users type 'L' followed
by GOLD KEY3 and everyone beginning with L from the local profil (or
personal address book) will be displayed.
The code can also handle updating the users personal address book
directory from the CHOICE field by delimiting the username , fulname,
phone number and home phoine with a '/'.
We are using this code internally and may even get rid of printng out
local phone lists every six months for everyone.
Kevin
;;.GOLD KEY 3;;
.IF #DSAB EQS "" THEN GET #CHOICE = #TEMP = CHOICE\\
GET_SYMBOL #TEMP,#NAME,"/"\\
GET #DSAB = "PROFIL"\
XOP "~~SET_SYMBOLS~~"\
.IF #TEMP EQS "" THEN
GET OA$FUNCTION = "FORM AUTO SELECT FOR " #DSAB " WITH .USER = #CHOICE DO
SEL_DISPLAY " #FIELDS\\
.IF OA$SRC_COUNT = 0 AND #DSAB EQS "PHPENT" THEN XOP "~~SET_SYMBOLS~~"\\\\
GET OA$FUNCTION = "FORM AUTO SELECT FOR " #DSAB " WITH .USER = #CHOICE DO
SEL_DISPLAY " #FIELDS\\
get oa$status = 0\\GET #DSAB = ""
\IFSTATUS\
GET #DSAB = ""\
GET_SYMBOL #TEMP,#FULNAM,"/"\
GET_SYMBOL #TEMP,#PHONE,"/"\
GET_SYMBOL #TEMP,#HOMEPH,"/"\
WRITE ADD PHPENT USER = #NAME,FULNAM = #FULNAM,PHONE = #PHONE,HOMEPH = #HOMEPH
;;~~SET_SYMBOLS~~;;
.IF #DSAB EQS "PROFIL" THEN GET #DSAB = "PHPENT"\\
GET #FIELDS = ".USER:19 ' ' .FULNAM:19 ' ' .PHONE ' ' .HOMEPH"
ELSE GET #DSAB = "PROFIL"\\GET #FIELDS = ".USER:19 ' ' .FULNAM:19 ' ' .PHONE"
| |||||
| 709.2 | KURTAN::WESTERBACK | Mimsy were the borogroves | Tue May 19 1992 14:14 | 7 | |
Thanks,
seems pretty neat. I will see if the customer is interested in
paying for some fixes by us, seems they're not into ALL-IN-1
programming themselves.
Hans
| |||||